Changeset 4065
- Timestamp:
- 2013-10-16T09:45:48+02:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r3940_CNRS4_IOCRS/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90
r4029 r4065 47 47 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 48 48 49 USE trc 50 USE trcnam 51 USE trcrst 52 49 53 IMPLICIT NONE 50 54 PRIVATE … … 94 98 ! 95 99 IF( istp /= nit000 ) CALL day ( istp ) ! Calendar (day was already called at nit000 in day_init) 96 CALL iom_setkt( istp - nit000 + 1, "nemo" ) 100 CALL iom_setkt( istp - nit000 + 1, "nemo" ) ! say to iom that we are at time step kstp 97 101 CALL dta_dyn ( istp ) ! Interpolation of the dynamical fields 98 102 CALL trc_stp ( istp ) ! time-stepping … … 249 253 IF( lk_trabbl ) CALL tra_bbl_init ! advective (and/or diffusive) bottom boundary layer scheme 250 254 255 CALL trc_nam_run ! Needed to get restart parameters for passive tracers 256 IF( ln_rsttr ) THEN 257 neuler = 1 ! Set time-step indicator at nit000 (leap-frog) 258 CALL trc_rst_cal( nit000, 'READ' ) ! calendar 259 ELSE 260 neuler = 0 ! Set time-step indicator at nit000 (euler) 261 CALL day_init ! set calendar 262 ENDIF 263 ! ! Dynamics 264 CALL dta_dyn_init ! Initialization for the dynamics 265 251 266 ! ! Passive tracers 252 267 CALL trc_init ! Passive tracers initialization 253 ! ! Dynamics254 CALL dta_dyn_init ! Initialization for the dynamics255 268 256 269 IF(lwp) WRITE(numout,cform_aaa) ! Flag AAAAAAA … … 394 407 ierr = ierr + zdf_oce_alloc () ! ocean vertical physics 395 408 ! 409 ierr = ierr + lib_mpp_alloc (numout) ! mpp exchanges 396 410 ierr = ierr + trc_oce_alloc () ! shared TRC / TRA arrays 397 411 !
Note: See TracChangeset
for help on using the changeset viewer.