Changeset 7621
- Timestamp:
- 2017-01-31T09:43:47+01:00 (7 years ago)
- Location:
- branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/LIM_SRC_3/limhdf.F90
r7607 r7621 202 202 ! ----------------------- 203 203 204 IF(ln_ctl) THEN205 DO jk = 1 , isize206 zrlx(:,:,jk) = ptab(:,:,jk) - ztab0(:,:,jk)207 WRITE(charout,FMT="(' lim_hdf : zconv =',D23.16, ' iter =',I4,2X)") zconv, iter208 CALL prt_ctl( tab2d_1=zrlx(:,:,jk), clinfo1=charout )209 END DO210 ENDIF204 ! IF(ln_ctl) THEN 205 ! DO jk = 1 , isize 206 ! zrlx(:,:,jk) = ptab(:,:,jk) - ztab0(:,:,jk) 207 ! WRITE(charout,FMT="('lim_hdf : zconv =',D23.16, ' iter =',I4)") zconv, iter 208 ! CALL prt_ctl( tab2d_1=zrlx(:,:,jk), clinfo1=charout ) 209 ! END DO 210 ! ENDIF 211 211 ! 212 212 CALL wrk_dealloc( jpi, jpj, isize, zrlx, zdiv0, ztab0 ) -
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.