| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
3620 |
TRBITP |
& AAA,BBB,CCC,DDD,CP,irun ) |
|
./pkg/fizhi/fizhi_turb.F |
3648 |
TRBITP |
_RL AAA(irun,NLEV),BBB(irun,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
3682 |
TRBITP |
AAA(I,L) = STBFCN(I,L) + STBFCN(I,L+1) |
|
./pkg/fizhi/fizhi_turb.F |
3685 |
TRBITP |
DZITRP(I,L) = AAA(I,L) * CCC(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
3686 |
TRBITP |
AAA(I,L) = AAA(I,L) - DDD(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
3693 |
TRBITP |
IF( INTCHG(I,L).EQ.1 .AND. AAA(I,L).NE.0. ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
3694 |
TRBITP |
DZITRP(I,L) = ( BBB(I,L)*(1.-DDD(I,L)) ) / AAA(I,L) |
|
./pkg/seaice/dynsolver.F |
125 |
DYNSOLVER |
AAA=U1**2+V1**2 |
|
./pkg/seaice/dynsolver.F |
126 |
DYNSOLVER |
IF ( AAA .LE. SEAICE_EPS_SQ ) THEN |
|
./pkg/seaice/dynsolver.F |
127 |
DYNSOLVER |
AAA=SEAICE_EPS |
|
./pkg/seaice/dynsolver.F |
129 |
DYNSOLVER |
AAA=SQRT(AAA) |
|
./pkg/seaice/dynsolver.F |
133 |
DYNSOLVER |
& *(2.70 _d 0+0.142 _d 0*AAA+0.0764 _d 0*AAA*AAA) |
|
./pkg/seaice/dynsolver.F |
142 |
DYNSOLVER |
& RHOAIR*(SEAICE_drag_south*AAA*AREA(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
143 |
DYNSOLVER |
& +OCEAN_drag*(2.70 _d 0+0.142 _d 0*AAA |
|
./pkg/seaice/dynsolver.F |
144 |
DYNSOLVER |
& +0.0764 _d 0*AAA*AAA)*(ONE-AREA(I,J,bi,bj))) |
|
./pkg/seaice/dynsolver.F |
147 |
DYNSOLVER |
& RHOAIR*(SEAICE_drag*AAA*AREA(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
148 |
DYNSOLVER |
& +OCEAN_drag*(2.70 _d 0+0.142 _d 0*AAA |
|
./pkg/seaice/dynsolver.F |
149 |
DYNSOLVER |
& +0.0764 _d 0*AAA*AAA)*(ONE-AREA(I,J,bi,bj))) |
|
./pkg/seaice/dynsolver.F |
57 |
DYNSOLVER |
_RL ECCEN, ECM2, PSTAR, AAA |
|
./pkg/seaice/seaice_get_dynforcing.F |
100 |
SEAICE_GET_DYNFORCING |
AAA=U1**2+V1**2 |
|
./pkg/seaice/seaice_get_dynforcing.F |
101 |
SEAICE_GET_DYNFORCING |
IF ( AAA .LE. SEAICE_EPS_SQ ) THEN |
|
./pkg/seaice/seaice_get_dynforcing.F |
102 |
SEAICE_GET_DYNFORCING |
AAA=SEAICE_EPS |
|
./pkg/seaice/seaice_get_dynforcing.F |
104 |
SEAICE_GET_DYNFORCING |
AAA=SQRT(AAA) |
|
./pkg/seaice/seaice_get_dynforcing.F |
107 |
SEAICE_GET_DYNFORCING |
& *(2.70 _d 0+0.142 _d 0*AAA+0.0764 _d 0*AAA*AAA) |
|
./pkg/seaice/seaice_get_dynforcing.F |
141 |
SEAICE_GET_DYNFORCING |
AAA=U1**2+V1**2 |
|
./pkg/seaice/seaice_get_dynforcing.F |
142 |
SEAICE_GET_DYNFORCING |
IF ( AAA .LE. SEAICE_EPS_SQ ) THEN |
|
./pkg/seaice/seaice_get_dynforcing.F |
143 |
SEAICE_GET_DYNFORCING |
AAA=SEAICE_EPS |
|
./pkg/seaice/seaice_get_dynforcing.F |
145 |
SEAICE_GET_DYNFORCING |
AAA=SQRT(AAA) |
|
./pkg/seaice/seaice_get_dynforcing.F |
148 |
SEAICE_GET_DYNFORCING |
CDAIR(i,j) = SEAICE_rhoAir*SEAICE_drag_south*AAA |
|
./pkg/seaice/seaice_get_dynforcing.F |
150 |
SEAICE_GET_DYNFORCING |
CDAIR(i,j) = SEAICE_rhoAir*SEAICE_drag*AAA |
|
./pkg/seaice/seaice_get_dynforcing.F |
159 |
SEAICE_GET_DYNFORCING |
AAA=U1**2+V1**2 |
|
./pkg/seaice/seaice_get_dynforcing.F |
160 |
SEAICE_GET_DYNFORCING |
IF ( AAA .LE. SEAICE_EPS_SQ ) THEN |
|
./pkg/seaice/seaice_get_dynforcing.F |
161 |
SEAICE_GET_DYNFORCING |
AAA=SEAICE_EPS |
|
./pkg/seaice/seaice_get_dynforcing.F |
163 |
SEAICE_GET_DYNFORCING |
AAA=SQRT(AAA) |
|
./pkg/seaice/seaice_get_dynforcing.F |
166 |
SEAICE_GET_DYNFORCING |
CDAIR(i,j) = SEAICE_rhoAir*SEAICE_drag_south*AAA |
|
./pkg/seaice/seaice_get_dynforcing.F |
168 |
SEAICE_GET_DYNFORCING |
CDAIR(i,j) = SEAICE_rhoAir*SEAICE_drag*AAA |
|
./pkg/seaice/seaice_get_dynforcing.F |
67 |
SEAICE_GET_DYNFORCING |
_RL U1, V1, AAA |