| File |
Line number |
Procedure |
Code |
|
./model/src/apply_forcing.F |
100 |
APPLY_FORCING_U |
kSurface = 0 |
|
./model/src/apply_forcing.F |
102 |
APPLY_FORCING_U |
kSurface = Nr |
|
./model/src/apply_forcing.F |
104 |
APPLY_FORCING_U |
kSurface = 1 |
|
./model/src/apply_forcing.F |
130 |
APPLY_FORCING_U |
IF ( k .EQ. kSurface ) THEN |
|
./model/src/apply_forcing.F |
140 |
APPLY_FORCING_U |
ELSEIF ( kSurface.EQ.-1 ) THEN |
|
./model/src/apply_forcing.F |
244 |
APPLY_FORCING_V |
INTEGER kSurface |
|
./model/src/apply_forcing.F |
278 |
APPLY_FORCING_V |
kSurface = 0 |
|
./model/src/apply_forcing.F |
280 |
APPLY_FORCING_V |
kSurface = Nr |
|
./model/src/apply_forcing.F |
282 |
APPLY_FORCING_V |
kSurface = 1 |
|
./model/src/apply_forcing.F |
308 |
APPLY_FORCING_V |
IF ( k .EQ. kSurface ) THEN |
|
./model/src/apply_forcing.F |
318 |
APPLY_FORCING_V |
ELSEIF ( kSurface.EQ.-1 ) THEN |
|
./model/src/apply_forcing.F |
422 |
APPLY_FORCING_T |
INTEGER kSurface |
|
./model/src/apply_forcing.F |
466 |
APPLY_FORCING_T |
kSurface = 0 |
|
./model/src/apply_forcing.F |
468 |
APPLY_FORCING_T |
kSurface = -1 |
|
./model/src/apply_forcing.F |
470 |
APPLY_FORCING_T |
kSurface = Nr |
|
./model/src/apply_forcing.F |
472 |
APPLY_FORCING_T |
kSurface = 1 |
|
./model/src/apply_forcing.F |
613 |
APPLY_FORCING_T |
IF ( k .EQ. kSurface ) THEN |
|
./model/src/apply_forcing.F |
621 |
APPLY_FORCING_T |
ELSEIF ( kSurface.EQ.-1 ) THEN |
|
./model/src/apply_forcing.F |
66 |
APPLY_FORCING_U |
INTEGER kSurface |
|
./model/src/apply_forcing.F |
808 |
APPLY_FORCING_S |
INTEGER kSurface |
|
./model/src/apply_forcing.F |
842 |
APPLY_FORCING_S |
kSurface = 0 |
|
./model/src/apply_forcing.F |
844 |
APPLY_FORCING_S |
kSurface = -1 |
|
./model/src/apply_forcing.F |
846 |
APPLY_FORCING_S |
kSurface = Nr |
|
./model/src/apply_forcing.F |
848 |
APPLY_FORCING_S |
kSurface = 1 |
|
./model/src/apply_forcing.F |
903 |
APPLY_FORCING_S |
IF ( k .EQ. kSurface ) THEN |
|
./model/src/apply_forcing.F |
911 |
APPLY_FORCING_S |
ELSEIF ( kSurface.EQ.-1 ) THEN |
|
./pkg/ptracers/ptracers_apply_forcing.F |
54 |
PTRACERS_APPLY_FORCING |
INTEGER kSurface |
|
./pkg/ptracers/ptracers_apply_forcing.F |
58 |
PTRACERS_APPLY_FORCING |
kSurface = Nr |
|
./pkg/ptracers/ptracers_apply_forcing.F |
60 |
PTRACERS_APPLY_FORCING |
kSurface = 1 |
|
./pkg/ptracers/ptracers_apply_forcing.F |
76 |
PTRACERS_APPLY_FORCING |
IF ( k .EQ. kSurface ) THEN |
|
./model/src/external_forcing.F |
103 |
EXTERNAL_FORCING_U |
ELSEIF ( kSurface.EQ.-1 ) THEN |
|
./model/src/external_forcing.F |
199 |
EXTERNAL_FORCING_V |
INTEGER kSurface |
|
./model/src/external_forcing.F |
203 |
EXTERNAL_FORCING_V |
kSurface = 0 |
|
./model/src/external_forcing.F |
205 |
EXTERNAL_FORCING_V |
kSurface = Nr |
|
./model/src/external_forcing.F |
207 |
EXTERNAL_FORCING_V |
kSurface = 1 |
|
./model/src/external_forcing.F |
233 |
EXTERNAL_FORCING_V |
IF ( kLev .EQ. kSurface ) THEN |
|
./model/src/external_forcing.F |
243 |
EXTERNAL_FORCING_V |
ELSEIF ( kSurface.EQ.-1 ) THEN |
|
./model/src/external_forcing.F |
339 |
EXTERNAL_FORCING_T |
INTEGER kSurface |
|
./model/src/external_forcing.F |
353 |
EXTERNAL_FORCING_T |
kSurface = 0 |
|
./model/src/external_forcing.F |
355 |
EXTERNAL_FORCING_T |
kSurface = -1 |
|
./model/src/external_forcing.F |
357 |
EXTERNAL_FORCING_T |
kSurface = Nr |
|
./model/src/external_forcing.F |
359 |
EXTERNAL_FORCING_T |
kSurface = 1 |
|
./model/src/external_forcing.F |
500 |
EXTERNAL_FORCING_T |
IF ( kLev .EQ. kSurface ) THEN |
|
./model/src/external_forcing.F |
508 |
EXTERNAL_FORCING_T |
ELSEIF ( kSurface.EQ.-1 ) THEN |
|
./model/src/external_forcing.F |
59 |
EXTERNAL_FORCING_U |
INTEGER kSurface |
|
./model/src/external_forcing.F |
63 |
EXTERNAL_FORCING_U |
kSurface = 0 |
|
./model/src/external_forcing.F |
65 |
EXTERNAL_FORCING_U |
kSurface = Nr |
|
./model/src/external_forcing.F |
673 |
EXTERNAL_FORCING_S |
INTEGER kSurface |
|
./model/src/external_forcing.F |
677 |
EXTERNAL_FORCING_S |
kSurface = 0 |
|
./model/src/external_forcing.F |
679 |
EXTERNAL_FORCING_S |
kSurface = -1 |
|
./model/src/external_forcing.F |
67 |
EXTERNAL_FORCING_U |
kSurface = 1 |
|
./model/src/external_forcing.F |
681 |
EXTERNAL_FORCING_S |
kSurface = Nr |
|
./model/src/external_forcing.F |
683 |
EXTERNAL_FORCING_S |
kSurface = 1 |
|
./model/src/external_forcing.F |
738 |
EXTERNAL_FORCING_S |
IF ( kLev .EQ. kSurface ) THEN |
|
./model/src/external_forcing.F |
746 |
EXTERNAL_FORCING_S |
ELSEIF ( kSurface.EQ.-1 ) THEN |
|
./model/src/external_forcing.F |
93 |
EXTERNAL_FORCING_U |
IF ( kLev .EQ. kSurface ) THEN |
|
./pkg/seaice/seaice_check.F |
115 |
SEAICE_CHECK |
SEAICE_mcphee_max=drF(kSurface)/SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_check.F |
57 |
SEAICE_CHECK |
INTEGER kSurface |
|
./pkg/seaice/seaice_check.F |
64 |
SEAICE_CHECK |
kSurface = Nr |
|
./pkg/seaice/seaice_check.F |
66 |
SEAICE_CHECK |
kSurface = 1 |
|
./pkg/seaice/seaice_growth.F |
1022 |
SEAICE_GROWTH |
& SEAICE_dTempFrz_dS *salt(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1024 |
SEAICE_GROWTH |
IF ( theta(I,J,kSurface,bi,bj) .GE. tempFrz ) THEN |
|
./pkg/seaice/seaice_growth.F |
1027 |
SEAICE_GROWTH |
tmpscal1 =SEAICE_frazilFrac*drF(kSurface)/SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_growth.F |
1042 |
SEAICE_GROWTH |
& * (theta(I,J,kSurface,bi,bj)-tempFrz) |
|
./pkg/seaice/seaice_growth.F |
1043 |
SEAICE_GROWTH |
& * SEAICE_deltaTtherm * maskC(i,j,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1060 |
SEAICE_GROWTH |
& SEAICE_dTempFrz_dS *salt(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1061 |
SEAICE_GROWTH |
tmpscal1=(theta(I,J,kSurface,bi,bj)-tempFrz) |
|
./pkg/seaice/seaice_growth.F |
1140 |
SEAICE_GROWTH |
& 0.5 _d 0*(uVel(i,j,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1141 |
SEAICE_GROWTH |
& +uVel(i+1,j,kSurface,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1145 |
SEAICE_GROWTH |
& 0.5 _d 0*(vVel(i,j,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1146 |
SEAICE_GROWTH |
& +vVel(i,j+1,kSurface,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1959 |
SEAICE_GROWTH |
& min(SEAICE_salt0,salt(I,J,kSurface,bi,bj)) ) |
|
./pkg/seaice/seaice_growth.F |
1992 |
SEAICE_GROWTH |
tmpscal3 = tmpscal1*salt(I,J,kSurface,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2023 |
SEAICE_GROWTH |
& *SEAICE_saltFrac*salt(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2043 |
SEAICE_GROWTH |
& *(ONE-SEAICE_saltFrac)*salt(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2081 |
SEAICE_GROWTH |
& *(ONE-SEAICE_saltFrac)*salt(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2175 |
SEAICE_GROWTH |
& ) * maskC(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2224 |
SEAICE_GROWTH |
tmpscal3=rhoConstFresh*maskC(I,J,kSurface,bi,bj)*( |
|
./pkg/seaice/seaice_growth.F |
2239 |
SEAICE_GROWTH |
& HeatCapacity_Cp * theta(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2242 |
SEAICE_GROWTH |
& ( temp_EvPrRn - theta(I,J,kSurface,bi,bj) ) |
|
./pkg/seaice/seaice_growth.F |
2277 |
SEAICE_GROWTH |
& maskC(I,J,kSurface,bi,bj)*convertHI2Q*( |
|
./pkg/seaice/seaice_growth.F |
2283 |
SEAICE_GROWTH |
tmpscal1 = rhoConstFresh*maskC(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2287 |
SEAICE_GROWTH |
tmpscal2=rhoConstFresh*maskC(I,J,kSurface,bi,bj)* |
|
./pkg/seaice/seaice_growth.F |
2307 |
SEAICE_GROWTH |
& ( ZERO + HeatCapacity_Cp * theta(I,J,kSurface,bi,bj) ) |
|
./pkg/seaice/seaice_growth.F |
2310 |
SEAICE_GROWTH |
& ( temp_EvPrRn - theta(I,J,kSurface,bi,bj) ) |
|
./pkg/seaice/seaice_growth.F |
2336 |
SEAICE_GROWTH |
EmPmR(I,J,bi,bj) = maskC(I,J,kSurface,bi,bj)*( |
|
./pkg/seaice/seaice_growth.F |
2348 |
SEAICE_GROWTH |
& * maskC(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2351 |
SEAICE_GROWTH |
SIatmFW(I,J,bi,bj) = maskC(I,J,kSurface,bi,bj)*( |
|
./pkg/seaice/seaice_growth.F |
2367 |
SEAICE_GROWTH |
frWtrAtm(I,J,bi,bj) = maskC(I,J,kSurface,bi,bj)*( |
|
./pkg/seaice/seaice_growth.F |
2385 |
SEAICE_GROWTH |
frWtrAtm(I,J,bi,bj) = maskC(I,J,kSurface,bi,bj)*( |
|
./pkg/seaice/seaice_growth.F |
2449 |
SEAICE_GROWTH |
& HeatCapacity_Cp * theta(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2504 |
SEAICE_GROWTH |
DIAGarrayA(I,J) = maskC(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2515 |
SEAICE_GROWTH |
DIAGarrayB(I,J) = maskC(I,J,kSurface,bi,bj) * |
|
./pkg/seaice/seaice_growth.F |
2525 |
SEAICE_GROWTH |
DIAGarrayA(I,J) = maskC(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2529 |
SEAICE_GROWTH |
DIAGarrayC(I,J) = maskC(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2538 |
SEAICE_GROWTH |
DIAGarrayB(I,J) = -maskC(I,J,kSurface,bi,bj)*rhoConstFresh |
|
./pkg/seaice/seaice_growth.F |
2609 |
SEAICE_GROWTH |
& ( ZERO + HeatCapacity_Cp * theta(I,J,kSurface,bi,bj) ) |
|
./pkg/seaice/seaice_growth.F |
2612 |
SEAICE_GROWTH |
& HeatCapacity_Cp*(temp_EvPrRn - theta(I,J,kSurface,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
324 |
SEAICE_GROWTH |
kSurface = Nr |
|
./pkg/seaice/seaice_growth.F |
326 |
SEAICE_GROWTH |
kSurface = 1 |
|
./pkg/seaice/seaice_growth.F |
338 |
SEAICE_GROWTH |
heffTooHeavy=drF(kSurface) / 5. _d 0 |
|
./pkg/seaice/seaice_growth.F |
716 |
SEAICE_GROWTH |
TmixLoc(i,j) = theta(i,j,kSurface,bi,bj)+celsius2K |
|
./pkg/seaice/seaice_growth.F |
744 |
SEAICE_GROWTH |
& +0.5 _d 0*(uVel(i,j,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
745 |
SEAICE_GROWTH |
& +uVel(i+1,j,kSurface,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
748 |
SEAICE_GROWTH |
& +0.5 _d 0*(vVel(i,j,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
749 |
SEAICE_GROWTH |
& +vVel(i,j+1,kSurface,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
97 |
SEAICE_GROWTH |
INTEGER kSurface |
|
./pkg/seaice/seaice_init_fixed.F |
42 |
SEAICE_INIT_FIXED |
INTEGER kSurface |
|
./pkg/seaice/seaice_init_fixed.F |
55 |
SEAICE_INIT_FIXED |
kSurface = Nr |
|
./pkg/seaice/seaice_init_fixed.F |
57 |
SEAICE_INIT_FIXED |
kSurface = 1 |
|
./pkg/seaice/seaice_init_fixed.F |
92 |
SEAICE_INIT_FIXED |
& * drF(kSurface)/SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_init_fixed.F |
97 |
SEAICE_INIT_FIXED |
& drF(kSurface)/SEAICE_deltaTtherm ) |
|
./pkg/seaice/seaice_init_varia.F |
44 |
SEAICE_INIT_VARIA |
INTEGER kSurface |
|
./pkg/seaice/seaice_init_varia.F |
55 |
SEAICE_INIT_VARIA |
kSurface = Nr |
|
./pkg/seaice/seaice_init_varia.F |
57 |
SEAICE_INIT_VARIA |
kSurface = 1 |
|
./pkg/seaice/seaice_init_varia.F |
588 |
SEAICE_INIT_VARIA |
HSALT(i,j,bi,bj)=HEFF(i,j,bi,bj)*salt(i,j,kSurface,bi,bj)* |
|
./pkg/seaice/seaice_init_varia.F |
71 |
SEAICE_INIT_VARIA |
IF (_hFacC(i,j,kSurface,bi,bj).eq.0.) |
|
./pkg/seaice/seaice_solve4temp.F |
180 |
SEAICE_SOLVE4TEMP |
kSurface = Nr |
|
./pkg/seaice/seaice_solve4temp.F |
182 |
SEAICE_SOLVE4TEMP |
kSurface = 1 |
|
./pkg/seaice/seaice_solve4temp.F |
242 |
SEAICE_SOLVE4TEMP |
tempFrz(I,J) = SEAICE_dTempFrz_dS *salt(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
93 |
SEAICE_SOLVE4TEMP |
INTEGER kSurface |
|
./verification/rotating_tank/code/apply_forcing.F |
121 |
APPLY_FORCING_U |
IF ( k .EQ. kSurface ) THEN |
|
./verification/rotating_tank/code/apply_forcing.F |
131 |
APPLY_FORCING_U |
ELSEIF ( kSurface.EQ.-1 ) THEN |
|
./verification/rotating_tank/code/apply_forcing.F |
235 |
APPLY_FORCING_V |
INTEGER kSurface |
|
./verification/rotating_tank/code/apply_forcing.F |
260 |
APPLY_FORCING_V |
kSurface = 0 |
|
./verification/rotating_tank/code/apply_forcing.F |
262 |
APPLY_FORCING_V |
kSurface = Nr |
|
./verification/rotating_tank/code/apply_forcing.F |
264 |
APPLY_FORCING_V |
kSurface = 1 |
|
./verification/rotating_tank/code/apply_forcing.F |
290 |
APPLY_FORCING_V |
IF ( k .EQ. kSurface ) THEN |
|
./verification/rotating_tank/code/apply_forcing.F |
300 |
APPLY_FORCING_V |
ELSEIF ( kSurface.EQ.-1 ) THEN |
|
./verification/rotating_tank/code/apply_forcing.F |
404 |
APPLY_FORCING_T |
INTEGER kSurface |
|
./verification/rotating_tank/code/apply_forcing.F |
483 |
APPLY_FORCING_T |
kSurface = 0 |
|
./verification/rotating_tank/code/apply_forcing.F |
485 |
APPLY_FORCING_T |
kSurface = -1 |
|
./verification/rotating_tank/code/apply_forcing.F |
487 |
APPLY_FORCING_T |
kSurface = Nr |
|
./verification/rotating_tank/code/apply_forcing.F |
489 |
APPLY_FORCING_T |
kSurface = 1 |
|
./verification/rotating_tank/code/apply_forcing.F |
630 |
APPLY_FORCING_T |
IF ( k .EQ. kSurface ) THEN |
|
./verification/rotating_tank/code/apply_forcing.F |
638 |
APPLY_FORCING_T |
ELSEIF ( kSurface.EQ.-1 ) THEN |
|
./verification/rotating_tank/code/apply_forcing.F |
66 |
APPLY_FORCING_U |
INTEGER kSurface |
|
./verification/rotating_tank/code/apply_forcing.F |
879 |
APPLY_FORCING_S |
INTEGER kSurface |
|
./verification/rotating_tank/code/apply_forcing.F |
904 |
APPLY_FORCING_S |
kSurface = 0 |
|
./verification/rotating_tank/code/apply_forcing.F |
906 |
APPLY_FORCING_S |
kSurface = -1 |
|
./verification/rotating_tank/code/apply_forcing.F |
908 |
APPLY_FORCING_S |
kSurface = Nr |
|
./verification/rotating_tank/code/apply_forcing.F |
910 |
APPLY_FORCING_S |
kSurface = 1 |
|
./verification/rotating_tank/code/apply_forcing.F |
91 |
APPLY_FORCING_U |
kSurface = 0 |
|
./verification/rotating_tank/code/apply_forcing.F |
93 |
APPLY_FORCING_U |
kSurface = Nr |
|
./verification/rotating_tank/code/apply_forcing.F |
95 |
APPLY_FORCING_U |
kSurface = 1 |
|
./verification/rotating_tank/code/apply_forcing.F |
965 |
APPLY_FORCING_S |
IF ( k .EQ. kSurface ) THEN |
|
./verification/rotating_tank/code/apply_forcing.F |
973 |
APPLY_FORCING_S |
ELSEIF ( kSurface.EQ.-1 ) THEN |
|
./verification/tidal_basin_2d/code/external_forcing.F |
153 |
EXTERNAL_FORCING_V |
INTEGER kSurface |
|
./verification/tidal_basin_2d/code/external_forcing.F |
157 |
EXTERNAL_FORCING_V |
kSurface = 0 |
|
./verification/tidal_basin_2d/code/external_forcing.F |
159 |
EXTERNAL_FORCING_V |
kSurface = Nr |
|
./verification/tidal_basin_2d/code/external_forcing.F |
161 |
EXTERNAL_FORCING_V |
kSurface = 1 |
|
./verification/tidal_basin_2d/code/external_forcing.F |
167 |
EXTERNAL_FORCING_V |
IF ( kLev .EQ. kSurface ) THEN |
|
./verification/tidal_basin_2d/code/external_forcing.F |
226 |
EXTERNAL_FORCING_T |
INTEGER kSurface |
|
./verification/tidal_basin_2d/code/external_forcing.F |
238 |
EXTERNAL_FORCING_T |
kSurface = 0 |
|
./verification/tidal_basin_2d/code/external_forcing.F |
240 |
EXTERNAL_FORCING_T |
kSurface = Nr |
|
./verification/tidal_basin_2d/code/external_forcing.F |
242 |
EXTERNAL_FORCING_T |
kSurface = 1 |
|
./verification/tidal_basin_2d/code/external_forcing.F |
249 |
EXTERNAL_FORCING_T |
IF ( kLev .EQ. kSurface ) THEN |
|
./verification/tidal_basin_2d/code/external_forcing.F |
333 |
EXTERNAL_FORCING_S |
INTEGER kSurface |
|
./verification/tidal_basin_2d/code/external_forcing.F |
337 |
EXTERNAL_FORCING_S |
kSurface = 0 |
|
./verification/tidal_basin_2d/code/external_forcing.F |
339 |
EXTERNAL_FORCING_S |
kSurface = Nr |
|
./verification/tidal_basin_2d/code/external_forcing.F |
341 |
EXTERNAL_FORCING_S |
kSurface = 1 |
|
./verification/tidal_basin_2d/code/external_forcing.F |
347 |
EXTERNAL_FORCING_S |
IF ( kLev .EQ. kSurface ) THEN |
|
./verification/tidal_basin_2d/code/external_forcing.F |
50 |
EXTERNAL_FORCING_U |
INTEGER kSurface |
|
./verification/tidal_basin_2d/code/external_forcing.F |
56 |
EXTERNAL_FORCING_U |
kSurface = 0 |
|
./verification/tidal_basin_2d/code/external_forcing.F |
58 |
EXTERNAL_FORCING_U |
kSurface = Nr |
|
./verification/tidal_basin_2d/code/external_forcing.F |
60 |
EXTERNAL_FORCING_U |
kSurface = 1 |
|
./verification/tidal_basin_2d/code/external_forcing.F |
66 |
EXTERNAL_FORCING_U |
IF ( kLev .EQ. kSurface ) THEN |
|
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F |
54 |
PTRACERS_APPLY_FORCING |
INTEGER kSurface |
|
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F |
58 |
PTRACERS_APPLY_FORCING |
kSurface = Nr |
|
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F |
60 |
PTRACERS_APPLY_FORCING |
kSurface = 1 |
|
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F |
76 |
PTRACERS_APPLY_FORCING |
IF ( k .EQ. kSurface ) THEN |