***************************************** EBU.f90 ***************************************** Linha 271 USE UPDT Linha 335 Inclui a variavel CALC_SST !GSM INTEGER(KIND=I4KIND) ::& & I , IER , IERR , ICLTEND , CALC_SST !GSM Linha 511 !GSM !C*** UPDATE MONTHLY SST DATA EACH NEW MONTH ! lsst=.true. IF (lsst) THEN IF((NTSD == 1) .OR. (RESTRT)) THEN CALL SSTSTP() ENDIF CALC_SST=86400/DT IF (MOD(NTSD,CALC_SST) == 0) THEN !INDICA O PRIMEIRO CAMPO A SER LIDO CALL SSTSTP() ENDIF ENDIF !Chou 20080202 !*** UPDATE MONTHLY VEG GREENESS NVEG=86400/DT IF((NTSD == 1).or.(RESTRT).or.(MOD(NTSD,NVEG) == 0)) THEN CALL VEGUPDT !update every 24h ENDIF !Chou !GSM ***************************************** GETDATE_360_DAY_CALENDAR.f90 ***************************************** ***************************************** GETDATE_GREGORIAN_CALENDAR.f90 ***************************************** ***************************************** GRADFS.f90 ***************************************** Linha 52 USE CTLBLK Linha 114 !GSM ! RCO2 = 3.3E-4 RCO2=RACO2(INITCO2) !GSM ***************************************** INIT.f90 ***************************************** Linha 148 USE UPDT Linha 188 !GSM !JLG CHARACTER(4) :: cyr CHARACTER(2) :: cmon,cday,cutc !JLG !GSM Linha 315 !GSM !Chou 20080202 Read monthly veg greeness OPEN(unit=9,file='VGREEN_12MO.dat',form='UNFORMATTED') DO N=1,12 IF(MYPE == 0)THEN READ(9)TEMP1 ENDIF CALL DSTRB(TEMP1,VEGFRM,1,12,N) ENDDO !Chou !GSM Linha 336 !GSM !JFP READ SST MONTHLY DATA FROM UNIT NHB CALL READ_SST12M sst=sstm(:,:,INITSST) IF(MYPE == 0) write(6,*) 'init msst values' ! ! START DE SST FIELD !JFP READ SST12M DATA FROM UNIT CONNECTED TO NSST !JFP READ CO2 ANNUALY DATA FROM UNIT NHB CALL READ_CO2 IF(MYPE == 0) write(6,*) 'init co2 values' !GSM Linha 483 !GSM !JLG IF(MYPE == 0) THEN WRITE(0,*)"JLG TESTE" WRITE(0,*)idat(3),idat(1),idat(2),ihrst WRITE(cyr,'(i4)')idat(3) WRITE(cmon,'(i2)')idat(1) IF (idat(1) < 10) cmon(1:1)='0' WRITE(cday,'(i2)')idat(2) IF (idat(2) < 10) cday(1:1)='0' WRITE(cutc,'(i2)')ihrst IF (ihrst < 10) cutc(1:1)='0' WRITE(chardate,'(a4,3a2)')cyr,cmon,cday,cutc WRITE(0,*)chardate ENDIF !JLG !GSM ***************************************** INITS.f90 ***************************************** Linha 149 USE UPDT Linha 190 !GSM !JLG CHARACTER(4) :: CYR CHARACTER(2) :: CMON,CDAY,CUTC !JLG !GSM Linha 319 !GSM !Chou 20080202 Read monthly veg greeness OPEN(unit=9,file='VGREEN_12MO.dat',form='UNFORMATTED') DO N=1,12 IF(MYPE == 0)THEN READ(9)TEMP1 ENDIF CALL DSTRB(TEMP1,VEGFRM,1,12,N) ENDDO !Chou !GSM Linha 340 !GSM !JFP READ SST MONTHLY DATA FROM UNIT NHB CALL READ_SST12M sst=sstm(:,:,INITSST) IF(MYPE == 0) write(6,*) 'init msst values' ! ! START DE SST FIELD !JFP READ SST12M DATA FROM UNIT CONNECTED TO NSST !JFP READ CO2 ANNUALY DATA FROM UNIT NHB CALL READ_CO2 IF(MYPE == 0) write(6,*) 'init co2 values' !GSM Linha 490 !GSM !JLG IF(MYPE == 0) THEN WRITE(0,*)"JLG TESTE" WRITE(0,*)idat(3),idat(1),idat(2),ihrst WRITE(cyr,'(i4)')idat(3) WRITE(cmon,'(i2)')idat(1) IF (idat(1) < 10) cmon(1:1)='0' WRITE(cday,'(i2)')idat(2) IF (idat(2) < 10) cday(1:1)='0' WRITE(cutc,'(i2)')ihrst IF (ihrst < 10) cutc(1:1)='0' WRITE(chardate,'(a4,3a2)')cyr,cmon,cday,cutc WRITE(0,*)chardate ENDIF !JLG !GSM ***************************************** RADFS.f90 ***************************************** Linha 126 USE CTLBLK Linha 265 !GSM INTEGER CO21YEAR !GSM Linha 437 !GSM !JFP FAZ A ATUALIZACAO ANUAL DO CO2 CO21YEAR=(12*30*3600*24)/DT if(mod(ntsd,CO21YEAR) == 0) then INITCO2=INITCO2+1 RCO2=RACO2(INITCO2) WRITE(0,*) INITCO2,RCO2,NTSD endif !JFP !GSM ***************************************** RADTN.f90 ***************************************** Linha 301 !GSM !JFP CALL SOLARD(RAD1) !JFP !GSM ***************************************** READ_CO2.f90 ***************************************** ***************************************** READ_SST12M.f90 ***************************************** ***************************************** SOLARD.f90 ***************************************** Linha 59 !GSM !JFP INTEGER iyr,imo,idy,cyr,cmo,cdy,utc,cutc Linha 83 iyr=IDAT(3) imo=IDAT(1) idy=IDAT(2) ! IF(mod(NTSD*96/3600,6).EQ.0) THEN utc=(NTSD*DT)/3600 CALL getdate(iyr,imo,idy,utc,cyr,cmo,cdy,cutc) ! write(*,*) 'data inicial:',iyr,imo,idy,utc,NTSD*DT/3600 ! write(*,*) 'data atual:',cyr,cmo,cdy,cutc JYR=cyr JMNTH=cmo JDAY=cdy JHR=cutc !JFP Comentei as Linhas 99, 100, 101 e 102 !GSM JYR = IDAT(3) !GSM JMNTH = IDAT(1) !GSM JDAY = IDAT(2) !GSM JHR = IHRST ***************************************** ZENITH_360_DAY_CALENDAR.f90 ***************************************** ***************************************** ZENITH_GREGORIAN_CALENDAR.f90 ***************************************** ***************************************** SSTCH_360_DAY_CALENDAR.f90 ***************************************** ***************************************** SSTCH_GREGORIAN_CALENDAR.f90 ***************************************** ***************************************** READ_NHB.f90 ***************************************** Linha 103 USE UPDT Linha 184 !JLG_GSM Read flag SST update NAMELIST/flgsst/lsst,nsst IF(MYPE == 0)THEN READ(25,flgsst) ENDIF CALL MPI_BCAST(lsst,1,MPI_LOGICAL,0,MPI_COMM_COMP,IRTN) CALL MPI_BCAST(nsst,1,MPI_INTEGER,0,MPI_COMM_COMP,IRTN) !JLG_GSM ***************************************** VEGUPDT_360_DAY_CALENDAR.f90 ***************************************** ***************************************** VEGUPDT_GREGORIAN_CALENDAR.f90 ***************************************** ***************************************** MODULE_SOIL.f90 ***************************************** Linha 41 REAL, PUBLIC, DIMENSION(IDIM1:IDIM2, JDIM1:JDIM2, 12) :: & & VEGFRM ***************************************** MODULE_PHYS2.f90 ***************************************** Linha 74 REAL , PUBLIC, DIMENSION(IDIM1:IDIM2,JDIM1:JDIM2,565) :: & & SSTM ***************************************** MODULE_CTLBLK.f90 ***************************************** Linha 64 Inclui as variaveis INITSST e INITCO2 & NRADS , NRADL, INITSST, INITCO2 ***************************************** MODULE_UPDT.f90 ***************************************** ***************************************** MODULE_RDFSAV.f90 ***************************************** Linha 17 inclui a variavel RACO2 & DAYSEC , RCO2 , RACO2