|
Last change
on this file since 510 was
486,
checked in by rwordsworth, 14 years ago
|
|
Variable ice timestep added for ice evolution algorithm.
Sedimentation improved to allow consistent dust (L. Kerber).
Bug linked to allocatable matrices removed from rcm1d.F.
Treatment of initial aerosol radii in callcorrk.F90 improved.
|
|
File size:
4.6 KB
|
| Line | |
|---|
| 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 | & , co2cond,callsoil & |
|---|
| 7 | & , season,diurnal,tlocked,iradia,lwrite & |
|---|
| 8 | & , iaervar,iddist,topdustref,callstats,calleofdump & |
|---|
| 9 | & , enertest & |
|---|
| 10 | & , callgasvis & |
|---|
| 11 | & , Nmix_co2, Nmix_h2o & |
|---|
| 12 | & , dusttau & |
|---|
| 13 | & , nonideal & |
|---|
| 14 | & , meanOLR & |
|---|
| 15 | & , specOLR & |
|---|
| 16 | & , kastprof & |
|---|
| 17 | & , noradsurf & |
|---|
| 18 | & , graybody & |
|---|
| 19 | & , Tstrat & |
|---|
| 20 | & , newtonian & |
|---|
| 21 | & , tau_relax & |
|---|
| 22 | & , testradtimes & |
|---|
| 23 | & , rayleigh & |
|---|
| 24 | & , stelbbody & |
|---|
| 25 | & , stelTbb & |
|---|
| 26 | & , tplanet & |
|---|
| 27 | & , startype & |
|---|
| 28 | & , Fat1AU & |
|---|
| 29 | & , nearco2cond & |
|---|
| 30 | & , tracer & |
|---|
| 31 | & , varactive & |
|---|
| 32 | & , varfixed & |
|---|
| 33 | & , satval & |
|---|
| 34 | & , sedimentation,water,watercond,waterrain & |
|---|
| 35 | & , rainthreshold & |
|---|
| 36 | & , aerofixed & |
|---|
| 37 | & , szangle & |
|---|
| 38 | & , hydrology & |
|---|
| 39 | & , sourceevol & |
|---|
| 40 | & , icetstep & |
|---|
| 41 | & , albedosnow & |
|---|
| 42 | & , maxicethick & |
|---|
| 43 | & , Tsaldiff & |
|---|
| 44 | & , CLFfixval & |
|---|
| 45 | & , CLFvarying & |
|---|
| 46 | & , n2mixratio & |
|---|
| 47 | & , co2supsat & |
|---|
| 48 | & , cloudlvl & |
|---|
| 49 | & , pceil |
|---|
| 50 | |
|---|
| 51 | logical callrad,corrk,calldifv,calladj,co2cond,callsoil & |
|---|
| 52 | & , season,diurnal,tlocked,lwrite & |
|---|
| 53 | & , callstats,calleofdump & |
|---|
| 54 | & , callgasvis |
|---|
| 55 | |
|---|
| 56 | logical enertest |
|---|
| 57 | logical nonideal |
|---|
| 58 | logical meanOLR |
|---|
| 59 | logical specOLR |
|---|
| 60 | logical kastprof |
|---|
| 61 | logical newtonian |
|---|
| 62 | logical testradtimes |
|---|
| 63 | logical rayleigh |
|---|
| 64 | logical stelbbody |
|---|
| 65 | logical ozone |
|---|
| 66 | logical nearco2cond |
|---|
| 67 | logical tracer |
|---|
| 68 | logical varactive |
|---|
| 69 | logical varfixed |
|---|
| 70 | logical sedimentation |
|---|
| 71 | logical water,watercond,waterrain |
|---|
| 72 | logical aerofixed |
|---|
| 73 | logical hydrology |
|---|
| 74 | logical sourceevol |
|---|
| 75 | logical CLFvarying |
|---|
| 76 | logical noradsurf |
|---|
| 77 | logical graybody |
|---|
| 78 | |
|---|
| 79 | integer iddist |
|---|
| 80 | integer iaervar |
|---|
| 81 | integer iradia |
|---|
| 82 | integer startype |
|---|
| 83 | |
|---|
| 84 | real topdustref |
|---|
| 85 | real Nmix_co2 |
|---|
| 86 | real Nmix_h2o |
|---|
| 87 | real dusttau |
|---|
| 88 | real Fat1AU |
|---|
| 89 | real stelTbb |
|---|
| 90 | real Tstrat |
|---|
| 91 | real tplanet |
|---|
| 92 | real satval |
|---|
| 93 | real rainthreshold |
|---|
| 94 | real szangle |
|---|
| 95 | real CLFfixval |
|---|
| 96 | real n2mixratio |
|---|
| 97 | real co2supsat |
|---|
| 98 | real pceil |
|---|
| 99 | real albedosnow |
|---|
| 100 | real maxicethick |
|---|
| 101 | real Tsaldiff |
|---|
| 102 | real tau_relax |
|---|
| 103 | real cloudlvl |
|---|
| 104 | real icetstep |
|---|
| 105 | |
|---|
Note: See
TracBrowser
for help on using the repository browser.
