| 1 | ! |
|---|
| 2 | ! For Fortran 77/Fortran 90 compliance always use line continuation |
|---|
| 3 | ! symbols '&' in columns 73 and 6 |
|---|
| 4 | ! |
|---|
| 5 | COMMON/callkeys/callrad,corrk,calldifv,calladj, & |
|---|
| 6 | & N2cond,callsoil, & |
|---|
| 7 | & season,diurnal,iradia,lwrite,calllott & |
|---|
| 8 | & ,callstats & |
|---|
| 9 | & ,enertest & |
|---|
| 10 | & ,callgasvis,callnlte,callthermos,callconduct, & |
|---|
| 11 | & calleuv,callmolvis,callmoldiff,thermochem & |
|---|
| 12 | & , Nmix_co, Nmix_ch4, tau_n2, tau_ch4, tau_co, fluxgeo,fluxgeo2 & |
|---|
| 13 | & , semi, tau_prechaze & |
|---|
| 14 | & , alphan, tplanet & |
|---|
| 15 | & , callemis & |
|---|
| 16 | & , callg2d & |
|---|
| 17 | & , linear & |
|---|
| 18 | & , ilwd & |
|---|
| 19 | & , ilwb & |
|---|
| 20 | & , ilwn & |
|---|
| 21 | & , ncouche & |
|---|
| 22 | & , meanOLR & |
|---|
| 23 | & , specOLR & |
|---|
| 24 | & , startype & |
|---|
| 25 | & , Fat1AU,paleoyears,dayfrac,thresh_non2 & |
|---|
| 26 | & , tracer & |
|---|
| 27 | & , varactive & |
|---|
| 28 | & , varfixed,ch4fix,vmrch4fix,vmrch4_proffix & |
|---|
| 29 | & , sedimentation,methane,carbox & |
|---|
| 30 | & , aerofixed,fractal & |
|---|
| 31 | & , photochem,nqchem_min,haze_radproffix,haze_proffix & |
|---|
| 32 | & , haze,fasthaze,changeti,changetid,aerohaze & |
|---|
| 33 | & , fast,metcloud,monoxcloud,glaflow,triton,paleo,nlte,strobel & |
|---|
| 34 | & , kbo,nbsub,cooling,mode_n2,thres_n2ice,thres_coice & |
|---|
| 35 | & , deltab,nb_monomer & |
|---|
| 36 | & , metlateq,tholateq,metls1,metls2 & |
|---|
| 37 | & , mode_ch4,mode_tholins & |
|---|
| 38 | & , source_haze,ch4lag,latlag,vmrlag,kfix,hazeconservch4 & |
|---|
| 39 | & , fracsource,latsource,lonsource & |
|---|
| 40 | & , spelon1,spelon2,spelat1,spelat2,specalb & |
|---|
| 41 | & , assymflux,mode_hs,tsurfmax,albmin_ch4 & |
|---|
| 42 | & , feedback_met,thres_ch4ice,fdch4_latn,fdch4_lats & |
|---|
| 43 | & , globmean1d,kmixmin,kmix_proffix,rad_haze & |
|---|
| 44 | & , fdch4_lone,fdch4_lonw,fdch4_maxalb,fdch4_depalb,fdch4_finalb & |
|---|
| 45 | & , tholatn,tholats,tholone,tholonw & |
|---|
| 46 | & , fdch4_ampl,fdch4_maxice,condmetsurf,condcosurf,vertdiff & |
|---|
| 47 | & , convergeps,conservn2,patchflux,condensn2,no_n2frost |
|---|
| 48 | |
|---|
| 49 | |
|---|
| 50 | logical callrad,corrk,calldifv,calladj,N2cond,callsoil, & |
|---|
| 51 | & season,diurnal,lwrite,calllott & |
|---|
| 52 | & ,callstats & |
|---|
| 53 | & ,callgasvis,callnlte,callthermos,callconduct, & |
|---|
| 54 | & calleuv,callmolvis,callmoldiff,thermochem |
|---|
| 55 | |
|---|
| 56 | logical enertest |
|---|
| 57 | logical callemis |
|---|
| 58 | logical callg2d |
|---|
| 59 | logical linear |
|---|
| 60 | logical meanOLR |
|---|
| 61 | logical specOLR |
|---|
| 62 | logical methane,carbox |
|---|
| 63 | logical tracer |
|---|
| 64 | logical varactive |
|---|
| 65 | logical varfixed |
|---|
| 66 | logical ch4fix,vmrch4_proffix |
|---|
| 67 | logical sedimentation |
|---|
| 68 | logical aerofixed,fractal |
|---|
| 69 | logical photochem |
|---|
| 70 | logical haze,haze_proffix,haze_radproffix |
|---|
| 71 | logical fasthaze,changeti,changetid,aerohaze |
|---|
| 72 | logical fast,metcloud,monoxcloud,glaflow,triton,paleo |
|---|
| 73 | logical nlte,strobel |
|---|
| 74 | logical kbo |
|---|
| 75 | logical cooling |
|---|
| 76 | logical source_haze,hazeconservch4 |
|---|
| 77 | logical ch4lag,tsurfmax |
|---|
| 78 | logical specalb |
|---|
| 79 | logical assymflux |
|---|
| 80 | logical condmetsurf,condcosurf,vertdiff |
|---|
| 81 | logical convergeps,conservn2,condensn2,no_n2frost |
|---|
| 82 | logical globmean1d,kmix_proffix |
|---|
| 83 | |
|---|
| 84 | integer iradia |
|---|
| 85 | integer ilwd |
|---|
| 86 | integer ilwb |
|---|
| 87 | integer ilwn |
|---|
| 88 | integer ncouche |
|---|
| 89 | integer startype |
|---|
| 90 | integer nqchem_min |
|---|
| 91 | integer nbsub |
|---|
| 92 | integer mode_n2 |
|---|
| 93 | integer mode_ch4 |
|---|
| 94 | integer mode_tholins |
|---|
| 95 | integer kfix |
|---|
| 96 | integer mode_hs |
|---|
| 97 | integer feedback_met |
|---|
| 98 | integer patchflux |
|---|
| 99 | integer nb_monomer |
|---|
| 100 | |
|---|
| 101 | real semi |
|---|
| 102 | real alphan |
|---|
| 103 | real Nmix_co |
|---|
| 104 | real Nmix_ch4 |
|---|
| 105 | real tplanet |
|---|
| 106 | real tau_n2 |
|---|
| 107 | real tau_ch4 |
|---|
| 108 | real tau_co |
|---|
| 109 | real tau_prechaze |
|---|
| 110 | real Fat1AU |
|---|
| 111 | real paleoyears |
|---|
| 112 | real dayfrac |
|---|
| 113 | real thresh_non2 |
|---|
| 114 | real vmrch4fix |
|---|
| 115 | real fluxgeo |
|---|
| 116 | real fluxgeo2 |
|---|
| 117 | real kmixmin |
|---|
| 118 | real deltab |
|---|
| 119 | real metlateq |
|---|
| 120 | real metls1 |
|---|
| 121 | real metls2 |
|---|
| 122 | real tholateq |
|---|
| 123 | real tholatn |
|---|
| 124 | real tholats |
|---|
| 125 | real tholone |
|---|
| 126 | real tholonw |
|---|
| 127 | real spelon1 |
|---|
| 128 | real spelat2 |
|---|
| 129 | real spelat1 |
|---|
| 130 | real spelon2 |
|---|
| 131 | real latlag |
|---|
| 132 | real vmrlag |
|---|
| 133 | real albmin_ch4 |
|---|
| 134 | real fracsource |
|---|
| 135 | real latsource |
|---|
| 136 | real lonsource |
|---|
| 137 | real thres_ch4ice |
|---|
| 138 | real thres_n2ice |
|---|
| 139 | real thres_coice |
|---|
| 140 | real fdch4_latn |
|---|
| 141 | real fdch4_lats |
|---|
| 142 | real fdch4_lone |
|---|
| 143 | real fdch4_lonw |
|---|
| 144 | real fdch4_maxice |
|---|
| 145 | real fdch4_maxalb |
|---|
| 146 | real fdch4_ampl |
|---|
| 147 | real fdch4_depalb |
|---|
| 148 | real fdch4_finalb |
|---|
| 149 | real rad_haze |
|---|
