| 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 |
142 |
APPLY_FORCING_U |
IF ( k .EQ. kSurface ) THEN |
|
./model/src/apply_forcing.F |
152 |
APPLY_FORCING_U |
ELSEIF ( kSurface.EQ.-1 ) THEN |
|
./model/src/apply_forcing.F |
256 |
APPLY_FORCING_V |
INTEGER kSurface |
|
./model/src/apply_forcing.F |
290 |
APPLY_FORCING_V |
kSurface = 0 |
|
./model/src/apply_forcing.F |
292 |
APPLY_FORCING_V |
kSurface = Nr |
|
./model/src/apply_forcing.F |
294 |
APPLY_FORCING_V |
kSurface = 1 |
|
./model/src/apply_forcing.F |
332 |
APPLY_FORCING_V |
IF ( k .EQ. kSurface ) THEN |
|
./model/src/apply_forcing.F |
342 |
APPLY_FORCING_V |
ELSEIF ( kSurface.EQ.-1 ) THEN |
|
./model/src/apply_forcing.F |
443 |
APPLY_FORCING_T |
INTEGER kSurface |
|
./model/src/apply_forcing.F |
476 |
APPLY_FORCING_T |
kSurface = 0 |
|
./model/src/apply_forcing.F |
478 |
APPLY_FORCING_T |
kSurface = -1 |
|
./model/src/apply_forcing.F |
480 |
APPLY_FORCING_T |
kSurface = Nr |
|
./model/src/apply_forcing.F |
482 |
APPLY_FORCING_T |
kSurface = 1 |
|
./model/src/apply_forcing.F |
627 |
APPLY_FORCING_T |
IF ( k .EQ. kSurface ) THEN |
|
./model/src/apply_forcing.F |
635 |
APPLY_FORCING_T |
ELSEIF ( kSurface.EQ.-1 ) THEN |
|
./model/src/apply_forcing.F |
66 |
APPLY_FORCING_U |
INTEGER kSurface |
|
./model/src/apply_forcing.F |
819 |
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 |
908 |
APPLY_FORCING_S |
IF ( k .EQ. kSurface ) THEN |
|
./model/src/apply_forcing.F |
916 |
APPLY_FORCING_S |
ELSEIF ( kSurface.EQ.-1 ) THEN |
|
./pkg/ptracers/ptracers_apply_forcing.F |
57 |
PTRACERS_APPLY_FORCING |
INTEGER kSurface |
|
./pkg/ptracers/ptracers_apply_forcing.F |
61 |
PTRACERS_APPLY_FORCING |
kSurface = 0 |
|
./pkg/ptracers/ptracers_apply_forcing.F |
63 |
PTRACERS_APPLY_FORCING |
kSurface = -1 |
|
./pkg/ptracers/ptracers_apply_forcing.F |
65 |
PTRACERS_APPLY_FORCING |
kSurface = Nr |
|
./pkg/ptracers/ptracers_apply_forcing.F |
67 |
PTRACERS_APPLY_FORCING |
kSurface = 1 |
|
./pkg/ptracers/ptracers_apply_forcing.F |
83 |
PTRACERS_APPLY_FORCING |
IF ( k .EQ. kSurface ) THEN |
|
./pkg/ptracers/ptracers_apply_forcing.F |
93 |
PTRACERS_APPLY_FORCING |
ELSEIF ( kSurface.EQ.-1 ) 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 |
499 |
EXTERNAL_FORCING_T |
IF ( kLev .EQ. kSurface ) THEN |
|
./model/src/external_forcing.F |
507 |
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 |
672 |
EXTERNAL_FORCING_S |
INTEGER kSurface |
|
./model/src/external_forcing.F |
676 |
EXTERNAL_FORCING_S |
kSurface = 0 |
|
./model/src/external_forcing.F |
678 |
EXTERNAL_FORCING_S |
kSurface = -1 |
|
./model/src/external_forcing.F |
67 |
EXTERNAL_FORCING_U |
kSurface = 1 |
|
./model/src/external_forcing.F |
680 |
EXTERNAL_FORCING_S |
kSurface = Nr |
|
./model/src/external_forcing.F |
682 |
EXTERNAL_FORCING_S |
kSurface = 1 |
|
./model/src/external_forcing.F |
737 |
EXTERNAL_FORCING_S |
IF ( kLev .EQ. kSurface ) THEN |
|
./model/src/external_forcing.F |
745 |
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 |
122 |
SEAICE_CHECK |
SEAICE_mcphee_max=drF(kSurface)/SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_check.F |
60 |
SEAICE_CHECK |
INTEGER kSurface |
|
./pkg/seaice/seaice_check.F |
67 |
SEAICE_CHECK |
kSurface = Nr |
|
./pkg/seaice/seaice_check.F |
69 |
SEAICE_CHECK |
kSurface = 1 |
|
./pkg/seaice/seaice_growth.F |
100 |
SEAICE_GROWTH |
INTEGER kSurface |
|
./pkg/seaice/seaice_growth.F |
1040 |
SEAICE_GROWTH |
& SEAICE_dTempFrz_dS *salt(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1042 |
SEAICE_GROWTH |
IF ( theta(I,J,kSurface,bi,bj) .GE. tempFrz ) THEN |
|
./pkg/seaice/seaice_growth.F |
1045 |
SEAICE_GROWTH |
tmpscal1 =SEAICE_frazilFrac*drF(kSurface)/SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_growth.F |
1060 |
SEAICE_GROWTH |
& * (theta(I,J,kSurface,bi,bj)-tempFrz) |
|
./pkg/seaice/seaice_growth.F |
1061 |
SEAICE_GROWTH |
& * SEAICE_deltaTtherm * maskC(i,j,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1078 |
SEAICE_GROWTH |
& SEAICE_dTempFrz_dS *salt(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1079 |
SEAICE_GROWTH |
tmpscal1=(theta(I,J,kSurface,bi,bj)-tempFrz) |
|
./pkg/seaice/seaice_growth.F |
1162 |
SEAICE_GROWTH |
& 0.5 _d 0*(uVel(i,j,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1163 |
SEAICE_GROWTH |
& +uVel(i+1,j,kSurface,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1167 |
SEAICE_GROWTH |
& 0.5 _d 0*(vVel(i,j,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1168 |
SEAICE_GROWTH |
& +vVel(i,j+1,kSurface,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1997 |
SEAICE_GROWTH |
& min(SEAICE_salt0,salt(I,J,kSurface,bi,bj)) ) |
|
./pkg/seaice/seaice_growth.F |
2030 |
SEAICE_GROWTH |
tmpscal3 = tmpscal1*salt(I,J,kSurface,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2061 |
SEAICE_GROWTH |
& *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 |
2119 |
SEAICE_GROWTH |
& *(ONE-SEAICE_saltFrac)*salt(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2213 |
SEAICE_GROWTH |
& ) * maskC(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2262 |
SEAICE_GROWTH |
tmpscal3=rhoConstFresh*maskC(I,J,kSurface,bi,bj)*( |
|
./pkg/seaice/seaice_growth.F |
2277 |
SEAICE_GROWTH |
& HeatCapacity_Cp * theta(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2280 |
SEAICE_GROWTH |
& ( temp_EvPrRn - theta(I,J,kSurface,bi,bj) ) |
|
./pkg/seaice/seaice_growth.F |
2315 |
SEAICE_GROWTH |
& maskC(I,J,kSurface,bi,bj)*convertHI2Q*( |
|
./pkg/seaice/seaice_growth.F |
2321 |
SEAICE_GROWTH |
tmpscal1 = rhoConstFresh*maskC(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2325 |
SEAICE_GROWTH |
tmpscal2=rhoConstFresh*maskC(I,J,kSurface,bi,bj)* |
|
./pkg/seaice/seaice_growth.F |
2345 |
SEAICE_GROWTH |
& ( ZERO + HeatCapacity_Cp * theta(I,J,kSurface,bi,bj) ) |
|
./pkg/seaice/seaice_growth.F |
2348 |
SEAICE_GROWTH |
& ( temp_EvPrRn - theta(I,J,kSurface,bi,bj) ) |
|
./pkg/seaice/seaice_growth.F |
2374 |
SEAICE_GROWTH |
EmPmR(I,J,bi,bj) = maskC(I,J,kSurface,bi,bj)*( |
|
./pkg/seaice/seaice_growth.F |
2386 |
SEAICE_GROWTH |
& * maskC(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2389 |
SEAICE_GROWTH |
SIatmFW(I,J,bi,bj) = maskC(I,J,kSurface,bi,bj)*( |
|
./pkg/seaice/seaice_growth.F |
2405 |
SEAICE_GROWTH |
frWtrAtm(I,J,bi,bj) = maskC(I,J,kSurface,bi,bj)*( |
|
./pkg/seaice/seaice_growth.F |
2423 |
SEAICE_GROWTH |
frWtrAtm(I,J,bi,bj) = maskC(I,J,kSurface,bi,bj)*( |
|
./pkg/seaice/seaice_growth.F |
2489 |
SEAICE_GROWTH |
& HeatCapacity_Cp * theta(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2544 |
SEAICE_GROWTH |
DIAGarrayA(I,J) = maskC(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2555 |
SEAICE_GROWTH |
DIAGarrayB(I,J) = maskC(I,J,kSurface,bi,bj) * |
|
./pkg/seaice/seaice_growth.F |
2565 |
SEAICE_GROWTH |
DIAGarrayA(I,J) = maskC(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2569 |
SEAICE_GROWTH |
DIAGarrayC(I,J) = maskC(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2578 |
SEAICE_GROWTH |
DIAGarrayB(I,J) = -maskC(I,J,kSurface,bi,bj)*rhoConstFresh |
|
./pkg/seaice/seaice_growth.F |
2649 |
SEAICE_GROWTH |
& ( ZERO + HeatCapacity_Cp * theta(I,J,kSurface,bi,bj) ) |
|
./pkg/seaice/seaice_growth.F |
2652 |
SEAICE_GROWTH |
& HeatCapacity_Cp*(temp_EvPrRn - theta(I,J,kSurface,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
329 |
SEAICE_GROWTH |
kSurface = Nr |
|
./pkg/seaice/seaice_growth.F |
331 |
SEAICE_GROWTH |
kSurface = 1 |
|
./pkg/seaice/seaice_growth.F |
343 |
SEAICE_GROWTH |
heffTooHeavy=drF(kSurface) / 5. _d 0 |
|
./pkg/seaice/seaice_growth.F |
734 |
SEAICE_GROWTH |
TmixLoc(i,j) = theta(i,j,kSurface,bi,bj)+celsius2K |
|
./pkg/seaice/seaice_growth.F |
762 |
SEAICE_GROWTH |
& +0.5 _d 0*(uVel(i,j,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
763 |
SEAICE_GROWTH |
& +uVel(i+1,j,kSurface,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
766 |
SEAICE_GROWTH |
& +0.5 _d 0*(vVel(i,j,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
767 |
SEAICE_GROWTH |
& +vVel(i,j+1,kSurface,bi,bj)) |
|
./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 |
43 |
SEAICE_INIT_VARIA |
INTEGER kSurface |
|
./pkg/seaice/seaice_init_varia.F |
57 |
SEAICE_INIT_VARIA |
kSurface = Nr |
|
./pkg/seaice/seaice_init_varia.F |
593 |
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 |
59 |
SEAICE_INIT_VARIA |
kSurface = 1 |
|
./pkg/seaice/seaice_init_varia.F |
73 |
SEAICE_INIT_VARIA |
IF (_hFacC(i,j,kSurface,bi,bj).eq.0.) |
|
./pkg/seaice/seaice_solve4temp.F |
183 |
SEAICE_SOLVE4TEMP |
kSurface = Nr |
|
./pkg/seaice/seaice_solve4temp.F |
185 |
SEAICE_SOLVE4TEMP |
kSurface = 1 |
|
./pkg/seaice/seaice_solve4temp.F |
245 |
SEAICE_SOLVE4TEMP |
tempFrz(I,J) = SEAICE_dTempFrz_dS *salt(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
96 |
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 |
57 |
PTRACERS_APPLY_FORCING |
INTEGER kSurface |
|
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F |
61 |
PTRACERS_APPLY_FORCING |
kSurface = Nr |
|
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F |
63 |
PTRACERS_APPLY_FORCING |
kSurface = 1 |
|
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F |
79 |
PTRACERS_APPLY_FORCING |
IF ( k .EQ. kSurface ) THEN |
|
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F |
98 |
PTRACERS_APPLY_FORCING |
IF (k .EQ. kSurface) THEN |