/[MITgcm]/MITgcm_contrib/jscott/igsm/src/input.F
ViewVC logotype

Diff of /MITgcm_contrib/jscott/igsm/src/input.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.6 by jscott, Wed Oct 17 21:07:21 2007 UTC revision 1.7 by jscott, Tue Sep 1 22:03:56 2009 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3    
4  #include "ctrparam.h"  #include "ctrparam.h"
5    
# Line 90  cjrs DRIVER.h last_nep character * 120 c Line 92  cjrs DRIVER.h last_nep character * 120 c
92       & ,flin_nep,last_clm,emiss_data,SO2ERATIO,SEN_dat       & ,flin_nep,last_clm,emiss_data,SO2ERATIO,SEN_dat
93  cjrs DRIVER.h fnememiss &  ,fl_init_alkt,fl_init_salt,fl_dic_eq,fnememiss,  cjrs DRIVER.h fnememiss &  ,fl_init_alkt,fl_init_salt,fl_dic_eq,fnememiss,
94       &  ,fl_init_alkt,fl_init_salt,fl_dic_eq,       &  ,fl_init_alkt,fl_init_salt,fl_dic_eq,
95       & chem_init,chem_init2,chemrstfl       & chem_init,chem_init2,chem_init4pfc,chemrstfl
96        common/files/file1,file2,plotfl,nwrfl,qffile,clfile,wrcldf        common/files/file1,file2,plotfl,nwrfl,qffile,clfile,wrcldf
97       *,t3file,tsfile,zmfile,ochemfile,deepco2in       *,t3file,tsfile,zmfile,ochemfile,deepco2in
98        character * 120 ghostfile        character * 120 ghostfile
# Line 133  c==== 012201 Line 135  c==== 012201
135       &  S0C_data,cfvolaer,       &  S0C_data,cfvolaer,
136       &  dirdat1,dirdat2       &  dirdat1,dirdat2
137       &  ,chemdata,chemout,last_nep,init_4nem,pov_deepo,fnememiss       &  ,chemdata,chemout,last_nep,init_4nem,pov_deepo,fnememiss
138       &  ,chem_init,chem_init2,chemrstfl       &  ,chem_init,chem_init2,chem_init4pfc,chemrstfl
139       &    ,oco2file,co2rfile,caruptfile,emiss_data,SO2ERATIO,flrco2av       &    ,oco2file,co2rfile,caruptfile,emiss_data,SO2ERATIO,flrco2av
140       &  ,flin_nep,last_clm,SEN_dat,nemdatdir       &  ,flin_nep,last_clm,SEN_dat,nemdatdir
141       &  ,GHSFALB,GHSF,ALBCF,FVOLADD,ghostfile,fl_volaer       &  ,GHSFALB,GHSF,ALBCF,FVOLADD,ghostfile,fl_volaer
# Line 142  c==== 012201 Line 144  c==== 012201
144       &  ,fclmlice,fbaresoil,fwmax,fprratio,o3datadir,CLIMO3       &  ,fclmlice,fbaresoil,fwmax,fprratio,o3datadir,CLIMO3
145       &  ,OCNGEOM,ocngmfile,ocndata4atm       &  ,OCNGEOM,ocngmfile,ocndata4atm
146       &  ,bc_data       &  ,bc_data
147         &  ,PRTREND
148  Cjrs     &  ,dtatm,dtocn  Cjrs     &  ,dtatm,dtocn
149  #if ( defined IPCC_EMI )  #if ( defined IPCC_EMI )
150       &  ,init_co2       &  ,init_co2
# Line 276  C Line 279  C
279        GSOEQ=.false.        GSOEQ=.false.
280        VEGCH=.false.        VEGCH=.false.
281        TRVEG=.false.        TRVEG=.false.
282          PRTREND=.false.
283        OCNGEOM=.false.        OCNGEOM=.false.
284        do L=1,LM+1        do L=1,LM+1
285          ghostfv(L)=0.          ghostfv(L)=0.
# Line 347  cjrs      dtocn=1 Line 351  cjrs      dtocn=1
351        chemdata = 'DATA'        chemdata = 'DATA'
352        chem_init = 'init-data_46x11_1991'        chem_init = 'init-data_46x11_1991'
353        chem_init2 = 'init-data2_46x11_1991'        chem_init2 = 'init-data2_46x11_1991'
354          chem_init4pfc = 'undefined'
355        chemrstfl = 'undefined'        chemrstfl = 'undefined'
356        nemdatdir = 'TEMDATA'        nemdatdir = 'TEMDATA'
357        emiss_data='edaily.dat'        emiss_data='edaily.dat'
# Line 618  C       OLD Line 623  C       OLD
623        else        else
624          print *,'No diffusion into deep ocean'          print *,'No diffusion into deep ocean'
625        endif        endif
626          if (PRTREND) then
627             print *,' With changes in  stochastic precip'
628          else
629             print *,' Without changes in  stochastic precip'
630          endif
631  !#if ( defined PREDICTED_AEROSOL )  !#if ( defined PREDICTED_AEROSOL )
632  #if ( defined CPL_CHEM )  #if ( defined CPL_CHEM )
633  Cold  AFBYCF=0.6725  Cold  AFBYCF=0.6725
# Line 1027  c     print *,' NWRGHG=',NWRGHG Line 1037  c     print *,' NWRGHG=',NWRGHG
1037         print *,TSCNTR,' form EXP=',EXPTSF         print *,TSCNTR,' form EXP=',EXPTSF
1038  !      read(576)EXPTSF  !      read(576)EXPTSF
1039  !      print *,' TSURF form EXP=',EXPTSF  !      print *,' TSURF form EXP=',EXPTSF
1040         read(576)TSURFC,TLANDC  #if ( defined CLM )
1041            read(576)TSURFC,TLANDC
1042    #else
1043            read(576)TSURFC
1044    #endif
1045  !      read(576)TLANDC  !      read(576)TLANDC
1046        endif        endif
1047          CORSR=1.0          CORSR=1.0
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22