| 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 |
128 |
DYNSOLVER |
AAA=U1**2+V1**2 |
|
./pkg/seaice/dynsolver.F |
129 |
DYNSOLVER |
IF ( AAA .LE. SEAICE_EPS_SQ ) THEN |
|
./pkg/seaice/dynsolver.F |
130 |
DYNSOLVER |
AAA=SEAICE_EPS |
|
./pkg/seaice/dynsolver.F |
132 |
DYNSOLVER |
AAA=SQRT(AAA) |
|
./pkg/seaice/dynsolver.F |
136 |
DYNSOLVER |
& *(2.70 _d 0+0.142 _d 0*AAA+0.0764 _d 0*AAA*AAA) |
|
./pkg/seaice/dynsolver.F |
145 |
DYNSOLVER |
& RHOAIR*(SEAICE_drag_south*AAA*AREA(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
146 |
DYNSOLVER |
& +OCEAN_drag*(2.70 _d 0+0.142 _d 0*AAA |
|
./pkg/seaice/dynsolver.F |
147 |
DYNSOLVER |
& +0.0764 _d 0*AAA*AAA)*(ONE-AREA(I,J,bi,bj))) |
|
./pkg/seaice/dynsolver.F |
150 |
DYNSOLVER |
& RHOAIR*(SEAICE_drag*AAA*AREA(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
151 |
DYNSOLVER |
& +OCEAN_drag*(2.70 _d 0+0.142 _d 0*AAA |
|
./pkg/seaice/dynsolver.F |
152 |
DYNSOLVER |
& +0.0764 _d 0*AAA*AAA)*(ONE-AREA(I,J,bi,bj))) |
|
./pkg/seaice/dynsolver.F |
60 |
DYNSOLVER |
_RL ECCEN, ECM2, PSTAR, AAA |
|
./pkg/seaice/seaice_get_dynforcing.F |
112 |
SEAICE_GET_DYNFORCING |
AAA=U1**2+V1**2 |
|
./pkg/seaice/seaice_get_dynforcing.F |
113 |
SEAICE_GET_DYNFORCING |
IF ( AAA .LE. SEAICE_EPS_SQ ) THEN |
|
./pkg/seaice/seaice_get_dynforcing.F |
114 |
SEAICE_GET_DYNFORCING |
AAA=SEAICE_EPS |
|
./pkg/seaice/seaice_get_dynforcing.F |
116 |
SEAICE_GET_DYNFORCING |
AAA=SQRT(AAA) |
|
./pkg/seaice/seaice_get_dynforcing.F |
119 |
SEAICE_GET_DYNFORCING |
& *(2.70 _d 0+0.142 _d 0*AAA+0.0764 _d 0*AAA*AAA) |
|
./pkg/seaice/seaice_get_dynforcing.F |
153 |
SEAICE_GET_DYNFORCING |
AAA=U1**2+V1**2 |
|
./pkg/seaice/seaice_get_dynforcing.F |
154 |
SEAICE_GET_DYNFORCING |
IF ( AAA .LE. SEAICE_EPS_SQ ) THEN |
|
./pkg/seaice/seaice_get_dynforcing.F |
155 |
SEAICE_GET_DYNFORCING |
AAA=SEAICE_EPS |
|
./pkg/seaice/seaice_get_dynforcing.F |
157 |
SEAICE_GET_DYNFORCING |
AAA=SQRT(AAA) |
|
./pkg/seaice/seaice_get_dynforcing.F |
160 |
SEAICE_GET_DYNFORCING |
CDAIR(i,j) = SEAICE_rhoAir*SEAICE_drag_south*AAA |
|
./pkg/seaice/seaice_get_dynforcing.F |
162 |
SEAICE_GET_DYNFORCING |
CDAIR(i,j) = SEAICE_rhoAir*SEAICE_drag*AAA |
|
./pkg/seaice/seaice_get_dynforcing.F |
171 |
SEAICE_GET_DYNFORCING |
AAA=U1**2+V1**2 |
|
./pkg/seaice/seaice_get_dynforcing.F |
172 |
SEAICE_GET_DYNFORCING |
IF ( AAA .LE. SEAICE_EPS_SQ ) THEN |
|
./pkg/seaice/seaice_get_dynforcing.F |
173 |
SEAICE_GET_DYNFORCING |
AAA=SEAICE_EPS |
|
./pkg/seaice/seaice_get_dynforcing.F |
175 |
SEAICE_GET_DYNFORCING |
AAA=SQRT(AAA) |
|
./pkg/seaice/seaice_get_dynforcing.F |
178 |
SEAICE_GET_DYNFORCING |
CDAIR(i,j) = SEAICE_rhoAir*SEAICE_drag_south*AAA |
|
./pkg/seaice/seaice_get_dynforcing.F |
180 |
SEAICE_GET_DYNFORCING |
CDAIR(i,j) = SEAICE_rhoAir*SEAICE_drag*AAA |
|
./pkg/seaice/seaice_get_dynforcing.F |
75 |
SEAICE_GET_DYNFORCING |
_RL U1, V1, AAA |