3 |
|
|
4 |
#include "FIZHI_OPTIONS.h" |
#include "FIZHI_OPTIONS.h" |
5 |
subroutine lwrio (nymd,nhms,bi,bj,istrip,npcs,low_level,mid_level, |
subroutine lwrio (nymd,nhms,bi,bj,istrip,npcs,low_level,mid_level, |
6 |
|
. im,jm,lm, |
7 |
. pz,plz,plze,dpres,pkht,pkz,tz,qz,oz, |
. pz,plz,plze,dpres,pkht,pkz,tz,qz,oz, |
8 |
. co2,cfc11,cfc12,cfc22,methane,n2o,emissivity, |
. co2,cfc11,cfc12,cfc22,methane,n2o,emissivity, |
9 |
. tgz,radlwg,st4,dst4, |
. tgz,radlwg,st4,dst4, |
10 |
. dtradlw,dlwdtg,dtradlwc,lwgclr, |
. dtradlw,dlwdtg,dtradlwc,lwgclr, |
11 |
. im,jm,lm,ptop, |
. ptop,nlwcld,cldlw,clwmo,nlwlz,lwlz, |
|
. nlwcld,cldlw,clwmo,nlwlz,lwlz, |
|
12 |
. lpnt,imstturb,qliqave,fccave,landtype) |
. lpnt,imstturb,qliqave,fccave,landtype) |
13 |
|
|
14 |
implicit none |
implicit none |