Changeset 9512 for branches/UKMO

Timestamp:

2018-04-27T13:06:25+02:00 (6 years ago)

Author:

frrh

Message:

Correct lbc_lnk call and fix initialisation bugs in diaptr.

Location:

branches/UKMO/dev_r5518_fix_diag_bitcomp/NEMOGCM/NEMO/OPA_SRC

Files:

• DIA/diaptr.F90 (modified) (2 diffs)
• TRA/traadv_eiv.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_fix_diag_bitcomp/NEMOGCM/NEMO/OPA_SRC/DIA/diaptr.F90

@@ -102 +102 @@
 
       !
+      z2d(:,:) = 0._wp
       z3d(:,:,:) = 0._wp
       IF( PRESENT( pvtr ) ) THEN
@@ -246 +247 @@
          !
          IF( iom_use("zotemglo") ) THEN    ! i-mean i-k-surface 
+            zmask(:,:,:) = 0._wp
+            zts(:,:,:,:) = 0._wp
             DO jk = 1, jpkm1
                DO jj = 1, jpj

branches/UKMO/dev_r5518_fix_diag_bitcomp/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_eiv.F90

@@ -177 +177 @@
                z2d(:,:) = z2d(:,:) + z3d(:,:,jk)
             END DO
-            CALL lbc_lnk( z3d_T, 'U', -1. )
+            CALL lbc_lnk( z3d, 'U', -1. )
             CALL iom_put( "ueiv_masstr", z3d )                  ! mass transport in i-direction
          ENDIF