c These two common block are use to pass data from climate model to C TEM and back parameter (no3=8,ndperm=31,ncoh=35,nhor=24,mnlay=6,mnlay1=10) c common/anntcu/TEMUPTANN common/climate4tem/co24tem(jm0), & o34tem(no3,jm0), & temp4tem(jm0), & dtem4tem(ndperm,jm0), & sws4tem(jm0), & pre4tem(jm0), & strmdur(ndperm,jm0), & qstrm(ndperm,jm0), & aet(ncoh,jm0), & sh2o1m(ncoh,jm0), & sh2o2m(ncoh,jm0), & swe(ncoh,jm0), & sfr(ncoh,jm0), & drn(ncoh,jm0), & daytsoil(ndperm,ncoh,jm0,mnlay1), & daysho(ndperm,ncoh,jm0,mnlay1), & rsh2o(nhor,ndperm,ncoh,jm0,mnlay) ! & ,istorms(ndperm,jm0), ! & istrmdry(ndperm,jm0) common/upt4chem/temco2(jm0), & temch4(jm0), & temn2o(jm0) common/temtake/adupt,antemnep(jm0),temnep(12,jm0) real nepan,nepav,n2oann common/ozon4tem/ obso3(no3,jm0,12),o3datadir,CLIMO3 logical CLIMO3 C