Changeset 7621 for branches

Timestamp:

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

Author:

cetlod

Message:

Minor corrections

Location:

branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO

Files:

• LIM_SRC_3/limhdf.F90 (modified) (1 diff)
• TOP_SRC/trcstp.F90 (modified) (3 diffs)

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 )

branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/TOP_SRC/trcstp.F90

@@ -32 +32 @@
    REAL(wp), DIMENSION(:,:,:), SAVE, ALLOCATABLE ::   qsr_arr ! save qsr during TOP time-step
    REAL(wp) :: rdt_sampl
-   INTEGER  :: nb_rec_per_day
+   INTEGER  :: nb_rec_per_day, ktdcy
    REAL(wp) :: rsecfst, rseclast
    LOGICAL  :: llnew
@@ -194 +194 @@
       llnew   = ( rseclast - rsecfst ) .ge.  rdt_sampl    !   new shortwave to store
       IF( llnew ) THEN
-          IF( lwp .AND. kt < nittrc000 + 100 ) WRITE(numout,*) ' New shortwave to sample for TOP at time kt = ', kt, &
+          ktdcy = kt
+          IF( lwp .AND. kt < nittrc000 + 100 ) WRITE(numout,*) ' New shortwave to sample for TOP at time kt = ', ktdcy, &
              &                      ' time = ', rseclast/3600.,'hours '
           rsecfst = rseclast
@@ -208 +209 @@
          IF(lwp) WRITE(numout,*) 'trc_mean_qsr : write qsr_mean in restart file  kt =', kt
          IF(lwp) WRITE(numout,*) '~~~~~~~'
-         zkt  = REAL( kt, wp )
+         zkt  = REAL( ktdcy, wp )
          zrec = REAL( nb_rec_per_day, wp )
          CALL iom_rstput( kt, nitrst, numrtw, 'ktdcy', zkt  )