| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/do_fizhi.F |
10 |
DO_FIZHI |
& albvisdr,albvisdf,ityp,chfr,alai,agrn,igrd,chlat,chlon, |
|
./pkg/fizhi/do_fizhi.F |
243 |
DO_FIZHI |
& chlon(1,bi,bj),igrd(1,bi,bj),nchptot(bi,bj),nchpland(bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
61 |
DO_FIZHI |
INTEGER ityp(nchp,nSxIn,nSyIn),igrd(nchp,nSxIn,nSyIn) |
|
./pkg/fizhi/fizhi_driver.F |
208 |
FIZHI_DRIVER |
& nchp,nchptot,nchpland,chfr,chlat,chlon,igrd,ityp, |
|
./pkg/fizhi/fizhi_driver.F |
54 |
FIZHI_DRIVER |
INTEGER nchp,igrd(nchp),nchptot,nchpland,ityp(nchp) |
|
./pkg/fizhi/fizhi_driver.F |
9 |
FIZHI_DRIVER |
& nchp,chlat,chlon,igrd,nchptot,nchpland,chfr,ityp, |
|
./pkg/fizhi/fizhi_init_fixed.F |
106 |
FIZHI_INIT_FIXED |
& surftype,tilefrac,igrd,ityp,chfr,chlt,chlon) |
|
./pkg/fizhi/fizhi_init_veg.F |
160 |
FIZHI_INIT_VEG |
igrd(i,bi,bj) = 1 |
|
./pkg/fizhi/fizhi_init_veg.F |
171 |
FIZHI_INIT_VEG |
igrd (nchpland(bi,bj),bi,bj) = i + (j-1)*im |
|
./pkg/fizhi/fizhi_init_veg.F |
189 |
FIZHI_INIT_VEG |
igrd (nchptot(bi,bj),bi,bj) = i + (j-1)*im |
|
./pkg/fizhi/fizhi_init_veg.F |
60 |
FIZHI_INIT_VEG |
INTEGER igrd(nchp,nSx,nSy),ityp(nchp,nSx,nSy) |
|
./pkg/fizhi/fizhi_init_veg.F |
8 |
FIZHI_INIT_VEG |
& igrd,ityp,chfr,chlt,chlon) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
102 |
FIZHI_INIT_VEGSURFTILES |
call GRD2MSC(tempgrid,sNx,sNy,igrd(1,bi,bj), |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
115 |
FIZHI_INIT_VEGSURFTILES |
call GRD2MSC(tempgrid,sNx,sNy,igrd(1,bi,bj), |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
128 |
FIZHI_INIT_VEGSURFTILES |
call GRD2MSC(tempgrid,sNx,sNy,igrd(1,bi,bj), |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
141 |
FIZHI_INIT_VEGSURFTILES |
call GRD2MSC(tempgrid,sNx,sNy,igrd(1,bi,bj), |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
154 |
FIZHI_INIT_VEGSURFTILES |
call GRD2MSC(tempgrid,sNx,sNy,igrd(1,bi,bj), |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
167 |
FIZHI_INIT_VEGSURFTILES |
call GRD2MSC(tempgrid,sNx,sNy,igrd(1,bi,bj), |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
180 |
FIZHI_INIT_VEGSURFTILES |
call GRD2MSC(tempgrid,sNx,sNy,igrd(1,bi,bj), |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
193 |
FIZHI_INIT_VEGSURFTILES |
call GRD2MSC(tempgrid,sNx,sNy,igrd(1,bi,bj), |
|
./pkg/fizhi/fizhi_land_coms.h |
19 |
NO PROCEDURE |
common /land_mapping/ chlt, chlon, igrd |
|
./pkg/fizhi/fizhi_land_coms.h |
22 |
NO PROCEDURE |
integer igrd(nchp,Nsx,Nsy) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
98 |
FIZHI_WRITE_VEGTILES |
CALL MNC_CW_I_W('I',bnam,0,0,'igrd', igrd, myThid) |
|
./pkg/fizhi/fizhi_turb.F |
1000 |
TURBIO |
call DIAG_VEGTILE_FILL (stuflux(1,nlay),igrd,chfrstr,istrip,nchp, |
|
./pkg/fizhi/fizhi_turb.F |
1004 |
TURBIO |
call DIAG_VEGTILE_FILL (stvflux(1,nlay),igrd,chfrstr,istrip,nchp, |
|
./pkg/fizhi/fizhi_turb.F |
1008 |
TURBIO |
call DIAG_VEGTILE_FILL (sustar,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
1012 |
TURBIO |
call DIAG_VEGTILE_FILL (sz0,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
1016 |
TURBIO |
call DIAG_VEGTILE_FILL (frqtrb,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
1020 |
TURBIO |
call DIAG_VEGTILE_FILL (pbldpth,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
1024 |
TURBIO |
call DIAG_VEGTILE_FILL (stu2m,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
1028 |
TURBIO |
call DIAG_VEGTILE_FILL (stv2m,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
1032 |
TURBIO |
call DIAG_VEGTILE_FILL (stt2m,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
1043 |
TURBIO |
call DIAG_VEGTILE_FILL (tmpstrip,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
1047 |
TURBIO |
call DIAG_VEGTILE_FILL (stu10m,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
1051 |
TURBIO |
call DIAG_VEGTILE_FILL (stv10m,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
1055 |
TURBIO |
call DIAG_VEGTILE_FILL (stt10m,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
1066 |
TURBIO |
call DIAG_VEGTILE_FILL (tmpstrip,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
1075 |
TURBIO |
call DIAG_VEGTILE_FILL (td,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
1079 |
TURBIO |
call DIAG_VEGTILE_FILL (qa,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
1083 |
TURBIO |
call DIAG_VEGTILE_FILL (swet1,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
1087 |
TURBIO |
call DIAG_VEGTILE_FILL (swet2,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
1091 |
TURBIO |
call DIAG_VEGTILE_FILL (swet3,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
1095 |
TURBIO |
call DIAG_VEGTILE_FILL (capacity,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
1099 |
TURBIO |
call DIAG_VEGTILE_FILL (snowdepth,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
1149 |
TURBIO |
call MSC2GRD(igrd,chfr,dumsc(1,L),nchp,nchptot,fracland, |
|
./pkg/fizhi/fizhi_turb.F |
1151 |
TURBIO |
call MSC2GRD(igrd,chfr,dvmsc(1,L),nchp,nchptot,fracland, |
|
./pkg/fizhi/fizhi_turb.F |
1153 |
TURBIO |
call MSC2GRD(igrd,chfr,dtmsc(1,L),nchp,nchptot,fracland, |
|
./pkg/fizhi/fizhi_turb.F |
1156 |
TURBIO |
call MSC2GRD(igrd,chfr,dqmsc(1,L,nt),nchp,nchptot,fracland, |
|
./pkg/fizhi/fizhi_turb.F |
1159 |
TURBIO |
call MSC2GRD(igrd,chfr, tke(1,L),nchp,nchptot,fracland, |
|
./pkg/fizhi/fizhi_turb.F |
1162 |
TURBIO |
call MSC2GRD(igrd,chfr, fccmsc(1,L),nchp,nchptot,fracland, |
|
./pkg/fizhi/fizhi_turb.F |
1164 |
TURBIO |
call MSC2GRD(igrd,chfr,qliqmsc(1,L),nchp,nchptot,fracland, |
|
./pkg/fizhi/fizhi_turb.F |
1192 |
TURBIO |
call MSC2GRD(igrd,chfr,tground ,nchp,nchptot,fracland,tgz ,im,jm) |
|
./pkg/fizhi/fizhi_turb.F |
131 |
TURBIO |
integer igrd(nchp),ityp(nchp) |
|
./pkg/fizhi/fizhi_turb.F |
31 |
TURBIO |
5 ,nchp,nchptot,nchplnd,chfr,chlt,chlon,igrd,ityp,alai,agrn,thkz |
|
./pkg/fizhi/fizhi_turb.F |
325 |
TURBIO |
call GRD2MSC(pz(1,1),im,jm,igrd,pmsc,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
327 |
TURBIO |
call GRD2MSC(tgz,im,jm,igrd,tground,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
332 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,alwcoeff,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
336 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,blwcoeff,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
340 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,pardiff,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
344 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,pardirct,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
348 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,netsw,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
352 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,netlw,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
353 |
TURBIO |
call GRD2MSC(thkz,im,jm,igrd,icethk,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
354 |
TURBIO |
call GRD2MSC(rainlsp,im,jm,igrd,lsprec,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
355 |
TURBIO |
call GRD2MSC(rainconv,im,jm,igrd,cnvprec,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
356 |
TURBIO |
call GRD2MSC(snowfall,im,jm,igrd,snowprec,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
431 |
TURBIO |
call MSC2GRD (igrd,chfr,qice,nchp,nchptot,fracland,tmpdiag,im,jm) |
|
./pkg/fizhi/fizhi_turb.F |
441 |
TURBIO |
call STRIP2TILE(uz,igrd,u,nchp,ijall,istrip,nlay,nn) |
|
./pkg/fizhi/fizhi_turb.F |
442 |
TURBIO |
call STRIP2TILE(vz,igrd,v,nchp,ijall,istrip,nlay,nn) |
|
./pkg/fizhi/fizhi_turb.F |
443 |
TURBIO |
call STRIP2TILE(tz,igrd,th,nchp,ijall,istrip,nlay,nn) |
|
./pkg/fizhi/fizhi_turb.F |
444 |
TURBIO |
call STRIP2TILE(qz(1,1,1,1),igrd,sh,nchp,ijall,istrip,nlay,nn) |
|
./pkg/fizhi/fizhi_turb.F |
445 |
TURBIO |
call STRIP2TILE(dpres,igrd,dpstr,nchp,ijall,istrip,nlay,nn) |
|
./pkg/fizhi/fizhi_turb.F |
446 |
TURBIO |
call STRIP2TILE(plz,igrd,p,nchp,ijall,istrip,nlay,nn) |
|
./pkg/fizhi/fizhi_turb.F |
447 |
TURBIO |
call STRIP2TILE(plze,igrd,pe,nchp,ijall,istrip,nlay+1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
448 |
TURBIO |
call STRIP2TILE(pkz,igrd,pk,nchp,ijall,istrip,nlay,nn) |
|
./pkg/fizhi/fizhi_turb.F |
449 |
TURBIO |
call STRIP2TILE(pkht,igrd,pke,nchp,ijall,istrip,nlay+1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
467 |
TURBIO |
call STRIPITINT (igrd,igrdstr,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
538 |
TURBIO |
call DIAG_VEGTILE_FILL (tmpstrip,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
588 |
TURBIO |
call DIAG_VEGTILE_FILL (stdiag,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
678 |
TURBIO |
call DIAG_VEGTILE_FILL (tmpstrip,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
685 |
TURBIO |
call DIAG_VEGTILE_FILL (tmpstrip,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
692 |
TURBIO |
call DIAG_VEGTILE_FILL (tmpstrip,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
696 |
TURBIO |
call DIAG_VEGTILE_FILL (grnstrip,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
700 |
TURBIO |
call DIAG_VEGTILE_FILL (laistrip,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
704 |
TURBIO |
call DIAG_VEGTILE_FILL (pardr,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
708 |
TURBIO |
call DIAG_VEGTILE_FILL (pardf,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
712 |
TURBIO |
call DIAG_VEGTILE_FILL (blwrad,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
716 |
TURBIO |
call DIAG_VEGTILE_FILL (dhsdtc,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
720 |
TURBIO |
call DIAG_VEGTILE_FILL (dedtc,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
724 |
TURBIO |
call DIAG_VEGTILE_FILL (dhsdqa,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
728 |
TURBIO |
call DIAG_VEGTILE_FILL (dedqa,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
732 |
TURBIO |
call DIAG_VEGTILE_FILL (hlwdwn,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
769 |
TURBIO |
call DIAG_VEGTILE_FILL (runoff,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
773 |
TURBIO |
call DIAG_VEGTILE_FILL (fwsoil,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
777 |
TURBIO |
call DIAG_VEGTILE_FILL (gdrain,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
781 |
TURBIO |
call DIAG_VEGTILE_FILL (smelt,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
785 |
TURBIO |
call DIAG_VEGTILE_FILL (eveg,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
789 |
TURBIO |
call DIAG_VEGTILE_FILL (esno,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
793 |
TURBIO |
call DIAG_VEGTILE_FILL (esoi,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
797 |
TURBIO |
call DIAG_VEGTILE_FILL (eint,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
801 |
TURBIO |
call DIAG_VEGTILE_FILL (evpot,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
805 |
TURBIO |
call DIAG_VEGTILE_FILL (strdg1,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
809 |
TURBIO |
call DIAG_VEGTILE_FILL (strdg2,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
813 |
TURBIO |
call DIAG_VEGTILE_FILL (strdg3,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
817 |
TURBIO |
call DIAG_VEGTILE_FILL (strdg4,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
821 |
TURBIO |
call DIAG_VEGTILE_FILL (strdg5,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
825 |
TURBIO |
call DIAG_VEGTILE_FILL (strdg6,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
829 |
TURBIO |
call DIAG_VEGTILE_FILL (strdg7,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
833 |
TURBIO |
call DIAG_VEGTILE_FILL (strdg8,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
879 |
TURBIO |
call STRIP2TILE(uz(1,1,l),igrd,tmpstrip,nchp,ijall, |
|
./pkg/fizhi/fizhi_turb.F |
886 |
TURBIO |
call STRIP2TILE(vz(1,1,l),igrd,tmpstrip,nchp,ijall, |
|
./pkg/fizhi/fizhi_turb.F |
893 |
TURBIO |
call STRIP2TILE(tz(1,1,l),igrd,tmpstrip,nchp,ijall, |
|
./pkg/fizhi/fizhi_turb.F |
901 |
TURBIO |
call STRIP2TILE(qz(1,1,l,1),igrd,tmpstrip,nchp,ijall, |
|
./pkg/fizhi/fizhi_turb.F |
932 |
TURBIO |
call DIAG_VEGTILE_FILL (tmpstrip,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
939 |
TURBIO |
call DIAG_VEGTILE_FILL (tmpstrip,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
946 |
TURBIO |
call DIAG_VEGTILE_FILL (tmpstrip,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
950 |
TURBIO |
call DIAG_VEGTILE_FILL (stuflux,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
954 |
TURBIO |
call DIAG_VEGTILE_FILL (stvflux,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
963 |
TURBIO |
call DIAG_VEGTILE_FILL (sttflux,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
972 |
TURBIO |
call DIAG_VEGTILE_FILL (stqflux,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
976 |
TURBIO |
call DIAG_VEGTILE_FILL (sri,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
980 |
TURBIO |
call DIAG_VEGTILE_FILL (skh,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
984 |
TURBIO |
call DIAG_VEGTILE_FILL (skm,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
988 |
TURBIO |
call DIAG_VEGTILE_FILL (sct,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
992 |
TURBIO |
call DIAG_VEGTILE_FILL (scu,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
996 |
TURBIO |
call DIAG_VEGTILE_FILL (swinds,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_utils.F |
656 |
GRD2MSC |
integer igrd(mxchps) |
|
./pkg/fizhi/fizhi_utils.F |
681 |
MSC2GRD |
integer igrd(mxchps) |
|
./pkg/fizhi/fizhi_wrapper.F |
268 |
FIZHI_WRAPPER |
& albvisdr,albvisdf,ityp,chfr,alai,agrn,igrd,chlt,chlon, |
|
./pkg/fizhi/update_earth_exports.F |
1025 |
GETEMISS |
call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),emisstile(1,k),nchp, |
|
./pkg/fizhi/update_earth_exports.F |
115 |
UPDATE_EARTH_EXPORTS |
& nchptot(bi,bj),nchpland(bi,bj),nSx,nSy,bi,bj,igrd,ityp, |
|
./pkg/fizhi/update_earth_exports.F |
125 |
UPDATE_EARTH_EXPORTS |
call GRD2MSC(fraci,im2,jm2,igrd(1,bi,bj),ficetile, |
|
./pkg/fizhi/update_earth_exports.F |
128 |
UPDATE_EARTH_EXPORTS |
& igrd,ityp,chfr,snodep,ficetile,emiss) |
|
./pkg/fizhi/update_earth_exports.F |
144 |
UPDATE_EARTH_EXPORTS |
call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),tmpchp, |
|
./pkg/fizhi/update_earth_exports.F |
821 |
GETALB |
& nchp,nchptot,nchpland,nSx,nSy,bi,bj,igrd,ityp,chfr,chlt, |
|
./pkg/fizhi/update_earth_exports.F |
865 |
GETALB |
INTEGER igrd(nchp,nSx,nSy),ityp(nchp,nSx,nSy) |
|
./pkg/fizhi/update_earth_exports.F |
899 |
GETALB |
call GRD2MSC(cosz,im,jm,igrd(1,bi,bj),zenith,nchp,nchpland) |
|
./pkg/fizhi/update_earth_exports.F |
913 |
GETALB |
call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),avisdr,nchp,nchpland, |
|
./pkg/fizhi/update_earth_exports.F |
926 |
GETALB |
call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),avisdf,nchp,nchpland, |
|
./pkg/fizhi/update_earth_exports.F |
938 |
GETALB |
call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),anirdr,nchp,nchpland, |
|
./pkg/fizhi/update_earth_exports.F |
950 |
GETALB |
call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),anirdf,nchp,nchpland, |
|
./pkg/fizhi/update_earth_exports.F |
964 |
GETEMISS |
& igrd,ityp,chfr,snowdep,fraci,emiss) |
|
./pkg/fizhi/update_earth_exports.F |
997 |
GETEMISS |
INTEGER igrd(nchp,nSx,nSy), ityp(nchp,nSx,nSy) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
85 |
FIZHI_INIT_FIXED |
& surftype,tilefrac,igrd,ityp,chfr,chlt,chlon) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
111 |
FIZHI_INIT_VEG |
igrd(i,bi,bj) = 1 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
125 |
FIZHI_INIT_VEG |
igrd (nchptot(bi,bj),bi,bj) = i + (j-1)*im |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
60 |
FIZHI_INIT_VEG |
INTEGER igrd(nchp,nSx,nSy),ityp(nchp,nSx,nSy) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
8 |
FIZHI_INIT_VEG |
& igrd,ityp,chfr,chlt,chlon) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
10 |
DO_FIZHI |
& albvisdr,albvisdf,ityp,chfr,alai,agrn,igrd,chlat,chlon, |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
61 |
DO_FIZHI |
INTEGER ityp(nchp,nSxin,nSyin),igrd(nchp,nSxin,nSyin) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
85 |
FIZHI_INIT_FIXED |
& surftype,tilefrac,igrd,ityp,chfr,chlt,chlon) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
124 |
FIZHI_INIT_VEG |
igrd(i,bi,bj) = 1 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
135 |
FIZHI_INIT_VEG |
igrd (nchpland(bi,bj),bi,bj) = i + (j-1)*im |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
153 |
FIZHI_INIT_VEG |
igrd (nchptot(bi,bj),bi,bj) = i + (j-1)*im |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
60 |
FIZHI_INIT_VEG |
INTEGER igrd(nchp,nSx,nSy),ityp(nchp,nSx,nSy) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
8 |
FIZHI_INIT_VEG |
& igrd,ityp,chfr,chlt,chlon) |