Changeset 10892 for branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/LDF/ldfdyn_smag.F90

Timestamp:

2019-04-25T11:22:51+02:00 (5 years ago)

Author:

andmirek

Message:

GMED 450 reviewer comments

File:

• branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/LDF/ldfdyn_smag.F90 (modified) (3 diffs)

branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/LDF/ldfdyn_smag.F90

@@ -106 +106 @@
 
 
-         IF(lwp) WRITE(numout,*)
-         IF(lwp) WRITE(numout,*) 'ldf_dyn_smag : 3D lateral eddy viscosity coefficient'
-         IF(lwp) WRITE(numout,*) '~~~~~~~~~~~'
-         IF(lwp .AND. lflush) CALL flush(numout)
+         IF(lwp) THEN
+            WRITE(numout,*)
+            WRITE(numout,*) 'ldf_dyn_smag : 3D lateral eddy viscosity coefficient'
+            WRITE(numout,*) '~~~~~~~~~~~'
+            IF(lflush) CALL flush(numout)
+         ENDIF
 
       ENDIF
@@ -173 +175 @@
 
          ENDDO ! jpk
-            ahm1(:,:,jpk) = ahm1(:,:,jpkm1)
-            ahm2(:,:,jpk) = ahm2(:,:,jpkm1)
-            IF(lwp.and.kt==nit000) THEN
-               WRITE(numout,'(36x," ahm ", 7x)') 
-               IF(lflush) CALL flush(numout)
-            ENDIF
+
+         ahm1(:,:,jpk) = ahm1(:,:,jpkm1)
+         ahm2(:,:,jpk) = ahm2(:,:,jpkm1)
+
+         IF(lwp.and.kt==nit000) THEN
+            WRITE(numout,'(36x," ahm ", 7x)') 
+            IF(lflush) CALL flush(numout)
+         ENDIF
+
          IF(lwp.and.kt==nit000) THEN
             DO jk = 1, jpk
@@ -185 +190 @@
             IF(lflush) CALL flush(numout)
          ENDIF
+
       CALL lbc_lnk( ahm1, 'T', 1. )   ! Lateral boundary conditions on ( ahtt )
       CALL lbc_lnk( ahm2, 'F', 1. )   ! Lateral boundary conditions on ( ahtt )