add more subroutines in cmb.F90