GEF.f90: & I , J , L , IERR , ICLTEND , NTSDDAY , ND , M GEF.f90: NTSDDAY = 3600 * 24 / DT GEF.f90: IF (NTSD == 0) NTSD = 1 GEF.f90: NTSD_INIT = 1 GEF.f90: NTSD_INIT = NTSD + 1 GEF.f90: DO NTSD = NTSD_INIT, NTSTM GEF.f90: WRITE(0,*) ' NTSD= ', NTSD GEF.f90: LOUT = MOD(NTSD - OUTSTR , IOUT ) == 0 .AND. NTSD >= OUTSTR GEF.f90: LADV = MOD(NTSD , IDTAD ) == 0 GEF.f90: LADH = MOD(NTSD , IDTAD ) == 0 GEF.f90: LCKMM = MOD(NTSD , 2 ) == 0 GEF.f90: LPHYS = MOD(NTSD , NPHS ) == 0 GEF.f90: LCHSST = MOD(NTSD , NTSDDAY) == 0 GEF.f90: LDASS = NTSD <= NDASSIMM GEF.f90: WRITE(0,*) ' LOUT= ', LOUT, IOUT, NTSD GEF.f90: WRITE(0,*) ' LADV= ', LADV, IDTAD, NTSD GEF.f90: WRITE(0,*) ' LADH= ', LADH, IDTAD, NTSD GEF.f90: WRITE(0,*) ' LCKMM= ', LCKMM, NTSD GEF.f90: WRITE(0,*) ' LPHYS= ', LPHYS, NPHS, NTSD GEF.f90: WRITE(0,*) ' LCHSST= ', LCHSST, NTSDDAY, NTSD GEF.f90: ND = NTSD / NTSDDAY GEF.f90: ND = NTSD / NTSDDAY GEF.f90: WRITE(*,*) NTSD, MYPE, I17, J17, K17, T(I17,J17,K17) GEF.f90: WRITE(*,*) NTSD, MYPE, I18, J18, K18, T(I18,J18,K18) GEF.f90: WRITE(*,*) NTSD, MYPE, I21, J21, K21, T(I21,J21,K21) GEF.f90: WRITE(*,*) NTSD, MYPE, I3, J3, K3, T(I3,J3,K3) GEF.f90: WRITE(*,*) NTSD, MYPE, I19, J19, K19, T(I19,J19,K19) GEF.f90: WRITE(*,*) NTSD, MYPE, I5, J5, K5, T(I5,J5,K5) GEF.f90: WRITE(*,*) NTSD, MYPE, I6, J6, K6, T(I6,J6,K6) GEF.f90: WRITE(*,*) NTSD, MYPE, I7, J7, K7, T(I7,J7,K7) GEF.f90: WRITE(*,*) NTSD, MYPE, I20, J20, K20, T(I20,J20,K20) GEF.f90: IF (MOD(NTSD, NRADS) == 0 .OR. MOD(NTSD, NRADL) == 0 .OR. NTSD == 1) THEN GEF.f90: WRITE(0,*) ' NRADS= ', MOD(NTSD, NRADS), NTSD GEF.f90: WRITE(0,*) ' NRADL= ', MOD(NTSD, NRADL), NTSD GEF.f90: WRITE(*,*) NTSD, MYPE, I9, J9, K9, T(I9,J9,K9) GEF.f90: WRITE(*,*) NTSD, MYPE, I10, J10, K10, T(I10,J10,K10) GEF.f90: WRITE(*,*) NTSD, MYPE, I11, J11, K11, T(I11,J11,K11) GEF.f90: WRITE(*,*) NTSD, MYPE, I12, J12, K12, T(I12,J12,K12) GEF.f90: WRITE(*,*) NTSD, MYPE, I13, J13, K13, T(I13,J13,K13) GEF.f90: WRITE(*,*) NTSD, MYPE, I14, J14, K14, T(I14,J14,K14) GEF.f90: WRITE(*,*) NTSD, MYPE, I15, J15, K15, T(I15,J15,K15) GEF.f90: IF (MYPE == 0) WRITE(0,*) ' OUTPUT AT ', (NTSD * DT) / 3600.0 GEF.f90: WRITE(*,*) NTSD, MYPE, I16, J16, K16, T(I16,J16,K16) GSMDRIVE.f90: IF (T(II3,JJ3,KK3) < 150.00 .OR. T(II3,JJ3,KK3) > 350) WRITE(*,*) "DENTRO GSMDRIVE.f90", NTSD, II3, JJ3, KK3, T(II3,JJ3,KK3) GSMDRIVE.f90: TIME_MODEL = FLOAT(NTSD-1) * DT / 3600. INIT.f90: & NTSD , NTSTM , NDDAMP , NPREC , IDTAD , NBOCO , NSHDE , & INIT.f90: ntsd=(nhrs*((24/(outnum/nday))*3600))/dt INIT.f90: WRITE(0,*) ' NTSD_IN= ', ntsd INIT.f90: time = ntsd*dt !should be considered in RESTART 25/06/2019 KFPARA.f90: XTIME = NTSD * DT / 60. KFPARA.f90: XTIME = NTSD * DT / 60. KFPARA.f90: WRITE(6,* ) 'I, J, NTSD =', I, J, NTSD MODULE_CTLBLK.f90: & IOUT , IHRST , NFCST , NBC , LIST , NTSD , NTSTM , NDDAMP , NPREC , & MODULE_CTLBLK.f90: & NTSD_INIT OUT2.f90: iutc=ntsd*dt/3600 RADTN.f90: IF (MOD(NTSD,NRADS) == 0) SHORT = .TRUE. RADTN.f90: IF (MOD(NTSD,NRADL) == 0) LONG = .TRUE. RADTN.f90: IF (MOD(NTSD,NRADPP) == 1) CURAD = .TRUE. RADTN.f90: TIME = (NTSD-1) * DT RADTN.f90: TIMES = (NTSD-1) * DT + II * DT RADTN.f90: IF (NTSD == 1 .OR. NTSD > NSTART+1) THEN RDTEMP.f90: TIMES = (NTSD - 1) * DT SSTCH.f90: & X , NTSDDAY , CALC_MON SSTCH.f90: IUTC = NTSD * DT / 3600 SSTCH.f90: PRINT*, 'NTSD=', NTSD SURFCE.f90: IF (NTSD < NPHS) THEN VEGUPDT.f90: IUTC = NTSD * DT / 3600 ! CHOU DT EH 90SEG