Changeset 8657 for branches/NERC/dev_r5518_GO6_COAREbulk/NEMOGCM/NEMO/TOP_SRC/IDTRA/trcsms_idtra.F90

Timestamp:

2017-10-25T14:46:18+02:00 (7 years ago)

Author:

jpalmier

Message:

update the branch to match last GO6 changes

File:

• branches/NERC/dev_r5518_GO6_COAREbulk/NEMOGCM/NEMO/TOP_SRC/IDTRA/trcsms_idtra.F90 (modified) (1 diff)

branches/NERC/dev_r5518_GO6_COAREbulk/NEMOGCM/NEMO/TOP_SRC/IDTRA/trcsms_idtra.F90

@@ -165 +165 @@
       !ENDIF
       !
-      IF( lk_iomput ) THEN
          CALL iom_put( "qtrIDTRA"  , qtr_idtra (:,:,1) )
          CALL iom_put( "qintIDTRA" , qint_idtra(:,:,1) )
          CALL iom_put( "invIDTRA" , inv_idtra(:,:,1) )
-      ELSE
-         IF( ln_diatrc ) THEN
-            trc2d(:,:,jp_idtra0_2d    ) = qtr_idtra (:,:,1)
-            trc2d(:,:,jp_idtra0_2d + 1) = qint_idtra(:,:,1)
-            trc2d(:,:,jp_idtra0_2d + 2) = inv_idtra(:,:,1)
-         END IF
-      END IF
       !
 # if defined key_debug_medusa