Changeset 11993 for NEMO/trunk/src/OCE/LDF

Timestamp:

2019-11-28T11:20:53+01:00 (4 years ago)

Author:

cetlod

Message:

trunk : undo bad commit. Oups

File:

• NEMO/trunk/src/OCE/LDF/ldftra.F90 (modified) (4 diffs)

NEMO/trunk/src/OCE/LDF/ldftra.F90

@@ -851 +851 @@
       CALL iom_put( "woce_eiv", zw3d )
       !
-      IF( iom_use('weiv_masstr') ) THEN   ! vertical mass transport & its square value
-         zw2d(:,:) = rau0 * e1e2t(:,:)
-         DO jk = 1, jpk
-            zw3d(:,:,jk) = zw3d(:,:,jk) * zw2d(:,:)
-         END DO
-         CALL iom_put( "weiv_masstr" , zw3d )  
-      ENDIF
-      !
-      IF( iom_use('ueiv_masstr') ) THEN
-         zw3d(:,:,:) = 0.e0
-         DO jk = 1, jpkm1
-            zw3d(:,:,jk) = rau0 * ( psi_uw(:,:,jk+1) - psi_uw(:,:,jk) ) 
-         END DO
-         CALL iom_put( "ueiv_masstr", zw3d )                  ! mass transport in i-direction
-      ENDIF
       !
       zztmp = 0.5_wp * rau0 * rcp 
@@ -885 +870 @@
         CALL iom_put( "ueiv_heattr3d", zztmp * zw3d )                  ! heat transport in i-direction
       ENDIF
-      !
-      IF( iom_use('veiv_masstr') ) THEN
-         zw3d(:,:,:) = 0.e0
-         DO jk = 1, jpkm1
-            zw3d(:,:,jk) = rau0 * ( psi_vw(:,:,jk+1) - psi_vw(:,:,jk) ) 
-         END DO
-         CALL iom_put( "veiv_masstr", zw3d )                  ! mass transport in i-direction
-      ENDIF
-      !
       zw2d(:,:)   = 0._wp 
       zw3d(:,:,:) = 0._wp 
@@ -909 +885 @@
       CALL iom_put( "veiv_heattr", zztmp * zw3d )                  !  heat transport in j-direction
       !
-      IF( iom_use( 'sophteiv' ) )   CALL dia_ptr_hst( jp_tem, 'eiv', 0.5 * zw3d )
+      IF( ln_diaptr )  CALL dia_ptr_hst( jp_tem, 'eiv', 0.5 * zw3d )
       !
       zztmp = 0.5_wp * 0.5
@@ -944 +920 @@
       CALL iom_put( "veiv_salttr", zztmp * zw3d )                  !  salt transport in j-direction
       !
-      IF( iom_use( 'sopsteiv' ) ) CALL dia_ptr_hst( jp_sal, 'eiv', 0.5 * zw3d )
+      IF( ln_diaptr ) CALL dia_ptr_hst( jp_sal, 'eiv', 0.5 * zw3d )
       !
       !