Changeset 7586

Timestamp:

2017-01-20T16:15:54+01:00 (7 years ago)

Author:

timgraham

Message:

More bug fixes

File:

• branches/UKMO/dev_r5518_GO6_package_for_static_diagnostics/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf.F90 (modified) (3 diffs)

branches/UKMO/dev_r5518_GO6_package_for_static_diagnostics/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf.F90

@@ -59 +59 @@
       REAL(wp), POINTER, DIMENSION(:,:,:) ::  ztrdu, ztrdv
       REAL(wp), POINTER, DIMENSION(:,:,:) ::  ztmp
+      INTEGER :: ji,jj
       !!----------------------------------------------------------------------
       !
@@ -81 +82 @@
 #ifdef key_dynldf_c2d
           !Average ahm3 and ahm4 onto T points and output for CMIP6 diagnostics
-          ! Near coastal 
-          IF (kt == nit000) THEN
+          IF(kt == nit000) THEN
              CALL wrk_alloc(jpi, jpj, ztmp)
              DO jj=2,jpj
@@ -91 +91 @@
                 ENDDO
              ENDDO
-             ztmp = 
              CALL iom_put("ahmt_blb", ztmp)
              CALL wrk_dealloc(jpi, jpj, ztmp)