Changeset 15619 for NEMO/branches/2021
- Timestamp:
- 2021-12-29T10:50:56+01:00 (3 years ago)
- Location:
- NEMO/branches/2021/dev_r14318_RK3_stage1/src/TOP
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/dev_r14318_RK3_stage1/src/TOP/trcini.F90
r15574 r15619 246 246 ! 247 247 tr(:,:,:,:,Kaa) = 0._wp 248 !249 IF( ln_trcbc .AND. lltrcbc ) THEN250 CALL trc_bc_ini ( jptra, Kmm ) ! set tracers Boundary Conditions251 CALL trc_bc ( nit000, Kmm, tr, Kaa ) ! tracers: surface and lateral Boundary Conditions252 ENDIF253 !254 IF( ln_trcais ) CALL trc_ais_ini ! set tracers from Antarctic Ice Sheet255 248 ! 256 249 IF( ln_rsttr ) THEN ! restart from a file -
NEMO/branches/2021/dev_r14318_RK3_stage1/src/TOP/trcrst.F90
r15321 r15619 160 160 ! -------------------- 161 161 #if defined key_RK3 162 DO jn = 1, jptra ! MLF : After time step (before the swap) put in TRN163 CALL iom_rstput( kt, nitrst, numrtw, 'TRN'//ctrcnm(jn), tr(:,:,:,jn,Kaa) )164 END DO165 162 DO jn = 1, jptra ! RK3 : After time step (before the swap) put in TRB 166 163 CALL iom_rstput( kt, nitrst, numrtw, 'TRB'//ctrcnm(jn), tr(:,:,:,jn,Kaa) )
Note: See TracChangeset
for help on using the changeset viewer.