Changeset 1814 for branches/CMIP5_IPSL
- Timestamp:
- 2010-03-25T12:26:36+01:00 (14 years ago)
- Location:
- branches/CMIP5_IPSL/NEMO/TOP_SRC
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/CMIP5_IPSL/NEMO/TOP_SRC/PISCES/trcrst_pisces.F90
r1808 r1814 263 263 #if defined key_dtatrc 264 264 ! Restore close seas values to initial data 265 nmonth = 1 266 nday = 1 267 CALL trc_dta( nittrc000) 265 CALL trc_dta( nittrc000 ) 268 266 DO jn = 1, jptra 269 267 IF( lutini(jn) ) THEN -
branches/CMIP5_IPSL/NEMO/TOP_SRC/trcini.F90
r1745 r1814 122 122 trb(:,:,:,:) = trn(:,:,:,:) 123 123 ELSE 124 ! 124 125 CALL trc_rst_read ! restart from a file 125 #if defined key_off_tra 126 CALL day_init ! calendar 127 #endif 126 ! 128 127 ENDIF 129 128 -
branches/CMIP5_IPSL/NEMO/TOP_SRC/trcrst.F90
r1808 r1814 33 33 USE trcrst_c14b ! C14 bomb restart 34 34 USE trcrst_my_trc ! MY_TRC restart 35 35 #if defined key_off_tra 36 USE daymod 37 #endif 36 38 IMPLICIT NONE 37 39 PRIVATE … … 277 279 WRITE(numout,*) 278 280 ENDIF 281 ! 282 CALL day_init ! compute calendar 283 ! 279 284 #endif 280 285
Note: See TracChangeset
for help on using the changeset viewer.