- Timestamp:
- 2017-01-31T09:43:47+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/TOP_SRC/trcstp.F90
r7607 r7621 32 32 REAL(wp), DIMENSION(:,:,:), SAVE, ALLOCATABLE :: qsr_arr ! save qsr during TOP time-step 33 33 REAL(wp) :: rdt_sampl 34 INTEGER :: nb_rec_per_day 34 INTEGER :: nb_rec_per_day, ktdcy 35 35 REAL(wp) :: rsecfst, rseclast 36 36 LOGICAL :: llnew … … 194 194 llnew = ( rseclast - rsecfst ) .ge. rdt_sampl ! new shortwave to store 195 195 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, & 197 198 & ' time = ', rseclast/3600.,'hours ' 198 199 rsecfst = rseclast … … 208 209 IF(lwp) WRITE(numout,*) 'trc_mean_qsr : write qsr_mean in restart file kt =', kt 209 210 IF(lwp) WRITE(numout,*) '~~~~~~~' 210 zkt = REAL( kt , wp )211 zkt = REAL( ktdcy, wp ) 211 212 zrec = REAL( nb_rec_per_day, wp ) 212 213 CALL iom_rstput( kt, nitrst, numrtw, 'ktdcy', zkt )
Note: See TracChangeset
for help on using the changeset viewer.