IPRC_RCMS(model.f)
-pars.h
-cpu_dims.h
-parm.h
-lsmpar.h
-coms.h
-domain.h
-aghdr.h
-apraddcb.h
-mpi_regcm.h
-accum_daily.h
-accum_diurn.h
+MPI_INIT
+MPI_COMM_SIZE
+MPI_COMM_RANK
+mpi_finalize
+MPI_COMM_SPLIT
C     READ IN CONTROLLERS FOR INITIALIZATION
+cardin

c Parameter to control the driving fields
+const

c Parameters used in cloud microphysics &Massflux convection scheme
C and multiple gravity-wave drag
+param
+CUPARAM
+mgwiniti

+CTDAYS

!     ++++ SET CONSTANTS USED IN DYNAMIC FRAME INTEGRATION
+CTDAYS

!     ++++ UPDATE TIME PARAMETERS & DEPENDENTS
+UPDATE

+mpi_allreduce
+atmos_ran
+atmos_ran

c Initialize radiation
+inirad

c  to read the SST fields
+sst_set
+sst_set

+MPI_FINALIZE
+zenith_drv
+fakeini
+zenith_drv
+fakeini

c Initialization for model physics
+mip_barrier

      if(myrank.eq.0) write(6,*) 'Call physical initialization'
+phys
+mpi_barrier

+mpi_allreduce
+inner
+phys
+mpi_barrier

+atmos_ran
+sst_set

!       ....  SET DAY,EARTH-SUN DISTANCE,SOLAR DECLINATION
+UPDATE

+MPI_FINALIZE