| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3656 |
TRBITP |
. AAA,BBB,CCC,DDD,CP,irun ) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3688 |
TRBITP |
_RL AAA(irun,NLEV),BBB(irun,NLEV) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3719 |
TRBITP |
AAA(I,1) = STBFCN(I,1) + STBFCN(I,2) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3722 |
TRBITP |
DZITRP(I,1) = AAA(I,1) * CCC(I,1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3723 |
TRBITP |
AAA(I,1) = AAA(I,1) - DDD(I,1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3730 |
TRBITP |
IF( INTCHG(I,1).EQ.1 .AND. AAA(I,1).NE.0. ) THEN |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3731 |
TRBITP |
DZITRP(I,1) = ( BBB(I,1)*(1.-DDD(I,1)) ) / AAA(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
3617 |
TRBITP |
. AAA,BBB,CCC,DDD,CP,irun ) |
|
./pkg/fizhi/fizhi_turb.F |
3649 |
TRBITP |
_RL AAA(irun,NLEV),BBB(irun,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
3680 |
TRBITP |
AAA(I,1) = STBFCN(I,1) + STBFCN(I,2) |
|
./pkg/fizhi/fizhi_turb.F |
3683 |
TRBITP |
DZITRP(I,1) = AAA(I,1) * CCC(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
3684 |
TRBITP |
AAA(I,1) = AAA(I,1) - DDD(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
3691 |
TRBITP |
IF( INTCHG(I,1).EQ.1 .AND. AAA(I,1).NE.0. ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
3692 |
TRBITP |
DZITRP(I,1) = ( BBB(I,1)*(1.-DDD(I,1)) ) / AAA(I,1) |
|
./pkg/seaice/dynsolver.F |
108 |
DYNSOLVER |
AAA=U1**2+V1**2 |
|
./pkg/seaice/dynsolver.F |
109 |
DYNSOLVER |
IF ( AAA .LE. SEAICE_EPS_SQ ) THEN |
|
./pkg/seaice/dynsolver.F |
110 |
DYNSOLVER |
AAA=SEAICE_EPS |
|
./pkg/seaice/dynsolver.F |
112 |
DYNSOLVER |
AAA=SQRT(AAA) |
|
./pkg/seaice/dynsolver.F |
116 |
DYNSOLVER |
& *(2.70 _d 0+0.142 _d 0*AAA+0.0764 _d 0*AAA*AAA) |
|
./pkg/seaice/dynsolver.F |
121 |
DYNSOLVER |
DAIRN(I,J,bi,bj)=RHOAIR*(SEAICE_drag*AAA*AREA(I,J,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
122 |
DYNSOLVER |
& +OCEAN_drag*(2.70 _d 0+0.142 _d 0*AAA |
|
./pkg/seaice/dynsolver.F |
123 |
DYNSOLVER |
& +0.0764 _d 0*AAA*AAA)*(ONE-AREA(I,J,1,bi,bj))) |
|
./pkg/seaice/dynsolver.F |
44 |
DYNSOLVER |
_RL ECCEN, ECM2, RADIUS, DELT1, DELT2, PSTAR, AAA |