Changeset 15512 for NEMO/branches/2021/dev_r14318_RK3_stage1/src/OCE/TRA/traadv.F90

Timestamp:

2021-11-15T18:22:03+01:00 (3 years ago)

Author:

techene

Message:

#2605 RK3 : add logicals to deactivate trends, dianogstics and outputs at stages 1 & 2

File:

• NEMO/branches/2021/dev_r14318_RK3_stage1/src/OCE/TRA/traadv.F90 (modified) (1 diff)

NEMO/branches/2021/dev_r14318_RK3_stage1/src/OCE/TRA/traadv.F90

@@ -173 +173 @@
          !
          ! TEMP: [tiling] This change not necessary if using XIOS (subdomain support)
-         IF( ntile == 0 .OR. ntile == nijtile )  THEN                ! Do only on the last tile
-            CALL iom_put( "uocetr_eff", zuu )                                        ! output effective transport
-            CALL iom_put( "vocetr_eff", zvv )
-            CALL iom_put( "wocetr_eff", zww )
+         IF( l_iom )
+            IF( ntile == 0 .OR. ntile == nijtile )  THEN                ! Do only on the last tile
+               CALL iom_put( "uocetr_eff", zuu )                                        ! output effective transport
+               CALL iom_put( "vocetr_eff", zvv )
+               CALL iom_put( "wocetr_eff", zww )
+            ENDIF
          ENDIF
          !
    !!gm ???
          ! TEMP: [tiling] This change not necessary if using XIOS (subdomain support)
-         CALL dia_ptr( kt, Kmm, zvv(A2D(nn_hls),:) )                                    ! diagnose the effective MSF
+         IF( l_diaptr ) CALL dia_ptr( kt, Kmm, zvv(A2D(nn_hls),:) )                                    ! diagnose the effective MSF
    !!gm ???
          !