Changeset 7885 for branches/UKMO/GO6_dyn_vrt_diag/NEMOGCM/NEMO/OPA_SRC/DYN/dynzdf_imp.F90

Timestamp:

2017-04-10T15:35:02+02:00 (7 years ago)

Author:

glong

Message:

Fixing error in dynzdf_imp.F90

File:

• branches/UKMO/GO6_dyn_vrt_diag/NEMOGCM/NEMO/OPA_SRC/DYN/dynzdf_imp.F90 (modified) (3 diffs)

branches/UKMO/GO6_dyn_vrt_diag/NEMOGCM/NEMO/OPA_SRC/DYN/dynzdf_imp.F90

@@ -263 +263 @@
 
       ! Normalization to obtain the general momentum trend ua
-      IF ( ( .NOT. lk_dynspg_ts ) .OR. 
-              ( ( id_dia_vrt_zdf_int == 1 ) .OR. ( id_dia_vrt_zdf_mean == 1 ) ) ) THEN
+      IF ( ( .NOT. lk_dynspg_ts ) .OR.            &
+           &    ( ( id_dia_vrt_zdf_int == 1 ) .OR. ( id_dia_vrt_zdf_mean == 1 ) ) ) THEN
           DO jk = 1, jpkm1
              DO jj = 2, jpjm1   
@@ -368 +368 @@
 
       ! Normalization to obtain the general momentum trend va
-      IF ( ( .NOT lk_dynspg_ts ) .OR.
-           ( ( id_dia_vrt_zdf_int == 1 ) .OR. ( id_dia_vrt_zdf_mean == 1 ) ) ) THEN
+      IF ( ( .NOT. lk_dynspg_ts ) .OR.            &
+           &    ( ( id_dia_vrt_zdf_int == 1 ) .OR. ( id_dia_vrt_zdf_mean == 1 ) ) ) THEN
           DO jk = 1, jpkm1
              DO jj = 2, jpjm1   
@@ -380 +380 @@
               CALL dyn_vrt_dia_3d(zua, zva, id_dia_vrt_zdf_int, id_dia_vrt_zdf_mean)
           END IF
-          IF ( .NOT lk_dynspg_ts ) THEN
+          IF ( .NOT. lk_dynspg_ts ) THEN
              va(:,:,:) = zva(:,:,:)
           END IF