| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/update_earth_exports.F |
1011 |
GETEMISS |
. nchptot,fracg,tmpij,im,jm) |
|
./verification/fizhi-cs-aqualev10/code/update_earth_exports.F |
109 |
UPDATE_EARTH_EXPORTS |
call GRD2MSC(fraci,im2,jm2,igrd,ficetile,nchp,nchptot(bi,bj)) |
|
./verification/fizhi-cs-aqualev10/code/update_earth_exports.F |
110 |
UPDATE_EARTH_EXPORTS |
call GETEMISS(fracl,im2,jm2,nchp,nchptot(bi,bj),nSx,nSy,bi,bj, |
|
./verification/fizhi-cs-aqualev10/code/update_earth_exports.F |
124 |
UPDATE_EARTH_EXPORTS |
do i = 1,nchptot(bi,bj) |
|
./verification/fizhi-cs-aqualev10/code/update_earth_exports.F |
128 |
UPDATE_EARTH_EXPORTS |
. nchp,nchptot(bi,bj),fracl,tmpij,im2,jm2) |
|
./verification/fizhi-cs-aqualev10/code/update_earth_exports.F |
809 |
GETALB |
. nchp,nchptot,nchpland,nSx,nSy,bi,bj,igrd,ityp,chfr,chlt, |
|
./verification/fizhi-cs-aqualev10/code/update_earth_exports.F |
850 |
GETALB |
integer sec,month,day,im,jm,nchp,nchptot,nchpland,nSx,nSy,bi,bj |
|
./verification/fizhi-cs-aqualev10/code/update_earth_exports.F |
948 |
GETEMISS |
subroutine GETEMISS(fracg,im,jm,nchp,nchptot,nSx,nSy,bi,bj, |
|
./verification/fizhi-cs-aqualev10/code/update_earth_exports.F |
979 |
GETEMISS |
integer im,jm,nchp,nchptot,nSx,nSy,bi,bj |
|
./verification/fizhi-cs-aqualev10/code/update_earth_exports.F |
992 |
GETEMISS |
do n = 1,nchptot |
|
./verification/fizhi-cs-aqualev10/code/update_earth_exports.F |
999 |
GETEMISS |
call EMISSIVITY(snowdep(1,bi,bj),fraci,nchp,nchptot,ityp(1,bi,bj), |
|
./verification/fizhi-cs-aqualev10/code/update_earth_exports.F |
99 |
UPDATE_EARTH_EXPORTS |
. nchptot(bi,bj),nchpland(bi,bj),nSx,nSy,bi,bj,igrd,ityp, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_init_veg.F |
109 |
FIZHI_INIT_VEG |
nchptot(bi,bj) = nchpland(bi,bj) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_init_veg.F |
116 |
FIZHI_INIT_VEG |
nchptot(bi,bj) = nchptot(bi,bj) + 1 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_init_veg.F |
117 |
FIZHI_INIT_VEG |
igrd (nchptot(bi,bj),bi,bj) = i + (j-1)*im |
|
./verification/fizhi-cs-aqualev10/code/fizhi_init_veg.F |
118 |
FIZHI_INIT_VEG |
ityp (nchptot(bi,bj),bi,bj) = surftype(i,j,k,bi,bj) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_init_veg.F |
119 |
FIZHI_INIT_VEG |
chfr (nchptot(bi,bj),bi,bj) = tilefrac(i,j,k,bi,bj) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_init_veg.F |
120 |
FIZHI_INIT_VEG |
chlon(nchptot(bi,bj),bi,bj) = lons(i,j,bi,bj) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_init_veg.F |
121 |
FIZHI_INIT_VEG |
chlt (nchptot(bi,bj),bi,bj) = lats(i,j,bi,bj) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_init_veg.F |
127 |
FIZHI_INIT_VEG |
print *,'Number of Total Tiles for bi=',bi,': ',nchptot(bi,bj) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_init_veg.F |
58 |
FIZHI_INIT_VEG |
integer nchptot(Nsx,Nsy),nchpland(Nsx,Nsy) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_init_veg.F |
7 |
FIZHI_INIT_VEG |
. maxtyp,nchp,nchptot,nchpland,lons,lats,surftype,tilefrac,igrd, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_init_fixed.F |
84 |
FIZHI_INIT_FIXED |
. nSx*nPx,nSy*nPy,maxtyp,nchp,nchptot,nchpland,lons,lats, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1011 |
TURBIO |
call PASTIT (tends,dqmsc(1,l,1),istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
102 |
TURBIO |
integer nchp,nchptot,nchplnd |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
10 |
TURBIO |
5 ,nchp,nchptot,nchplnd,chfr,chlt,chlon,igrd,ityp,alai,agrn,thkz |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1221 |
TURBIO |
do i =1,nchptot |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1254 |
TURBIO |
call MSC2GRD(igrd,chfr,dumsc(1,L),nchp,nchptot,fracland, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1256 |
TURBIO |
call MSC2GRD(igrd,chfr,dvmsc(1,L),nchp,nchptot,fracland, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1258 |
TURBIO |
call MSC2GRD(igrd,chfr,dtmsc(1,L),nchp,nchptot,fracland, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1261 |
TURBIO |
call MSC2GRD(igrd,chfr,dqmsc(1,L,nt),nchp,nchptot,fracland, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1264 |
TURBIO |
call MSC2GRD(igrd,chfr, tke(1,L),nchp,nchptot,fracland, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1267 |
TURBIO |
call MSC2GRD(igrd,chfr, fccmsc(1,L),nchp,nchptot,fracland, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1269 |
TURBIO |
call MSC2GRD(igrd,chfr,qliqmsc(1,L),nchp,nchptot,fracland, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1309 |
TURBIO |
call MSC2GRD(igrd,chfr,tground ,nchp,nchptot,fracland,tgz ,im,jm) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
306 |
TURBIO |
do n=1,nchptot |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
350 |
TURBIO |
numstrips = ((nchptot-1)/istrip) + 1 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
352 |
TURBIO |
call GRD2MSC(pz(1,1),im,jm,igrd,pmsc,nchp,nchptot) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
354 |
TURBIO |
call GRD2MSC(tgz,im,jm,igrd,tground,nchp,nchptot) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
359 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,alwcoeff,nchp,nchptot) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
363 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,blwcoeff,nchp,nchptot) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
367 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,pardiff,nchp,nchptot) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
371 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,pardirct,nchp,nchptot) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
375 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,netsw,nchp,nchptot) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
379 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,netlw,nchp,nchptot) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
380 |
TURBIO |
call GRD2MSC(thkz,im,jm,igrd,icethk,nchp,nchptot) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
381 |
TURBIO |
call GRD2MSC(rainlsp,im,jm,igrd,lsprec,nchp,nchptot) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
382 |
TURBIO |
call GRD2MSC(rainconv,im,jm,igrd,cnvprec,nchp,nchptot) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
383 |
TURBIO |
call GRD2MSC(snowfall,im,jm,igrd,snowprec,nchp,nchptot) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
396 |
TURBIO |
do i = 1,nchptot |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
403 |
TURBIO |
do i =1,nchptot |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
422 |
TURBIO |
do I =1,nchptot |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
433 |
TURBIO |
do i = nchplnd+1,nchptot |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
438 |
TURBIO |
do i = nchplnd+1,nchptot |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
445 |
TURBIO |
do i =1,nchptot |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
458 |
TURBIO |
call MSC2GRD (igrd,chfr,qice,nchp,nchptot,fracland,tmpdiag,im,jm) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
482 |
TURBIO |
call STRIPIT (z0,stz0,nchptot,nchp,istrip,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
483 |
TURBIO |
call STRIPIT (tground,th(1,nlay+1),nchptot,nchp,istrip,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
484 |
TURBIO |
call STRIPIT (pmsc,pe(1,nlay+1),nchptot,nchp,istrip,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
485 |
TURBIO |
call STRIPIT (tke,qq,nchptot,nchp,istrip,nlay-1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
486 |
TURBIO |
call STRIPIT (ctmt,ctsave,nchptot,nchp,istrip,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
487 |
TURBIO |
call STRIPIT (xxmt,xxsave,nchptot,nchp,istrip,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
488 |
TURBIO |
call STRIPIT (yymt,yysave,nchptot,nchp,istrip,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
489 |
TURBIO |
call STRIPIT (zetamt,zetasave,nchptot,nchp,istrip,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
490 |
TURBIO |
call STRIPIT (xlmt,xlsave,nchptot,nchp,istrip,nlay,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
491 |
TURBIO |
call STRIPIT (khmt,khsave,nchptot,nchp,istrip,nlay,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
492 |
TURBIO |
call STRIPITINT (water,stwatr,nchptot,nchp,istrip,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
494 |
TURBIO |
call STRIPITINT (igrd,igrdstr,nchptot,nchp,istrip,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
495 |
TURBIO |
call STRIPIT (chfr,chfrstr,nchptot,nchp,istrip,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
496 |
TURBIO |
call STRIPIT (icethk,icest,nchptot,nchp,istrip,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
497 |
TURBIO |
call STRIPIT (pardiff,pardf,nchptot,nchp,istrip,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
498 |
TURBIO |
call STRIPIT (pardirct,pardr,nchptot,nchp,istrip,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
499 |
TURBIO |
call STRIPIT (chlt,lats,nchptot,nchp,istrip,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
500 |
TURBIO |
call STRIPIT (chlon,lons,nchptot,nchp,istrip,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
501 |
TURBIO |
call STRIPIT (lsprec,rainls,nchptot,nchp,istrip,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
502 |
TURBIO |
call STRIPIT (cnvprec,raincon,nchptot,nchp,istrip,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
503 |
TURBIO |
call STRIPIT (snowprec,newsnow,nchptot,nchp,istrip,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
504 |
TURBIO |
call STRIPIT (netsw,swnet,nchptot,nchp,istrip,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
505 |
TURBIO |
call STRIPIT (netlw,lwstrip,nchptot,nchp,istrip,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
506 |
TURBIO |
call STRIPIT (alwcoeff,alwrad,nchptot,nchp,istrip,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
507 |
TURBIO |
call STRIPIT (blwcoeff,blwrad,nchptot,nchp,istrip,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
508 |
TURBIO |
call STRIPIT (alai,laistrip,nchptot,nchp,istrip,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
509 |
TURBIO |
call STRIPIT (agrn,grnstrip,nchptot,nchp,istrip,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
510 |
TURBIO |
call STRIPIT (z2ch,z2str,nchptot,nchp,istrip,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
511 |
TURBIO |
call STRIPIT (sqscat,scatstr,nchptot,nchp,istrip,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
512 |
TURBIO |
call STRIPIT (rsoil1,rs1str,nchptot,nchp,istrip,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
513 |
TURBIO |
call STRIPIT (rsoil2,rs2str,nchptot,nchp,istrip,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
514 |
TURBIO |
call STRIPIT (rdc,rdcstr,nchptot,nchp,istrip,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
515 |
TURBIO |
call STRIPIT (u2fac,u2fstr,nchptot,nchp,istrip,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
516 |
TURBIO |
call STRIPIT (shg,shgstr,nchptot,nchp,istrip,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
517 |
TURBIO |
call STRIPIT (dqsdt,dqsdtstr,nchptot,nchp,istrip,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
518 |
TURBIO |
call STRIPIT ( qice, qicestr,nchptot,nchp,istrip,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
519 |
TURBIO |
call STRIPIT (dqice,dqicestr,nchptot,nchp,istrip,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
520 |
TURBIO |
call STRIPITINT (ityp,types,nchptot,nchp,istrip,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
522 |
TURBIO |
call STRIPIT (tground,tc,nchptot,nchp,istrip,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
523 |
TURBIO |
call STRIPIT (tdeep,td,nchptot,nchp,istrip,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
524 |
TURBIO |
call STRIPIT (qground,qa,nchptot,nchp,istrip,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
525 |
TURBIO |
call STRIPIT (swetshal,swet1,nchptot,nchp,istrip,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
526 |
TURBIO |
call STRIPIT (swetroot,swet2,nchptot,nchp,istrip,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
527 |
TURBIO |
call STRIPIT (swetdeep,swet3,nchptot,nchp,istrip,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
528 |
TURBIO |
call STRIPIT (snodep,snowdepth,nchptot,nchp,istrip,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
529 |
TURBIO |
call STRIPIT (capac,capacity,nchptot,nchp,istrip,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
620 |
TURBIO |
print *,' nchp ',nchp,' nchptot ',nchptot,' nchplnd ',nchplnd |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
650 |
TURBIO |
call PASTIT (qq,tke,istrip,nchp,nchptot,nlay,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
651 |
TURBIO |
call PASTIT (ctsave,ctmt,istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
652 |
TURBIO |
call PASTIT (xxsave,xxmt,istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
653 |
TURBIO |
call PASTIT (yysave,yymt,istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
654 |
TURBIO |
call PASTIT (zetasave,zetamt,istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
655 |
TURBIO |
call PASTIT (xlsave,xlmt,istrip,nchp,nchptot,nlay,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
656 |
TURBIO |
call PASTIT (khsave,khmt,istrip,nchp,nchptot,nlay,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
658 |
TURBIO |
call PASTIT (qliq ,qliqmsc,istrip,nchp,nchptot,nlay,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
659 |
TURBIO |
call PASTIT (turbfcc,fccmsc,istrip,nchp,nchptot,nlay,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
886 |
TURBIO |
call PSTBITINT(types,qdiaglsm(1,1),istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
887 |
TURBIO |
call PSTBMPIT(chfrstr,qdiaglsm(1,2),istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
888 |
TURBIO |
call PSTBMPIT(lats,qdiaglsm(1,3),istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
889 |
TURBIO |
call PSTBMPIT(lons,qdiaglsm(1,4),istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
891 |
TURBIO |
call PSTBMPIT(tc,qdiaglsm(1,6),istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
892 |
TURBIO |
call PSTBMPIT(td,qdiaglsm(1,7),istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
893 |
TURBIO |
call PSTBMPIT(qa,qdiaglsm(1,8),istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
894 |
TURBIO |
call PSTBMPIT(swet1,qdiaglsm(1,9),istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
895 |
TURBIO |
call PSTBMPIT(swet2,qdiaglsm(1,10),istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
896 |
TURBIO |
call PSTBMPIT(swet3,qdiaglsm(1,11),istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
897 |
TURBIO |
call PSTBMPIT(capacity,qdiaglsm(1,12),istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
898 |
TURBIO |
call PSTBMPIT(snowdepth,qdiaglsm(1,13),istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
899 |
TURBIO |
call PSTBMPIT(eturb,qdiaglsm(1,14),istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
900 |
TURBIO |
call PSTBMPIT(hsturb,qdiaglsm(1,15),istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
901 |
TURBIO |
call PSTBMPIT(cd,qdiaglsm(1,16),istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
902 |
TURBIO |
call PSTBMPIT(laistrip,qdiaglsm(1,17),istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
903 |
TURBIO |
call PSTBMPIT(grnstrip,qdiaglsm(1,18),istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
904 |
TURBIO |
call PSTBMPIT(eint,qdiaglsm(1,19),istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
905 |
TURBIO |
call PSTBMPIT(esoi,qdiaglsm(1,20),istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
906 |
TURBIO |
call PSTBMPIT(eveg,qdiaglsm(1,21),istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
907 |
TURBIO |
call PSTBMPIT(esno,qdiaglsm(1,22),istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
908 |
TURBIO |
call PSTBMPIT(strdg1,qdiaglsm(1,23),istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
909 |
TURBIO |
call PSTBMPIT(strdg2,qdiaglsm(1,24),istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
910 |
TURBIO |
call PSTBMPIT(strdg3,qdiaglsm(1,25),istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
911 |
TURBIO |
call PSTBMPIT(strdg4,qdiaglsm(1,26),istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
912 |
TURBIO |
call PSTBMPIT(strdg5,qdiaglsm(1,27),istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
913 |
TURBIO |
call PSTBMPIT(strdg6,qdiaglsm(1,28),istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
914 |
TURBIO |
call PSTBMPIT(strdg7,qdiaglsm(1,29),istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
915 |
TURBIO |
call PSTBMPIT(strdg8,qdiaglsm(1,30),istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
916 |
TURBIO |
call PSTBMPIT(strdg9,qdiaglsm(1,31),istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
917 |
TURBIO |
call PSTBMPIT(smelt,qdiaglsm(1,32),istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
918 |
TURBIO |
call PSTBMPIT(gdrain,qdiaglsm(1,33),istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
919 |
TURBIO |
call PSTBMPIT(runsrf,qdiaglsm(1,34),istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
920 |
TURBIO |
call PSTBMPIT(fwsoil,qdiaglsm(1,35),istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
921 |
TURBIO |
call PSTBMPIT(evpot,qdiaglsm(1,36),istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
922 |
TURBIO |
call PSTBMPIT(stt2m,qdiaglsm(1,37),istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
923 |
TURBIO |
call PSTBMPIT(stq2m,qdiaglsm(1,38),istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
926 |
TURBIO |
call PASTIT (tc,tground,istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
927 |
TURBIO |
call PASTIT (td,tdeep,istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
928 |
TURBIO |
call PASTIT (qa,qground,istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
929 |
TURBIO |
call PASTIT (swet1,swetshal,istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
930 |
TURBIO |
call PASTIT (swet2,swetroot,istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
931 |
TURBIO |
call PASTIT (swet3,swetdeep,istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
932 |
TURBIO |
call PASTIT (capacity,capac,istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
933 |
TURBIO |
call PASTIT (snowdepth,snodep,istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
978 |
TURBIO |
call PASTIT (tends,dumsc(1,l),istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
985 |
TURBIO |
call PASTIT (tends,dvmsc(1,l),istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
998 |
TURBIO |
call PASTIT (tends,dtmsc(1,l),istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
238 |
DO_FIZHI |
. chlon(1,bi,bj),igrd(1,bi,bj),nchptot(bi,bj),nchpland(bi,bj), |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
36 |
DO_FIZHI |
integer nchptot(Nsxin,Nsyin),nchpland(Nsxin,Nsyin) |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
6 |
DO_FIZHI |
. nchp,nchptot,nchpland, |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
136 |
FIZHI_INIT_VEG |
nchptot(bi,bj) = nchpland(bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
143 |
FIZHI_INIT_VEG |
nchptot(bi,bj) = nchptot(bi,bj) + 1 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
144 |
FIZHI_INIT_VEG |
igrd (nchptot(bi,bj),bi,bj) = i + (j-1)*im |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
145 |
FIZHI_INIT_VEG |
ityp (nchptot(bi,bj),bi,bj) = surftype(i,j,k,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
146 |
FIZHI_INIT_VEG |
chfr (nchptot(bi,bj),bi,bj) = tilefrac(i,j,k,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
147 |
FIZHI_INIT_VEG |
chlon(nchptot(bi,bj),bi,bj) = lons(i,j,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
148 |
FIZHI_INIT_VEG |
chlt (nchptot(bi,bj),bi,bj) = lats(i,j,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
154 |
FIZHI_INIT_VEG |
print *,'Number of Total Tiles for bi=',bi,': ',nchptot(bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
58 |
FIZHI_INIT_VEG |
integer nchptot(Nsx,Nsy),nchpland(Nsx,Nsy) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
7 |
FIZHI_INIT_VEG |
. maxtyp,nchp,nchptot,nchpland,lons,lats,surftype,tilefrac,igrd, |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
78 |
FIZHI_INIT_FIXED |
. nSx*nPx,nSy*nPy,maxtyp,nchp,nchptot,nchpland,lons,lats, |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
36 |
DO_FIZHI |
integer nchptot(Nsxin,Nsyin),nchpland(Nsxin,Nsyin) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
6 |
DO_FIZHI |
. nchp,nchptot,nchpland, |
|
./pkg/fizhi/fizhi_driver.F |
203 |
FIZHI_DRIVER |
. nchp,nchptot,nchpland,chfr,chlat,chlon,igrd,ityp, |
|
./pkg/fizhi/fizhi_driver.F |
52 |
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/update_earth_exports.F |
1011 |
GETEMISS |
. nchptot,fracg,tmpij,im,jm) |
|
./pkg/fizhi/update_earth_exports.F |
109 |
UPDATE_EARTH_EXPORTS |
call GRD2MSC(fraci,im2,jm2,igrd,ficetile,nchp,nchptot(bi,bj)) |
|
./pkg/fizhi/update_earth_exports.F |
110 |
UPDATE_EARTH_EXPORTS |
call GETEMISS(fracl,im2,jm2,nchp,nchptot(bi,bj),nSx,nSy,bi,bj, |
|
./pkg/fizhi/update_earth_exports.F |
124 |
UPDATE_EARTH_EXPORTS |
do i = 1,nchptot(bi,bj) |
|
./pkg/fizhi/update_earth_exports.F |
128 |
UPDATE_EARTH_EXPORTS |
. nchp,nchptot(bi,bj),fracl,tmpij,im2,jm2) |
|
./pkg/fizhi/update_earth_exports.F |
809 |
GETALB |
. nchp,nchptot,nchpland,nSx,nSy,bi,bj,igrd,ityp,chfr,chlt, |
|
./pkg/fizhi/update_earth_exports.F |
850 |
GETALB |
integer sec,month,day,im,jm,nchp,nchptot,nchpland,nSx,nSy,bi,bj |
|
./pkg/fizhi/update_earth_exports.F |
948 |
GETEMISS |
subroutine GETEMISS(fracg,im,jm,nchp,nchptot,nSx,nSy,bi,bj, |
|
./pkg/fizhi/update_earth_exports.F |
979 |
GETEMISS |
integer im,jm,nchp,nchptot,nSx,nSy,bi,bj |
|
./pkg/fizhi/update_earth_exports.F |
992 |
GETEMISS |
do n = 1,nchptot |
|
./pkg/fizhi/update_earth_exports.F |
999 |
GETEMISS |
call EMISSIVITY(snowdep(1,bi,bj),fraci,nchp,nchptot,ityp(1,bi,bj), |
|
./pkg/fizhi/update_earth_exports.F |
99 |
UPDATE_EARTH_EXPORTS |
. nchptot(bi,bj),nchpland(bi,bj),nSx,nSy,bi,bj,igrd,ityp, |
|
./pkg/fizhi/fizhi_init_veg.F |
166 |
FIZHI_INIT_VEG |
nchptot(bi,bj) = nchpland(bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
173 |
FIZHI_INIT_VEG |
nchptot(bi,bj) = nchptot(bi,bj) + 1 |
|
./pkg/fizhi/fizhi_init_veg.F |
174 |
FIZHI_INIT_VEG |
igrd (nchptot(bi,bj),bi,bj) = i + (j-1)*im |
|
./pkg/fizhi/fizhi_init_veg.F |
175 |
FIZHI_INIT_VEG |
ityp (nchptot(bi,bj),bi,bj) = surftype(i,j,k,bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
176 |
FIZHI_INIT_VEG |
chfr (nchptot(bi,bj),bi,bj) = tilefrac(i,j,k,bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
177 |
FIZHI_INIT_VEG |
chlon(nchptot(bi,bj),bi,bj) = lons(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
178 |
FIZHI_INIT_VEG |
chlt (nchptot(bi,bj),bi,bj) = lats(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
184 |
FIZHI_INIT_VEG |
print *,'No of Total Tiles for bi=',bi,': ',nchptot(bi,bj) |
|
./pkg/fizhi/fizhi_init_veg.F |
58 |
FIZHI_INIT_VEG |
integer nchptot(Nsx,Nsy), nchpland(Nsx,Nsy) |
|
./pkg/fizhi/fizhi_init_veg.F |
7 |
FIZHI_INIT_VEG |
. maxtyp,nchp,nchptot,nchpland,lons,lats,surftype,tilefrac, |
|
./pkg/fizhi/fizhi_earth_coms.h |
16 |
NO PROCEDURE |
. tgz, landtype, nchptot, nchpland, ityp |
|
./pkg/fizhi/fizhi_earth_coms.h |
27 |
NO PROCEDURE |
integer nchptot(Nsx,Nsy),nchpland(Nsx,Nsy) |
|
./pkg/fizhi/fizhi_init_fixed.F |
85 |
FIZHI_INIT_FIXED |
. nSx*nPx,nSy*nPy,maxtyp,nchp,nchptot,nchpland,lons,lats, |
|
./pkg/fizhi/fizhi_turb.F |
102 |
TURBIO |
integer nchp,nchptot,nchplnd |
|
./pkg/fizhi/fizhi_turb.F |
10 |
TURBIO |
5 ,nchp,nchptot,nchplnd,chfr,chlt,chlon,igrd,ityp,alai,agrn,thkz |
|
./pkg/fizhi/fizhi_turb.F |
1181 |
TURBIO |
do i =1,nchptot |
|
./pkg/fizhi/fizhi_turb.F |
1188 |
TURBIO |
do i =1,nchptot |
|
./pkg/fizhi/fizhi_turb.F |
1214 |
TURBIO |
call MSC2GRD(igrd,chfr,dumsc(1,L),nchp,nchptot,fracland, |
|
./pkg/fizhi/fizhi_turb.F |
1216 |
TURBIO |
call MSC2GRD(igrd,chfr,dvmsc(1,L),nchp,nchptot,fracland, |
|
./pkg/fizhi/fizhi_turb.F |
1218 |
TURBIO |
call MSC2GRD(igrd,chfr,dtmsc(1,L),nchp,nchptot,fracland, |
|
./pkg/fizhi/fizhi_turb.F |
1221 |
TURBIO |
call MSC2GRD(igrd,chfr,dqmsc(1,L,nt),nchp,nchptot,fracland, |
|
./pkg/fizhi/fizhi_turb.F |
1224 |
TURBIO |
call MSC2GRD(igrd,chfr, tke(1,L),nchp,nchptot,fracland, |
|
./pkg/fizhi/fizhi_turb.F |
1227 |
TURBIO |
call MSC2GRD(igrd,chfr, fccmsc(1,L),nchp,nchptot,fracland, |
|
./pkg/fizhi/fizhi_turb.F |
1229 |
TURBIO |
call MSC2GRD(igrd,chfr,qliqmsc(1,L),nchp,nchptot,fracland, |
|
./pkg/fizhi/fizhi_turb.F |
1269 |
TURBIO |
call MSC2GRD(igrd,chfr,tground ,nchp,nchptot,fracland,tgz ,im,jm) |
|
./pkg/fizhi/fizhi_turb.F |
306 |
TURBIO |
do n=1,nchptot |
|
./pkg/fizhi/fizhi_turb.F |
350 |
TURBIO |
numstrips = ((nchptot-1)/istrip) + 1 |
|
./pkg/fizhi/fizhi_turb.F |
352 |
TURBIO |
call GRD2MSC(pz(1,1),im,jm,igrd,pmsc,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
354 |
TURBIO |
call GRD2MSC(tgz,im,jm,igrd,tground,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
359 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,alwcoeff,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
363 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,blwcoeff,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
367 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,pardiff,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
371 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,pardirct,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
375 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,netsw,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
379 |
TURBIO |
call GRD2MSC(tmpdiag,im,jm,igrd,netlw,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
380 |
TURBIO |
call GRD2MSC(thkz,im,jm,igrd,icethk,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
381 |
TURBIO |
call GRD2MSC(rainlsp,im,jm,igrd,lsprec,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
382 |
TURBIO |
call GRD2MSC(rainconv,im,jm,igrd,cnvprec,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
383 |
TURBIO |
call GRD2MSC(snowfall,im,jm,igrd,snowprec,nchp,nchptot) |
|
./pkg/fizhi/fizhi_turb.F |
396 |
TURBIO |
do i = 1,nchptot |
|
./pkg/fizhi/fizhi_turb.F |
403 |
TURBIO |
do i =1,nchptot |
|
./pkg/fizhi/fizhi_turb.F |
422 |
TURBIO |
do I =1,nchptot |
|
./pkg/fizhi/fizhi_turb.F |
433 |
TURBIO |
do i = nchplnd+1,nchptot |
|
./pkg/fizhi/fizhi_turb.F |
438 |
TURBIO |
do i = nchplnd+1,nchptot |
|
./pkg/fizhi/fizhi_turb.F |
445 |
TURBIO |
do i =1,nchptot |
|
./pkg/fizhi/fizhi_turb.F |
458 |
TURBIO |
call MSC2GRD (igrd,chfr,qice,nchp,nchptot,fracland,tmpdiag,im,jm) |
|
./pkg/fizhi/fizhi_turb.F |
482 |
TURBIO |
call STRIPIT (z0,stz0,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
483 |
TURBIO |
call STRIPIT (tground,th(1,nlay+1),nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
484 |
TURBIO |
call STRIPIT (pmsc,pe(1,nlay+1),nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
485 |
TURBIO |
call STRIPIT (tke,qq,nchptot,nchp,istrip,nlay-1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
486 |
TURBIO |
call STRIPIT (ctmt,ctsave,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
487 |
TURBIO |
call STRIPIT (xxmt,xxsave,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
488 |
TURBIO |
call STRIPIT (yymt,yysave,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
489 |
TURBIO |
call STRIPIT (zetamt,zetasave,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
490 |
TURBIO |
call STRIPIT (xlmt,xlsave,nchptot,nchp,istrip,nlay,nn) |
|
./pkg/fizhi/fizhi_turb.F |
491 |
TURBIO |
call STRIPIT (khmt,khsave,nchptot,nchp,istrip,nlay,nn) |
|
./pkg/fizhi/fizhi_turb.F |
492 |
TURBIO |
call STRIPITINT (water,stwatr,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
494 |
TURBIO |
call STRIPITINT (igrd,igrdstr,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
495 |
TURBIO |
call STRIPIT (chfr,chfrstr,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
496 |
TURBIO |
call STRIPIT (icethk,icest,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
497 |
TURBIO |
call STRIPIT (pardiff,pardf,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
498 |
TURBIO |
call STRIPIT (pardirct,pardr,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
499 |
TURBIO |
call STRIPIT (chlt,lats,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
500 |
TURBIO |
call STRIPIT (chlon,lons,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
501 |
TURBIO |
call STRIPIT (lsprec,rainls,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
502 |
TURBIO |
call STRIPIT (cnvprec,raincon,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
503 |
TURBIO |
call STRIPIT (snowprec,newsnow,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
504 |
TURBIO |
call STRIPIT (netsw,swnet,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
505 |
TURBIO |
call STRIPIT (netlw,lwstrip,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
506 |
TURBIO |
call STRIPIT (alwcoeff,alwrad,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
507 |
TURBIO |
call STRIPIT (blwcoeff,blwrad,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
508 |
TURBIO |
call STRIPIT (alai,laistrip,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
509 |
TURBIO |
call STRIPIT (agrn,grnstrip,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
510 |
TURBIO |
call STRIPIT (z2ch,z2str,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
511 |
TURBIO |
call STRIPIT (sqscat,scatstr,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
512 |
TURBIO |
call STRIPIT (rsoil1,rs1str,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
513 |
TURBIO |
call STRIPIT (rsoil2,rs2str,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
514 |
TURBIO |
call STRIPIT (rdc,rdcstr,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
515 |
TURBIO |
call STRIPIT (u2fac,u2fstr,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
516 |
TURBIO |
call STRIPIT (shg,shgstr,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
517 |
TURBIO |
call STRIPIT (dqsdt,dqsdtstr,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
518 |
TURBIO |
call STRIPIT ( qice, qicestr,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
519 |
TURBIO |
call STRIPIT (dqice,dqicestr,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
520 |
TURBIO |
call STRIPITINT (ityp,types,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
522 |
TURBIO |
call STRIPIT (tground,tc,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
523 |
TURBIO |
call STRIPIT (tdeep,td,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
524 |
TURBIO |
call STRIPIT (qground,qa,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
525 |
TURBIO |
call STRIPIT (swetshal,swet1,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
526 |
TURBIO |
call STRIPIT (swetroot,swet2,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
527 |
TURBIO |
call STRIPIT (swetdeep,swet3,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
528 |
TURBIO |
call STRIPIT (snodep,snowdepth,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
529 |
TURBIO |
call STRIPIT (capac,capacity,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
626 |
TURBIO |
call PASTIT (qq,tke,istrip,nchp,nchptot,nlay,nn) |
|
./pkg/fizhi/fizhi_turb.F |
627 |
TURBIO |
call PASTIT (ctsave,ctmt,istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
628 |
TURBIO |
call PASTIT (xxsave,xxmt,istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
629 |
TURBIO |
call PASTIT (yysave,yymt,istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
630 |
TURBIO |
call PASTIT (zetasave,zetamt,istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
631 |
TURBIO |
call PASTIT (xlsave,xlmt,istrip,nchp,nchptot,nlay,nn) |
|
./pkg/fizhi/fizhi_turb.F |
632 |
TURBIO |
call PASTIT (khsave,khmt,istrip,nchp,nchptot,nlay,nn) |
|
./pkg/fizhi/fizhi_turb.F |
634 |
TURBIO |
call PASTIT (qliq ,qliqmsc,istrip,nchp,nchptot,nlay,nn) |
|
./pkg/fizhi/fizhi_turb.F |
635 |
TURBIO |
call PASTIT (turbfcc,fccmsc,istrip,nchp,nchptot,nlay,nn) |
|
./pkg/fizhi/fizhi_turb.F |
862 |
TURBIO |
call PSTBITINT(types,qdiaglsm(1,1),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
863 |
TURBIO |
call PSTBMPIT(chfrstr,qdiaglsm(1,2),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
864 |
TURBIO |
call PSTBMPIT(lats,qdiaglsm(1,3),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
865 |
TURBIO |
call PSTBMPIT(lons,qdiaglsm(1,4),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
867 |
TURBIO |
call PSTBMPIT(tc,qdiaglsm(1,6),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
868 |
TURBIO |
call PSTBMPIT(td,qdiaglsm(1,7),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
869 |
TURBIO |
call PSTBMPIT(qa,qdiaglsm(1,8),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
870 |
TURBIO |
call PSTBMPIT(swet1,qdiaglsm(1,9),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
871 |
TURBIO |
call PSTBMPIT(swet2,qdiaglsm(1,10),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
872 |
TURBIO |
call PSTBMPIT(swet3,qdiaglsm(1,11),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
873 |
TURBIO |
call PSTBMPIT(capacity,qdiaglsm(1,12),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
874 |
TURBIO |
call PSTBMPIT(snowdepth,qdiaglsm(1,13),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
875 |
TURBIO |
call PSTBMPIT(eturb,qdiaglsm(1,14),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
876 |
TURBIO |
call PSTBMPIT(hsturb,qdiaglsm(1,15),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
877 |
TURBIO |
call PSTBMPIT(cd,qdiaglsm(1,16),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
878 |
TURBIO |
call PSTBMPIT(laistrip,qdiaglsm(1,17),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
879 |
TURBIO |
call PSTBMPIT(grnstrip,qdiaglsm(1,18),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
880 |
TURBIO |
call PSTBMPIT(eint,qdiaglsm(1,19),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
881 |
TURBIO |
call PSTBMPIT(esoi,qdiaglsm(1,20),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
882 |
TURBIO |
call PSTBMPIT(eveg,qdiaglsm(1,21),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
883 |
TURBIO |
call PSTBMPIT(esno,qdiaglsm(1,22),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
884 |
TURBIO |
call PSTBMPIT(strdg1,qdiaglsm(1,23),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
885 |
TURBIO |
call PSTBMPIT(strdg2,qdiaglsm(1,24),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
886 |
TURBIO |
call PSTBMPIT(strdg3,qdiaglsm(1,25),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
887 |
TURBIO |
call PSTBMPIT(strdg4,qdiaglsm(1,26),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
888 |
TURBIO |
call PSTBMPIT(strdg5,qdiaglsm(1,27),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
889 |
TURBIO |
call PSTBMPIT(strdg6,qdiaglsm(1,28),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
890 |
TURBIO |
call PSTBMPIT(strdg7,qdiaglsm(1,29),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
891 |
TURBIO |
call PSTBMPIT(strdg8,qdiaglsm(1,30),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
892 |
TURBIO |
call PSTBMPIT(strdg9,qdiaglsm(1,31),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
893 |
TURBIO |
call PSTBMPIT(smelt,qdiaglsm(1,32),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
894 |
TURBIO |
call PSTBMPIT(gdrain,qdiaglsm(1,33),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
895 |
TURBIO |
call PSTBMPIT(runsrf,qdiaglsm(1,34),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
896 |
TURBIO |
call PSTBMPIT(fwsoil,qdiaglsm(1,35),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
897 |
TURBIO |
call PSTBMPIT(evpot,qdiaglsm(1,36),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
898 |
TURBIO |
call PSTBMPIT(stt2m,qdiaglsm(1,37),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
899 |
TURBIO |
call PSTBMPIT(stq2m,qdiaglsm(1,38),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
902 |
TURBIO |
call PASTIT (tc,tground,istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
903 |
TURBIO |
call PASTIT (td,tdeep,istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
904 |
TURBIO |
call PASTIT (qa,qground,istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
905 |
TURBIO |
call PASTIT (swet1,swetshal,istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
906 |
TURBIO |
call PASTIT (swet2,swetroot,istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
907 |
TURBIO |
call PASTIT (swet3,swetdeep,istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
908 |
TURBIO |
call PASTIT (capacity,capac,istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
909 |
TURBIO |
call PASTIT (snowdepth,snodep,istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
948 |
TURBIO |
call PASTIT (tends,dumsc(1,l),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
955 |
TURBIO |
call PASTIT (tends,dvmsc(1,l),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
963 |
TURBIO |
call PASTIT (tends,dtmsc(1,l),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
971 |
TURBIO |
call PASTIT (tends,dqmsc(1,l,1),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_wrapper.F |
139 |
FIZHI_WRAPPER |
. nchp,nchptot,nchpland, |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
103 |
FIZHI_INIT_VEGSURFTILES |
call GRD2MSC(tempgrid,sNx,sNy,igrd,temptile,nchp,nchptot(bi,bj)) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
115 |
FIZHI_INIT_VEGSURFTILES |
call GRD2MSC(tempgrid,sNx,sNy,igrd,temptile,nchp,nchptot(bi,bj)) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
127 |
FIZHI_INIT_VEGSURFTILES |
call GRD2MSC(tempgrid,sNx,sNy,igrd,temptile,nchp,nchptot(bi,bj)) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
139 |
FIZHI_INIT_VEGSURFTILES |
call GRD2MSC(tempgrid,sNx,sNy,igrd,temptile,nchp,nchptot(bi,bj)) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
151 |
FIZHI_INIT_VEGSURFTILES |
call GRD2MSC(tempgrid,sNx,sNy,igrd,temptile,nchp,nchptot(bi,bj)) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
163 |
FIZHI_INIT_VEGSURFTILES |
call GRD2MSC(tempgrid,sNx,sNy,igrd,temptile,nchp,nchptot(bi,bj)) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
175 |
FIZHI_INIT_VEGSURFTILES |
call GRD2MSC(tempgrid,sNx,sNy,igrd,temptile,nchp,nchptot(bi,bj)) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
91 |
FIZHI_INIT_VEGSURFTILES |
call GRD2MSC(tempgrid,sNx,sNy,igrd,temptile,nchp,nchptot(bi,bj)) |
|
./pkg/fizhi/do_fizhi.F |
237 |
DO_FIZHI |
. chlon(1,bi,bj),igrd(1,bi,bj),nchptot(bi,bj),nchpland(bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
36 |
DO_FIZHI |
integer nchptot(Nsxin,Nsyin),nchpland(Nsxin,Nsyin) |
|
./pkg/fizhi/do_fizhi.F |
6 |
DO_FIZHI |
. nchp,nchptot,nchpland, |