| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
3635 |
TRBITP |
. AAA,BBB,CCC,DDD,CP,irun ) |
|
./pkg/fizhi/fizhi_turb.F |
3667 |
TRBITP |
_RL AAA(irun,NLEV),BBB(irun,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
3698 |
TRBITP |
AAA(I,1) = STBFCN(I,1) + STBFCN(I,2) |
|
./pkg/fizhi/fizhi_turb.F |
3701 |
TRBITP |
DZITRP(I,1) = AAA(I,1) * CCC(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
3702 |
TRBITP |
AAA(I,1) = AAA(I,1) - DDD(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
3709 |
TRBITP |
IF( INTCHG(I,1).EQ.1 .AND. AAA(I,1).NE.0. ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
3710 |
TRBITP |
DZITRP(I,1) = ( BBB(I,1)*(1.-DDD(I,1)) ) / AAA(I,1) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3617 |
TRBITP |
. AAA,BBB,CCC,DDD,CP,irun ) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3649 |
TRBITP |
_RL AAA(irun,NLEV),BBB(irun,NLEV) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3680 |
TRBITP |
AAA(I,1) = STBFCN(I,1) + STBFCN(I,2) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3683 |
TRBITP |
DZITRP(I,1) = AAA(I,1) * CCC(I,1) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3684 |
TRBITP |
AAA(I,1) = AAA(I,1) - DDD(I,1) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3691 |
TRBITP |
IF( INTCHG(I,1).EQ.1 .AND. AAA(I,1).NE.0. ) THEN |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3692 |
TRBITP |
DZITRP(I,1) = ( BBB(I,1)*(1.-DDD(I,1)) ) / AAA(I,1) |
|
./pkg/seaice/dynsolver.F |
116 |
DYNSOLVER |
AAA=U1**2+V1**2 |
|
./pkg/seaice/dynsolver.F |
117 |
DYNSOLVER |
IF ( AAA .LE. SEAICE_EPS_SQ ) THEN |
|
./pkg/seaice/dynsolver.F |
118 |
DYNSOLVER |
AAA=SEAICE_EPS |
|
./pkg/seaice/dynsolver.F |
120 |
DYNSOLVER |
AAA=SQRT(AAA) |
|
./pkg/seaice/dynsolver.F |
124 |
DYNSOLVER |
& *(2.70 _d 0+0.142 _d 0*AAA+0.0764 _d 0*AAA*AAA) |
|
./pkg/seaice/dynsolver.F |
131 |
DYNSOLVER |
DAIRN(I,J,bi,bj)=RHOAIR*(SEAICE_drag*AAA*AREA(I,J,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
132 |
DYNSOLVER |
& +OCEAN_drag*(2.70 _d 0+0.142 _d 0*AAA |
|
./pkg/seaice/dynsolver.F |
133 |
DYNSOLVER |
& +0.0764 _d 0*AAA*AAA)*(ONE-AREA(I,J,1,bi,bj))) |
|
./pkg/seaice/dynsolver.F |
47 |
DYNSOLVER |
_RL ECCEN, ECM2, DELT1, DELT2, PSTAR, AAA |
|
./pkg/seaice/seaice_dynsolver.F |
129 |
SEAICE_DYNSOLVER |
AAA=U1**2+V1**2 |
|
./pkg/seaice/seaice_dynsolver.F |
130 |
SEAICE_DYNSOLVER |
IF ( AAA .LE. SEAICE_EPS_SQ ) THEN |
|
./pkg/seaice/seaice_dynsolver.F |
131 |
SEAICE_DYNSOLVER |
AAA=SEAICE_EPS |
|
./pkg/seaice/seaice_dynsolver.F |
133 |
SEAICE_DYNSOLVER |
AAA=SQRT(AAA) |
|
./pkg/seaice/seaice_dynsolver.F |
137 |
SEAICE_DYNSOLVER |
& *(2.70 _d 0+0.142 _d 0*AAA+0.0764 _d 0*AAA*AAA) |
|
./pkg/seaice/seaice_dynsolver.F |
143 |
SEAICE_DYNSOLVER |
DAIRN(I,J,bi,bj) = RHOAIR*SEAICE_drag*AAA |
|
./pkg/seaice/seaice_dynsolver.F |
50 |
SEAICE_DYNSOLVER |
_RL PSTAR, AAA |