New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 7621 for branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/TOP_SRC/trcstp.F90 – NEMO

Ignore:
Timestamp:
2017-01-31T09:43:47+01:00 (6 years ago)
Author:
cetlod
Message:

Minor corrections

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/TOP_SRC/trcstp.F90

    r7607 r7621  
    3232   REAL(wp), DIMENSION(:,:,:), SAVE, ALLOCATABLE ::   qsr_arr ! save qsr during TOP time-step 
    3333   REAL(wp) :: rdt_sampl 
    34    INTEGER  :: nb_rec_per_day 
     34   INTEGER  :: nb_rec_per_day, ktdcy 
    3535   REAL(wp) :: rsecfst, rseclast 
    3636   LOGICAL  :: llnew 
     
    194194      llnew   = ( rseclast - rsecfst ) .ge.  rdt_sampl    !   new shortwave to store 
    195195      IF( llnew ) THEN 
    196           IF( lwp .AND. kt < nittrc000 + 100 ) WRITE(numout,*) ' New shortwave to sample for TOP at time kt = ', kt, & 
     196          ktdcy = kt 
     197          IF( lwp .AND. kt < nittrc000 + 100 ) WRITE(numout,*) ' New shortwave to sample for TOP at time kt = ', ktdcy, & 
    197198             &                      ' time = ', rseclast/3600.,'hours ' 
    198199          rsecfst = rseclast 
     
    208209         IF(lwp) WRITE(numout,*) 'trc_mean_qsr : write qsr_mean in restart file  kt =', kt 
    209210         IF(lwp) WRITE(numout,*) '~~~~~~~' 
    210          zkt  = REAL( kt, wp ) 
     211         zkt  = REAL( ktdcy, wp ) 
    211212         zrec = REAL( nb_rec_per_day, wp ) 
    212213         CALL iom_rstput( kt, nitrst, numrtw, 'ktdcy', zkt  ) 
Note: See TracChangeset for help on using the changeset viewer.