Changeset 3242
- Timestamp:
- 2012-01-03T16:08:02+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/trcini.F90
r3192 r3242 78 78 CALL trc_nam ! read passive tracers namelists 79 79 ! ! masked grid volume 80 IF( lk_offline ) THEN 81 IF( ln_rsttr ) THEN 82 neuler = 1 ! Set time-step indicator at nit000 (leap-frog) 83 ELSE 84 neuler = 0 ! Set time-step indicator at nit000 (euler) 85 CALL day_init ! set calendar 86 ENDIF 87 ENDIF 88 ! ! masked grid volume 80 89 DO jk = 1, jpk 81 90 cvol(:,:,jk) = e1e2t(:,:) * fse3t(:,:,jk) * tmask(:,:,jk) … … 115 124 IF( ln_rsttr ) THEN 116 125 ! 117 IF( lk_offline ) neuler = 1 ! Set time-step indicator at nit000 (leap-frog)118 126 CALL trc_rst_read ! restart from a file 119 127 ! 120 128 ELSE 121 IF( lk_offline ) THEN 122 neuler = 0 ! Set time-step indicator at nit000 (euler) 123 CALL day_init ! set calendar 124 ENDIF 129 ! 125 130 IF( ln_trcdta .AND. nb_trcdta > 0 ) THEN ! Initialisation of tracer from a file that may also be used for damping 126 131 !
Note: See TracChangeset
for help on using the changeset viewer.