|
Last change
on this file since 344 was
305,
checked in by rwordsworth, 14 years ago
|
|
Several new files added as part of the climate evolution model
(main program kcm.F90). Some general cleanup in physiq.F90 and
callcorrk.F90. Bugs in dust radiative transfer and H2 Rayleigh
scattering corrected.
|
|
File size:
4.5 KB
|
| Rev | Line | |
|---|
| [135] | 1 | ! |
|---|
| 2 | ! For Fortran 77/Fortran 90 compliance always use line continuation |
|---|
| 3 | ! symbols '&' in columns 73 and 6 |
|---|
| 4 | ! |
|---|
| [253] | 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 & |
|---|
| [135] | 13 | & , nonideal & |
|---|
| 14 | & , meanOLR & |
|---|
| 15 | & , specOLR & |
|---|
| [253] | 16 | & , kastprof & |
|---|
| 17 | & , noradsurf & |
|---|
| [305] | 18 | & , graybody & |
|---|
| [253] | 19 | & , Tstrat & |
|---|
| 20 | & , newtonian & |
|---|
| 21 | & , tau_relax & |
|---|
| 22 | & , testradtimes & |
|---|
| [135] | 23 | & , rayleigh & |
|---|
| [253] | 24 | & , stelbbody & |
|---|
| 25 | & , stelTbb & |
|---|
| [135] | 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 & |
|---|
| [253] | 37 | & , szangle & |
|---|
| 38 | & , hydrology & |
|---|
| 39 | & , sourceevol & |
|---|
| 40 | & , albedosnow & |
|---|
| 41 | & , maxicethick & |
|---|
| 42 | & , Tsaldiff & |
|---|
| 43 | & , CLFfixval & |
|---|
| 44 | & , CLFvarying & |
|---|
| 45 | & , n2mixratio & |
|---|
| 46 | & , co2supsat & |
|---|
| [305] | 47 | & , cloudlvl & |
|---|
| [253] | 48 | & , pceil |
|---|
| [135] | 49 | |
|---|
| [253] | 50 | logical callrad,corrk,calldifv,calladj,co2cond,callsoil & |
|---|
| 51 | & , season,diurnal,tlocked,lwrite & |
|---|
| 52 | & , callstats,calleofdump & |
|---|
| 53 | & , callgasvis |
|---|
| [135] | 54 | |
|---|
| 55 | logical enertest |
|---|
| 56 | logical nonideal |
|---|
| 57 | logical meanOLR |
|---|
| 58 | logical specOLR |
|---|
| [253] | 59 | logical kastprof |
|---|
| 60 | logical newtonian |
|---|
| 61 | logical testradtimes |
|---|
| [135] | 62 | logical rayleigh |
|---|
| [253] | 63 | logical stelbbody |
|---|
| [135] | 64 | logical ozone |
|---|
| 65 | logical nearco2cond |
|---|
| 66 | logical tracer |
|---|
| 67 | logical varactive |
|---|
| 68 | logical varfixed |
|---|
| 69 | logical sedimentation |
|---|
| 70 | logical water,watercond,waterrain |
|---|
| 71 | logical aerofixed |
|---|
| [253] | 72 | logical hydrology |
|---|
| 73 | logical sourceevol |
|---|
| 74 | logical CLFvarying |
|---|
| 75 | logical noradsurf |
|---|
| [305] | 76 | logical graybody |
|---|
| [135] | 77 | |
|---|
| 78 | integer iddist |
|---|
| 79 | integer iaervar |
|---|
| 80 | integer iradia |
|---|
| 81 | integer startype |
|---|
| 82 | |
|---|
| 83 | real topdustref |
|---|
| 84 | real Nmix_co2 |
|---|
| 85 | real Nmix_h2o |
|---|
| [253] | 86 | real dusttau |
|---|
| [135] | 87 | real Fat1AU |
|---|
| [253] | 88 | real stelTbb |
|---|
| 89 | real Tstrat |
|---|
| [135] | 90 | real tplanet |
|---|
| 91 | real satval |
|---|
| 92 | real rainthreshold |
|---|
| [253] | 93 | real szangle |
|---|
| 94 | real CLFfixval |
|---|
| 95 | real n2mixratio |
|---|
| 96 | real co2supsat |
|---|
| 97 | real pceil |
|---|
| 98 | real albedosnow |
|---|
| 99 | real maxicethick |
|---|
| 100 | real Tsaldiff |
|---|
| 101 | real tau_relax |
|---|
| [305] | 102 | real cloudlvl |
|---|
Note: See
TracBrowser
for help on using the repository browser.
