| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_clockstuff.F |
912 |
ASTRO |
_RL TH(DAYSCY),T0,T1,T2,T3,T4,FUN,Y |
|
./pkg/fizhi/fizhi_clockstuff.F |
962 |
ASTRO |
TH(KM) = (T1 + TWO*(T2 + T3) + T4) / SIX |
|
./pkg/fizhi/fizhi_clockstuff.F |
965 |
ASTRO |
T1 = FUN(TH(KM),PI,ECC,YRLEN,PER ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
966 |
ASTRO |
T2 = FUN(TH(KM)+T1/TWO,PI,ECC,YRLEN,PER) |
|
./pkg/fizhi/fizhi_clockstuff.F |
967 |
ASTRO |
T3 = FUN(TH(KM)+T2/TWO,PI,ECC,YRLEN,PER) |
|
./pkg/fizhi/fizhi_clockstuff.F |
968 |
ASTRO |
T4 = FUN(TH(KM)+T3,PI,ECC,YRLEN,PER ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
970 |
ASTRO |
TH(KP) = TH(KM) + (T1 + TWO*(T2 + T3) + T4) / SIX |
|
./pkg/fizhi/fizhi_clockstuff.F |
983 |
ASTRO |
THM = MOD( TH(IDAY) ,TWO*PI) |
|
./pkg/fizhi/fizhi_clockstuff.F |
984 |
ASTRO |
THP = MOD( TH(IDAYP1),TWO*PI) |
|
./pkg/fizhi/fizhi_moist.F |
108 |
MOISTIO |
_RL TH(ISTRIP,lm) ,CVTH(ISTRIP,lm) |
|
./pkg/fizhi/fizhi_moist.F |
2366 |
RNEVP |
1 PLK,TH,TEMP1,TEMP2,TEMP3,ITMP1,ITMP2,RCON,RLAR,CLSBTH,tmscl, |
|
./pkg/fizhi/fizhi_moist.F |
2375 |
RNEVP |
. RCON(IRUN),RLAR(IRUN),DP(IRUN,NLAY),PLK(IRUN,NLAY),TH(IRUN,NLAY), |
|
./pkg/fizhi/fizhi_moist.F |
359 |
MOISTIO |
CALL STRIP ( thgather, TH ,im*jm,ISTRIP,lm,NN ) |
|
./pkg/fizhi/fizhi_moist.F |
373 |
MOISTIO |
TH(I,L) = TH(I,L) * P0KAPPA |
|
./pkg/fizhi/fizhi_moist.F |
417 |
MOISTIO |
TMP1(I,2) = TMP1(I,2) + (PLE(I,L+1)-PLE(I,L))*TH (I,L)/sp(i) |
|
./pkg/fizhi/fizhi_moist.F |
423 |
MOISTIO |
TH(I,NSUBCL) = TMP1(I,2)*TMP1(I,4) |
|
./pkg/fizhi/fizhi_moist.F |
475 |
MOISTIO |
tmp2(i,1) = TH(i,NSUBCL) * PLKE(i,NSUBCL)/P0KAPPA |
|
./pkg/fizhi/fizhi_moist.F |
532 |
MOISTIO |
1, UL(num,1,1),ntracedim,ntracex,TH(num,NLTOP),SHL(num,NLTOP) |
|
./pkg/fizhi/fizhi_moist.F |
551 |
MOISTIO |
CVTH(I,L) = (TH (I,L) - saveth(i,l)) |
|
./pkg/fizhi/fizhi_moist.F |
564 |
MOISTIO |
TH (I,L) = saveth(i,l) + cvth(i,l) |
|
./pkg/fizhi/fizhi_moist.F |
642 |
MOISTIO |
CALL STRIP ( thgather,TH ,im*jm,ISTRIP,lm,NN) |
|
./pkg/fizhi/fizhi_moist.F |
646 |
MOISTIO |
TH(I,L) = TH(I,L) + CVTH(I,L)*tmstp/SP(I) |
|
./pkg/fizhi/fizhi_moist.F |
648 |
MOISTIO |
TL(I,L) = TH(I,L)*PLK(I,L) |
|
./pkg/fizhi/fizhi_moist.F |
655 |
MOISTIO |
. PLK,TH,TMP1,TMP2,TMP3,ITMP1,ITMP2,PCNET,PRECIP, |
|
./pkg/fizhi/fizhi_turb.F |
1267 |
TRBFLX |
SUBROUTINE TRBFLX (NN,TH,THV,SH,U,V,QQ,PL,PLE,PLK,PLKE,DPSTR, |
|
./pkg/fizhi/fizhi_turb.F |
1315 |
TRBFLX |
_RL TH(irun,NLEV+1),THV(irun,NLEV+1),SH(irun,NLEV+1) |
|
./pkg/fizhi/fizhi_turb.F |
1717 |
TRBFLX |
TL(I,NLEV) = TH(I,NLEV)*PLK(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
1725 |
TRBFLX |
DTH(I,NLEV) = TH(I,NLEV)-TH(I,NLEVP1) |
|
./pkg/fizhi/fizhi_turb.F |
1745 |
TRBFLX |
1 ( TH(I,NLEV) + CLH * SHL(I,NLEV) * (1./plk(i,nlev)) ) |
|
./pkg/fizhi/fizhi_turb.F |
1747 |
TRBFLX |
1 * (1./plk(i,nlev)) * CLH - VRT1CON * TH(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
1761 |
TRBFLX |
2 THV(1,NLEVP1),TH(1,NLEV),TH(1,NLEVP1), |
|
./pkg/fizhi/fizhi_turb.F |
1813 |
TRBFLX |
DTH(I,L) = ( TH(I,L)-TH(I,L+1) ) * ADZ2(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
1815 |
TRBFLX |
TL(I,L) = TH(I,L)*PLK(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
1866 |
TRBFLX |
1 ( TH(I,L) + (CLH/plk(I,L)) * SHL(I,L) ) |
|
./pkg/fizhi/fizhi_turb.F |
1868 |
TRBFLX |
1 * (CLH/plke(I,L+1)) - VRT1CON * TH(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2145 |
TRBFLX |
CALL TRBDIF(TH,DELTH,TEMP,FLXFPK,DTHS,DELTHS,NLEV,2,0. _d 0,irun) |
|
./pkg/chronos/chronos.F |
758 |
ASTRO |
_RL TH(DAYSCY),T0,T1,T2,T3,T4,FUN,Y,MNDY(12,4) |
|
./pkg/chronos/chronos.F |
795 |
ASTRO |
TH(KM) = (T1 + TWO*(T2 + T3) + T4) / SIX |
|
./pkg/chronos/chronos.F |
798 |
ASTRO |
T1 = FUN(TH(KM) ) |
|
./pkg/chronos/chronos.F |
799 |
ASTRO |
T2 = FUN(TH(KM)+T1/TWO) |
|
./pkg/chronos/chronos.F |
800 |
ASTRO |
T3 = FUN(TH(KM)+T2/TWO) |
|
./pkg/chronos/chronos.F |
801 |
ASTRO |
T4 = FUN(TH(KM)+T3 ) |
|
./pkg/chronos/chronos.F |
803 |
ASTRO |
TH(KP) = TH(KM) + (T1 + TWO*(T2 + T3) + T4) / SIX |
|
./pkg/chronos/chronos.F |
816 |
ASTRO |
THM = MOD( TH(IDAY) ,TWO*PI) |
|
./pkg/chronos/chronos.F |
817 |
ASTRO |
THP = MOD( TH(IDAYP1),TWO*PI) |