Changeset 2555
- Timestamp:
- 2011-01-13T16:58:17+01:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/TOP_SRC/trcini.F90
r2528 r2555 128 128 CALL day_init ! set calendar 129 129 ENDIF 130 IF( lk_dtatrc ) THEN 131 132 133 134 135 ENDIF 130 #if defined key_dtatrc 131 CALL trc_dta( nit000 ) ! Initialization of tracer from a file that may also be used for damping 132 DO jn = 1, jptra 133 IF( lutini(jn) ) trn(:,:,:,jn) = trdta(:,:,:,jn) * tmask(:,:,:) ! initialisation from file if required 134 END DO 135 #endif 136 136 trb(:,:,:,:) = trn(:,:,:,:) 137 137 !
Note: See TracChangeset
for help on using the changeset viewer.