Changeset 11908 for NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/TRA/traisf.F90

Timestamp:

2019-11-14T20:20:07+01:00 (4 years ago)

Author:

mathiot

Message:

ENHANCE-02_ISF_nemo: fix issue initialisation after ice sheet coupling step

File:

• NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/TRA/traisf.F90 (modified) (1 diff)

NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/TRA/traisf.F90

@@ -68 +68 @@
          ! ensure 0 trend due to unconservation of the ice shelf coupling
          IF ( ln_isfcpl_cons ) CALL tra_isf_cpl(risfcpl_cons_tsc, tsa)
+
+         IF ( ln_isfdebug ) THEN
+            CALL debug('tra_isf: risfcpl_tsc T',risfcpl_tsc(:,:,1))
+            CALL debug('tra_isf: risfcpl_tsc S',risfcpl_tsc(:,:,2))
+         END IF
          !
       END IF
       !
       IF ( ln_isfdebug ) THEN
-         CALL debug('tra_isf: risfcpl_tsc T',risfcpl_tsc(:,:,1))
-         CALL debug('tra_isf: risfcpl_tsc S',risfcpl_tsc(:,:,2))
          CALL debug('tra_isf: tsa T'        ,tsa(:,:,:,1))
          CALL debug('tra_isf: tsa S'        ,tsa(:,:,:,2))