Changeset 15619

Timestamp:

2021-12-29T10:50:56+01:00 (2 years ago)

Author:

techene

Message:

#2715 cleaning

Location:

NEMO/branches/2021/dev_r14318_RK3_stage1/src/TOP

Files:

• trcini.F90 (modified) (1 diff)
• trcrst.F90 (modified) (1 diff)

NEMO/branches/2021/dev_r14318_RK3_stage1/src/TOP/trcini.F90

@@ -246 +246 @@
       !
       tr(:,:,:,:,Kaa) = 0._wp
-      !
-      IF( ln_trcbc .AND. lltrcbc )  THEN 
-        CALL trc_bc_ini ( jptra, Kmm  )            ! set tracers Boundary Conditions
-        CALL trc_bc     ( nit000, Kmm, tr, Kaa )   ! tracers: surface and lateral Boundary Conditions
-      ENDIF
-      !
-      IF( ln_trcais ) CALL trc_ais_ini   ! set tracers from Antarctic Ice Sheet
       !
       IF( ln_rsttr ) THEN              ! restart from a file

NEMO/branches/2021/dev_r14318_RK3_stage1/src/TOP/trcrst.F90

@@ -160 +160 @@
       ! --------------------
 #if defined key_RK3
-      DO jn = 1, jptra      ! MLF : After time step (before the swap) put in TRN
-         CALL iom_rstput( kt, nitrst, numrtw, 'TRN'//ctrcnm(jn), tr(:,:,:,jn,Kaa) )
-      END DO
       DO jn = 1, jptra      ! RK3 : After time step (before the swap) put in TRB
          CALL iom_rstput( kt, nitrst, numrtw, 'TRB'//ctrcnm(jn), tr(:,:,:,jn,Kaa) )