Changeset 7621 for branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/LIM_SRC_3/limhdf.F90

Timestamp:

2017-01-31T09:43:47+01:00 (7 years ago)

Author:

cetlod

Message:

Minor corrections

File:

• branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/LIM_SRC_3/limhdf.F90 (modified) (1 diff)

branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/LIM_SRC_3/limhdf.F90

@@ -202 +202 @@
       ! -----------------------
 
-      IF(ln_ctl)   THEN
-         DO jk = 1 , isize
-            zrlx(:,:,jk) = ptab(:,:,jk) - ztab0(:,:,jk)
-            WRITE(charout,FMT="(' lim_hdf  : zconv =',D23.16, ' iter =',I4,2X)") zconv, iter
-            CALL prt_ctl( tab2d_1=zrlx(:,:,jk), clinfo1=charout )
-         END DO
-      ENDIF
+ !     IF(ln_ctl)   THEN
+ !        DO jk = 1 , isize
+ !           zrlx(:,:,jk) = ptab(:,:,jk) - ztab0(:,:,jk)
+ !           WRITE(charout,FMT="('lim_hdf  : zconv =',D23.16, ' iter =',I4)") zconv, iter
+ !           CALL prt_ctl( tab2d_1=zrlx(:,:,jk), clinfo1=charout )
+ !        END DO
+  !    ENDIF
       !
       CALL wrk_dealloc( jpi, jpj, isize, zrlx, zdiv0, ztab0 )