Changeset 7265

Timestamp:

2016-11-18T11:17:13+01:00 (7 years ago)

Author:

timgraham

Message:

Bug fixes

File:

• branches/2016/dev_r7233_CMIP6_diags_trunk_version/NEMOGCM/NEMO/OPA_SRC/LDF/ldftra.F90 (modified) (4 diffs)

branches/2016/dev_r7233_CMIP6_diags_trunk_version/NEMOGCM/NEMO/OPA_SRC/LDF/ldftra.F90

@@ -754 +754 @@
          ENDIF
          zw2d(:,:) = 0._wp 
-         zw3d(:,:) = 0._wp 
+         zw3d(:,:,:) = 0._wp 
          DO jk = 1, jpkm1
             DO jj = 2, jpjm1
@@ -770 +770 @@
          !
          zztmp = 0.5_wp * 0.5
-         IF( iom_use('ueiv_salttr') .OR. iom_use('ueiv_salttr3d') THEN
+         IF( iom_use('ueiv_salttr') .OR. iom_use('ueiv_salttr3d')) THEN
            zw2d(:,:) = 0._wp 
            zw3d(:,:,:) = 0._wp 
@@ -776 +776 @@
               DO jj = 2, jpjm1
                  DO ji = fs_2, fs_jpim1   ! vector opt.
-                    zw3d(ji,jj,jk) = zw3d(ji,jj,jk) + * ( psi_uw(ji,jj,jk+1)      - psi_uw(ji,jj,jk)          )   &
-                       &                              * ( tsn   (ji,jj,jk,jp_sal) + tsn   (ji+1,jj,jk,jp_sal) ) 
+                    zw3d(ji,jj,jk) = zw3d(ji,jj,jk) * ( psi_uw(ji,jj,jk+1)      - psi_uw(ji,jj,jk)          )   &
+                       &                            * ( tsn   (ji,jj,jk,jp_sal) + tsn   (ji+1,jj,jk,jp_sal) ) 
                     zw2d(ji,jj) = zw2d(ji,jj) + zw3d(ji,jj,jk)
                  END DO
@@ -788 +788 @@
          ENDIF
          zw2d(:,:) = 0._wp 
-         zw3d(:,:) = 0._wp 
+         zw3d(:,:,:) = 0._wp 
          DO jk = 1, jpkm1
             DO jj = 2, jpjm1