| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
4134 |
TRBITP |
. AAA,BBB,CCC,DDD,CP,irun ) |
|
./pkg/fizhi/fizhi_turb.F |
4166 |
TRBITP |
_RL AAA(irun,NLEV),BBB(irun,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
4226 |
TRBITP |
AAA(I,L) = STBFCN(I,L) + STBFCN(I,L+1) |
|
./pkg/fizhi/fizhi_turb.F |
4229 |
TRBITP |
DZITRP(I,L) = AAA(I,L) * CCC(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
4230 |
TRBITP |
AAA(I,L) = AAA(I,L) - DDD(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
4237 |
TRBITP |
IF( INTCHG(I,L).EQ.1 .AND. AAA(I,L).NE.0. ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4238 |
TRBITP |
DZITRP(I,L) = ( BBB(I,L)*(1.-DDD(I,L)) ) / AAA(I,L) |
|
./pkg/seaice/dynsolver.F |
121 |
DYNSOLVER |
AAA=U1**2+V1**2 |
|
./pkg/seaice/dynsolver.F |
122 |
DYNSOLVER |
IF ( AAA .LE. SEAICE_EPS_SQ ) THEN |
|
./pkg/seaice/dynsolver.F |
123 |
DYNSOLVER |
AAA=SEAICE_EPS |
|
./pkg/seaice/dynsolver.F |
125 |
DYNSOLVER |
AAA=SQRT(AAA) |
|
./pkg/seaice/dynsolver.F |
129 |
DYNSOLVER |
& *(2.70 _d 0+0.142 _d 0*AAA+0.0764 _d 0*AAA*AAA) |
|
./pkg/seaice/dynsolver.F |
138 |
DYNSOLVER |
& RHOAIR*(SEAICE_drag_south*AAA*AREA(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
139 |
DYNSOLVER |
& +OCEAN_drag*(2.70 _d 0+0.142 _d 0*AAA |
|
./pkg/seaice/dynsolver.F |
140 |
DYNSOLVER |
& +0.0764 _d 0*AAA*AAA)*(ONE-AREA(I,J,bi,bj))) |
|
./pkg/seaice/dynsolver.F |
143 |
DYNSOLVER |
& RHOAIR*(SEAICE_drag*AAA*AREA(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
144 |
DYNSOLVER |
& +OCEAN_drag*(2.70 _d 0+0.142 _d 0*AAA |
|
./pkg/seaice/dynsolver.F |
145 |
DYNSOLVER |
& +0.0764 _d 0*AAA*AAA)*(ONE-AREA(I,J,bi,bj))) |
|
./pkg/seaice/dynsolver.F |
56 |
DYNSOLVER |
_RL ECCEN, ECM2, DELT1, DELT2, PSTAR, AAA |
|
./pkg/seaice/seaice_get_dynforcing.F |
124 |
SEAICE_GET_DYNFORCING |
AAA=U1**2+V1**2 |
|
./pkg/seaice/seaice_get_dynforcing.F |
125 |
SEAICE_GET_DYNFORCING |
IF ( AAA .LE. SEAICE_EPS_SQ ) THEN |
|
./pkg/seaice/seaice_get_dynforcing.F |
126 |
SEAICE_GET_DYNFORCING |
AAA=SEAICE_EPS |
|
./pkg/seaice/seaice_get_dynforcing.F |
128 |
SEAICE_GET_DYNFORCING |
AAA=SQRT(AAA) |
|
./pkg/seaice/seaice_get_dynforcing.F |
131 |
SEAICE_GET_DYNFORCING |
CDAIR(I,J) = SEAICE_rhoAir*SEAICE_drag_south*AAA |
|
./pkg/seaice/seaice_get_dynforcing.F |
133 |
SEAICE_GET_DYNFORCING |
CDAIR(I,J) = SEAICE_rhoAir*SEAICE_drag*AAA |
|
./pkg/seaice/seaice_get_dynforcing.F |
142 |
SEAICE_GET_DYNFORCING |
AAA=U1**2+V1**2 |
|
./pkg/seaice/seaice_get_dynforcing.F |
143 |
SEAICE_GET_DYNFORCING |
IF ( AAA .LE. SEAICE_EPS_SQ ) THEN |
|
./pkg/seaice/seaice_get_dynforcing.F |
144 |
SEAICE_GET_DYNFORCING |
AAA=SEAICE_EPS |
|
./pkg/seaice/seaice_get_dynforcing.F |
146 |
SEAICE_GET_DYNFORCING |
AAA=SQRT(AAA) |
|
./pkg/seaice/seaice_get_dynforcing.F |
149 |
SEAICE_GET_DYNFORCING |
CDAIR(I,J) = SEAICE_rhoAir*SEAICE_drag_south*AAA |
|
./pkg/seaice/seaice_get_dynforcing.F |
151 |
SEAICE_GET_DYNFORCING |
CDAIR(I,J) = SEAICE_rhoAir*SEAICE_drag*AAA |
|
./pkg/seaice/seaice_get_dynforcing.F |
57 |
SEAICE_GET_DYNFORCING |
_RL U1, V1, AAA |
|
./pkg/seaice/seaice_get_dynforcing.F |
90 |
SEAICE_GET_DYNFORCING |
AAA=U1**2+V1**2 |
|
./pkg/seaice/seaice_get_dynforcing.F |
91 |
SEAICE_GET_DYNFORCING |
IF ( AAA .LE. SEAICE_EPS_SQ ) THEN |
|
./pkg/seaice/seaice_get_dynforcing.F |
92 |
SEAICE_GET_DYNFORCING |
AAA=SEAICE_EPS |
|
./pkg/seaice/seaice_get_dynforcing.F |
94 |
SEAICE_GET_DYNFORCING |
AAA=SQRT(AAA) |
|
./pkg/seaice/seaice_get_dynforcing.F |
97 |
SEAICE_GET_DYNFORCING |
& *(2.70 _d 0+0.142 _d 0*AAA+0.0764 _d 0*AAA*AAA) |