File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_diagalarms.F |
29 |
FIZHI_DIAGALARMS |
integer myThid |
./pkg/fizhi/fizhi_diagalarms.F |
5 |
FIZHI_DIAGALARMS |
subroutine FIZHI_DIAGALARMS (myThid) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1005 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1012 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1020 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1027 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1034 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1042 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1049 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1057 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
105 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1064 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1071 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1078 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1085 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1092 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1100 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1107 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1115 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1122 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
112 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1130 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1137 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1145 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1152 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1160 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1168 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1175 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1182 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1190 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1198 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
119 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1206 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1213 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1220 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1227 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1234 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1241 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1249 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1257 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1264 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
126 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1271 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1279 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1287 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1295 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1302 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1309 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1317 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1325 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1333 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
133 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1341 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1349 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1357 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1364 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1371 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1379 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1386 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1393 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1400 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1407 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1414 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
141 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1422 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1430 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1438 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1445 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1453 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1461 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1469 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1477 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1484 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1491 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1498 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
149 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1506 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1514 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1522 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1530 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1538 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1546 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1554 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1562 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1571 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
157 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1580 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1588 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1597 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1606 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1615 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1624 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1633 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1642 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1649 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1656 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
165 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1665 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1674 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1682 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1690 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1699 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1708 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1716 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1724 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1733 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
173 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1742 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1750 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
1758 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
181 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
189 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
197 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
205 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
213 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
220 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
227 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
235 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
243 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
250 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
257 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
264 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
271 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
278 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
27 |
FIZHI_DIAGNOSTICS_INIT |
INTEGER myThid |
./pkg/fizhi/fizhi_diagnostics_init.F |
285 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
292 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
299 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
306 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
313 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
320 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
327 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
334 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
341 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
348 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
355 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
362 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
369 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
377 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
384 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
391 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
398 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
406 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
413 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
422 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
429 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
436 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
443 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
450 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
458 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
466 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
473 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
481 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
488 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
496 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
504 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
511 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
518 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
525 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
533 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
541 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
548 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
54 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
555 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
562 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
569 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
576 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
583 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
590 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
597 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
605 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
613 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
61 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
620 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
627 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
635 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
642 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
649 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
656 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
664 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
671 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
680 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
689 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
697 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
69 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
705 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
714 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
723 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
732 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
741 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
749 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
757 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
765 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
774 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
77 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
782 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
790 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
798 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
806 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
814 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
821 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
828 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
836 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
844 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
84 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
851 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
858 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
866 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
874 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
881 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
888 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
895 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
902 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
909 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
916 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
91 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
923 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
930 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
938 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
945 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
953 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
960 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
968 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
975 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
982 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
98 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
990 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
997 |
FIZHI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/fizhi/fizhi_diagnostics_init.F |
9 |
FIZHI_DIAGNOSTICS_INIT |
SUBROUTINE FIZHI_DIAGNOSTICS_INIT( myThid ) |
./pkg/fizhi/fizhi_init_chem.F |
32 |
FIZHI_INIT_CHEM |
call MDSFINDUNIT( kqz, myThid ) |
./pkg/fizhi/fizhi_init_chem.F |
33 |
FIZHI_INIT_CHEM |
call MDSFINDUNIT( koz, myThid ) |
./pkg/fizhi/fizhi_init_fixed.F |
109 |
FIZHI_INIT_FIXED |
do bj = myByLo(myThid), myByHi(myThid) |
./pkg/fizhi/fizhi_init_fixed.F |
110 |
FIZHI_INIT_FIXED |
do bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/fizhi/fizhi_init_fixed.F |
153 |
FIZHI_INIT_FIXED |
do bj = myByLo(myThid), myByHi(myThid) |
./pkg/fizhi/fizhi_init_fixed.F |
154 |
FIZHI_INIT_FIXED |
do bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/fizhi/fizhi_init_fixed.F |
170 |
FIZHI_INIT_FIXED |
call MDSFINDUNIT( kice, myThid ) |
./pkg/fizhi/fizhi_init_fixed.F |
172 |
FIZHI_INIT_FIXED |
call MDSFINDUNIT( ksst, myThid ) |
./pkg/fizhi/fizhi_init_fixed.F |
42 |
FIZHI_INIT_FIXED |
integer myThid |
./pkg/fizhi/fizhi_init_fixed.F |
5 |
FIZHI_INIT_FIXED |
subroutine FIZHI_INIT_FIXED (myThid) |
./pkg/fizhi/fizhi_init_fixed.F |
73 |
FIZHI_INIT_FIXED |
call FIZHI_MNC_INIT(myThid) |
./pkg/fizhi/fizhi_init_fixed.F |
79 |
FIZHI_INIT_FIXED |
call FIZHI_DIAGNOSTICS_INIT( myThid ) |
./pkg/fizhi/fizhi_init_fixed.F |
85 |
FIZHI_INIT_FIXED |
do bj = myByLo(myThid), myByHi(myThid) |
./pkg/fizhi/fizhi_init_fixed.F |
86 |
FIZHI_INIT_FIXED |
do bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/fizhi/fizhi_init_vars.F |
155 |
FIZHI_INIT_VARS |
call CTOA(myThid,uvel,vvel,maskW,maskS,im1,im2,jm1,jm2,Nr, |
./pkg/fizhi/fizhi_init_vars.F |
158 |
FIZHI_INIT_VARS |
do bj = myByLo(myThid), myByHi(myThid) |
./pkg/fizhi/fizhi_init_vars.F |
159 |
FIZHI_INIT_VARS |
do bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/fizhi/fizhi_init_vars.F |
248 |
FIZHI_INIT_VARS |
& nymd,nhms, 'D', myThid ) |
./pkg/fizhi/fizhi_init_vars.F |
293 |
FIZHI_INIT_VARS |
call FIZHI_READ_PICKUP( nIter0, myThid ) |
./pkg/fizhi/fizhi_init_vars.F |
294 |
FIZHI_INIT_VARS |
CALL FIZHI_READ_VEGTILES( nIter0, 'D', myThid ) |
./pkg/fizhi/fizhi_init_vars.F |
42 |
FIZHI_INIT_VARS |
integer myThid |
./pkg/fizhi/fizhi_init_vars.F |
5 |
FIZHI_INIT_VARS |
subroutine FIZHI_INIT_VARS (myThid) |
./pkg/fizhi/fizhi_init_vars.F |
96 |
FIZHI_INIT_VARS |
do bj = myByLo(myThid), myByHi(myThid) |
./pkg/fizhi/fizhi_init_vars.F |
97 |
FIZHI_INIT_VARS |
do bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/fizhi/fizhi_init_veg.F |
112 |
FIZHI_INIT_VEG |
DO BJ = myByLo(myThid), myByHi(myThid) |
./pkg/fizhi/fizhi_init_veg.F |
113 |
FIZHI_INIT_VEG |
DO BI = myBxLo(myThid), myBxHi(myThid) |
./pkg/fizhi/fizhi_init_veg.F |
142 |
FIZHI_INIT_VEG |
DO BJ = myByLo(myThid), myByHi(myThid) |
./pkg/fizhi/fizhi_init_veg.F |
143 |
FIZHI_INIT_VEG |
DO BI = myBxLo(myThid), myBxHi(myThid) |
./pkg/fizhi/fizhi_init_veg.F |
74 |
FIZHI_INIT_VEG |
call MDSFINDUNIT( kveg, myThid ) |
./pkg/fizhi/fizhi_init_veg.F |
95 |
FIZHI_INIT_VEG |
IF (myThid.eq.1) THEN |
./pkg/fizhi/fizhi_init_vegsurftiles.F |
10 |
FIZHI_INIT_VEGSURFTILES |
& nymd,nhms,prec,myThid) |
./pkg/fizhi/fizhi_init_vegsurftiles.F |
37 |
FIZHI_INIT_VEGSURFTILES |
INTEGER myThid |
./pkg/fizhi/fizhi_init_vegsurftiles.F |
71 |
FIZHI_INIT_VEGSURFTILES |
_BEGIN_MASTER( myThid ) |
./pkg/fizhi/fizhi_init_vegsurftiles.F |
76 |
FIZHI_INIT_VEGSURFTILES |
_END_MASTER( myThid ) |
./pkg/fizhi/fizhi_init_vegsurftiles.F |
83 |
FIZHI_INIT_VEGSURFTILES |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/fizhi/fizhi_init_vegsurftiles.F |
84 |
FIZHI_INIT_VEGSURFTILES |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/fizhi/fizhi_mnc_init.F |
11 |
FIZHI_MNC_INIT |
SUBROUTINE FIZHI_MNC_INIT( myThid ) |
./pkg/fizhi/fizhi_mnc_init.F |
201 |
FIZHI_MNC_INIT |
& dim, dn, ib, ie, myThid) |
./pkg/fizhi/fizhi_mnc_init.F |
229 |
FIZHI_MNC_INIT |
CALL MNC_CW_ADD_GNAME('fizhi_veg', ndim, dim, dn,ib,ie, myThid) |
./pkg/fizhi/fizhi_mnc_init.F |
230 |
FIZHI_MNC_INIT |
CALL MNC_CW_ADD_VNAME('surftype', 'fizhi_veg', 4,5, myThid) |
./pkg/fizhi/fizhi_mnc_init.F |
231 |
FIZHI_MNC_INIT |
CALL MNC_CW_ADD_VNAME('tilefrac', 'fizhi_veg', 4,5, myThid) |
./pkg/fizhi/fizhi_mnc_init.F |
234 |
FIZHI_MNC_INIT |
CALL MNC_CW_ADD_VNAME('uphy', 'U_xy_Hn__Zph__-' ,4,5,myThid) |
./pkg/fizhi/fizhi_mnc_init.F |
235 |
FIZHI_MNC_INIT |
CALL MNC_CW_ADD_VNAME('vphy', 'V_xy_Hn__Zph__-' ,4,5,myThid) |
./pkg/fizhi/fizhi_mnc_init.F |
236 |
FIZHI_MNC_INIT |
CALL MNC_CW_ADD_VNAME('thphy','Cen_xy_Hn__Zph__-',4,5,myThid) |
./pkg/fizhi/fizhi_mnc_init.F |
237 |
FIZHI_MNC_INIT |
CALL MNC_CW_ADD_VNAME('sphy', 'Cen_xy_Hn__Zph__-',4,5,myThid) |
./pkg/fizhi/fizhi_mnc_init.F |
246 |
FIZHI_MNC_INIT |
CALL MNC_CW_ADD_GNAME('fizhi_chip', ndim, dim, dn,ib,ie, myThid) |
./pkg/fizhi/fizhi_mnc_init.F |
247 |
FIZHI_MNC_INIT |
CALL MNC_CW_ADD_VNAME('ctmt', 'fizhi_chip', 2,3, myThid) |
./pkg/fizhi/fizhi_mnc_init.F |
248 |
FIZHI_MNC_INIT |
CALL MNC_CW_ADD_VNAME('xxmt', 'fizhi_chip', 2,3, myThid) |
./pkg/fizhi/fizhi_mnc_init.F |
249 |
FIZHI_MNC_INIT |
CALL MNC_CW_ADD_VNAME('yymt', 'fizhi_chip', 2,3, myThid) |
./pkg/fizhi/fizhi_mnc_init.F |
250 |
FIZHI_MNC_INIT |
CALL MNC_CW_ADD_VNAME('zetamt', 'fizhi_chip', 2,3, myThid) |
./pkg/fizhi/fizhi_mnc_init.F |
251 |
FIZHI_MNC_INIT |
CALL MNC_CW_ADD_VNAME('tcanopy', 'fizhi_chip', 2,3, myThid) |
./pkg/fizhi/fizhi_mnc_init.F |
252 |
FIZHI_MNC_INIT |
CALL MNC_CW_ADD_VNAME('tdeep', 'fizhi_chip', 2,3, myThid) |
./pkg/fizhi/fizhi_mnc_init.F |
253 |
FIZHI_MNC_INIT |
CALL MNC_CW_ADD_VNAME('ecanopy', 'fizhi_chip', 2,3, myThid) |
./pkg/fizhi/fizhi_mnc_init.F |
254 |
FIZHI_MNC_INIT |
CALL MNC_CW_ADD_VNAME('swetshal', 'fizhi_chip', 2,3, myThid) |
./pkg/fizhi/fizhi_mnc_init.F |
255 |
FIZHI_MNC_INIT |
CALL MNC_CW_ADD_VNAME('swetroot', 'fizhi_chip', 2,3, myThid) |
./pkg/fizhi/fizhi_mnc_init.F |
256 |
FIZHI_MNC_INIT |
CALL MNC_CW_ADD_VNAME('swetdeep', 'fizhi_chip', 2,3, myThid) |
./pkg/fizhi/fizhi_mnc_init.F |
257 |
FIZHI_MNC_INIT |
CALL MNC_CW_ADD_VNAME('snodep', 'fizhi_chip', 2,3, myThid) |
./pkg/fizhi/fizhi_mnc_init.F |
258 |
FIZHI_MNC_INIT |
CALL MNC_CW_ADD_VNAME('capac', 'fizhi_chip', 2,3, myThid) |
./pkg/fizhi/fizhi_mnc_init.F |
259 |
FIZHI_MNC_INIT |
CALL MNC_CW_ADD_VNAME('chlt', 'fizhi_chip', 2,3, myThid) |
./pkg/fizhi/fizhi_mnc_init.F |
260 |
FIZHI_MNC_INIT |
CALL MNC_CW_ADD_VNAME('chlon', 'fizhi_chip', 2,3, myThid) |
./pkg/fizhi/fizhi_mnc_init.F |
261 |
FIZHI_MNC_INIT |
CALL MNC_CW_ADD_VNAME('igrd', 'fizhi_chip', 2,3, myThid) |
./pkg/fizhi/fizhi_mnc_init.F |
262 |
FIZHI_MNC_INIT |
CALL MNC_CW_ADD_VNAME('ityp', 'fizhi_chip', 2,3, myThid) |
./pkg/fizhi/fizhi_mnc_init.F |
263 |
FIZHI_MNC_INIT |
CALL MNC_CW_ADD_VNAME('chfr', 'fizhi_chip', 2,3, myThid) |
./pkg/fizhi/fizhi_mnc_init.F |
275 |
FIZHI_MNC_INIT |
CALL MNC_CW_ADD_GNAME('fizhi_chiplev',ndim,dim,dn,ib,ie,myThid) |
./pkg/fizhi/fizhi_mnc_init.F |
276 |
FIZHI_MNC_INIT |
CALL MNC_CW_ADD_VNAME('xlmt', 'fizhi_chiplev', 3,4, myThid) |
./pkg/fizhi/fizhi_mnc_init.F |
277 |
FIZHI_MNC_INIT |
CALL MNC_CW_ADD_VNAME('khmt', 'fizhi_chiplev', 3,4, myThid) |
./pkg/fizhi/fizhi_mnc_init.F |
278 |
FIZHI_MNC_INIT |
CALL MNC_CW_ADD_VNAME('tke', 'fizhi_chiplev', 3,4, myThid) |
./pkg/fizhi/fizhi_mnc_init.F |
30 |
FIZHI_MNC_INIT |
integer myThid |
./pkg/fizhi/fizhi_read_pickup.F |
100 |
FIZHI_READ_PICKUP |
_BEGIN_MASTER(myThid) |
./pkg/fizhi/fizhi_read_pickup.F |
104 |
FIZHI_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'uphy',uphy,myThid) |
./pkg/fizhi/fizhi_read_pickup.F |
105 |
FIZHI_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'vphy',vphy,myThid) |
./pkg/fizhi/fizhi_read_pickup.F |
106 |
FIZHI_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'thphy',thphy,myThid) |
./pkg/fizhi/fizhi_read_pickup.F |
107 |
FIZHI_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'sphy',sphy,myThid) |
./pkg/fizhi/fizhi_read_pickup.F |
108 |
FIZHI_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'sphy',sphy,myThid) |
./pkg/fizhi/fizhi_read_pickup.F |
111 |
FIZHI_READ_PICKUP |
_END_MASTER(myThid) |
./pkg/fizhi/fizhi_read_pickup.F |
36 |
FIZHI_READ_PICKUP |
INTEGER myThid |
./pkg/fizhi/fizhi_read_pickup.F |
56 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,uphy, 1,myIter,myThid ) |
./pkg/fizhi/fizhi_read_pickup.F |
57 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,vphy, 2,myIter,myThid ) |
./pkg/fizhi/fizhi_read_pickup.F |
58 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,thphy, 3,myIter,myThid ) |
./pkg/fizhi/fizhi_read_pickup.F |
59 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,sphy, 4,myIter,myThid ) |
./pkg/fizhi/fizhi_read_pickup.F |
60 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,cldtot_lw, 5,myIter,myThid ) |
./pkg/fizhi/fizhi_read_pickup.F |
61 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,cldras_lw, 6,myIter,myThid ) |
./pkg/fizhi/fizhi_read_pickup.F |
62 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,cldlsp_lw, 7,myIter,myThid ) |
./pkg/fizhi/fizhi_read_pickup.F |
63 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,lwlz, 8,myIter,myThid ) |
./pkg/fizhi/fizhi_read_pickup.F |
64 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,cldtot_sw, 9,myIter,myThid ) |
./pkg/fizhi/fizhi_read_pickup.F |
65 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,cldras_sw,10,myIter,myThid ) |
./pkg/fizhi/fizhi_read_pickup.F |
66 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,cldlsp_sw,11,myIter,myThid ) |
./pkg/fizhi/fizhi_read_pickup.F |
67 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,swlz, 12,myIter,myThid ) |
./pkg/fizhi/fizhi_read_pickup.F |
68 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,qliqavelw,13,myIter,myThid ) |
./pkg/fizhi/fizhi_read_pickup.F |
69 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,qliqavesw,14,myIter,myThid ) |
./pkg/fizhi/fizhi_read_pickup.F |
70 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,fccavelw, 15,myIter,myThid ) |
./pkg/fizhi/fizhi_read_pickup.F |
71 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,fccavesw, 16,myIter,myThid ) |
./pkg/fizhi/fizhi_read_pickup.F |
72 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,temp, 17,myIter,myThid ) |
./pkg/fizhi/fizhi_read_pickup.F |
74 |
FIZHI_READ_PICKUP |
do bj = 1,myByLo(myThid), myByHi(myThid) |
./pkg/fizhi/fizhi_read_pickup.F |
75 |
FIZHI_READ_PICKUP |
do bi = 1,myBxLo(myThid), myBxHi(myThid) |
./pkg/fizhi/fizhi_read_pickup.F |
9 |
FIZHI_READ_PICKUP |
SUBROUTINE FIZHI_READ_PICKUP( myIter, myThid ) |
./pkg/fizhi/fizhi_readparms.F |
103 |
FIZHI_READPARMS |
_BEGIN_MASTER(myThid) |
./pkg/fizhi/fizhi_readparms.F |
106 |
FIZHI_READPARMS |
_END_MASTER(myThid) |
./pkg/fizhi/fizhi_readparms.F |
11 |
FIZHI_READPARMS |
SUBROUTINE FIZHI_READPARMS( myThid ) |
./pkg/fizhi/fizhi_readparms.F |
27 |
FIZHI_READPARMS |
integer myThid |
./pkg/fizhi/fizhi_readparms.F |
60 |
FIZHI_READPARMS |
& ku,myThid ) |
./pkg/fizhi/fizhi_readparms.F |
65 |
FIZHI_READPARMS |
CALL MDSFINDUNIT( ku2, myThid ) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
101 |
FIZHI_WRITE_VEGTILES |
CALL MNC_CW_I_W('I',bnam,0,0,'ityp', ityp, myThid) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
102 |
FIZHI_WRITE_VEGTILES |
CALL MNC_CW_RL_W(prec,bnam,0,0,'chfr', chfr, myThid) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
111 |
FIZHI_WRITE_VEGTILES |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
112 |
FIZHI_WRITE_VEGTILES |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
283 |
FIZHI_READ_VEGTILES |
SUBROUTINE FIZHI_READ_VEGTILES(Iter,prec,myThid) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
312 |
FIZHI_READ_VEGTILES |
INTEGER myThid |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
338 |
FIZHI_READ_VEGTILES |
CALL MNC_FILE_CLOSE_ALL_MATCHING(bnam, myThid) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
339 |
FIZHI_READ_VEGTILES |
CALL MNC_CW_SET_UDIM(bnam, 1, myThid) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
342 |
FIZHI_READ_VEGTILES |
CALL MNC_CW_RL_R(prec,bnam,0,0,'ctmt', ctmt, myThid) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
343 |
FIZHI_READ_VEGTILES |
CALL MNC_CW_RL_R(prec,bnam,0,0,'xxmt', xxmt, myThid) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
344 |
FIZHI_READ_VEGTILES |
CALL MNC_CW_RL_R(prec,bnam,0,0,'yymt', yymt, myThid) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
345 |
FIZHI_READ_VEGTILES |
CALL MNC_CW_RL_R(prec,bnam,0,0,'zetamt', zetamt, myThid) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
346 |
FIZHI_READ_VEGTILES |
CALL MNC_CW_RL_R(prec,bnam,0,0,'xlmt', xlmt, myThid) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
347 |
FIZHI_READ_VEGTILES |
CALL MNC_CW_RL_R(prec,bnam,0,0,'khmt', khmt, myThid) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
348 |
FIZHI_READ_VEGTILES |
CALL MNC_CW_RL_R(prec,bnam,0,0,'tke', tke, myThid) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
351 |
FIZHI_READ_VEGTILES |
CALL MNC_CW_RL_R(prec,bnam,0,0,'tcanopy', tcanopy, myThid) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
352 |
FIZHI_READ_VEGTILES |
CALL MNC_CW_RL_R(prec,bnam,0,0,'tdeep', tdeep, myThid) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
353 |
FIZHI_READ_VEGTILES |
CALL MNC_CW_RL_R(prec,bnam,0,0,'ecanopy', ecanopy, myThid) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
354 |
FIZHI_READ_VEGTILES |
CALL MNC_CW_RL_R(prec,bnam,0,0,'swetshal', swetshal, myThid) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
355 |
FIZHI_READ_VEGTILES |
CALL MNC_CW_RL_R(prec,bnam,0,0,'swetroot', swetroot, myThid) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
356 |
FIZHI_READ_VEGTILES |
CALL MNC_CW_RL_R(prec,bnam,0,0,'swetdeep', swetdeep, myThid) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
357 |
FIZHI_READ_VEGTILES |
CALL MNC_CW_RL_R(prec,bnam,0,0,'snodep', snodep, myThid) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
358 |
FIZHI_READ_VEGTILES |
CALL MNC_CW_RL_R(prec,bnam,0,0,'capac', capac, myThid) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
366 |
FIZHI_READ_VEGTILES |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
367 |
FIZHI_READ_VEGTILES |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
40 |
FIZHI_WRITE_VEGTILES |
INTEGER myThid |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
74 |
FIZHI_WRITE_VEGTILES |
CALL MNC_CW_SET_UDIM(bnam, 1, myThid) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
75 |
FIZHI_WRITE_VEGTILES |
CALL MNC_CW_RL_W_S('D',bnam,0,0,'T', myTime, myThid) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
76 |
FIZHI_WRITE_VEGTILES |
CALL MNC_CW_I_W_S('I',bnam,0,0,'iter',myIter,myThid) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
79 |
FIZHI_WRITE_VEGTILES |
CALL MNC_CW_RL_W(prec,bnam,0,0,'ctmt', ctmt, myThid) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
80 |
FIZHI_WRITE_VEGTILES |
CALL MNC_CW_RL_W(prec,bnam,0,0,'xxmt', xxmt, myThid) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
81 |
FIZHI_WRITE_VEGTILES |
CALL MNC_CW_RL_W(prec,bnam,0,0,'yymt', yymt, myThid) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
82 |
FIZHI_WRITE_VEGTILES |
CALL MNC_CW_RL_W(prec,bnam,0,0,'zetamt', zetamt, myThid) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
83 |
FIZHI_WRITE_VEGTILES |
CALL MNC_CW_RL_W(prec,bnam,0,0,'xlmt', xlmt, myThid) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
84 |
FIZHI_WRITE_VEGTILES |
CALL MNC_CW_RL_W(prec,bnam,0,0,'khmt', khmt, myThid) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
85 |
FIZHI_WRITE_VEGTILES |
CALL MNC_CW_RL_W(prec,bnam,0,0,'tke', tke, myThid) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
88 |
FIZHI_WRITE_VEGTILES |
CALL MNC_CW_RL_W(prec,bnam,0,0,'tcanopy', tcanopy, myThid) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
89 |
FIZHI_WRITE_VEGTILES |
CALL MNC_CW_RL_W(prec,bnam,0,0,'tdeep', tdeep, myThid) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
90 |
FIZHI_WRITE_VEGTILES |
CALL MNC_CW_RL_W(prec,bnam,0,0,'ecanopy', ecanopy, myThid) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
91 |
FIZHI_WRITE_VEGTILES |
CALL MNC_CW_RL_W(prec,bnam,0,0,'swetshal', swetshal, myThid) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
92 |
FIZHI_WRITE_VEGTILES |
CALL MNC_CW_RL_W(prec,bnam,0,0,'swetroot', swetroot, myThid) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
93 |
FIZHI_WRITE_VEGTILES |
CALL MNC_CW_RL_W(prec,bnam,0,0,'swetdeep', swetdeep, myThid) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
94 |
FIZHI_WRITE_VEGTILES |
CALL MNC_CW_RL_W(prec,bnam,0,0,'snodep', snodep, myThid) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
95 |
FIZHI_WRITE_VEGTILES |
CALL MNC_CW_RL_W(prec,bnam,0,0,'capac', capac, myThid) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
96 |
FIZHI_WRITE_VEGTILES |
CALL MNC_CW_RL_W(prec,bnam,0,0,'chlt', chlt, myThid) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
97 |
FIZHI_WRITE_VEGTILES |
CALL MNC_CW_RL_W(prec,bnam,0,0,'chlon', chlon, myThid) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
98 |
FIZHI_WRITE_VEGTILES |
CALL MNC_CW_I_W('I',bnam,0,0,'igrd', igrd, myThid) |
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
9 |
FIZHI_WRITE_VEGTILES |
SUBROUTINE FIZHI_WRITE_VEGTILES(fn,pickupflg,myTime,myIter,myThid) |
./pkg/fizhi/fizhi_tendency_apply.F |
107 |
FIZHI_TENDENCY_APPLY_V |
integer iMin, iMax, jMin, jMax, kLev, bi, bj, myThid |
./pkg/fizhi/fizhi_tendency_apply.F |
132 |
FIZHI_TENDENCY_APPLY_V |
if(diagnostics_is_on('DIABVDYN',myThid) ) then |
./pkg/fizhi/fizhi_tendency_apply.F |
140 |
FIZHI_TENDENCY_APPLY_V |
call DIAGNOSTICS_FILL(tmpdiag,'DIABVDYN',kLev,1,2,bi,bj,myThid) |
./pkg/fizhi/fizhi_tendency_apply.F |
143 |
FIZHI_TENDENCY_APPLY_V |
if(diagnostics_is_on('RFV ',myThid) ) then |
./pkg/fizhi/fizhi_tendency_apply.F |
150 |
FIZHI_TENDENCY_APPLY_V |
call DIAGNOSTICS_FILL(tmpdiag,'RFV ',kLev,1,2,bi,bj,myThid) |
./pkg/fizhi/fizhi_tendency_apply.F |
156 |
FIZHI_TENDENCY_APPLY_T |
. bi,bj,kLev,myTime,myThid) |
./pkg/fizhi/fizhi_tendency_apply.F |
181 |
FIZHI_TENDENCY_APPLY_T |
integer iMin, iMax, jMin, jMax, kLev, bi, bj, myThid |
./pkg/fizhi/fizhi_tendency_apply.F |
215 |
FIZHI_TENDENCY_APPLY_T |
if(diagnostics_is_on('DIABTDYN',myThid) ) then |
./pkg/fizhi/fizhi_tendency_apply.F |
229 |
FIZHI_TENDENCY_APPLY_T |
call DIAGNOSTICS_FILL(tmpdiag,'DIABTDYN',kLev,1,2,bi,bj,myThid) |
./pkg/fizhi/fizhi_tendency_apply.F |
232 |
FIZHI_TENDENCY_APPLY_T |
if(diagnostics_is_on('RFT ',myThid) ) then |
./pkg/fizhi/fizhi_tendency_apply.F |
245 |
FIZHI_TENDENCY_APPLY_T |
call DIAGNOSTICS_FILL(tmpdiag,'RFT ',kLev,1,2,bi,bj,myThid) |
./pkg/fizhi/fizhi_tendency_apply.F |
251 |
FIZHI_TENDENCY_APPLY_S |
. bi,bj,kLev,myTime,myThid) |
./pkg/fizhi/fizhi_tendency_apply.F |
276 |
FIZHI_TENDENCY_APPLY_S |
integer iMin, iMax, jMin, jMax, kLev, bi, bj, myThid |
./pkg/fizhi/fizhi_tendency_apply.F |
293 |
FIZHI_TENDENCY_APPLY_S |
if(diagnostics_is_on('DIABQDYN',myThid) ) then |
./pkg/fizhi/fizhi_tendency_apply.F |
300 |
FIZHI_TENDENCY_APPLY_S |
call DIAGNOSTICS_FILL(tmpdiag,'DIABQDYN',kLev,1,2,bi,bj,myThid) |
./pkg/fizhi/fizhi_tendency_apply.F |
32 |
FIZHI_TENDENCY_APPLY_U |
integer iMin, iMax, jMin, jMax, kLev, bi, bj, myThid |
./pkg/fizhi/fizhi_tendency_apply.F |
57 |
FIZHI_TENDENCY_APPLY_U |
if(diagnostics_is_on('DIABUDYN',myThid) ) then |
./pkg/fizhi/fizhi_tendency_apply.F |
65 |
FIZHI_TENDENCY_APPLY_U |
call DIAGNOSTICS_FILL(tmpdiag,'DIABUDYN',kLev,1,2,bi,bj,myThid) |
./pkg/fizhi/fizhi_tendency_apply.F |
68 |
FIZHI_TENDENCY_APPLY_U |
if(diagnostics_is_on('RFU ',myThid) ) then |
./pkg/fizhi/fizhi_tendency_apply.F |
6 |
FIZHI_TENDENCY_APPLY_U |
. bi,bj,kLev,myTime,myThid) |
./pkg/fizhi/fizhi_tendency_apply.F |
75 |
FIZHI_TENDENCY_APPLY_U |
call DIAGNOSTICS_FILL(tmpdiag,'RFU ',kLev,1,2,bi,bj,myThid) |
./pkg/fizhi/fizhi_tendency_apply.F |
81 |
FIZHI_TENDENCY_APPLY_V |
. bi,bj,kLev,myTime,myThid) |
./pkg/fizhi/fizhi_update_time.F |
20 |
FIZHI_UPDATE_TIME |
integer myIter, myThid |
./pkg/fizhi/fizhi_update_time.F |
5 |
FIZHI_UPDATE_TIME |
subroutine FIZHI_UPDATE_TIME (myIter,myThid,deltat) |
./pkg/fizhi/fizhi_wrapper.F |
111 |
FIZHI_WRAPPER |
if(diagnostics_is_on('TENDTFIZ',myThid) .or. |
./pkg/fizhi/fizhi_wrapper.F |
112 |
FIZHI_WRAPPER |
. diagnostics_is_on('CORRDT ',myThid) ) then |
./pkg/fizhi/fizhi_wrapper.F |
113 |
FIZHI_WRAPPER |
do bj = myByLo(myThid), myByHi(myThid) |
./pkg/fizhi/fizhi_wrapper.F |
114 |
FIZHI_WRAPPER |
do bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/fizhi/fizhi_wrapper.F |
132 |
FIZHI_WRAPPER |
if(diagnostics_is_on('TENDQFIZ',myThid) .or. |
./pkg/fizhi/fizhi_wrapper.F |
133 |
FIZHI_WRAPPER |
. diagnostics_is_on('CORRDQ ',myThid) ) then |
./pkg/fizhi/fizhi_wrapper.F |
134 |
FIZHI_WRAPPER |
do bj = myByLo(myThid), myByHi(myThid) |
./pkg/fizhi/fizhi_wrapper.F |
135 |
FIZHI_WRAPPER |
do bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/fizhi/fizhi_wrapper.F |
156 |
FIZHI_WRAPPER |
do bj = myByLo(myThid), myByHi(myThid) |
./pkg/fizhi/fizhi_wrapper.F |
157 |
FIZHI_WRAPPER |
do bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/fizhi/fizhi_wrapper.F |
208 |
FIZHI_WRAPPER |
if(diagnostics_is_on('FIZPRES ',myThid) ) then |
./pkg/fizhi/fizhi_wrapper.F |
209 |
FIZHI_WRAPPER |
do bj = myByLo(myThid), myByHi(myThid) |
./pkg/fizhi/fizhi_wrapper.F |
210 |
FIZHI_WRAPPER |
do bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/fizhi/fizhi_wrapper.F |
221 |
FIZHI_WRAPPER |
. Nrphys,0,1,1,myThid) |
./pkg/fizhi/fizhi_wrapper.F |
227 |
FIZHI_WRAPPER |
do bj = myByLo(myThid), myByHi(myThid) |
./pkg/fizhi/fizhi_wrapper.F |
228 |
FIZHI_WRAPPER |
do bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/fizhi/fizhi_wrapper.F |
234 |
FIZHI_WRAPPER |
if(diagnostics_is_on('SLP ',myThid) ) then |
./pkg/fizhi/fizhi_wrapper.F |
254 |
FIZHI_WRAPPER |
call DIAGNOSTICS_FILL( slp,'SLP ',1,1,3,bi,bj,myThid ) |
./pkg/fizhi/fizhi_wrapper.F |
261 |
FIZHI_WRAPPER |
call DO_FIZHI(myIter,myThid, |
./pkg/fizhi/fizhi_wrapper.F |
281 |
FIZHI_WRAPPER |
do bj = myByLo(myThid), myByHi(myThid) |
./pkg/fizhi/fizhi_wrapper.F |
282 |
FIZHI_WRAPPER |
do bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/fizhi/fizhi_wrapper.F |
330 |
FIZHI_WRAPPER |
call ATOC(myThid,guphy,gvphy,maskC,idim1,idim2,jdim1,jdim2,Nr, |
./pkg/fizhi/fizhi_wrapper.F |
336 |
FIZHI_WRAPPER |
call EXCH_UV_XYZ_RL(guphy,gvphy,.TRUE.,myThid) |
./pkg/fizhi/fizhi_wrapper.F |
338 |
FIZHI_WRAPPER |
_EXCH_XYZ_RL(gthphy,myThid) |
./pkg/fizhi/fizhi_wrapper.F |
339 |
FIZHI_WRAPPER |
_EXCH_XYZ_RL(gsphy,myThid) |
./pkg/fizhi/fizhi_wrapper.F |
37 |
FIZHI_WRAPPER |
integer myIter, myThid |
./pkg/fizhi/fizhi_wrapper.F |
5 |
FIZHI_WRAPPER |
subroutine FIZHI_WRAPPER (myTime, myIter, myThid) |
./pkg/fizhi/fizhi_wrapper.F |
69 |
FIZHI_WRAPPER |
if(diagnostics_is_on('TENDUFIZ',myThid) .or. |
./pkg/fizhi/fizhi_wrapper.F |
70 |
FIZHI_WRAPPER |
. diagnostics_is_on('CORRDU ',myThid) ) then |
./pkg/fizhi/fizhi_wrapper.F |
71 |
FIZHI_WRAPPER |
do bj = myByLo(myThid), myByHi(myThid) |
./pkg/fizhi/fizhi_wrapper.F |
72 |
FIZHI_WRAPPER |
do bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/fizhi/fizhi_wrapper.F |
90 |
FIZHI_WRAPPER |
if(diagnostics_is_on('TENDVFIZ',myThid) .or. |
./pkg/fizhi/fizhi_wrapper.F |
91 |
FIZHI_WRAPPER |
. diagnostics_is_on('CORRDV ',myThid) ) then |
./pkg/fizhi/fizhi_wrapper.F |
92 |
FIZHI_WRAPPER |
do bj = myByLo(myThid), myByHi(myThid) |
./pkg/fizhi/fizhi_wrapper.F |
93 |
FIZHI_WRAPPER |
do bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/fizhi/fizhi_write_datetime.F |
19 |
FIZHI_WRITE_DATETIME |
integer myIter, myThid |
./pkg/fizhi/fizhi_write_datetime.F |
25 |
FIZHI_WRITE_DATETIME |
if( myThid.eq.1) then |
./pkg/fizhi/fizhi_write_datetime.F |
27 |
FIZHI_WRITE_DATETIME |
CALL MDSFINDUNIT( ku, myThid ) |
./pkg/fizhi/fizhi_write_datetime.F |
9 |
FIZHI_WRITE_DATETIME |
SUBROUTINE FIZHI_WRITE_DATETIME( myTime, myIter, myThid ) |
./pkg/fizhi/fizhi_write_pickup.F |
112 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,temp,17,myIter,myThid) |
./pkg/fizhi/fizhi_write_pickup.F |
39 |
FIZHI_WRITE_PICKUP |
INTEGER myThid |
./pkg/fizhi/fizhi_write_pickup.F |
52 |
FIZHI_WRITE_PICKUP |
do bj = 1,myByLo(myThid), myByHi(myThid) |
./pkg/fizhi/fizhi_write_pickup.F |
53 |
FIZHI_WRITE_PICKUP |
do bi = 1,myBxLo(myThid), myBxHi(myThid) |
./pkg/fizhi/fizhi_write_pickup.F |
73 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,uphy, 1,myIter,myThid) |
./pkg/fizhi/fizhi_write_pickup.F |
74 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,vphy, 2,myIter,myThid) |
./pkg/fizhi/fizhi_write_pickup.F |
75 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,thphy, 3,myIter,myThid) |
./pkg/fizhi/fizhi_write_pickup.F |
76 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,sphy, 4,myIter,myThid) |
./pkg/fizhi/fizhi_write_pickup.F |
78 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,cldtot_lw, 5,myIter,myThid) |
./pkg/fizhi/fizhi_write_pickup.F |
79 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,cldras_lw, 6,myIter,myThid) |
./pkg/fizhi/fizhi_write_pickup.F |
80 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,cldlsp_lw, 7,myIter,myThid) |
./pkg/fizhi/fizhi_write_pickup.F |
81 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,lwlz, 8,myIter,myThid) |
./pkg/fizhi/fizhi_write_pickup.F |
82 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,cldtot_sw, 9,myIter,myThid) |
./pkg/fizhi/fizhi_write_pickup.F |
83 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,cldras_sw,10,myIter,myThid) |
./pkg/fizhi/fizhi_write_pickup.F |
84 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,cldlsp_sw,11,myIter,myThid) |
./pkg/fizhi/fizhi_write_pickup.F |
85 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,swlz, 12,myIter,myThid) |
./pkg/fizhi/fizhi_write_pickup.F |
86 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,qliqavelw,13,myIter,myThid) |
./pkg/fizhi/fizhi_write_pickup.F |
87 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,qliqavesw,14,myIter,myThid) |
./pkg/fizhi/fizhi_write_pickup.F |
88 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,fccavelw, 15,myIter,myThid) |
./pkg/fizhi/fizhi_write_pickup.F |
89 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,Nrphys,fccavesw, 16,myIter,myThid) |
./pkg/fizhi/fizhi_write_pickup.F |
8 |
FIZHI_WRITE_PICKUP |
SUBROUTINE FIZHI_WRITE_PICKUP( suff, myTime, myIter, myThid ) |
./pkg/fizhi/fizhi_write_pickup.F |
91 |
FIZHI_WRITE_PICKUP |
do bj = myByLo(myThid), myByHi(myThid) |
./pkg/fizhi/fizhi_write_pickup.F |
92 |
FIZHI_WRITE_PICKUP |
do bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/fizhi/fizhi_write_state.F |
38 |
FIZHI_WRITE_STATE |
INTEGER myThid |
./pkg/fizhi/fizhi_write_state.F |
60 |
FIZHI_WRITE_STATE |
CALL WRITE_REC_3D_RL( fn,prec, Nrphys, uphy, 1, myIter,myThid ) |
./pkg/fizhi/fizhi_write_state.F |
62 |
FIZHI_WRITE_STATE |
CALL WRITE_REC_3D_RL( fn,prec, Nrphys, vphy, 1, myIter,myThid ) |
./pkg/fizhi/fizhi_write_state.F |
64 |
FIZHI_WRITE_STATE |
CALL WRITE_REC_3D_RL( fn,prec, Nrphys, thphy, 1, myIter,myThid ) |
./pkg/fizhi/fizhi_write_state.F |
66 |
FIZHI_WRITE_STATE |
CALL WRITE_REC_3D_RL( fn,prec, Nrphys, sphy, 1, myIter,myThid ) |
./pkg/fizhi/fizhi_write_state.F |
8 |
FIZHI_WRITE_STATE |
SUBROUTINE FIZHI_WRITE_STATE( myTime, myIter, myThid ) |
./pkg/fizhi/getpwhere.F |
41 |
GETPWHERE |
integer myThid,numpress |
./pkg/fizhi/getpwhere.F |
7 |
GETPWHERE |
subroutine GETPWHERE(myThid,numpress,pressures,levpressures) |
./pkg/fizhi/step_fizhi_corr.F |
133 |
STEP_FIZHI_CORR |
do bj = myByLo(myThid), myByHi(myThid) |
./pkg/fizhi/step_fizhi_corr.F |
134 |
STEP_FIZHI_CORR |
do bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/fizhi/step_fizhi_corr.F |
183 |
STEP_FIZHI_CORR |
call ATOC(myThid,udyntemp,vdyntemp,maskC,im1,im2,jm1,jm2,Nr, |
./pkg/fizhi/step_fizhi_corr.F |
188 |
STEP_FIZHI_CORR |
do bj = myByLo(myThid), myByHi(myThid) |
./pkg/fizhi/step_fizhi_corr.F |
189 |
STEP_FIZHI_CORR |
do bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/fizhi/step_fizhi_corr.F |
207 |
STEP_FIZHI_CORR |
call CTOA(myThid,udyntemp,vdyntemp,maskW,maskS,im1,im2,jm1,jm2, |
./pkg/fizhi/step_fizhi_corr.F |
213 |
STEP_FIZHI_CORR |
do bj = myByLo(myThid), myByHi(myThid) |
./pkg/fizhi/step_fizhi_corr.F |
214 |
STEP_FIZHI_CORR |
do bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/fizhi/step_fizhi_corr.F |
258 |
STEP_FIZHI_CORR |
do bj = myByLo(myThid), myByHi(myThid) |
./pkg/fizhi/step_fizhi_corr.F |
259 |
STEP_FIZHI_CORR |
do bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/fizhi/step_fizhi_corr.F |
271 |
STEP_FIZHI_CORR |
call DIAGNOSTICS_FILL(uphy,'UAVE ',0,Nrphys,0,1,1,myThid) |
./pkg/fizhi/step_fizhi_corr.F |
272 |
STEP_FIZHI_CORR |
call DIAGNOSTICS_FILL(vphy,'VAVE ',0,Nrphys,0,1,1,myThid) |
./pkg/fizhi/step_fizhi_corr.F |
273 |
STEP_FIZHI_CORR |
call DIAGNOSTICS_FILL(thphy,'TAVE ',0,Nrphys,0,1,1,myThid) |
./pkg/fizhi/step_fizhi_corr.F |
274 |
STEP_FIZHI_CORR |
call DIAGNOSTICS_FILL(sphy,'QAVE ',0,Nrphys,0,1,1,myThid) |
./pkg/fizhi/step_fizhi_corr.F |
278 |
STEP_FIZHI_CORR |
do bj = myByLo(myThid), myByHi(myThid) |
./pkg/fizhi/step_fizhi_corr.F |
279 |
STEP_FIZHI_CORR |
do bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/fizhi/step_fizhi_corr.F |
284 |
STEP_FIZHI_CORR |
if(diagnostics_is_on('TENDUFIZ',myThid) ) then |
./pkg/fizhi/step_fizhi_corr.F |
291 |
STEP_FIZHI_CORR |
call DIAGNOSTICS_FILL(tempij,'TENDUFIZ',L,1,3,bi,bj,myThid) |
./pkg/fizhi/step_fizhi_corr.F |
296 |
STEP_FIZHI_CORR |
if(diagnostics_is_on('TENDVFIZ',myThid) ) then |
./pkg/fizhi/step_fizhi_corr.F |
303 |
STEP_FIZHI_CORR |
call DIAGNOSTICS_FILL(tempij,'TENDVFIZ',L,1,3,bi,bj,myThid) |
./pkg/fizhi/step_fizhi_corr.F |
308 |
STEP_FIZHI_CORR |
if(diagnostics_is_on('TENDTFIZ',myThid) ) then |
./pkg/fizhi/step_fizhi_corr.F |
315 |
STEP_FIZHI_CORR |
call DIAGNOSTICS_FILL(tempij,'TENDTFIZ',L,1,3,bi,bj,myThid) |
./pkg/fizhi/step_fizhi_corr.F |
320 |
STEP_FIZHI_CORR |
if(diagnostics_is_on('TENDQFIZ',myThid) ) then |
./pkg/fizhi/step_fizhi_corr.F |
327 |
STEP_FIZHI_CORR |
call DIAGNOSTICS_FILL(tempij,'TENDQFIZ',L,1,3,bi,bj,myThid) |
./pkg/fizhi/step_fizhi_corr.F |
336 |
STEP_FIZHI_CORR |
if(diagnostics_is_on('CORRDU ',myThid) .or. |
./pkg/fizhi/step_fizhi_corr.F |
337 |
STEP_FIZHI_CORR |
. diagnostics_is_on('CORRDV ',myThid) ) then |
./pkg/fizhi/step_fizhi_corr.F |
341 |
STEP_FIZHI_CORR |
do bj = myByLo(myThid), myByHi(myThid) |
./pkg/fizhi/step_fizhi_corr.F |
342 |
STEP_FIZHI_CORR |
do bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/fizhi/step_fizhi_corr.F |
358 |
STEP_FIZHI_CORR |
call CTOA(myThid,udyntemp,vdyntemp,maskW,maskS,im1,im2,jm1,jm2, |
./pkg/fizhi/step_fizhi_corr.F |
35 |
STEP_FIZHI_CORR |
integer myIter, myThid |
./pkg/fizhi/step_fizhi_corr.F |
408 |
STEP_FIZHI_CORR |
if(diagnostics_is_on('CORRDU ',myThid)) then |
./pkg/fizhi/step_fizhi_corr.F |
409 |
STEP_FIZHI_CORR |
call DIAGNOSTICS_FILL(uphytemp,'CORRDU ',0,Nrphys,0,1,1,myThid) |
./pkg/fizhi/step_fizhi_corr.F |
411 |
STEP_FIZHI_CORR |
if(diagnostics_is_on('CORRDV ',myThid)) then |
./pkg/fizhi/step_fizhi_corr.F |
412 |
STEP_FIZHI_CORR |
call DIAGNOSTICS_FILL(vphytemp,'CORRDV ',0,Nrphys,0,1,1,myThid) |
./pkg/fizhi/step_fizhi_corr.F |
419 |
STEP_FIZHI_CORR |
if(diagnostics_is_on('CORRDT ',myThid)) then |
./pkg/fizhi/step_fizhi_corr.F |
423 |
STEP_FIZHI_CORR |
do bj = myByLo(myThid), myByHi(myThid) |
./pkg/fizhi/step_fizhi_corr.F |
424 |
STEP_FIZHI_CORR |
do bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/fizhi/step_fizhi_corr.F |
460 |
STEP_FIZHI_CORR |
call DIAGNOSTICS_FILL(thphytemp,'CORRDT ',0,Nrphys,0,1,1,myThid) |
./pkg/fizhi/step_fizhi_corr.F |
465 |
STEP_FIZHI_CORR |
if(diagnostics_is_on('CORRDQ ',myThid)) then |
./pkg/fizhi/step_fizhi_corr.F |
469 |
STEP_FIZHI_CORR |
do bj = myByLo(myThid), myByHi(myThid) |
./pkg/fizhi/step_fizhi_corr.F |
470 |
STEP_FIZHI_CORR |
do bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/fizhi/step_fizhi_corr.F |
506 |
STEP_FIZHI_CORR |
call DIAGNOSTICS_FILL(sphytemp,'CORRDQ ',0,Nrphys,0,1,1,myThid) |
./pkg/fizhi/step_fizhi_corr.F |
5 |
STEP_FIZHI_CORR |
subroutine STEP_FIZHI_CORR (myTime, myIter, myThid, dt) |
./pkg/fizhi/step_fizhi_corr.F |
75 |
STEP_FIZHI_CORR |
do bj = myByLo(myThid), myByHi(myThid) |
./pkg/fizhi/step_fizhi_corr.F |
76 |
STEP_FIZHI_CORR |
do bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/fizhi/step_fizhi_fg.F |
24 |
STEP_FIZHI_FG |
integer myIter, myThid |
./pkg/fizhi/step_fizhi_fg.F |
43 |
STEP_FIZHI_FG |
do bj = myByLo(myThid), myByHi(myThid) |
./pkg/fizhi/step_fizhi_fg.F |
44 |
STEP_FIZHI_FG |
do bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/fizhi/step_fizhi_fg.F |
5 |
STEP_FIZHI_FG |
subroutine STEP_FIZHI_FG (myTime, myIter, myThid, dt) |
./pkg/fizhi/update_chemistry_exports.F |
26 |
UPDATE_CHEMISTRY_EXPORTS |
integer myIter, myThid |
./pkg/fizhi/update_chemistry_exports.F |
49 |
UPDATE_CHEMISTRY_EXPORTS |
do bj = myByLo(myThid), myByHi(myThid) |
./pkg/fizhi/update_chemistry_exports.F |
50 |
UPDATE_CHEMISTRY_EXPORTS |
do bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/fizhi/update_chemistry_exports.F |
5 |
UPDATE_CHEMISTRY_EXPORTS |
subroutine UPDATE_CHEMISTRY_EXPORTS (myTime, myIter, myThid) |
./pkg/fizhi/update_earth_exports.F |
30 |
UPDATE_EARTH_EXPORTS |
integer myIter, myThid |
./pkg/fizhi/update_earth_exports.F |
5 |
UPDATE_EARTH_EXPORTS |
subroutine UPDATE_EARTH_EXPORTS (myTime, myIter, myThid) |
./pkg/fizhi/update_earth_exports.F |
61 |
UPDATE_EARTH_EXPORTS |
do bj = myByLo(myThid), myByHi(myThid) |
./pkg/fizhi/update_earth_exports.F |
62 |
UPDATE_EARTH_EXPORTS |
do bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/fizhi/update_ocean_exports.F |
111 |
UPDATE_OCEAN_EXPORTS |
_EXCH_XY_RL(sst,myThid) |
./pkg/fizhi/update_ocean_exports.F |
112 |
UPDATE_OCEAN_EXPORTS |
_EXCH_XY_RL(sice,myThid) |
./pkg/fizhi/update_ocean_exports.F |
25 |
UPDATE_OCEAN_EXPORTS |
integer myIter, myThid |
./pkg/fizhi/update_ocean_exports.F |
286 |
GETSICE |
_BEGIN_MASTER( myThid ) |
./pkg/fizhi/update_ocean_exports.F |
301 |
GETSICE |
_END_MASTER( myThid ) |
./pkg/fizhi/update_ocean_exports.F |
546 |
GETSST |
_BEGIN_MASTER( myThid ) |
./pkg/fizhi/update_ocean_exports.F |
561 |
GETSST |
_END_MASTER( myThid ) |
./pkg/fizhi/update_ocean_exports.F |
5 |
UPDATE_OCEAN_EXPORTS |
subroutine UPDATE_OCEAN_EXPORTS (myTime, myIter, myThid) |
./pkg/fizhi/update_ocean_exports.F |
79 |
UPDATE_OCEAN_EXPORTS |
DO BJ = myByLo(myThid),myByHi(myThid) |
./pkg/fizhi/update_ocean_exports.F |
80 |
UPDATE_OCEAN_EXPORTS |
DO BI = myBxLo(myThid),myBxHi(myThid) |
./pkg/fizhi/update_ocean_exports.F |
93 |
UPDATE_OCEAN_EXPORTS |
. ssttimes(1,bi,bj),sst,myThid) |
./pkg/fizhi/update_ocean_exports.F |
98 |
UPDATE_OCEAN_EXPORTS |
. sicetimes(1,bi,bj),sice,myThid) |
./pkg/flt/exch2_recv_get_vec.F |
18 |
EXCH2_RL_RECV_GET_VEC |
I myd1, myThid ) |
./pkg/flt/exch2_recv_get_vec.F |
48 |
EXCH2_RL_RECV_GET_VEC |
INTEGER myThid |
./pkg/flt/exch2_recv_get_vec.F |
80 |
EXCH2_RL_RECV_GET_VEC |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/flt/exch2_recv_get_vec.F |
81 |
EXCH2_RL_RECV_GET_VEC |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/flt/exch2_send_put_vec.F |
105 |
EXCH2_RL_SEND_PUT_VEC |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/flt/exch2_send_put_vec.F |
106 |
EXCH2_RL_SEND_PUT_VEC |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/flt/exch2_send_put_vec.F |
121 |
EXCH2_RL_SEND_PUT_VEC |
_BEGIN_MASTER( myThid ) |
./pkg/flt/exch2_send_put_vec.F |
139 |
EXCH2_RL_SEND_PUT_VEC |
_END_MASTER( myThid ) |
./pkg/flt/exch2_send_put_vec.F |
20 |
EXCH2_RL_SEND_PUT_VEC |
I myd1, myThid ) |
./pkg/flt/exch2_send_put_vec.F |
56 |
EXCH2_RL_SEND_PUT_VEC |
INTEGER myThid |
./pkg/flt/exch_recv_get_vec.F |
157 |
EXCH_RL_RECV_GET_VEC_X |
CALL BARRIER( myThid ) |
./pkg/flt/exch_recv_get_vec.F |
161 |
EXCH_RL_RECV_GET_VEC_X |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/flt/exch_recv_get_vec.F |
162 |
EXCH_RL_RECV_GET_VEC_X |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/flt/exch_recv_get_vec.F |
176 |
EXCH_RL_RECV_GET_VEC_X |
IF ( myThid.EQ.1 .AND. spinCount.GT. _EXCH_SPIN_LIMIT ) THEN |
./pkg/flt/exch_recv_get_vec.F |
18 |
EXCH_RL_RECV_GET_VEC_X |
I myd1, myThid ) |
./pkg/flt/exch_recv_get_vec.F |
215 |
EXCH_RL_RECV_GET_VEC_Y |
I myd1, myThid ) |
./pkg/flt/exch_recv_get_vec.F |
241 |
EXCH_RL_RECV_GET_VEC_Y |
INTEGER myThid |
./pkg/flt/exch_recv_get_vec.F |
277 |
EXCH_RL_RECV_GET_VEC_Y |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/flt/exch_recv_get_vec.F |
278 |
EXCH_RL_RECV_GET_VEC_Y |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/flt/exch_recv_get_vec.F |
337 |
EXCH_RL_RECV_GET_VEC_Y |
CALL BARRIER( myThid ) |
./pkg/flt/exch_recv_get_vec.F |
341 |
EXCH_RL_RECV_GET_VEC_Y |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/flt/exch_recv_get_vec.F |
342 |
EXCH_RL_RECV_GET_VEC_Y |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/flt/exch_recv_get_vec.F |
356 |
EXCH_RL_RECV_GET_VEC_Y |
IF ( myThid.EQ.1 .AND. spinCount.GT. _EXCH_SPIN_LIMIT ) THEN |
./pkg/flt/exch_recv_get_vec.F |
44 |
EXCH_RL_RECV_GET_VEC_X |
INTEGER myThid |
./pkg/flt/exch_recv_get_vec.F |
80 |
EXCH_RL_RECV_GET_VEC_X |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/flt/exch_recv_get_vec.F |
81 |
EXCH_RL_RECV_GET_VEC_X |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/flt/exch_send_put_vec.F |
104 |
EXCH_RL_SEND_PUT_VEC_X |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/flt/exch_send_put_vec.F |
105 |
EXCH_RL_SEND_PUT_VEC_X |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/flt/exch_send_put_vec.F |
198 |
EXCH_RL_SEND_PUT_VEC_X |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/flt/exch_send_put_vec.F |
199 |
EXCH_RL_SEND_PUT_VEC_X |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/flt/exch_send_put_vec.F |
19 |
EXCH_RL_SEND_PUT_VEC_X |
I myd1, myThid ) |
./pkg/flt/exch_send_put_vec.F |
236 |
EXCH_RL_SEND_PUT_VEC_Y |
I myd1, myThid ) |
./pkg/flt/exch_send_put_vec.F |
269 |
EXCH_RL_SEND_PUT_VEC_Y |
INTEGER myThid |
./pkg/flt/exch_send_put_vec.F |
322 |
EXCH_RL_SEND_PUT_VEC_Y |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/flt/exch_send_put_vec.F |
323 |
EXCH_RL_SEND_PUT_VEC_Y |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/flt/exch_send_put_vec.F |
402 |
EXCH_RL_SEND_PUT_VEC_Y |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/flt/exch_send_put_vec.F |
403 |
EXCH_RL_SEND_PUT_VEC_Y |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/flt/exch_send_put_vec.F |
48 |
EXCH_RL_SEND_PUT_VEC_X |
INTEGER myThid |
./pkg/flt/flt_down.F |
27 |
FLT_DOWN |
INTEGER myIter, myThid |
./pkg/flt/flt_down.F |
35 |
FLT_DOWN |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/flt/flt_down.F |
36 |
FLT_DOWN |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/flt/flt_down.F |
7 |
FLT_DOWN |
I myTime, myIter, myThid ) |
./pkg/flt/flt_exch2.F |
172 |
FLT_EXCH2 |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/flt/flt_exch2.F |
179 |
FLT_EXCH2 |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/flt/flt_exch2.F |
299 |
FLT_EXCH2 |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/flt/flt_exch2.F |
306 |
FLT_EXCH2 |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/flt/flt_exch2.F |
346 |
FLT_EXCH2 |
I imax2, myThid ) |
./pkg/flt/flt_exch2.F |
353 |
FLT_EXCH2 |
I imax2, myThid ) |
./pkg/flt/flt_exch2.F |
385 |
FLT_EXCH2 |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/flt/flt_exch2.F |
386 |
FLT_EXCH2 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/flt/flt_exch2.F |
39 |
FLT_EXCH2 |
INTEGER myIter, myThid |
./pkg/flt/flt_exch2.F |
413 |
FLT_EXCH2 |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/flt/flt_exch2.F |
442 |
FLT_EXCH2 |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/flt/flt_exch2.F |
471 |
FLT_EXCH2 |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/flt/flt_exch2.F |
500 |
FLT_EXCH2 |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/flt/flt_exch2.F |
77 |
FLT_EXCH2 |
CALL BAR2( myThid ) |
./pkg/flt/flt_exch2.F |
82 |
FLT_EXCH2 |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/flt/flt_exch2.F |
83 |
FLT_EXCH2 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/flt/flt_exch2.F |
9 |
FLT_EXCH2 |
I myTime, myIter, myThid ) |
./pkg/flt/flt_exchg.F |
133 |
FLT_EXCHG |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/flt/flt_exchg.F |
140 |
FLT_EXCHG |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/flt/flt_exchg.F |
180 |
FLT_EXCHG |
I imax2, myThid ) |
./pkg/flt/flt_exchg.F |
187 |
FLT_EXCHG |
I imax2, myThid ) |
./pkg/flt/flt_exchg.F |
194 |
FLT_EXCHG |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/flt/flt_exchg.F |
195 |
FLT_EXCHG |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/flt/flt_exchg.F |
222 |
FLT_EXCHG |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/flt/flt_exchg.F |
251 |
FLT_EXCHG |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/flt/flt_exchg.F |
269 |
FLT_EXCHG |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/flt/flt_exchg.F |
270 |
FLT_EXCHG |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/flt/flt_exchg.F |
30 |
FLT_EXCHG |
INTEGER myIter, myThid |
./pkg/flt/flt_exchg.F |
354 |
FLT_EXCHG |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/flt/flt_exchg.F |
361 |
FLT_EXCHG |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/flt/flt_exchg.F |
400 |
FLT_EXCHG |
I imax2, myThid ) |
./pkg/flt/flt_exchg.F |
407 |
FLT_EXCHG |
I imax2, myThid ) |
./pkg/flt/flt_exchg.F |
415 |
FLT_EXCHG |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/flt/flt_exchg.F |
416 |
FLT_EXCHG |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/flt/flt_exchg.F |
443 |
FLT_EXCHG |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/flt/flt_exchg.F |
472 |
FLT_EXCHG |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/flt/flt_exchg.F |
59 |
FLT_EXCHG |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/flt/flt_exchg.F |
60 |
FLT_EXCHG |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/flt/flt_exchg.F |
8 |
FLT_EXCHG |
I myTime, myIter, myThid ) |
./pkg/flt/flt_init_fixed.F |
29 |
FLT_INIT_FIXED |
INTEGER myThid |
./pkg/flt/flt_init_fixed.F |
43 |
FLT_INIT_FIXED |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/flt/flt_init_fixed.F |
44 |
FLT_INIT_FIXED |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/flt/flt_init_fixed.F |
51 |
FLT_INIT_FIXED |
_GLOBAL_MAX_RL( xLo, myThid ) |
./pkg/flt/flt_init_fixed.F |
52 |
FLT_INIT_FIXED |
_GLOBAL_MAX_RL( xHi, myThid ) |
./pkg/flt/flt_init_fixed.F |
53 |
FLT_INIT_FIXED |
_GLOBAL_MAX_RL( yLo, myThid ) |
./pkg/flt/flt_init_fixed.F |
54 |
FLT_INIT_FIXED |
_GLOBAL_MAX_RL( yHi, myThid ) |
./pkg/flt/flt_init_fixed.F |
56 |
FLT_INIT_FIXED |
_BEGIN_MASTER(myThid) |
./pkg/flt/flt_init_fixed.F |
64 |
FLT_INIT_FIXED |
& SQUEEZE_RIGHT, myThid ) |
./pkg/flt/flt_init_fixed.F |
68 |
FLT_INIT_FIXED |
& SQUEEZE_RIGHT, myThid ) |
./pkg/flt/flt_init_fixed.F |
69 |
FLT_INIT_FIXED |
_END_MASTER(myThid) |
./pkg/flt/flt_init_fixed.F |
6 |
FLT_INIT_FIXED |
SUBROUTINE FLT_INIT_FIXED( myThid ) |
./pkg/flt/flt_init_fixed.F |
75 |
FLT_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/flt/flt_init_varia.F |
109 |
FLT_INIT_VARIA |
& bi, bj, 1, myThid ) |
./pkg/flt/flt_init_varia.F |
117 |
FLT_INIT_VARIA |
& SQUEEZE_RIGHT, myThid ) |
./pkg/flt/flt_init_varia.F |
124 |
FLT_INIT_VARIA |
& bi, bj, ip+1, myThid ) |
./pkg/flt/flt_init_varia.F |
129 |
FLT_INIT_VARIA |
I tmp(3), tmp(4),bi,bj,myThid ) |
./pkg/flt/flt_init_varia.F |
130 |
FLT_INIT_VARIA |
kz = FLT_MAP_R2K( tmp(5), bi, bj, myThid ) |
./pkg/flt/flt_init_varia.F |
159 |
FLT_INIT_VARIA |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/flt/flt_init_varia.F |
171 |
FLT_INIT_VARIA |
& bi, bj, 1, myThid ) |
./pkg/flt/flt_init_varia.F |
175 |
FLT_INIT_VARIA |
& SQUEEZE_RIGHT, myThid ) |
./pkg/flt/flt_init_varia.F |
184 |
FLT_INIT_VARIA |
& bi, bj, ip+1, myThid ) |
./pkg/flt/flt_init_varia.F |
188 |
FLT_INIT_VARIA |
I tmp(3), tmp(4),bi,bj,myThid ) |
./pkg/flt/flt_init_varia.F |
189 |
FLT_INIT_VARIA |
kz = FLT_MAP_R2K( tmp(5), bi, bj, myThid ) |
./pkg/flt/flt_init_varia.F |
223 |
FLT_INIT_VARIA |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/flt/flt_init_varia.F |
228 |
FLT_INIT_VARIA |
_END_MASTER( myThid ) |
./pkg/flt/flt_init_varia.F |
231 |
FLT_INIT_VARIA |
_GLOBAL_SUM_RL( npart_dist, myThid ) |
./pkg/flt/flt_init_varia.F |
233 |
FLT_INIT_VARIA |
_BEGIN_MASTER( myThid ) |
./pkg/flt/flt_init_varia.F |
238 |
FLT_INIT_VARIA |
& SQUEEZE_RIGHT, myThid ) |
./pkg/flt/flt_init_varia.F |
241 |
FLT_INIT_VARIA |
& SQUEEZE_RIGHT, myThid ) |
./pkg/flt/flt_init_varia.F |
242 |
FLT_INIT_VARIA |
_END_MASTER( myThid ) |
./pkg/flt/flt_init_varia.F |
38 |
FLT_INIT_VARIA |
INTEGER myThid |
./pkg/flt/flt_init_varia.F |
6 |
FLT_INIT_VARIA |
SUBROUTINE FLT_INIT_VARIA ( myThid ) |
./pkg/flt/flt_init_varia.F |
77 |
FLT_INIT_VARIA |
_BEGIN_MASTER(myThid) |
./pkg/flt/flt_init_varia.F |
97 |
FLT_INIT_VARIA |
& SQUEEZE_RIGHT, myThid ) |
./pkg/flt/flt_interp_linear.F |
110 |
FLT_TRILINEAR |
I nu, bi, bj, myThid ) |
./pkg/flt/flt_interp_linear.F |
135 |
FLT_TRILINEAR |
INTEGER nu, bi, bj, myThid |
./pkg/flt/flt_interp_linear.F |
17 |
FLT_BILINEAR |
I kl, nu, bi, bj, myThid ) |
./pkg/flt/flt_interp_linear.F |
205 |
FLT_BILINEAR2D |
I nu, bi, bj, myThid ) |
./pkg/flt/flt_interp_linear.F |
227 |
FLT_BILINEAR2D |
INTEGER nu, bi, bj, myThid |
./pkg/flt/flt_interp_linear.F |
36 |
FLT_BILINEAR |
INTEGER kl, nu, bi, bj, myThid |
./pkg/flt/flt_main.F |
100 |
FLT_MAIN |
CALL TIMER_STOP ('FLOATS RUNGA4 [FLT LOOP]',myThid) |
./pkg/flt/flt_main.F |
107 |
FLT_MAIN |
CALL TIMER_START('FLOATS EXCHG [FLT LOOP]',myThid) |
./pkg/flt/flt_main.F |
109 |
FLT_MAIN |
CALL FLT_EXCH2( myTime, myIter, myThid ) |
./pkg/flt/flt_main.F |
111 |
FLT_MAIN |
CALL FLT_EXCHG( myTime, myIter, myThid ) |
./pkg/flt/flt_main.F |
113 |
FLT_MAIN |
CALL TIMER_STOP ('FLOATS EXCHG [FLT LOOP]',myThid) |
./pkg/flt/flt_main.F |
120 |
FLT_MAIN |
CALL TIMER_START('FLOATS UP [FLT LOOP]',myThid) |
./pkg/flt/flt_main.F |
121 |
FLT_MAIN |
CALL FLT_UP( myTime, myIter, myThid ) |
./pkg/flt/flt_main.F |
122 |
FLT_MAIN |
CALL TIMER_STOP ('FLOATS UP [FLT LOOP]',myThid) |
./pkg/flt/flt_main.F |
126 |
FLT_MAIN |
CALL TIMER_START('FLOATS DOWN [FLT LOOP]',myThid) |
./pkg/flt/flt_main.F |
127 |
FLT_MAIN |
CALL FLT_DOWN( myTime, myIter, myThid ) |
./pkg/flt/flt_main.F |
128 |
FLT_MAIN |
CALL TIMER_STOP ('FLOATS DOWN [FLT LOOP]',myThid) |
./pkg/flt/flt_main.F |
135 |
FLT_MAIN |
CALL TIMER_START('FLOATS TRAJ [FLT LOOP]',myThid) |
./pkg/flt/flt_main.F |
136 |
FLT_MAIN |
CALL FLT_TRAJ( myTime, myIter, myThid ) |
./pkg/flt/flt_main.F |
137 |
FLT_MAIN |
CALL TIMER_STOP ('FLOATS TRAJ [FLT LOOP]',myThid) |
./pkg/flt/flt_main.F |
55 |
FLT_MAIN |
I myTime, myIter, myThid ) |
./pkg/flt/flt_main.F |
86 |
FLT_MAIN |
INTEGER myIter, myThid |
./pkg/flt/flt_main.F |
92 |
FLT_MAIN |
CALL TIMER_START('FLOATS RUNGA2 [FLT LOOP]',myThid) |
./pkg/flt/flt_main.F |
93 |
FLT_MAIN |
CALL FLT_RUNGA2( myTime, myIter, myThid ) |
./pkg/flt/flt_main.F |
94 |
FLT_MAIN |
CALL TIMER_STOP ('FLOATS RUNGA2 [FLT LOOP]',myThid) |
./pkg/flt/flt_main.F |
98 |
FLT_MAIN |
CALL TIMER_START('FLOATS RUNGA4 [FLT LOOP]',myThid) |
./pkg/flt/flt_main.F |
99 |
FLT_MAIN |
CALL FLT_RUNGA4( myTime, myIter, myThid ) |
./pkg/flt/flt_mapping.F |
116 |
FLT_MAP_IJLOCAL2XY |
INTEGER bi, bj, myThid |
./pkg/flt/flt_mapping.F |
163 |
FLT_MAP_IJLOCAL2XY |
I rr, bi, bj, myThid ) |
./pkg/flt/flt_mapping.F |
16 |
FLT_MAP_XY2IJLOCAL |
I xx, yy, bi, bj, myThid ) |
./pkg/flt/flt_mapping.F |
185 |
FLT_MAP_IJLOCAL2XY |
INTEGER bi, bj, myThid |
./pkg/flt/flt_mapping.F |
210 |
FLT_MAP_IJLOCAL2XY |
I kr, bi, bj, myThid ) |
./pkg/flt/flt_mapping.F |
232 |
FLT_MAP_IJLOCAL2XY |
INTEGER bi, bj, myThid |
./pkg/flt/flt_mapping.F |
42 |
FLT_MAP_XY2IJLOCAL |
INTEGER bi, bj, myThid |
./pkg/flt/flt_mapping.F |
90 |
FLT_MAP_IJLOCAL2XY |
I ix, jy, bi, bj, myThid ) |
./pkg/flt/flt_readparms.F |
25 |
FLT_READPARMS |
INTEGER myThid |
./pkg/flt/flt_readparms.F |
37 |
FLT_READPARMS |
_BEGIN_MASTER(myThid) |
./pkg/flt/flt_readparms.F |
48 |
FLT_READPARMS |
& SQUEEZE_RIGHT, myThid ) |
./pkg/flt/flt_readparms.F |
52 |
FLT_READPARMS |
I myThid ) |
./pkg/flt/flt_readparms.F |
58 |
FLT_READPARMS |
& SQUEEZE_RIGHT, myThid ) |
./pkg/flt/flt_readparms.F |
6 |
FLT_READPARMS |
SUBROUTINE FLT_READPARMS( myThid ) |
./pkg/flt/flt_readparms.F |
71 |
FLT_READPARMS |
_END_MASTER(myThid) |
./pkg/flt/flt_runga2.F |
108 |
FLT_RUNGA2 |
CALL FLT_TRILINEAR(ix,jy,kz,uu,uVel,1,bi,bj,myThid) |
./pkg/flt/flt_runga2.F |
109 |
FLT_RUNGA2 |
CALL FLT_TRILINEAR(ix,jy,kz,vv,vVel,2,bi,bj,myThid) |
./pkg/flt/flt_runga2.F |
110 |
FLT_RUNGA2 |
CALL FLT_TRILINEAR(ix,jy,kz,ww,wVel,4,bi,bj,myThid) |
./pkg/flt/flt_runga2.F |
115 |
FLT_RUNGA2 |
CALL FLT_BILINEAR(ix,jy,uu,uVel,kc,1,bi,bj,myThid) |
./pkg/flt/flt_runga2.F |
116 |
FLT_RUNGA2 |
CALL FLT_BILINEAR(ix,jy,vv,vVel,kc,2,bi,bj,myThid) |
./pkg/flt/flt_runga2.F |
145 |
FLT_RUNGA2 |
CALL FLT_TRILINEAR(itx,jty,ktz,u1,uVel,1,bi,bj,myThid) |
./pkg/flt/flt_runga2.F |
146 |
FLT_RUNGA2 |
CALL FLT_TRILINEAR(itx,jty,ktz,v1,vVel,2,bi,bj,myThid) |
./pkg/flt/flt_runga2.F |
147 |
FLT_RUNGA2 |
CALL FLT_TRILINEAR(itx,jty,ktz,w1,wVel,4,bi,bj,myThid) |
./pkg/flt/flt_runga2.F |
152 |
FLT_RUNGA2 |
CALL FLT_BILINEAR(itx,jty,u1,uVel,kc,1,bi,bj,myThid) |
./pkg/flt/flt_runga2.F |
153 |
FLT_RUNGA2 |
CALL FLT_BILINEAR(itx,jty,v1,vVel,kc,2,bi,bj,myThid) |
./pkg/flt/flt_runga2.F |
34 |
FLT_RUNGA2 |
INTEGER myIter, myThid |
./pkg/flt/flt_runga2.F |
73 |
FLT_RUNGA2 |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/flt/flt_runga2.F |
74 |
FLT_RUNGA2 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/flt/flt_runga2.F |
7 |
FLT_RUNGA2 |
I myTime, myIter, myThid ) |
./pkg/flt/flt_runga4.F |
110 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(ix,jy,kz,u1,uVel,1,bi,bj,myThid) |
./pkg/flt/flt_runga4.F |
111 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(ix,jy,kz,v1,vVel,2,bi,bj,myThid) |
./pkg/flt/flt_runga4.F |
112 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(ix,jy,kz,w1,wVel,4,bi,bj,myThid) |
./pkg/flt/flt_runga4.F |
117 |
FLT_RUNGA4 |
CALL FLT_BILINEAR(ix,jy,u1,uVel,kc,1,bi,bj,myThid) |
./pkg/flt/flt_runga4.F |
118 |
FLT_RUNGA4 |
CALL FLT_BILINEAR(ix,jy,v1,vVel,kc,2,bi,bj,myThid) |
./pkg/flt/flt_runga4.F |
148 |
FLT_RUNGA4 |
& 1,bi,bj,myThid) |
./pkg/flt/flt_runga4.F |
150 |
FLT_RUNGA4 |
& 2,bi,bj,myThid) |
./pkg/flt/flt_runga4.F |
152 |
FLT_RUNGA4 |
& 4,bi,bj,myThid) |
./pkg/flt/flt_runga4.F |
158 |
FLT_RUNGA4 |
& kc,1,bi,bj,myThid) |
./pkg/flt/flt_runga4.F |
160 |
FLT_RUNGA4 |
& kc,2,bi,bj,myThid) |
./pkg/flt/flt_runga4.F |
198 |
FLT_RUNGA4 |
& 1,bi,bj,myThid) |
./pkg/flt/flt_runga4.F |
200 |
FLT_RUNGA4 |
& 2,bi,bj,myThid) |
./pkg/flt/flt_runga4.F |
202 |
FLT_RUNGA4 |
& 4,bi,bj,myThid) |
./pkg/flt/flt_runga4.F |
208 |
FLT_RUNGA4 |
& kc,1,bi,bj,myThid) |
./pkg/flt/flt_runga4.F |
210 |
FLT_RUNGA4 |
& kc,2,bi,bj,myThid) |
./pkg/flt/flt_runga4.F |
248 |
FLT_RUNGA4 |
& 1,bi,bj,myThid) |
./pkg/flt/flt_runga4.F |
250 |
FLT_RUNGA4 |
& 2,bi,bj,myThid) |
./pkg/flt/flt_runga4.F |
252 |
FLT_RUNGA4 |
& 4,bi,bj,myThid) |
./pkg/flt/flt_runga4.F |
258 |
FLT_RUNGA4 |
& kc,1,bi,bj,myThid) |
./pkg/flt/flt_runga4.F |
260 |
FLT_RUNGA4 |
& kc,2,bi,bj,myThid) |
./pkg/flt/flt_runga4.F |
34 |
FLT_RUNGA4 |
INTEGER myIter, myThid |
./pkg/flt/flt_runga4.F |
73 |
FLT_RUNGA4 |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/flt/flt_runga4.F |
74 |
FLT_RUNGA4 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/flt/flt_runga4.F |
7 |
FLT_RUNGA4 |
I myTime, myIter, myThid ) |
./pkg/flt/flt_traj.F |
103 |
FLT_TRAJ |
& bi,bj,-1, myIter, myThid ) |
./pkg/flt/flt_traj.F |
118 |
FLT_TRAJ |
I ix, jy, bi,bj, myThid ) |
./pkg/flt/flt_traj.F |
119 |
FLT_TRAJ |
zz = FLT_MAP_K2R( kpart(ip,bi,bj),bi,bj,myThid ) |
./pkg/flt/flt_traj.F |
138 |
FLT_TRAJ |
& SQUEEZE_RIGHT, myThid ) |
./pkg/flt/flt_traj.F |
142 |
FLT_TRAJ |
& SQUEEZE_RIGHT, myThid ) |
./pkg/flt/flt_traj.F |
149 |
FLT_TRAJ |
CALL FLT_BILINEAR (ix,jy,uu,uVel, kp,1,bi,bj,myThid) |
./pkg/flt/flt_traj.F |
150 |
FLT_TRAJ |
CALL FLT_BILINEAR (ix,jy,vv,vVel, kp,2,bi,bj,myThid) |
./pkg/flt/flt_traj.F |
151 |
FLT_TRAJ |
CALL FLT_BILINEAR2D(ix,jy,pp,etaN, 0,bi,bj,myThid) |
./pkg/flt/flt_traj.F |
152 |
FLT_TRAJ |
CALL FLT_BILINEAR (ix,jy,tt,theta, kp,0,bi,bj,myThid) |
./pkg/flt/flt_traj.F |
153 |
FLT_TRAJ |
CALL FLT_BILINEAR (ix,jy,ss,salt, kp,0,bi,bj,myThid) |
./pkg/flt/flt_traj.F |
173 |
FLT_TRAJ |
& bi,bj,irecord, myIter, myThid ) |
./pkg/flt/flt_traj.F |
34 |
FLT_TRAJ |
INTEGER myIter, myThid |
./pkg/flt/flt_traj.F |
62 |
FLT_TRAJ |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/flt/flt_traj.F |
63 |
FLT_TRAJ |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/flt/flt_traj.F |
69 |
FLT_TRAJ |
& bi, bj, 1, myThid ) |
./pkg/flt/flt_traj.F |
8 |
FLT_TRAJ |
I myTime, myIter, myThid ) |
./pkg/flt/flt_up.F |
124 |
FLT_UP |
I ix, jy, bi,bj, myThid ) |
./pkg/flt/flt_up.F |
125 |
FLT_UP |
zz = FLT_MAP_K2R( kpart(ip,bi,bj),bi,bj,myThid ) |
./pkg/flt/flt_up.F |
140 |
FLT_UP |
CALL FLT_BILINEAR2D(ix,jy,pp,etaN,0,bi,bj,myThid) |
./pkg/flt/flt_up.F |
143 |
FLT_UP |
CALL FLT_BILINEAR (ix,jy,uu,uVel, k,1,bi,bj,myThid) |
./pkg/flt/flt_up.F |
144 |
FLT_UP |
CALL FLT_BILINEAR (ix,jy,vv,vVel, k,2,bi,bj,myThid) |
./pkg/flt/flt_up.F |
145 |
FLT_UP |
CALL FLT_BILINEAR (ix,jy,tt,theta, k,0,bi,bj,myThid) |
./pkg/flt/flt_up.F |
146 |
FLT_UP |
CALL FLT_BILINEAR (ix,jy,ss,salt, k,0,bi,bj,myThid) |
./pkg/flt/flt_up.F |
164 |
FLT_UP |
& bi,bj,irecord, myIter, myThid ) |
./pkg/flt/flt_up.F |
31 |
FLT_UP |
INTEGER myIter, myThid |
./pkg/flt/flt_up.F |
55 |
FLT_UP |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/flt/flt_up.F |
56 |
FLT_UP |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/flt/flt_up.F |
62 |
FLT_UP |
& bi, bj, 1, myThid ) |
./pkg/flt/flt_up.F |
7 |
FLT_UP |
I myTime, myIter, myThid ) |
./pkg/flt/flt_up.F |
95 |
FLT_UP |
& bi,bj,-1, myIter, myThid ) |
./pkg/flt/flt_write_pickup.F |
105 |
FLT_WRITE_PICKUP |
_GLOBAL_SUM_RL( npart_dist, myThid ) |
./pkg/flt/flt_write_pickup.F |
106 |
FLT_WRITE_PICKUP |
_BEGIN_MASTER( myThid ) |
./pkg/flt/flt_write_pickup.F |
110 |
FLT_WRITE_PICKUP |
& SQUEEZE_RIGHT, myThid ) |
./pkg/flt/flt_write_pickup.F |
111 |
FLT_WRITE_PICKUP |
_END_MASTER( myThid ) |
./pkg/flt/flt_write_pickup.F |
34 |
FLT_WRITE_PICKUP |
INTEGER myIter, myThid |
./pkg/flt/flt_write_pickup.F |
57 |
FLT_WRITE_PICKUP |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/flt/flt_write_pickup.F |
58 |
FLT_WRITE_PICKUP |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/flt/flt_write_pickup.F |
76 |
FLT_WRITE_PICKUP |
& bi,bj,-1, myIter, myThid ) |
./pkg/flt/flt_write_pickup.F |
8 |
FLT_WRITE_PICKUP |
I suff, myTime, myIter, myThid ) |
./pkg/flt/flt_write_pickup.F |
95 |
FLT_WRITE_PICKUP |
& bi,bj,irecord, myIter, myThid ) |
./pkg/gchem/gchem_add_tendency.F |
11 |
GCHEM_ADD_TENDENCY |
& iTracer, myTime,myIter, myThid ) |
./pkg/gchem/gchem_add_tendency.F |
40 |
GCHEM_ADD_TENDENCY |
INTEGER myThid, myIter |
./pkg/gchem/gchem_calc_tendency.F |
108 |
GCHEM_CALC_TENDENCY |
& myIter, myTime, myThid ) |
./pkg/gchem/gchem_calc_tendency.F |
112 |
GCHEM_CALC_TENDENCY |
& myIter, myTime, myThid ) |
./pkg/gchem/gchem_calc_tendency.F |
11 |
GCHEM_CALC_TENDENCY |
I myTime, myIter, myThid ) |
./pkg/gchem/gchem_calc_tendency.F |
39 |
GCHEM_CALC_TENDENCY |
INTEGER myThid, myIter |
./pkg/gchem/gchem_calc_tendency.F |
62 |
GCHEM_CALC_TENDENCY |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/gchem/gchem_calc_tendency.F |
63 |
GCHEM_CALC_TENDENCY |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/gchem/gchem_calc_tendency.F |
81 |
GCHEM_CALC_TENDENCY |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/gchem/gchem_calc_tendency.F |
82 |
GCHEM_CALC_TENDENCY |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/gchem/gchem_check.F |
22 |
GCHEM_CHECK |
INTEGER myThid |
./pkg/gchem/gchem_check.F |
30 |
GCHEM_CHECK |
_BEGIN_MASTER(myThid) |
./pkg/gchem/gchem_check.F |
34 |
GCHEM_CHECK |
& SQUEEZE_RIGHT , myThid ) |
./pkg/gchem/gchem_check.F |
39 |
GCHEM_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/gchem/gchem_check.F |
46 |
GCHEM_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/gchem/gchem_check.F |
53 |
GCHEM_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/gchem/gchem_check.F |
60 |
GCHEM_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/gchem/gchem_check.F |
67 |
GCHEM_CHECK |
CALL DARWIN_CHECK( myThid ) |
./pkg/gchem/gchem_check.F |
6 |
GCHEM_CHECK |
SUBROUTINE GCHEM_CHECK( myThid ) |
./pkg/gchem/gchem_check.F |
71 |
GCHEM_CHECK |
_END_MASTER(myThid) |
./pkg/gchem/gchem_diagnostics_init.F |
20 |
GCHEM_DIAGNOSTICS_INIT |
INTEGER myThid |
./pkg/gchem/gchem_diagnostics_init.F |
7 |
GCHEM_DIAGNOSTICS_INIT |
SUBROUTINE GCHEM_DIAGNOSTICS_INIT(myThid ) |
./pkg/gchem/gchem_fields_load.F |
11 |
GCHEM_FIELDS_LOAD |
I myTime, myIter, myThid) |
./pkg/gchem/gchem_fields_load.F |
26 |
GCHEM_FIELDS_LOAD |
INTEGER myThid |
./pkg/gchem/gchem_fields_load.F |
37 |
GCHEM_FIELDS_LOAD |
CALL DIC_FIELDS_LOAD (myIter,myTime,myThid) |
./pkg/gchem/gchem_fields_load.F |
42 |
GCHEM_FIELDS_LOAD |
CALL CFC_FIELDS_LOAD(myIter,myTime,myThid) |
./pkg/gchem/gchem_fields_load.F |
47 |
GCHEM_FIELDS_LOAD |
call DARWIN_FIELDS_LOAD(myIter,myTime,myThid) |
./pkg/gchem/gchem_forcing_sep.F |
116 |
GCHEM_FORCING_SEP |
& myIter,myTime,myThid) |
./pkg/gchem/gchem_forcing_sep.F |
125 |
GCHEM_FORCING_SEP |
& myIter,myTime,myThid) |
./pkg/gchem/gchem_forcing_sep.F |
132 |
GCHEM_FORCING_SEP |
& myIter,myTime,myThid) |
./pkg/gchem/gchem_forcing_sep.F |
144 |
GCHEM_FORCING_SEP |
& myIter,myTime,myThid) |
./pkg/gchem/gchem_forcing_sep.F |
147 |
GCHEM_FORCING_SEP |
& myIter,myTime,myThid) |
./pkg/gchem/gchem_forcing_sep.F |
150 |
GCHEM_FORCING_SEP |
& myIter,myTime,myThid) |
./pkg/gchem/gchem_forcing_sep.F |
153 |
GCHEM_FORCING_SEP |
& myIter,myTime,myThid) |
./pkg/gchem/gchem_forcing_sep.F |
156 |
GCHEM_FORCING_SEP |
call DARWIN_CONS(myIter,myTime,myThid) |
./pkg/gchem/gchem_forcing_sep.F |
161 |
GCHEM_FORCING_SEP |
& myIter,myTime,myThid) |
./pkg/gchem/gchem_forcing_sep.F |
162 |
GCHEM_FORCING_SEP |
call DARWIN_CONS(myIter,myTime,myThid) |
./pkg/gchem/gchem_forcing_sep.F |
164 |
GCHEM_FORCING_SEP |
CALL DIC_ATMOS( 1, myTime, myIter, myThid ) |
./pkg/gchem/gchem_forcing_sep.F |
16 |
GCHEM_FORCING_SEP |
SUBROUTINE GCHEM_FORCING_SEP(myTime,myIter, myThid ) |
./pkg/gchem/gchem_forcing_sep.F |
173 |
GCHEM_FORCING_SEP |
CALL DIC_ATMOS( 1, myTime, myIter, myThid ) |
./pkg/gchem/gchem_forcing_sep.F |
174 |
GCHEM_FORCING_SEP |
CALL DIC_STORE_FLUXCO2( myTime, myIter, myThid ) |
./pkg/gchem/gchem_forcing_sep.F |
178 |
GCHEM_FORCING_SEP |
CALL DIC_COST( myTime, myIter, myThid ) |
./pkg/gchem/gchem_forcing_sep.F |
45 |
GCHEM_FORCING_SEP |
INTEGER myThid, myIter |
./pkg/gchem/gchem_forcing_sep.F |
69 |
GCHEM_FORCING_SEP |
call TRACER_MEANAREA(salt, 1,gsm_s,myThid) |
./pkg/gchem/gchem_forcing_sep.F |
71 |
GCHEM_FORCING_SEP |
& ptracer(1-Olx,1-Oly,1,1,1,1), 1, gsm_dic, myThid ) |
./pkg/gchem/gchem_forcing_sep.F |
74 |
GCHEM_FORCING_SEP |
& ptracer(1-Olx,1-Oly,1,1,1,2), 1, gsm_alk, myThid ) |
./pkg/gchem/gchem_forcing_sep.F |
81 |
GCHEM_FORCING_SEP |
call TRACER_MEANAREA(salt, 1,gsm_s,myThid) |
./pkg/gchem/gchem_forcing_sep.F |
83 |
GCHEM_FORCING_SEP |
& ptracer(1-Olx,1-Oly,1,1,1,iDIC), 1, gsm_dic, myThid ) |
./pkg/gchem/gchem_forcing_sep.F |
86 |
GCHEM_FORCING_SEP |
& ptracer(1-Olx,1-Oly,1,1,1,iALK), 1, gsm_alk, myThid ) |
./pkg/gchem/gchem_forcing_sep.F |
96 |
GCHEM_FORCING_SEP |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/gchem/gchem_forcing_sep.F |
98 |
GCHEM_FORCING_SEP |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/gchem/gchem_init_fixed.F |
22 |
GCHEM_INIT_FIXED |
INTEGER myThid |
./pkg/gchem/gchem_init_fixed.F |
39 |
GCHEM_INIT_FIXED |
CALL DIC_INIT_FIXED( myThid ) |
./pkg/gchem/gchem_init_fixed.F |
45 |
GCHEM_INIT_FIXED |
CALL CFC_PARAM( myThid ) |
./pkg/gchem/gchem_init_fixed.F |
47 |
GCHEM_INIT_FIXED |
CALL CFC_ATMOS( myThid ) |
./pkg/gchem/gchem_init_fixed.F |
54 |
GCHEM_INIT_FIXED |
call DARWIN_INIT_FIXED(myThid) |
./pkg/gchem/gchem_init_fixed.F |
61 |
GCHEM_INIT_FIXED |
CALL GCHEM_DIAGNOSTICS_INIT( myThid ) |
./pkg/gchem/gchem_init_fixed.F |
7 |
GCHEM_INIT_FIXED |
SUBROUTINE GCHEM_INIT_FIXED(myThid ) |
./pkg/gchem/gchem_init_vari.F |
10 |
GCHEM_INIT_VARI |
SUBROUTINE GCHEM_INIT_VARI(myThid ) |
./pkg/gchem/gchem_init_vari.F |
29 |
GCHEM_INIT_VARI |
INTEGER myThid |
./pkg/gchem/gchem_init_vari.F |
41 |
GCHEM_INIT_VARI |
CALL DIC_INIT_VARIA(myThid) |
./pkg/gchem/gchem_init_vari.F |
42 |
GCHEM_INIT_VARI |
CALL DIC_INI_FORCING(myThid) |
./pkg/gchem/gchem_init_vari.F |
43 |
GCHEM_INIT_VARI |
CALL DIC_SURFFORCING_INIT(myThid) |
./pkg/gchem/gchem_init_vari.F |
44 |
GCHEM_INIT_VARI |
CALL DIC_BIOTIC_INIT(myThid) |
./pkg/gchem/gchem_init_vari.F |
49 |
GCHEM_INIT_VARI |
CALL DIC_SET_CONTROL(myThid) |
./pkg/gchem/gchem_init_vari.F |
55 |
GCHEM_INIT_VARI |
call DARWIN_INIT_VARI(myThid ) |
./pkg/gchem/gchem_init_vari.F |
57 |
GCHEM_INIT_VARI |
CALL DIC_SURFFORCING_INIT(myThid) |
./pkg/gchem/gchem_init_vari.F |
58 |
GCHEM_INIT_VARI |
CALL DIC_DIAGS_INIT(myThid) |
./pkg/gchem/gchem_output.F |
10 |
GCHEM_OUTPUT |
SUBROUTINE GCHEM_OUTPUT( myTime, myIter, myThid ) |
./pkg/gchem/gchem_output.F |
28 |
GCHEM_OUTPUT |
INTEGER myThid |
./pkg/gchem/gchem_output.F |
39 |
GCHEM_OUTPUT |
& CALL DIC_BIOTIC_DIAGS( myTime, myIter, myThid ) |
./pkg/gchem/gchem_output.F |
46 |
GCHEM_OUTPUT |
CALL DARWIN_DIAGS( myTime, myIter, myThid ) |
./pkg/gchem/gchem_output.F |
48 |
GCHEM_OUTPUT |
CALL DIC_DIAGS( myTime, myIter, myThid ) |
./pkg/gchem/gchem_readparms.F |
10 |
GCHEM_READPARMS |
SUBROUTINE GCHEM_READPARMS( myThid ) |
./pkg/gchem/gchem_readparms.F |
114 |
GCHEM_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/gchem/gchem_readparms.F |
118 |
GCHEM_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/gchem/gchem_readparms.F |
122 |
GCHEM_READPARMS |
_END_MASTER(myThid) |
./pkg/gchem/gchem_readparms.F |
129 |
GCHEM_READPARMS |
CALL DIC_READPARMS(myThid) |
./pkg/gchem/gchem_readparms.F |
135 |
GCHEM_READPARMS |
CALL CFC_READPARMS(myThid) |
./pkg/gchem/gchem_readparms.F |
141 |
GCHEM_READPARMS |
CALL DARWIN_READPARMS(myThid) |
./pkg/gchem/gchem_readparms.F |
24 |
GCHEM_READPARMS |
INTEGER myThid |
./pkg/gchem/gchem_readparms.F |
65 |
GCHEM_READPARMS |
_BEGIN_MASTER(myThid) |
./pkg/gchem/gchem_readparms.F |
98 |
GCHEM_READPARMS |
I myThid ) |
./pkg/gchem/gchem_write_pickup.F |
14 |
GCHEM_WRITE_PICKUP |
I myTime, myIter, myThid ) |
./pkg/gchem/gchem_write_pickup.F |
38 |
GCHEM_WRITE_PICKUP |
INTEGER myThid |
./pkg/gchem/gchem_write_pickup.F |
47 |
GCHEM_WRITE_PICKUP |
I myTime, myIter, myThid ) |
./pkg/gchem/gchem_write_pickup.F |
54 |
GCHEM_WRITE_PICKUP |
I myTime, myIter, myThid ) |
./pkg/gchem/gchem_write_pickup.F |
57 |
GCHEM_WRITE_PICKUP |
I myTime, myIter, myThid ) |
./pkg/generic_advdiff/gad_advection.F |
164 |
GAD_ADVECTION |
act1 = bi - myBxLo(myThid) |
./pkg/generic_advdiff/gad_advection.F |
165 |
GAD_ADVECTION |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
./pkg/generic_advdiff/gad_advection.F |
166 |
GAD_ADVECTION |
act2 = bj - myByLo(myThid) |
./pkg/generic_advdiff/gad_advection.F |
167 |
GAD_ADVECTION |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
./pkg/generic_advdiff/gad_advection.F |
168 |
GAD_ADVECTION |
act3 = myThid - 1 |
./pkg/generic_advdiff/gad_advection.F |
17 |
GAD_ADVECTION |
I bi,bj, myTime,myIter,myThid) |
./pkg/generic_advdiff/gad_advection.F |
188 |
GAD_ADVECTION |
diagSufx = GAD_DIAG_SUFX( tracerIdentity, myThid ) |
./pkg/generic_advdiff/gad_advection.F |
190 |
GAD_ADVECTION |
doDiagAdvX = DIAGNOSTICS_IS_ON( diagName, myThid ) |
./pkg/generic_advdiff/gad_advection.F |
192 |
GAD_ADVECTION |
doDiagAdvY = DIAGNOSTICS_IS_ON( diagName, myThid ) |
./pkg/generic_advdiff/gad_advection.F |
194 |
GAD_ADVECTION |
doDiagAdvR = DIAGNOSTICS_IS_ON( diagName, myThid ) |
./pkg/generic_advdiff/gad_advection.F |
261 |
GAD_ADVECTION |
I k,bi,bj, myThid ) |
./pkg/generic_advdiff/gad_advection.F |
268 |
GAD_ADVECTION |
I k, bi, bj, myThid ) |
./pkg/generic_advdiff/gad_advection.F |
284 |
GAD_ADVECTION |
& withSigns, maskLocW,maskLocS, bi,bj, myThid ) |
./pkg/generic_advdiff/gad_advection.F |
353 |
GAD_ADVECTION |
& localTij, bi,bj, myThid ) |
./pkg/generic_advdiff/gad_advection.F |
367 |
GAD_ADVECTION |
O af, myThid ) |
./pkg/generic_advdiff/gad_advection.F |
371 |
GAD_ADVECTION |
O af, myThid ) |
./pkg/generic_advdiff/gad_advection.F |
375 |
GAD_ADVECTION |
O af, myThid ) |
./pkg/generic_advdiff/gad_advection.F |
379 |
GAD_ADVECTION |
O af, myThid ) |
./pkg/generic_advdiff/gad_advection.F |
384 |
GAD_ADVECTION |
O af, myThid ) |
./pkg/generic_advdiff/gad_advection.F |
393 |
GAD_ADVECTION |
& localTij, bi,bj, myThid ) |
./pkg/generic_advdiff/gad_advection.F |
467 |
GAD_ADVECTION |
CALL OBCS_APPLY_TLOC( bi, bj, k, localTij, myThid ) |
./pkg/generic_advdiff/gad_advection.F |
469 |
GAD_ADVECTION |
CALL OBCS_APPLY_SLOC( bi, bj, k, localTij, myThid ) |
./pkg/generic_advdiff/gad_advection.F |
473 |
GAD_ADVECTION |
& tracerIdentity-GAD_TR1+1, localTij, myThid ) |
./pkg/generic_advdiff/gad_advection.F |
515 |
GAD_ADVECTION |
& localTij, bi,bj, myThid ) |
./pkg/generic_advdiff/gad_advection.F |
536 |
GAD_ADVECTION |
O af, myThid ) |
./pkg/generic_advdiff/gad_advection.F |
540 |
GAD_ADVECTION |
O af, myThid ) |
./pkg/generic_advdiff/gad_advection.F |
544 |
GAD_ADVECTION |
O af, myThid ) |
./pkg/generic_advdiff/gad_advection.F |
548 |
GAD_ADVECTION |
O af, myThid ) |
./pkg/generic_advdiff/gad_advection.F |
553 |
GAD_ADVECTION |
O af, myThid ) |
./pkg/generic_advdiff/gad_advection.F |
562 |
GAD_ADVECTION |
& localTij, bi,bj, myThid ) |
./pkg/generic_advdiff/gad_advection.F |
636 |
GAD_ADVECTION |
CALL OBCS_APPLY_TLOC( bi, bj, k, localTij, myThid ) |
./pkg/generic_advdiff/gad_advection.F |
638 |
GAD_ADVECTION |
CALL OBCS_APPLY_SLOC( bi, bj, k, localTij, myThid ) |
./pkg/generic_advdiff/gad_advection.F |
642 |
GAD_ADVECTION |
& tracerIdentity-GAD_TR1+1, localTij, myThid ) |
./pkg/generic_advdiff/gad_advection.F |
678 |
GAD_ADVECTION |
CALL DIAGNOSTICS_FILL(afx,diagName, k,1, 2,bi,bj, myThid) |
./pkg/generic_advdiff/gad_advection.F |
682 |
GAD_ADVECTION |
CALL DIAGNOSTICS_FILL(afy,diagName, k,1, 2,bi,bj, myThid) |
./pkg/generic_advdiff/gad_advection.F |
693 |
GAD_ADVECTION |
& afx,afy, k, standardMessageUnit,bi,bj,myThid ) |
./pkg/generic_advdiff/gad_advection.F |
772 |
GAD_ADVECTION |
I k, bi, bj, myThid ) |
./pkg/generic_advdiff/gad_advection.F |
787 |
GAD_ADVECTION |
O fVerT(1-Olx,1-Oly,kUp), myThid ) |
./pkg/generic_advdiff/gad_advection.F |
791 |
GAD_ADVECTION |
O fVerT(1-Olx,1-Oly,kUp), myThid ) |
./pkg/generic_advdiff/gad_advection.F |
795 |
GAD_ADVECTION |
O fVerT(1-Olx,1-Oly,kUp), myThid ) |
./pkg/generic_advdiff/gad_advection.F |
799 |
GAD_ADVECTION |
O fVerT(1-Olx,1-Oly,kUp), myThid ) |
./pkg/generic_advdiff/gad_advection.F |
804 |
GAD_ADVECTION |
O fVerT(1-Olx,1-Oly,kUp), myThid ) |
./pkg/generic_advdiff/gad_advection.F |
81 |
GAD_ADVECTION |
INTEGER myThid |
./pkg/generic_advdiff/gad_advection.F |
845 |
GAD_ADVECTION |
& diagName, k,1, 2,bi,bj, myThid) |
./pkg/generic_advdiff/gad_biharm_x.F |
14 |
GAD_BIHARM_X |
I myThid ) |
./pkg/generic_advdiff/gad_biharm_x.F |
39 |
GAD_BIHARM_X |
INTEGER myThid |
./pkg/generic_advdiff/gad_biharm_y.F |
14 |
GAD_BIHARM_Y |
I myThid ) |
./pkg/generic_advdiff/gad_biharm_y.F |
39 |
GAD_BIHARM_Y |
INTEGER myThid |
./pkg/generic_advdiff/gad_c2_adv_r.F |
15 |
GAD_C2_ADV_R |
I myThid ) |
./pkg/generic_advdiff/gad_c2_adv_r.F |
40 |
GAD_C2_ADV_R |
INTEGER myThid |
./pkg/generic_advdiff/gad_c2_adv_x.F |
15 |
GAD_C2_ADV_X |
I myThid ) |
./pkg/generic_advdiff/gad_c2_adv_x.F |
38 |
GAD_C2_ADV_X |
INTEGER myThid |
./pkg/generic_advdiff/gad_c2_adv_y.F |
15 |
GAD_C2_ADV_Y |
I myThid ) |
./pkg/generic_advdiff/gad_c2_adv_y.F |
38 |
GAD_C2_ADV_Y |
INTEGER myThid |
./pkg/generic_advdiff/gad_c2_impl_r.F |
13 |
GAD_C2_IMPL_R |
I myThid ) |
./pkg/generic_advdiff/gad_c2_impl_r.F |
48 |
GAD_C2_IMPL_R |
INTEGER myThid |
./pkg/generic_advdiff/gad_c4_adv_r.F |
15 |
GAD_C4_ADV_R |
I myThid ) |
./pkg/generic_advdiff/gad_c4_adv_r.F |
42 |
GAD_C4_ADV_R |
INTEGER myThid |
./pkg/generic_advdiff/gad_c4_adv_x.F |
15 |
GAD_C4_ADV_X |
I myThid ) |
./pkg/generic_advdiff/gad_c4_adv_x.F |
42 |
GAD_C4_ADV_X |
INTEGER myThid |
./pkg/generic_advdiff/gad_c4_adv_y.F |
15 |
GAD_C4_ADV_Y |
I myThid ) |
./pkg/generic_advdiff/gad_c4_adv_y.F |
42 |
GAD_C4_ADV_Y |
INTEGER myThid |
./pkg/generic_advdiff/gad_calc_rhs.F |
110 |
GAD_CALC_RHS |
INTEGER myIter, myThid |
./pkg/generic_advdiff/gad_calc_rhs.F |
155 |
GAD_CALC_RHS |
diagSufx = GAD_DIAG_SUFX( tracerIdentity, myThid ) |
./pkg/generic_advdiff/gad_calc_rhs.F |
204 |
GAD_CALC_RHS |
CALL GAD_GRAD_X(bi,bj,k,xA,localT,fZon,myThid) |
./pkg/generic_advdiff/gad_calc_rhs.F |
205 |
GAD_CALC_RHS |
CALL GAD_GRAD_Y(bi,bj,k,yA,localT,fMer,myThid) |
./pkg/generic_advdiff/gad_calc_rhs.F |
206 |
GAD_CALC_RHS |
CALL GAD_DEL2(bi,bj,k,fZon,fMer,df4,myThid) |
./pkg/generic_advdiff/gad_calc_rhs.F |
20 |
GAD_CALC_RHS |
I myTime, myIter, myThid ) |
./pkg/generic_advdiff/gad_calc_rhs.F |
219 |
GAD_CALC_RHS |
CALL GAD_C2_ADV_X(bi,bj,k,uTrans,locABT,af,myThid) |
./pkg/generic_advdiff/gad_calc_rhs.F |
224 |
GAD_CALC_RHS |
O af, myThid ) |
./pkg/generic_advdiff/gad_calc_rhs.F |
228 |
GAD_CALC_RHS |
O af, myThid ) |
./pkg/generic_advdiff/gad_calc_rhs.F |
230 |
GAD_CALC_RHS |
CALL GAD_U3_ADV_X(bi,bj,k,uTrans,locABT,af,myThid) |
./pkg/generic_advdiff/gad_calc_rhs.F |
232 |
GAD_CALC_RHS |
CALL GAD_C4_ADV_X(bi,bj,k,uTrans,locABT,af,myThid) |
./pkg/generic_advdiff/gad_calc_rhs.F |
236 |
GAD_CALC_RHS |
O af, myThid ) |
./pkg/generic_advdiff/gad_calc_rhs.F |
244 |
GAD_CALC_RHS |
O af, myThid ) |
./pkg/generic_advdiff/gad_calc_rhs.F |
248 |
GAD_CALC_RHS |
O af, myThid ) |
./pkg/generic_advdiff/gad_calc_rhs.F |
254 |
GAD_CALC_RHS |
O af, myThid ) |
./pkg/generic_advdiff/gad_calc_rhs.F |
267 |
GAD_CALC_RHS |
CALL DIAGNOSTICS_FILL(af,diagName, k,1, 2,bi,bj, myThid) |
./pkg/generic_advdiff/gad_calc_rhs.F |
274 |
GAD_CALC_RHS |
CALL GAD_DIFF_X(bi,bj,k,xA,diffKh,localT,df,myThid) |
./pkg/generic_advdiff/gad_calc_rhs.F |
285 |
GAD_CALC_RHS |
CALL GAD_BIHARM_X(bi,bj,k,xA,df4,diffK4,df,myThid) |
./pkg/generic_advdiff/gad_calc_rhs.F |
297 |
GAD_CALC_RHS |
I myThid) |
./pkg/generic_advdiff/gad_calc_rhs.F |
303 |
GAD_CALC_RHS |
I myThid) |
./pkg/generic_advdiff/gad_calc_rhs.F |
320 |
GAD_CALC_RHS |
CALL DIAGNOSTICS_FILL(df,diagName, k,1, 2,bi,bj, myThid) |
./pkg/generic_advdiff/gad_calc_rhs.F |
334 |
GAD_CALC_RHS |
CALL GAD_C2_ADV_Y(bi,bj,k,vTrans,locABT,af,myThid) |
./pkg/generic_advdiff/gad_calc_rhs.F |
339 |
GAD_CALC_RHS |
O af, myThid ) |
./pkg/generic_advdiff/gad_calc_rhs.F |
343 |
GAD_CALC_RHS |
O af, myThid ) |
./pkg/generic_advdiff/gad_calc_rhs.F |
345 |
GAD_CALC_RHS |
CALL GAD_U3_ADV_Y(bi,bj,k,vTrans,locABT,af,myThid) |
./pkg/generic_advdiff/gad_calc_rhs.F |
347 |
GAD_CALC_RHS |
CALL GAD_C4_ADV_Y(bi,bj,k,vTrans,locABT,af,myThid) |
./pkg/generic_advdiff/gad_calc_rhs.F |
351 |
GAD_CALC_RHS |
O af, myThid ) |
./pkg/generic_advdiff/gad_calc_rhs.F |
359 |
GAD_CALC_RHS |
O af, myThid ) |
./pkg/generic_advdiff/gad_calc_rhs.F |
363 |
GAD_CALC_RHS |
O af, myThid ) |
./pkg/generic_advdiff/gad_calc_rhs.F |
369 |
GAD_CALC_RHS |
O af, myThid ) |
./pkg/generic_advdiff/gad_calc_rhs.F |
382 |
GAD_CALC_RHS |
CALL DIAGNOSTICS_FILL(af,diagName, k,1, 2,bi,bj, myThid) |
./pkg/generic_advdiff/gad_calc_rhs.F |
389 |
GAD_CALC_RHS |
CALL GAD_DIFF_Y(bi,bj,k,yA,diffKh,localT,df,myThid) |
./pkg/generic_advdiff/gad_calc_rhs.F |
400 |
GAD_CALC_RHS |
CALL GAD_BIHARM_Y(bi,bj,k,yA,df4,diffK4,df,myThid) |
./pkg/generic_advdiff/gad_calc_rhs.F |
412 |
GAD_CALC_RHS |
I myThid) |
./pkg/generic_advdiff/gad_calc_rhs.F |
418 |
GAD_CALC_RHS |
I myThid) |
./pkg/generic_advdiff/gad_calc_rhs.F |
435 |
GAD_CALC_RHS |
CALL DIAGNOSTICS_FILL(df,diagName, k,1, 2,bi,bj, myThid) |
./pkg/generic_advdiff/gad_calc_rhs.F |
451 |
GAD_CALC_RHS |
CALL GAD_C2_ADV_R(bi,bj,k,rTrans,TracAB,af,myThid) |
./pkg/generic_advdiff/gad_calc_rhs.F |
456 |
GAD_CALC_RHS |
O af, myThid ) |
./pkg/generic_advdiff/gad_calc_rhs.F |
460 |
GAD_CALC_RHS |
O af, myThid ) |
./pkg/generic_advdiff/gad_calc_rhs.F |
462 |
GAD_CALC_RHS |
CALL GAD_U3_ADV_R(bi,bj,k,rTrans,TracAB,af,myThid) |
./pkg/generic_advdiff/gad_calc_rhs.F |
464 |
GAD_CALC_RHS |
CALL GAD_C4_ADV_R(bi,bj,k,rTrans,TracAB,af,myThid) |
./pkg/generic_advdiff/gad_calc_rhs.F |
468 |
GAD_CALC_RHS |
O af, myThid ) |
./pkg/generic_advdiff/gad_calc_rhs.F |
476 |
GAD_CALC_RHS |
O af, myThid ) |
./pkg/generic_advdiff/gad_calc_rhs.F |
480 |
GAD_CALC_RHS |
O af, myThid ) |
./pkg/generic_advdiff/gad_calc_rhs.F |
486 |
GAD_CALC_RHS |
O af, myThid ) |
./pkg/generic_advdiff/gad_calc_rhs.F |
500 |
GAD_CALC_RHS |
CALL DIAGNOSTICS_FILL(af,diagName, k,1, 2,bi,bj, myThid) |
./pkg/generic_advdiff/gad_calc_rhs.F |
503 |
GAD_CALC_RHS |
IF ( k.EQ.2 ) CALL DIAGNOSTICS_COUNT(diagName,bi,bj,myThid) |
./pkg/generic_advdiff/gad_calc_rhs.F |
519 |
GAD_CALC_RHS |
CALL GAD_DIFF_R(bi,bj,k,KappaR,TracerN,df,myThid) |
./pkg/generic_advdiff/gad_calc_rhs.F |
521 |
GAD_CALC_RHS |
CALL GAD_DIFF_R(bi,bj,k,KappaR,TracAB, df,myThid) |
./pkg/generic_advdiff/gad_calc_rhs.F |
534 |
GAD_CALC_RHS |
I myThid) |
./pkg/generic_advdiff/gad_calc_rhs.F |
540 |
GAD_CALC_RHS |
I myThid) |
./pkg/generic_advdiff/gad_calc_rhs.F |
557 |
GAD_CALC_RHS |
CALL DIAGNOSTICS_FILL(df,diagName, k,1, 2,bi,bj, myThid) |
./pkg/generic_advdiff/gad_calc_rhs.F |
573 |
GAD_CALC_RHS |
I myTime, myIter, myThid ) |
./pkg/generic_advdiff/gad_calc_rhs.F |
578 |
GAD_CALC_RHS |
I myTime, myIter, myThid ) |
./pkg/generic_advdiff/gad_calc_rhs.F |
585 |
GAD_CALC_RHS |
I myTime, myIter, myThid ) |
./pkg/generic_advdiff/gad_calc_rhs.F |
602 |
GAD_CALC_RHS |
CALL DIAGNOSTICS_FILL( df, diagName, k,1, 2,bi,bj, myThid ) |
./pkg/generic_advdiff/gad_calc_rhs.F |
605 |
GAD_CALC_RHS |
IF ( k.EQ.2 ) CALL DIAGNOSTICS_COUNT(diagName,bi,bj,myThid) |
./pkg/generic_advdiff/gad_calc_rhs.F |
714 |
GAD_CALC_RHS |
& fZon,fMer, k, standardMessageUnit,bi,bj,myThid ) |
./pkg/generic_advdiff/gad_check.F |
112 |
GAD_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/generic_advdiff/gad_check.F |
115 |
GAD_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/generic_advdiff/gad_check.F |
119 |
GAD_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/generic_advdiff/gad_check.F |
123 |
GAD_CHECK |
_END_MASTER(myThid) |
./pkg/generic_advdiff/gad_check.F |
31 |
GAD_CHECK |
INTEGER myThid |
./pkg/generic_advdiff/gad_check.F |
41 |
GAD_CHECK |
_BEGIN_MASTER(myThid) |
./pkg/generic_advdiff/gad_check.F |
45 |
GAD_CHECK |
& SQUEEZE_RIGHT , myThid ) |
./pkg/generic_advdiff/gad_check.F |
58 |
GAD_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/generic_advdiff/gad_check.F |
61 |
GAD_CHECK |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/generic_advdiff/gad_check.F |
75 |
GAD_CHECK |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/generic_advdiff/gad_check.F |
93 |
GAD_CHECK |
& SQUEEZE_RIGHT , myThid) |
./pkg/generic_advdiff/gad_check.F |
97 |
GAD_CHECK |
& SQUEEZE_RIGHT , myThid) |
./pkg/generic_advdiff/gad_check.F |
9 |
GAD_CHECK |
SUBROUTINE GAD_CHECK( myThid ) |
./pkg/generic_advdiff/gad_del2.F |
14 |
GAD_DEL2 |
I myThid ) |
./pkg/generic_advdiff/gad_del2.F |
36 |
GAD_DEL2 |
INTEGER myThid |
./pkg/generic_advdiff/gad_diagnostics_init.F |
100 |
GAD_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/generic_advdiff/gad_diagnostics_init.F |
106 |
GAD_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/generic_advdiff/gad_diagnostics_init.F |
113 |
GAD_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/generic_advdiff/gad_diagnostics_init.F |
116 |
GAD_DIAGNOSTICS_INIT |
diagUnits = DIAGS_MK_UNITS( trUnits, myThid ) |
./pkg/generic_advdiff/gad_diagnostics_init.F |
123 |
GAD_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/generic_advdiff/gad_diagnostics_init.F |
129 |
GAD_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/generic_advdiff/gad_diagnostics_init.F |
134 |
GAD_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/generic_advdiff/gad_diagnostics_init.F |
141 |
GAD_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/generic_advdiff/gad_diagnostics_init.F |
147 |
GAD_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/generic_advdiff/gad_diagnostics_init.F |
152 |
GAD_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/generic_advdiff/gad_diagnostics_init.F |
158 |
GAD_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/generic_advdiff/gad_diagnostics_init.F |
164 |
GAD_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/generic_advdiff/gad_diagnostics_init.F |
170 |
GAD_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/generic_advdiff/gad_diagnostics_init.F |
172 |
GAD_DIAGNOSTICS_INIT |
diagUnits = DIAGS_MK_UNITS( '('//trUnits//')^2', myThid ) |
./pkg/generic_advdiff/gad_diagnostics_init.F |
177 |
GAD_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/generic_advdiff/gad_diagnostics_init.F |
193 |
GAD_DIAGNOSTICS_INIT |
diagUnits = DIAGS_MK_UNITS( trUnits//flxUnits, myThid ) |
./pkg/generic_advdiff/gad_diagnostics_init.F |
194 |
GAD_DIAGNOSTICS_INIT |
diagSufx = GAD_DIAG_SUFX( GAD_SALINITY, myThid ) |
./pkg/generic_advdiff/gad_diagnostics_init.F |
201 |
GAD_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/generic_advdiff/gad_diagnostics_init.F |
207 |
GAD_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/generic_advdiff/gad_diagnostics_init.F |
213 |
GAD_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/generic_advdiff/gad_diagnostics_init.F |
220 |
GAD_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/generic_advdiff/gad_diagnostics_init.F |
226 |
GAD_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/generic_advdiff/gad_diagnostics_init.F |
232 |
GAD_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/generic_advdiff/gad_diagnostics_init.F |
239 |
GAD_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/generic_advdiff/gad_diagnostics_init.F |
245 |
GAD_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/generic_advdiff/gad_diagnostics_init.F |
249 |
GAD_DIAGNOSTICS_INIT |
diagUnits = DIAGS_MK_UNITS( trUnits, myThid ) |
./pkg/generic_advdiff/gad_diagnostics_init.F |
24 |
GAD_DIAGNOSTICS_INIT |
INTEGER myThid |
./pkg/generic_advdiff/gad_diagnostics_init.F |
256 |
GAD_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/generic_advdiff/gad_diagnostics_init.F |
262 |
GAD_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/generic_advdiff/gad_diagnostics_init.F |
267 |
GAD_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/generic_advdiff/gad_diagnostics_init.F |
274 |
GAD_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/generic_advdiff/gad_diagnostics_init.F |
280 |
GAD_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/generic_advdiff/gad_diagnostics_init.F |
285 |
GAD_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/generic_advdiff/gad_diagnostics_init.F |
291 |
GAD_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/generic_advdiff/gad_diagnostics_init.F |
297 |
GAD_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/generic_advdiff/gad_diagnostics_init.F |
303 |
GAD_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/generic_advdiff/gad_diagnostics_init.F |
305 |
GAD_DIAGNOSTICS_INIT |
diagUnits = DIAGS_MK_UNITS( '('//trUnits//')^2', myThid ) |
./pkg/generic_advdiff/gad_diagnostics_init.F |
310 |
GAD_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/generic_advdiff/gad_diagnostics_init.F |
326 |
GAD_DIAGNOSTICS_INIT |
CHARACTER*4 FUNCTION GAD_DIAG_SUFX( tracerId, myThid ) |
./pkg/generic_advdiff/gad_diagnostics_init.F |
350 |
GAD_DIAGNOSTICS_INIT |
INTEGER myThid |
./pkg/generic_advdiff/gad_diagnostics_init.F |
67 |
GAD_DIAGNOSTICS_INIT |
diagUnits = DIAGS_MK_UNITS( trUnits//flxUnits, myThid ) |
./pkg/generic_advdiff/gad_diagnostics_init.F |
68 |
GAD_DIAGNOSTICS_INIT |
diagSufx = GAD_DIAG_SUFX( GAD_TEMPERATURE, myThid ) |
./pkg/generic_advdiff/gad_diagnostics_init.F |
75 |
GAD_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/generic_advdiff/gad_diagnostics_init.F |
81 |
GAD_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/generic_advdiff/gad_diagnostics_init.F |
87 |
GAD_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/generic_advdiff/gad_diagnostics_init.F |
94 |
GAD_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/generic_advdiff/gad_diagnostics_init.F |
9 |
GAD_DIAGNOSTICS_INIT |
SUBROUTINE GAD_DIAGNOSTICS_INIT( myThid ) |
./pkg/generic_advdiff/gad_diagnostics_state.F |
102 |
GAD_DIAGNOSTICS_STATE |
diagSufx = GAD_DIAG_SUFX( GAD_SALINITY, myThid ) |
./pkg/generic_advdiff/gad_diagnostics_state.F |
107 |
GAD_DIAGNOSTICS_STATE |
& 0, Nr, 0, 1, 1, myThid ) |
./pkg/generic_advdiff/gad_diagnostics_state.F |
111 |
GAD_DIAGNOSTICS_STATE |
IF ( DIAGNOSTICS_IS_ON( diagName, myThid ) ) THEN |
./pkg/generic_advdiff/gad_diagnostics_state.F |
112 |
GAD_DIAGNOSTICS_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/generic_advdiff/gad_diagnostics_state.F |
113 |
GAD_DIAGNOSTICS_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/generic_advdiff/gad_diagnostics_state.F |
11 |
GAD_DIAGNOSTICS_STATE |
SUBROUTINE GAD_DIAGNOSTICS_STATE( myTime, myIter, myThid ) |
./pkg/generic_advdiff/gad_diagnostics_state.F |
140 |
GAD_DIAGNOSTICS_STATE |
& 0, Nr, 2, bi, bj, myThid ) |
./pkg/generic_advdiff/gad_diagnostics_state.F |
31 |
GAD_DIAGNOSTICS_STATE |
INTEGER myThid |
./pkg/generic_advdiff/gad_diagnostics_state.F |
57 |
GAD_DIAGNOSTICS_STATE |
diagSufx = GAD_DIAG_SUFX( GAD_TEMPERATURE, myThid ) |
./pkg/generic_advdiff/gad_diagnostics_state.F |
62 |
GAD_DIAGNOSTICS_STATE |
& 0, Nr, 0, 1, 1, myThid ) |
./pkg/generic_advdiff/gad_diagnostics_state.F |
66 |
GAD_DIAGNOSTICS_STATE |
IF ( DIAGNOSTICS_IS_ON( diagName, myThid ) ) THEN |
./pkg/generic_advdiff/gad_diagnostics_state.F |
67 |
GAD_DIAGNOSTICS_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/generic_advdiff/gad_diagnostics_state.F |
68 |
GAD_DIAGNOSTICS_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/generic_advdiff/gad_diagnostics_state.F |
96 |
GAD_DIAGNOSTICS_STATE |
& 0, Nr, 2, bi, bj, myThid ) |
./pkg/generic_advdiff/gad_diff_r.F |
15 |
GAD_DIFF_R |
I myThid ) |
./pkg/generic_advdiff/gad_diff_r.F |
40 |
GAD_DIFF_R |
INTEGER myThid |
./pkg/generic_advdiff/gad_diff_x.F |
15 |
GAD_DIFF_X |
I myThid ) |
./pkg/generic_advdiff/gad_diff_x.F |
40 |
GAD_DIFF_X |
INTEGER myThid |
./pkg/generic_advdiff/gad_diff_y.F |
15 |
GAD_DIFF_Y |
I myThid ) |
./pkg/generic_advdiff/gad_diff_y.F |
40 |
GAD_DIFF_Y |
INTEGER myThid |
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
15 |
GAD_DST2U1_ADV_R |
I myThid ) |
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
44 |
GAD_DST2U1_ADV_R |
INTEGER myThid |
./pkg/generic_advdiff/gad_dst2u1_adv_x.F |
15 |
GAD_DST2U1_ADV_X |
I myThid ) |
./pkg/generic_advdiff/gad_dst2u1_adv_x.F |
46 |
GAD_DST2U1_ADV_X |
INTEGER myThid |
./pkg/generic_advdiff/gad_dst2u1_adv_y.F |
15 |
GAD_DST2U1_ADV_Y |
I myThid ) |
./pkg/generic_advdiff/gad_dst2u1_adv_y.F |
45 |
GAD_DST2U1_ADV_Y |
INTEGER myThid |
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
13 |
GAD_DST2U1_IMPL_R |
I myThid ) |
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
52 |
GAD_DST2U1_IMPL_R |
INTEGER myThid |
./pkg/generic_advdiff/gad_dst3_adv_r.F |
15 |
GAD_DST3_ADV_R |
I myThid ) |
./pkg/generic_advdiff/gad_dst3_adv_r.F |
45 |
GAD_DST3_ADV_R |
INTEGER myThid |
./pkg/generic_advdiff/gad_dst3_adv_x.F |
15 |
GAD_DST3_ADV_X |
I myThid ) |
./pkg/generic_advdiff/gad_dst3_adv_x.F |
48 |
GAD_DST3_ADV_X |
INTEGER myThid |
./pkg/generic_advdiff/gad_dst3_adv_y.F |
15 |
GAD_DST3_ADV_Y |
I myThid ) |
./pkg/generic_advdiff/gad_dst3_adv_y.F |
47 |
GAD_DST3_ADV_Y |
INTEGER myThid |
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
15 |
GAD_DST3FL_ADV_R |
I myThid ) |
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
43 |
GAD_DST3FL_ADV_R |
INTEGER myThid |
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
11 |
GAD_DST3FL_ADV_X |
I myThid ) |
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
33 |
GAD_DST3FL_ADV_X |
INTEGER myThid |
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
11 |
GAD_DST3FL_ADV_Y |
I myThid ) |
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
33 |
GAD_DST3FL_ADV_Y |
INTEGER myThid |
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
13 |
GAD_DST3FL_IMPL_R |
I myThid ) |
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
59 |
GAD_DST3FL_IMPL_R |
INTEGER myThid |
./pkg/generic_advdiff/gad_exch_som.F |
11 |
GAD_EXCH_SOM |
I myNz, myThid ) |
./pkg/generic_advdiff/gad_exch_som.F |
36 |
GAD_EXCH_SOM |
INTEGER myThid |
./pkg/generic_advdiff/gad_exch_som.F |
47 |
GAD_EXCH_SOM |
I .TRUE., myNz, myThid ) |
./pkg/generic_advdiff/gad_exch_som.F |
51 |
GAD_EXCH_SOM |
I myNz, myThid ) |
./pkg/generic_advdiff/gad_exch_som.F |
58 |
GAD_EXCH_SOM |
I .FALSE., myNz, myThid ) |
./pkg/generic_advdiff/gad_exch_som.F |
62 |
GAD_EXCH_SOM |
I myNz, myThid ) |
./pkg/generic_advdiff/gad_exch_som.F |
66 |
GAD_EXCH_SOM |
I .TRUE., myNz, myThid ) |
./pkg/generic_advdiff/gad_exch_som.F |
71 |
GAD_EXCH_SOM |
I .TRUE., myNz, myThid ) |
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
15 |
GAD_FLUXLIMIT_ADV_R |
I myThid ) |
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
49 |
GAD_FLUXLIMIT_ADV_R |
INTEGER myThid |
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
15 |
GAD_FLUXLIMIT_ADV_X |
I myThid ) |
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
51 |
GAD_FLUXLIMIT_ADV_X |
INTEGER myThid |
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
15 |
GAD_FLUXLIMIT_ADV_Y |
I myThid ) |
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
51 |
GAD_FLUXLIMIT_ADV_Y |
INTEGER myThid |
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
13 |
GAD_FLUXLIMIT_IMPL_R |
I myThid ) |
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
52 |
GAD_FLUXLIMIT_IMPL_R |
INTEGER myThid |
./pkg/generic_advdiff/gad_grad_x.F |
15 |
GAD_GRAD_X |
I myThid ) |
./pkg/generic_advdiff/gad_grad_x.F |
34 |
GAD_GRAD_X |
INTEGER myThid |
./pkg/generic_advdiff/gad_grad_x.F |
54 |
GAD_GRAD_X |
& tracer, bi,bj, myThid ) |
./pkg/generic_advdiff/gad_grad_y.F |
15 |
GAD_GRAD_Y |
I myThid ) |
./pkg/generic_advdiff/gad_grad_y.F |
34 |
GAD_GRAD_Y |
INTEGER myThid |
./pkg/generic_advdiff/gad_grad_y.F |
54 |
GAD_GRAD_Y |
& tracer, bi,bj, myThid ) |
./pkg/generic_advdiff/gad_implicit_r.F |
14 |
GAD_IMPLICIT_R |
I bi, bj, myTime, myIter, myThid ) |
./pkg/generic_advdiff/gad_implicit_r.F |
204 |
GAD_IMPLICIT_R |
I k, bi, bj, myThid ) |
./pkg/generic_advdiff/gad_implicit_r.F |
231 |
GAD_IMPLICIT_R |
I myThid ) |
./pkg/generic_advdiff/gad_implicit_r.F |
238 |
GAD_IMPLICIT_R |
I myThid ) |
./pkg/generic_advdiff/gad_implicit_r.F |
244 |
GAD_IMPLICIT_R |
I myThid ) |
./pkg/generic_advdiff/gad_implicit_r.F |
252 |
GAD_IMPLICIT_R |
I myThid ) |
./pkg/generic_advdiff/gad_implicit_r.F |
258 |
GAD_IMPLICIT_R |
I myThid ) |
./pkg/generic_advdiff/gad_implicit_r.F |
277 |
GAD_IMPLICIT_R |
I bi, bj, myThid ) |
./pkg/generic_advdiff/gad_implicit_r.F |
287 |
GAD_IMPLICIT_R |
I bi, bj, myThid ) |
./pkg/generic_advdiff/gad_implicit_r.F |
298 |
GAD_IMPLICIT_R |
diagSufx = GAD_DIAG_SUFX( tracerIdentity, myThid ) |
./pkg/generic_advdiff/gad_implicit_r.F |
300 |
GAD_IMPLICIT_R |
IF ( DIAGNOSTICS_IS_ON(diagName,myThid) ) THEN |
./pkg/generic_advdiff/gad_implicit_r.F |
320 |
GAD_IMPLICIT_R |
CALL DIAGNOSTICS_FILL(df,diagName, k,1, 2,bi,bj, myThid) |
./pkg/generic_advdiff/gad_implicit_r.F |
50 |
GAD_IMPLICIT_R |
INTEGER myIter, myThid |
./pkg/generic_advdiff/gad_init_fixed.F |
103 |
GAD_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/generic_advdiff/gad_init_fixed.F |
110 |
GAD_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/generic_advdiff/gad_init_fixed.F |
117 |
GAD_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/generic_advdiff/gad_init_fixed.F |
124 |
GAD_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/generic_advdiff/gad_init_fixed.F |
202 |
GAD_INIT_FIXED |
_END_MASTER(myThid) |
./pkg/generic_advdiff/gad_init_fixed.F |
209 |
GAD_INIT_FIXED |
CALL GAD_DIAGNOSTICS_INIT( myThid ) |
./pkg/generic_advdiff/gad_init_fixed.F |
216 |
GAD_INIT_FIXED |
_BEGIN_MASTER(myThid) |
./pkg/generic_advdiff/gad_init_fixed.F |
25 |
GAD_INIT_FIXED |
INTEGER myThid |
./pkg/generic_advdiff/gad_init_fixed.F |
275 |
GAD_INIT_FIXED |
_END_MASTER(myThid) |
./pkg/generic_advdiff/gad_init_fixed.F |
41 |
GAD_INIT_FIXED |
_BEGIN_MASTER(myThid) |
./pkg/generic_advdiff/gad_init_fixed.F |
61 |
GAD_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/generic_advdiff/gad_init_fixed.F |
64 |
GAD_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/generic_advdiff/gad_init_fixed.F |
9 |
GAD_INIT_FIXED |
SUBROUTINE GAD_INIT_FIXED( myThid ) |
./pkg/generic_advdiff/gad_init_varia.F |
31 |
GAD_INIT_VARIA |
INTEGER myThid |
./pkg/generic_advdiff/gad_init_varia.F |
40 |
GAD_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/generic_advdiff/gad_init_varia.F |
41 |
GAD_INIT_VARIA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/generic_advdiff/gad_init_varia.F |
71 |
GAD_INIT_VARIA |
CALL GAD_READ_PICKUP( nIter0, myThid ) |
./pkg/generic_advdiff/gad_init_varia.F |
72 |
GAD_INIT_VARIA |
CALL GAD_SOM_EXCHANGES( myThid ) |
./pkg/generic_advdiff/gad_init_varia.F |
9 |
GAD_INIT_VARIA |
SUBROUTINE GAD_INIT_VARIA( myThid ) |
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
11 |
GAD_OS7MP_ADV_R |
I myThid ) |
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
31 |
GAD_OS7MP_ADV_R |
INTEGER myThid |
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
11 |
GAD_OS7MP_ADV_X |
I myThid ) |
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
33 |
GAD_OS7MP_ADV_X |
INTEGER myThid |
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
11 |
GAD_OS7MP_ADV_Y |
I myThid ) |
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
33 |
GAD_OS7MP_ADV_Y |
INTEGER myThid |
./pkg/generic_advdiff/gad_read_pickup.F |
104 |
GAD_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/generic_advdiff/gad_read_pickup.F |
11 |
GAD_READ_PICKUP |
SUBROUTINE GAD_READ_PICKUP( myIter, myThid ) |
./pkg/generic_advdiff/gad_read_pickup.F |
124 |
GAD_READ_PICKUP |
I myThid ) |
./pkg/generic_advdiff/gad_read_pickup.F |
133 |
GAD_READ_PICKUP |
I iRec, myIter, myThid ) |
./pkg/generic_advdiff/gad_read_pickup.F |
140 |
GAD_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/generic_advdiff/gad_read_pickup.F |
145 |
GAD_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/generic_advdiff/gad_read_pickup.F |
31 |
GAD_READ_PICKUP |
INTEGER myThid |
./pkg/generic_advdiff/gad_read_pickup.F |
83 |
GAD_READ_PICKUP |
I myThid ) |
./pkg/generic_advdiff/gad_read_pickup.F |
92 |
GAD_READ_PICKUP |
I iRec, myIter, myThid ) |
./pkg/generic_advdiff/gad_read_pickup.F |
99 |
GAD_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/generic_advdiff/gad_som_adv_r.F |
20 |
GAD_SOM_ADV_R |
I myThid ) |
./pkg/generic_advdiff/gad_som_adv_r.F |
59 |
GAD_SOM_ADV_R |
INTEGER myThid |
./pkg/generic_advdiff/gad_som_adv_x.F |
18 |
GAD_SOM_ADV_X |
I myThid ) |
./pkg/generic_advdiff/gad_som_adv_x.F |
56 |
GAD_SOM_ADV_X |
INTEGER myThid |
./pkg/generic_advdiff/gad_som_adv_y.F |
18 |
GAD_SOM_ADV_Y |
I myThid ) |
./pkg/generic_advdiff/gad_som_adv_y.F |
56 |
GAD_SOM_ADV_Y |
INTEGER myThid |
./pkg/generic_advdiff/gad_som_advect.F |
166 |
GAD_SOM_ADVECT |
diagSufx = GAD_DIAG_SUFX( tracerIdentity, myThid ) |
./pkg/generic_advdiff/gad_som_advect.F |
168 |
GAD_SOM_ADVECT |
doDiagAdvX = DIAGNOSTICS_IS_ON( diagName, myThid ) |
./pkg/generic_advdiff/gad_som_advect.F |
170 |
GAD_SOM_ADVECT |
doDiagAdvY = DIAGNOSTICS_IS_ON( diagName, myThid ) |
./pkg/generic_advdiff/gad_som_advect.F |
172 |
GAD_SOM_ADVECT |
doDiagAdvR = DIAGNOSTICS_IS_ON( diagName, myThid ) |
./pkg/generic_advdiff/gad_som_advect.F |
17 |
GAD_SOM_ADVECT |
I bi,bj, myTime,myIter,myThid) |
./pkg/generic_advdiff/gad_som_advect.F |
208 |
GAD_SOM_ADVECT |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/generic_advdiff/gad_som_advect.F |
214 |
GAD_SOM_ADVECT |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/generic_advdiff/gad_som_advect.F |
253 |
GAD_SOM_ADVECT |
I k,bi,bj, myThid ) |
./pkg/generic_advdiff/gad_som_advect.F |
260 |
GAD_SOM_ADVECT |
I k, bi, bj, myThid ) |
./pkg/generic_advdiff/gad_som_advect.F |
321 |
GAD_SOM_ADVECT |
I ipass, k, Nr, bi, bj, myThid ) |
./pkg/generic_advdiff/gad_som_advect.F |
343 |
GAD_SOM_ADVECT |
O afx, myThid ) |
./pkg/generic_advdiff/gad_som_advect.F |
385 |
GAD_SOM_ADVECT |
I iPass, k, Nr, bi, bj, myThid ) |
./pkg/generic_advdiff/gad_som_advect.F |
407 |
GAD_SOM_ADVECT |
O afy, myThid ) |
./pkg/generic_advdiff/gad_som_advect.F |
458 |
GAD_SOM_ADVECT |
CALL DIAGNOSTICS_FILL(afx,diagName, k,1, 2,bi,bj, myThid ) |
./pkg/generic_advdiff/gad_som_advect.F |
462 |
GAD_SOM_ADVECT |
CALL DIAGNOSTICS_FILL(afy,diagName, k,1, 2,bi,bj, myThid ) |
./pkg/generic_advdiff/gad_som_advect.F |
473 |
GAD_SOM_ADVECT |
& afx,afy, k, standardMessageUnit,bi,bj,myThid ) |
./pkg/generic_advdiff/gad_som_advect.F |
496 |
GAD_SOM_ADVECT |
I myThid ) |
./pkg/generic_advdiff/gad_som_advect.F |
587 |
GAD_SOM_ADVECT |
I k, bi, bj, myThid ) |
./pkg/generic_advdiff/gad_som_advect.F |
611 |
GAD_SOM_ADVECT |
O afr, myThid ) |
./pkg/generic_advdiff/gad_som_advect.F |
62 |
GAD_SOM_ADVECT |
INTEGER myThid |
./pkg/generic_advdiff/gad_som_advect.F |
637 |
GAD_SOM_ADVECT |
& diagName, k,1, 2,bi,bj, myThid ) |
./pkg/generic_advdiff/gad_som_exchanges.F |
30 |
GAD_SOM_EXCHANGES |
INTEGER myThid |
./pkg/generic_advdiff/gad_som_exchanges.F |
39 |
GAD_SOM_EXCHANGES |
CALL GAD_EXCH_SOM( som_T, Nr, myThid ) |
./pkg/generic_advdiff/gad_som_exchanges.F |
44 |
GAD_SOM_EXCHANGES |
CALL GAD_EXCH_SOM( som_S, Nr, myThid ) |
./pkg/generic_advdiff/gad_som_exchanges.F |
9 |
GAD_SOM_EXCHANGES |
SUBROUTINE GAD_SOM_EXCHANGES( myThid ) |
./pkg/generic_advdiff/gad_som_fill_cs_corner.F |
13 |
GAD_SOM_FILL_CS_CORNER |
I bi, bj, myThid ) |
./pkg/generic_advdiff/gad_som_fill_cs_corner.F |
59 |
GAD_SOM_FILL_CS_CORNER |
INTEGER myThid |
./pkg/generic_advdiff/gad_som_fill_cs_corner.F |
73 |
GAD_SOM_FILL_CS_CORNER |
& sm_v , bi,bj, myThid ) |
./pkg/generic_advdiff/gad_som_fill_cs_corner.F |
75 |
GAD_SOM_FILL_CS_CORNER |
& sm_o , bi,bj, myThid ) |
./pkg/generic_advdiff/gad_som_fill_cs_corner.F |
77 |
GAD_SOM_FILL_CS_CORNER |
& sm_x , sm_y , bi,bj, myThid ) |
./pkg/generic_advdiff/gad_som_fill_cs_corner.F |
79 |
GAD_SOM_FILL_CS_CORNER |
& sm_z , bi,bj, myThid ) |
./pkg/generic_advdiff/gad_som_fill_cs_corner.F |
81 |
GAD_SOM_FILL_CS_CORNER |
& sm_xx, sm_yy, bi,bj, myThid ) |
./pkg/generic_advdiff/gad_som_fill_cs_corner.F |
83 |
GAD_SOM_FILL_CS_CORNER |
& sm_zz, bi,bj, myThid ) |
./pkg/generic_advdiff/gad_som_fill_cs_corner.F |
85 |
GAD_SOM_FILL_CS_CORNER |
& sm_xy, bi,bj, myThid ) |
./pkg/generic_advdiff/gad_som_fill_cs_corner.F |
87 |
GAD_SOM_FILL_CS_CORNER |
& sm_xz, sm_yz, bi,bj, myThid ) |
./pkg/generic_advdiff/gad_som_lim_r.F |
14 |
GAD_SOM_LIM_R |
I myThid ) |
./pkg/generic_advdiff/gad_som_lim_r.F |
35 |
GAD_SOM_LIM_R |
INTEGER myThid |
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
122 |
GAD_SOM_PREP_CS_CORNER |
I bi, bj, myThid ) |
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
13 |
GAD_SOM_PREP_CS_CORNER |
I iPass, k, myNz, bi, bj, myThid ) |
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
57 |
GAD_SOM_PREP_CS_CORNER |
INTEGER myThid |
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
99 |
GAD_SOM_PREP_CS_CORNER |
I bi, bj, myThid ) |
./pkg/generic_advdiff/gad_u3_adv_r.F |
15 |
GAD_U3_ADV_R |
I myThid ) |
./pkg/generic_advdiff/gad_u3_adv_r.F |
41 |
GAD_U3_ADV_R |
INTEGER myThid |
./pkg/generic_advdiff/gad_u3_adv_x.F |
15 |
GAD_U3_ADV_X |
I myThid ) |
./pkg/generic_advdiff/gad_u3_adv_x.F |
41 |
GAD_U3_ADV_X |
INTEGER myThid |
./pkg/generic_advdiff/gad_u3_adv_y.F |
15 |
GAD_U3_ADV_Y |
I myThid ) |
./pkg/generic_advdiff/gad_u3_adv_y.F |
41 |
GAD_U3_ADV_Y |
INTEGER myThid |
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
13 |
GAD_U3C4_IMPL_R |
I myThid ) |
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
59 |
GAD_U3C4_IMPL_R |
INTEGER myThid |
./pkg/generic_advdiff/gad_write_pickup.F |
103 |
GAD_WRITE_PICKUP |
I iRec, myIter, myThid ) |
./pkg/generic_advdiff/gad_write_pickup.F |
11 |
GAD_WRITE_PICKUP |
I myTime, myIter, myThid ) |
./pkg/generic_advdiff/gad_write_pickup.F |
35 |
GAD_WRITE_PICKUP |
INTEGER myThid |
./pkg/generic_advdiff/gad_write_pickup.F |
64 |
GAD_WRITE_PICKUP |
& SQUEEZE_RIGHT, myThid) |
./pkg/generic_advdiff/gad_write_pickup.F |
86 |
GAD_WRITE_PICKUP |
I iRec, myIter, myThid ) |
./pkg/generic_advdiff/salt_fill.F |
113 |
SALT_FILL |
CALL DIAGNOSTICS_FILL(salt,'SALTFILL',0,Nr,1,bi,bj,myThid) |
./pkg/generic_advdiff/salt_fill.F |
13 |
SALT_FILL |
I flag,myTime,myIter,myThid) |
./pkg/generic_advdiff/salt_fill.F |
52 |
SALT_FILL |
INTEGER myThid |
./pkg/generic_advdiff/salt_fill.F |
70 |
SALT_FILL |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/generic_advdiff/salt_fill.F |
71 |
SALT_FILL |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/generic_advdiff/salt_fill.F |
77 |
SALT_FILL |
& 0,Nr,-1,bi,bj,myThid) |
./pkg/ggl90/ggl90_calc.F |
11 |
GGL90_CALC |
I bi, bj, myTime, myIter, myThid ) |
./pkg/ggl90/ggl90_calc.F |
164 |
GGL90_CALC |
I km1, bi, bj, myThid ) |
./pkg/ggl90/ggl90_calc.F |
170 |
GGL90_CALC |
I k, bi, bj, myThid ) |
./pkg/ggl90/ggl90_calc.F |
51 |
GGL90_CALC |
INTEGER myThid |
./pkg/ggl90/ggl90_calc.F |
538 |
GGL90_CALC |
I bi, bj, myThid ) |
./pkg/ggl90/ggl90_calc.F |
658 |
GGL90_CALC |
& 0,Nr, 1, bi, bj, myThid ) |
./pkg/ggl90/ggl90_calc.F |
660 |
GGL90_CALC |
& 0,Nr, 1, bi, bj, myThid ) |
./pkg/ggl90/ggl90_calc.F |
662 |
GGL90_CALC |
& 0,Nr, 1, bi, bj, myThid ) |
./pkg/ggl90/ggl90_calc.F |
664 |
GGL90_CALC |
& 0,Nr, 1, bi, bj, myThid ) |
./pkg/ggl90/ggl90_calc.F |
666 |
GGL90_CALC |
& 0,Nr, 2, bi, bj, myThid ) |
./pkg/ggl90/ggl90_calc.F |
668 |
GGL90_CALC |
& 0,Nr, 2, bi, bj, myThid ) |
./pkg/ggl90/ggl90_calc_diff.F |
39 |
GGL90_CALC_DIFF |
INTEGER myThid |
./pkg/ggl90/ggl90_calc_diff.F |
9 |
GGL90_CALC_DIFF |
I myThid) |
./pkg/ggl90/ggl90_calc_visc.F |
33 |
GGL90_CALC_VISC |
INTEGER myThid |
./pkg/ggl90/ggl90_calc_visc.F |
9 |
GGL90_CALC_VISC |
I myThid) |
./pkg/ggl90/ggl90_check.F |
21 |
GGL90_CHECK |
INTEGER myThid |
./pkg/ggl90/ggl90_check.F |
31 |
GGL90_CHECK |
& SQUEEZE_RIGHT, myThid ) |
./pkg/ggl90/ggl90_check.F |
37 |
GGL90_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ggl90/ggl90_check.F |
46 |
GGL90_CHECK |
& SQUEEZE_RIGHT, myThid ) |
./pkg/ggl90/ggl90_check.F |
54 |
GGL90_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ggl90/ggl90_check.F |
5 |
GGL90_CHECK |
SUBROUTINE GGL90_CHECK( myThid ) |
./pkg/ggl90/ggl90_check.F |
63 |
GGL90_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ggl90/ggl90_check.F |
71 |
GGL90_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ggl90/ggl90_check.F |
78 |
GGL90_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ggl90/ggl90_check.F |
85 |
GGL90_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ggl90/ggl90_check.F |
93 |
GGL90_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ggl90/ggl90_check.F |
99 |
GGL90_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ggl90/ggl90_checkpoint.F |
18 |
GGL90_READ_PICKUP |
INTEGER myThid |
./pkg/ggl90/ggl90_checkpoint.F |
41 |
GGL90_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, GGL90TKE, 1, myIter, myThid ) |
./pkg/ggl90/ggl90_checkpoint.F |
45 |
GGL90_READ_PICKUP |
_EXCH_XYZ_RL( GGL90TKE, myThid ) |
./pkg/ggl90/ggl90_checkpoint.F |
55 |
GGL90_WRITE_PICKUP |
I myTime, myIter, myThid ) |
./pkg/ggl90/ggl90_checkpoint.F |
6 |
GGL90_READ_PICKUP |
SUBROUTINE GGL90_READ_PICKUP( myIter, myThid ) |
./pkg/ggl90/ggl90_checkpoint.F |
74 |
GGL90_WRITE_PICKUP |
INTEGER myThid |
./pkg/ggl90/ggl90_checkpoint.F |
88 |
GGL90_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, GGL90TKE, 1, myIter, myThid ) |
./pkg/ggl90/ggl90_diagnostics_init.F |
11 |
GGL90_DIAGNOSTICS_INIT |
SUBROUTINE GGL90_DIAGNOSTICS_INIT( myThid ) |
./pkg/ggl90/ggl90_diagnostics_init.F |
24 |
GGL90_DIAGNOSTICS_INIT |
INTEGER myThid |
./pkg/ggl90/ggl90_diagnostics_init.F |
51 |
GGL90_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/ggl90/ggl90_diagnostics_init.F |
58 |
GGL90_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/ggl90/ggl90_diagnostics_init.F |
65 |
GGL90_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/ggl90/ggl90_diagnostics_init.F |
72 |
GGL90_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/ggl90/ggl90_diagnostics_init.F |
79 |
GGL90_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/ggl90/ggl90_diagnostics_init.F |
86 |
GGL90_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/ggl90/ggl90_exchanges.F |
10 |
GGL90_EXCHANGES |
SUBROUTINE GGL90_EXCHANGES( myThid ) |
./pkg/ggl90/ggl90_exchanges.F |
23 |
GGL90_EXCHANGES |
INTEGER myThid |
./pkg/ggl90/ggl90_exchanges.F |
35 |
GGL90_EXCHANGES |
_EXCH_XYZ_RL(GGL90TKE,myThid) |
./pkg/ggl90/ggl90_init_fixed.F |
11 |
GGL90_INIT_FIXED |
SUBROUTINE GGL90_INIT_FIXED( myThid ) |
./pkg/ggl90/ggl90_init_fixed.F |
25 |
GGL90_INIT_FIXED |
INTEGER myThid |
./pkg/ggl90/ggl90_init_fixed.F |
42 |
GGL90_INIT_FIXED |
CALL GGL90_DIAGNOSTICS_INIT( myThid ) |
./pkg/ggl90/ggl90_init_fixed.F |
47 |
GGL90_INIT_FIXED |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/ggl90/ggl90_init_fixed.F |
48 |
GGL90_INIT_FIXED |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/ggl90/ggl90_init_fixed.F |
56 |
GGL90_INIT_FIXED |
& mskCor, bi,bj, myThid ) |
./pkg/ggl90/ggl90_init_varia.F |
18 |
GGL90_INIT_VARIA |
INTEGER myThid |
./pkg/ggl90/ggl90_init_varia.F |
32 |
GGL90_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/ggl90/ggl90_init_varia.F |
33 |
GGL90_INIT_VARIA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/ggl90/ggl90_init_varia.F |
62 |
GGL90_INIT_VARIA |
CALL GGL90_READ_PICKUP( nIter0, myThid ) |
./pkg/ggl90/ggl90_init_varia.F |
66 |
GGL90_INIT_VARIA |
CALL READ_FLD_XYZ_RL( GGL90TKEFile, ' ', GGL90TKE, 0, myThid ) |
./pkg/ggl90/ggl90_init_varia.F |
67 |
GGL90_INIT_VARIA |
_EXCH_XYZ_RL(GGL90TKE,myThid) |
./pkg/ggl90/ggl90_init_varia.F |
68 |
GGL90_INIT_VARIA |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/ggl90/ggl90_init_varia.F |
69 |
GGL90_INIT_VARIA |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/ggl90/ggl90_init_varia.F |
6 |
GGL90_INIT_VARIA |
SUBROUTINE GGL90_INIT_VARIA( myThid ) |
./pkg/ggl90/ggl90_output.F |
108 |
GGL90_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/ggl90/ggl90_output.F |
109 |
GGL90_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/ggl90/ggl90_output.F |
110 |
GGL90_OUTPUT |
CALL TIMEAVE_RESET( GGL90viscArUtave, Nr, bi, bj, myThid ) |
./pkg/ggl90/ggl90_output.F |
111 |
GGL90_OUTPUT |
CALL TIMEAVE_RESET( GGL90viscArVtave, Nr, bi, bj, myThid ) |
./pkg/ggl90/ggl90_output.F |
112 |
GGL90_OUTPUT |
CALL TIMEAVE_RESET( GGL90diffKrtave, Nr, bi, bj, myThid ) |
./pkg/ggl90/ggl90_output.F |
113 |
GGL90_OUTPUT |
CALL TIMEAVE_RESET( GGL90TKEtave, Nr, bi, bj, myThid ) |
./pkg/ggl90/ggl90_output.F |
121 |
GGL90_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/ggl90/ggl90_output.F |
122 |
GGL90_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/ggl90/ggl90_output.F |
124 |
GGL90_OUTPUT |
& Nr, DDTT, bi, bj, myThid ) |
./pkg/ggl90/ggl90_output.F |
126 |
GGL90_OUTPUT |
& Nr, DDTT, bi, bj, myThid ) |
./pkg/ggl90/ggl90_output.F |
128 |
GGL90_OUTPUT |
& Nr, DDTT, bi, bj, myThid ) |
./pkg/ggl90/ggl90_output.F |
130 |
GGL90_OUTPUT |
& Nr, DDTT, bi, bj, myThid ) |
./pkg/ggl90/ggl90_output.F |
143 |
GGL90_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/ggl90/ggl90_output.F |
144 |
GGL90_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/ggl90/ggl90_output.F |
146 |
GGL90_OUTPUT |
& GGL90_timeAve, Nr, bi, bj, myThid ) |
./pkg/ggl90/ggl90_output.F |
148 |
GGL90_OUTPUT |
& GGL90_timeAve, Nr, bi, bj, myThid ) |
./pkg/ggl90/ggl90_output.F |
150 |
GGL90_OUTPUT |
& GGL90_timeAve, Nr, bi, bj, myThid ) |
./pkg/ggl90/ggl90_output.F |
152 |
GGL90_OUTPUT |
& GGL90_timeAve, Nr, bi, bj, myThid ) |
./pkg/ggl90/ggl90_output.F |
159 |
GGL90_OUTPUT |
& GGL90viscArUtave, myIter, myThid ) |
./pkg/ggl90/ggl90_output.F |
161 |
GGL90_OUTPUT |
& GGL90viscArVtave, myIter, myThid ) |
./pkg/ggl90/ggl90_output.F |
163 |
GGL90_OUTPUT |
& GGL90diffKrTave, myIter, myThid ) |
./pkg/ggl90/ggl90_output.F |
165 |
GGL90_OUTPUT |
& GGL90TKETave, myIter, myThid ) |
./pkg/ggl90/ggl90_output.F |
168 |
GGL90_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/ggl90/ggl90_output.F |
169 |
GGL90_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/ggl90/ggl90_output.F |
170 |
GGL90_OUTPUT |
CALL TIMEAVE_RESET( GGL90viscArUtave, Nr, bi, bj, myThid ) |
./pkg/ggl90/ggl90_output.F |
171 |
GGL90_OUTPUT |
CALL TIMEAVE_RESET( GGL90viscArVtave, Nr, bi, bj, myThid ) |
./pkg/ggl90/ggl90_output.F |
172 |
GGL90_OUTPUT |
CALL TIMEAVE_RESET( GGL90diffKrtave, Nr, bi, bj, myThid ) |
./pkg/ggl90/ggl90_output.F |
173 |
GGL90_OUTPUT |
CALL TIMEAVE_RESET( GGL90TKEtave, Nr, bi, bj, myThid ) |
./pkg/ggl90/ggl90_output.F |
57 |
GGL90_OUTPUT |
INTEGER myThid |
./pkg/ggl90/ggl90_output.F |
87 |
GGL90_OUTPUT |
& GGL90viscArU, myIter, myThid ) |
./pkg/ggl90/ggl90_output.F |
89 |
GGL90_OUTPUT |
& GGL90viscArV, myIter, myThid ) |
./pkg/ggl90/ggl90_output.F |
91 |
GGL90_OUTPUT |
& GGL90diffKr, myIter, myThid ) |
./pkg/ggl90/ggl90_output.F |
94 |
GGL90_OUTPUT |
& GGL90TKE, myIter, myThid ) |
./pkg/ggl90/ggl90_output.F |
9 |
GGL90_OUTPUT |
SUBROUTINE GGL90_OUTPUT( myTime, myIter, myThid ) |
./pkg/ggl90/ggl90_readparms.F |
212 |
GGL90_READPARMS |
_END_MASTER(myThid) |
./pkg/ggl90/ggl90_readparms.F |
22 |
GGL90_READPARMS |
INTEGER myThid |
./pkg/ggl90/ggl90_readparms.F |
46 |
GGL90_READPARMS |
_BEGIN_MASTER(myThid) |
./pkg/ggl90/ggl90_readparms.F |
56 |
GGL90_READPARMS |
I myThid ) |
./pkg/ggl90/ggl90_readparms.F |
6 |
GGL90_READPARMS |
SUBROUTINE GGL90_READPARMS( myThid ) |
./pkg/gmredi/gmredi_calc_diff.F |
43 |
GMREDI_CALC_DIFF |
INTEGER myThid |
./pkg/gmredi/gmredi_calc_diff.F |
9 |
GMREDI_CALC_DIFF |
I tracerIdentity,myThid) |
./pkg/gmredi/gmredi_calc_psi_b.F |
116 |
GMREDI_CALC_PSI_B |
I bi, bj, myThid ) |
./pkg/gmredi/gmredi_calc_psi_b.F |
11 |
GMREDI_CALC_PSI_B |
I myThid ) |
./pkg/gmredi/gmredi_calc_psi_b.F |
41 |
GMREDI_CALC_PSI_B |
INTEGER myThid |
./pkg/gmredi/gmredi_calc_psi_b.F |
59 |
GMREDI_CALC_PSI_B |
act1 = bi - myBxLo(myThid) |
./pkg/gmredi/gmredi_calc_psi_b.F |
60 |
GMREDI_CALC_PSI_B |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
./pkg/gmredi/gmredi_calc_psi_b.F |
61 |
GMREDI_CALC_PSI_B |
act2 = bj - myByLo(myThid) |
./pkg/gmredi/gmredi_calc_psi_b.F |
62 |
GMREDI_CALC_PSI_B |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
./pkg/gmredi/gmredi_calc_psi_b.F |
63 |
GMREDI_CALC_PSI_B |
act3 = myThid - 1 |
./pkg/gmredi/gmredi_calc_tensor.F |
117 |
GMREDI_CALC_TENSOR |
act1 = bi - myBxLo(myThid) |
./pkg/gmredi/gmredi_calc_tensor.F |
118 |
GMREDI_CALC_TENSOR |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
./pkg/gmredi/gmredi_calc_tensor.F |
119 |
GMREDI_CALC_TENSOR |
act2 = bj - myByLo(myThid) |
./pkg/gmredi/gmredi_calc_tensor.F |
120 |
GMREDI_CALC_TENSOR |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
./pkg/gmredi/gmredi_calc_tensor.F |
121 |
GMREDI_CALC_TENSOR |
act3 = myThid - 1 |
./pkg/gmredi/gmredi_calc_tensor.F |
132 |
GMREDI_CALC_TENSOR |
doDiagRediFlx = DIAGNOSTICS_IS_ON('GM_KuzTz', myThid ) |
./pkg/gmredi/gmredi_calc_tensor.F |
134 |
GMREDI_CALC_TENSOR |
& DIAGNOSTICS_IS_ON('GM_KvzTz', myThid ) |
./pkg/gmredi/gmredi_calc_tensor.F |
15 |
GMREDI_CALC_TENSOR |
I bi, bj, myTime, myIter, myThid ) |
./pkg/gmredi/gmredi_calc_tensor.F |
389 |
GMREDI_CALC_TENSOR |
I k, bi, bj, myTime, myIter, myThid ) |
./pkg/gmredi/gmredi_calc_tensor.F |
521 |
GMREDI_CALC_TENSOR |
CALL DIAGNOSTICS_FILL( hTransLay, 'GM_hTrsL', 0,1,2,bi,bj,myThid) |
./pkg/gmredi/gmredi_calc_tensor.F |
522 |
GMREDI_CALC_TENSOR |
CALL DIAGNOSTICS_FILL( baseSlope, 'GM_baseS', 0,1,2,bi,bj,myThid) |
./pkg/gmredi/gmredi_calc_tensor.F |
523 |
GMREDI_CALC_TENSOR |
CALL DIAGNOSTICS_FILL(recipLambda,'GM_rLamb', 0,1,2,bi,bj,myThid) |
./pkg/gmredi/gmredi_calc_tensor.F |
59 |
GMREDI_CALC_TENSOR |
INTEGER myThid |
./pkg/gmredi/gmredi_calc_tensor.F |
604 |
GMREDI_CALC_TENSOR |
I k, bi, bj, myTime, myIter, myThid ) |
./pkg/gmredi/gmredi_calc_tensor.F |
707 |
GMREDI_CALC_TENSOR |
CALL DIAGNOSTICS_FILL(tmp1k, 'GM_KuzTz', k,1,2,bi,bj,myThid) |
./pkg/gmredi/gmredi_calc_tensor.F |
789 |
GMREDI_CALC_TENSOR |
I k, bi, bj, myTime, myIter, myThid ) |
./pkg/gmredi/gmredi_calc_tensor.F |
895 |
GMREDI_CALC_TENSOR |
CALL DIAGNOSTICS_FILL(tmp1k, 'GM_KvzTz', k,1,2,bi,bj,myThid) |
./pkg/gmredi/gmredi_calc_tensor.F |
911 |
GMREDI_CALC_TENSOR |
I myThid ) |
./pkg/gmredi/gmredi_calc_tensor.F |
920 |
GMREDI_CALC_TENSOR |
& deltaTclock, bi, bj, myThid ) |
./pkg/gmredi/gmredi_calc_tensor.F |
922 |
GMREDI_CALC_TENSOR |
& deltaTclock, bi, bj, myThid ) |
./pkg/gmredi/gmredi_calc_tensor.F |
924 |
GMREDI_CALC_TENSOR |
& deltaTclock, bi, bj, myThid ) |
./pkg/gmredi/gmredi_calc_tensor.F |
928 |
GMREDI_CALC_TENSOR |
& deltaTclock, bi, bj, myThid ) |
./pkg/gmredi/gmredi_calc_tensor.F |
934 |
GMREDI_CALC_TENSOR |
& deltaTclock, bi, bj, myThid ) |
./pkg/gmredi/gmredi_calc_tensor.F |
936 |
GMREDI_CALC_TENSOR |
& deltaTclock, bi, bj, myThid ) |
./pkg/gmredi/gmredi_calc_tensor.F |
946 |
GMREDI_CALC_TENSOR |
CALL GMREDI_DIAGNOSTICS_FILL(bi,bj,myThid) |
./pkg/gmredi/gmredi_calc_tensor.F |
960 |
GMREDI_CALC_TENSOR_DUMMY |
I bi, bj, myTime, myIter, myThid ) |
./pkg/gmredi/gmredi_calc_tensor.F |
982 |
GMREDI_CALC_TENSOR_DUMMY |
INTEGER myThid |
./pkg/gmredi/gmredi_calc_uvflow.F |
11 |
GMREDI_CALC_UVFLOW |
I k, bi, bj, myThid ) |
./pkg/gmredi/gmredi_calc_uvflow.F |
34 |
GMREDI_CALC_UVFLOW |
INTEGER k, bi, bj, myThid |
./pkg/gmredi/gmredi_calc_wflow.F |
11 |
GMREDI_CALC_WFLOW |
I k, bi, bj, myThid ) |
./pkg/gmredi/gmredi_calc_wflow.F |
34 |
GMREDI_CALC_WFLOW |
INTEGER k, bi, bj, myThid |
./pkg/gmredi/gmredi_check.F |
105 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/gmredi/gmredi_check.F |
114 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/gmredi/gmredi_check.F |
117 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/gmredi/gmredi_check.F |
127 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/gmredi/gmredi_check.F |
12 |
GMREDI_CHECK |
SUBROUTINE GMREDI_CHECK( myThid ) |
./pkg/gmredi/gmredi_check.F |
130 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/gmredi/gmredi_check.F |
140 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/gmredi/gmredi_check.F |
143 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/gmredi/gmredi_check.F |
157 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/gmredi/gmredi_check.F |
163 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/gmredi/gmredi_check.F |
183 |
GMREDI_CHECK |
& SQUEEZE_RIGHT , myThid ) |
./pkg/gmredi/gmredi_check.F |
187 |
GMREDI_CHECK |
_END_MASTER(myThid) |
./pkg/gmredi/gmredi_check.F |
41 |
GMREDI_CHECK |
INTEGER myThid |
./pkg/gmredi/gmredi_check.F |
54 |
GMREDI_CHECK |
_BEGIN_MASTER(myThid) |
./pkg/gmredi/gmredi_check.F |
58 |
GMREDI_CHECK |
& SQUEEZE_RIGHT , myThid ) |
./pkg/gmredi/gmredi_diagnostics_fill.F |
100 |
GMREDI_DIAGNOSTICS_FILL |
& 0,Nr,1,bi,bj,myThid) |
./pkg/gmredi/gmredi_diagnostics_fill.F |
28 |
GMREDI_DIAGNOSTICS_FILL |
INTEGER myThid |
./pkg/gmredi/gmredi_diagnostics_fill.F |
51 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(VisbeckK,'GM_VisbK',0,1,1,bi,bj,myThid) |
./pkg/gmredi/gmredi_diagnostics_fill.F |
55 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(Kux,'GM_Kux ',0,Nr,1,bi,bj,myThid) |
./pkg/gmredi/gmredi_diagnostics_fill.F |
56 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(Kvy,'GM_Kvy ',0,Nr,1,bi,bj,myThid) |
./pkg/gmredi/gmredi_diagnostics_fill.F |
60 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(Kuz,'GM_Kuz ',0,Nr,1,bi,bj,myThid) |
./pkg/gmredi/gmredi_diagnostics_fill.F |
61 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(Kvz,'GM_Kvz ',0,Nr,1,bi,bj,myThid) |
./pkg/gmredi/gmredi_diagnostics_fill.F |
64 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(Kwx,'GM_Kwx ',0,Nr,1,bi,bj,myThid) |
./pkg/gmredi/gmredi_diagnostics_fill.F |
65 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(Kwy,'GM_Kwy ',0,Nr,1,bi,bj,myThid) |
./pkg/gmredi/gmredi_diagnostics_fill.F |
66 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(Kwz,'GM_Kwz ',0,Nr,1,bi,bj,myThid) |
./pkg/gmredi/gmredi_diagnostics_fill.F |
69 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(GM_PsiX,'GM_PsiX ',0,Nr,1,bi,bj,myThid) |
./pkg/gmredi/gmredi_diagnostics_fill.F |
70 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(GM_PsiY,'GM_PsiY ',0,Nr,1,bi,bj,myThid) |
./pkg/gmredi/gmredi_diagnostics_fill.F |
75 |
GMREDI_DIAGNOSTICS_FILL |
IF ( DIAGNOSTICS_IS_ON('GMEdTauX',myThid) ) THEN |
./pkg/gmredi/gmredi_diagnostics_fill.F |
86 |
GMREDI_DIAGNOSTICS_FILL |
& 0,Nr,1,bi,bj,myThid) |
./pkg/gmredi/gmredi_diagnostics_fill.F |
89 |
GMREDI_DIAGNOSTICS_FILL |
IF ( DIAGNOSTICS_IS_ON('GMEdTauY',myThid) ) THEN |
./pkg/gmredi/gmredi_diagnostics_fill.F |
8 |
GMREDI_DIAGNOSTICS_FILL |
I bi, bj, myThid ) |
./pkg/gmredi/gmredi_diagnostics_init.F |
106 |
GMREDI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/gmredi/gmredi_diagnostics_init.F |
114 |
GMREDI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/gmredi/gmredi_diagnostics_init.F |
122 |
GMREDI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/gmredi/gmredi_diagnostics_init.F |
130 |
GMREDI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/gmredi/gmredi_diagnostics_init.F |
137 |
GMREDI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/gmredi/gmredi_diagnostics_init.F |
145 |
GMREDI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/gmredi/gmredi_diagnostics_init.F |
153 |
GMREDI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/gmredi/gmredi_diagnostics_init.F |
161 |
GMREDI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/gmredi/gmredi_diagnostics_init.F |
169 |
GMREDI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/gmredi/gmredi_diagnostics_init.F |
177 |
GMREDI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/gmredi/gmredi_diagnostics_init.F |
185 |
GMREDI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/gmredi/gmredi_diagnostics_init.F |
194 |
GMREDI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/gmredi/gmredi_diagnostics_init.F |
202 |
GMREDI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/gmredi/gmredi_diagnostics_init.F |
30 |
GMREDI_DIAGNOSTICS_INIT |
INTEGER myThid |
./pkg/gmredi/gmredi_diagnostics_init.F |
60 |
GMREDI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/gmredi/gmredi_diagnostics_init.F |
67 |
GMREDI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/gmredi/gmredi_diagnostics_init.F |
74 |
GMREDI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/gmredi/gmredi_diagnostics_init.F |
82 |
GMREDI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/gmredi/gmredi_diagnostics_init.F |
90 |
GMREDI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/gmredi/gmredi_diagnostics_init.F |
98 |
GMREDI_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/gmredi/gmredi_diagnostics_init.F |
9 |
GMREDI_DIAGNOSTICS_INIT |
SUBROUTINE GMREDI_DIAGNOSTICS_INIT( myThid ) |
./pkg/gmredi/gmredi_init_fixed.F |
30 |
GMREDI_INIT_FIXED |
INTEGER myThid |
./pkg/gmredi/gmredi_init_fixed.F |
38 |
GMREDI_INIT_FIXED |
CALL GMREDI_MNC_INIT( myThid ) |
./pkg/gmredi/gmredi_init_fixed.F |
44 |
GMREDI_INIT_FIXED |
CALL GMREDI_DIAGNOSTICS_INIT( myThid ) |
./pkg/gmredi/gmredi_init_fixed.F |
9 |
GMREDI_INIT_FIXED |
SUBROUTINE GMREDI_INIT_FIXED( myThid ) |
./pkg/gmredi/gmredi_init_varia.F |
31 |
GMREDI_INIT_VARIA |
INTEGER myThid |
./pkg/gmredi/gmredi_init_varia.F |
40 |
GMREDI_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/gmredi/gmredi_init_varia.F |
41 |
GMREDI_INIT_VARIA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/gmredi/gmredi_init_varia.F |
71 |
GMREDI_INIT_VARIA |
CALL TIMEAVE_RESET(GM_Kwx_T,Nr, bi,bj,myThid) |
./pkg/gmredi/gmredi_init_varia.F |
72 |
GMREDI_INIT_VARIA |
CALL TIMEAVE_RESET(GM_Kwy_T,Nr, bi,bj,myThid) |
./pkg/gmredi/gmredi_init_varia.F |
73 |
GMREDI_INIT_VARIA |
CALL TIMEAVE_RESET(GM_Kwz_T,Nr, bi,bj,myThid) |
./pkg/gmredi/gmredi_init_varia.F |
76 |
GMREDI_INIT_VARIA |
CALL TIMEAVE_RESET(Visbeck_K_T, 1, bi,bj,myThid) |
./pkg/gmredi/gmredi_init_varia.F |
79 |
GMREDI_INIT_VARIA |
CALL TIMEAVE_RESET(GM_PsiXtave,Nr, bi,bj,myThid) |
./pkg/gmredi/gmredi_init_varia.F |
80 |
GMREDI_INIT_VARIA |
CALL TIMEAVE_RESET(GM_PsiYtave,Nr, bi,bj,myThid) |
./pkg/gmredi/gmredi_init_varia.F |
9 |
GMREDI_INIT_VARIA |
SUBROUTINE GMREDI_INIT_VARIA( myThid ) |
./pkg/gmredi/gmredi_mnc_init.F |
11 |
GMREDI_MNC_INIT |
SUBROUTINE GMREDI_MNC_INIT( myThid ) |
./pkg/gmredi/gmredi_mnc_init.F |
24 |
GMREDI_MNC_INIT |
INTEGER myThid |
./pkg/gmredi/gmredi_mnc_init.F |
32 |
GMREDI_MNC_INIT |
CALL MNC_CW_ADD_VNAME('Kux','U_xy_Hn__C__t', 4,5,myThid) |
./pkg/gmredi/gmredi_mnc_init.F |
33 |
GMREDI_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('Kux','units','m^2/s', myThid) |
./pkg/gmredi/gmredi_mnc_init.F |
36 |
GMREDI_MNC_INIT |
& myThid) |
./pkg/gmredi/gmredi_mnc_init.F |
40 |
GMREDI_MNC_INIT |
CALL MNC_CW_ADD_VNAME('Kvy','V_xy_Hn__C__t', 4,5,myThid) |
./pkg/gmredi/gmredi_mnc_init.F |
41 |
GMREDI_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('Kvy','units','m^2/s', myThid) |
./pkg/gmredi/gmredi_mnc_init.F |
44 |
GMREDI_MNC_INIT |
& myThid) |
./pkg/gmredi/gmredi_mnc_init.F |
46 |
GMREDI_MNC_INIT |
CALL MNC_CW_ADD_VNAME('Kuz','U_xy_Hn__C__t', 4,5,myThid) |
./pkg/gmredi/gmredi_mnc_init.F |
47 |
GMREDI_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('Kuz','units','m^2/s', myThid) |
./pkg/gmredi/gmredi_mnc_init.F |
50 |
GMREDI_MNC_INIT |
& myThid) |
./pkg/gmredi/gmredi_mnc_init.F |
52 |
GMREDI_MNC_INIT |
CALL MNC_CW_ADD_VNAME('Kvz','V_xy_Hn__C__t', 4,5,myThid) |
./pkg/gmredi/gmredi_mnc_init.F |
53 |
GMREDI_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('Kvz','units','m^2/s', myThid) |
./pkg/gmredi/gmredi_mnc_init.F |
56 |
GMREDI_MNC_INIT |
& myThid) |
./pkg/gmredi/gmredi_mnc_init.F |
58 |
GMREDI_MNC_INIT |
CALL MNC_CW_ADD_VNAME('Kwx','Cen_xy_Hn__L__t', 4,5,myThid) |
./pkg/gmredi/gmredi_mnc_init.F |
59 |
GMREDI_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('Kwx','units','m^2/s', myThid) |
./pkg/gmredi/gmredi_mnc_init.F |
62 |
GMREDI_MNC_INIT |
& myThid) |
./pkg/gmredi/gmredi_mnc_init.F |
64 |
GMREDI_MNC_INIT |
CALL MNC_CW_ADD_VNAME('Kwy','Cen_xy_Hn__L__t', 4,5,myThid) |
./pkg/gmredi/gmredi_mnc_init.F |
65 |
GMREDI_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('Kwy','units','m^2/s', myThid) |
./pkg/gmredi/gmredi_mnc_init.F |
68 |
GMREDI_MNC_INIT |
& myThid) |
./pkg/gmredi/gmredi_mnc_init.F |
70 |
GMREDI_MNC_INIT |
CALL MNC_CW_ADD_VNAME('Kwz','Cen_xy_Hn__L__t', 4,5,myThid) |
./pkg/gmredi/gmredi_mnc_init.F |
71 |
GMREDI_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('Kwz','units','m^2/s', myThid) |
./pkg/gmredi/gmredi_mnc_init.F |
74 |
GMREDI_MNC_INIT |
& myThid) |
./pkg/gmredi/gmredi_mnc_init.F |
76 |
GMREDI_MNC_INIT |
CALL MNC_CW_ADD_VNAME('VisbK','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/gmredi/gmredi_mnc_init.F |
77 |
GMREDI_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('VisbK','units','m^2/s', myThid) |
./pkg/gmredi/gmredi_mnc_init.F |
80 |
GMREDI_MNC_INIT |
& myThid) |
./pkg/gmredi/gmredi_mnc_init.F |
82 |
GMREDI_MNC_INIT |
CALL MNC_CW_ADD_VNAME('PsiX','Cen_xy_Hn__C__t',4,5,myThid) |
./pkg/gmredi/gmredi_mnc_init.F |
83 |
GMREDI_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('PsiX','units','m^2/s', myThid) |
./pkg/gmredi/gmredi_mnc_init.F |
86 |
GMREDI_MNC_INIT |
& myThid) |
./pkg/gmredi/gmredi_mnc_init.F |
88 |
GMREDI_MNC_INIT |
CALL MNC_CW_ADD_VNAME('PsiY','Cen_xy_Hn__C__t',4,5,myThid) |
./pkg/gmredi/gmredi_mnc_init.F |
89 |
GMREDI_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('PsiY','units','m^2/s', myThid) |
./pkg/gmredi/gmredi_mnc_init.F |
92 |
GMREDI_MNC_INIT |
& myThid) |
./pkg/gmredi/gmredi_output.F |
10 |
GMREDI_OUTPUT |
SUBROUTINE GMREDI_OUTPUT( myTime, myIter, myThid ) |
./pkg/gmredi/gmredi_output.F |
113 |
GMREDI_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/gmredi/gmredi_output.F |
114 |
GMREDI_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/gmredi/gmredi_output.F |
116 |
GMREDI_OUTPUT |
& Nr, bi, bj, myThid ) |
./pkg/gmredi/gmredi_output.F |
118 |
GMREDI_OUTPUT |
& Nr, bi, bj, myThid ) |
./pkg/gmredi/gmredi_output.F |
120 |
GMREDI_OUTPUT |
& Nr, bi, bj, myThid ) |
./pkg/gmredi/gmredi_output.F |
124 |
GMREDI_OUTPUT |
& 1 , bi, bj, myThid ) |
./pkg/gmredi/gmredi_output.F |
129 |
GMREDI_OUTPUT |
& Nr, bi, bj, myThid ) |
./pkg/gmredi/gmredi_output.F |
131 |
GMREDI_OUTPUT |
& Nr, bi, bj, myThid ) |
./pkg/gmredi/gmredi_output.F |
139 |
GMREDI_OUTPUT |
CALL WRITE_FLD_XYZ_RL('GM_Kwx-T.',suff,GM_Kwx_T,myIter,myThid) |
./pkg/gmredi/gmredi_output.F |
140 |
GMREDI_OUTPUT |
CALL WRITE_FLD_XYZ_RL('GM_Kwy-T.',suff,GM_Kwy_T,myIter,myThid) |
./pkg/gmredi/gmredi_output.F |
141 |
GMREDI_OUTPUT |
CALL WRITE_FLD_XYZ_RL('GM_Kwz-T.',suff,GM_Kwz_T,myIter,myThid) |
./pkg/gmredi/gmredi_output.F |
145 |
GMREDI_OUTPUT |
& myIter,myThid) |
./pkg/gmredi/gmredi_output.F |
150 |
GMREDI_OUTPUT |
& myIter,myThid) |
./pkg/gmredi/gmredi_output.F |
152 |
GMREDI_OUTPUT |
& myIter,myThid) |
./pkg/gmredi/gmredi_output.F |
164 |
GMREDI_OUTPUT |
CALL MNC_CW_SET_UDIM('gm_tave', -1, myThid) |
./pkg/gmredi/gmredi_output.F |
165 |
GMREDI_OUTPUT |
CALL MNC_CW_RL_W_S('D','gm_tave',0,0,'T',myTime,myThid) |
./pkg/gmredi/gmredi_output.F |
166 |
GMREDI_OUTPUT |
CALL MNC_CW_SET_UDIM('gm_tave', 0, myThid) |
./pkg/gmredi/gmredi_output.F |
167 |
GMREDI_OUTPUT |
CALL MNC_CW_I_W_S('I','gm_tave',0,0,'iter',myIter,myThid) |
./pkg/gmredi/gmredi_output.F |
168 |
GMREDI_OUTPUT |
CALL MNC_CW_RL_W(pf,'gm_tave',0,0,'Kwx',GM_Kwx_T,myThid) |
./pkg/gmredi/gmredi_output.F |
169 |
GMREDI_OUTPUT |
CALL MNC_CW_RL_W(pf,'gm_tave',0,0,'Kwy',GM_Kwy_T,myThid) |
./pkg/gmredi/gmredi_output.F |
170 |
GMREDI_OUTPUT |
CALL MNC_CW_RL_W(pf,'gm_tave',0,0,'Kwz',GM_Kwz_T,myThid) |
./pkg/gmredi/gmredi_output.F |
174 |
GMREDI_OUTPUT |
& Visbeck_K_T, myThid) |
./pkg/gmredi/gmredi_output.F |
180 |
GMREDI_OUTPUT |
& pf,'gm_tave',0,0,'PsiX', GM_PsiXtave, myThid) |
./pkg/gmredi/gmredi_output.F |
182 |
GMREDI_OUTPUT |
& pf,'gm_tave',0,0,'PsiY', GM_PsiYtave, myThid) |
./pkg/gmredi/gmredi_output.F |
189 |
GMREDI_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/gmredi/gmredi_output.F |
190 |
GMREDI_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/gmredi/gmredi_output.F |
191 |
GMREDI_OUTPUT |
CALL TIMEAVE_RESET( GM_Kwx_T, Nr, bi, bj, myThid ) |
./pkg/gmredi/gmredi_output.F |
192 |
GMREDI_OUTPUT |
CALL TIMEAVE_RESET( GM_Kwy_T, Nr, bi, bj, myThid ) |
./pkg/gmredi/gmredi_output.F |
193 |
GMREDI_OUTPUT |
CALL TIMEAVE_RESET( GM_Kwz_T, Nr, bi, bj, myThid ) |
./pkg/gmredi/gmredi_output.F |
196 |
GMREDI_OUTPUT |
& CALL TIMEAVE_RESET( Visbeck_K_T, 1, bi, bj, myThid ) |
./pkg/gmredi/gmredi_output.F |
200 |
GMREDI_OUTPUT |
CALL TIMEAVE_RESET( GM_PsiXtave, Nr, bi, bj, myThid ) |
./pkg/gmredi/gmredi_output.F |
201 |
GMREDI_OUTPUT |
CALL TIMEAVE_RESET( GM_PsiYtave, Nr, bi, bj, myThid ) |
./pkg/gmredi/gmredi_output.F |
38 |
GMREDI_OUTPUT |
INTEGER myThid |
./pkg/gmredi/gmredi_output.F |
67 |
GMREDI_OUTPUT |
CALL WRITE_FLD_XYZ_RL( 'GM_Kux.',suff,Kux,myIter,myThid) |
./pkg/gmredi/gmredi_output.F |
68 |
GMREDI_OUTPUT |
CALL WRITE_FLD_XYZ_RL( 'GM_Kvy.',suff,Kvy,myIter,myThid) |
./pkg/gmredi/gmredi_output.F |
72 |
GMREDI_OUTPUT |
CALL WRITE_FLD_XYZ_RL( 'GM_Kuz.',suff,Kuz,myIter,myThid) |
./pkg/gmredi/gmredi_output.F |
73 |
GMREDI_OUTPUT |
CALL WRITE_FLD_XYZ_RL( 'GM_Kvz.',suff,Kvz,myIter,myThid) |
./pkg/gmredi/gmredi_output.F |
85 |
GMREDI_OUTPUT |
CALL MNC_CW_SET_UDIM('gm_inst', -1, myThid) |
./pkg/gmredi/gmredi_output.F |
86 |
GMREDI_OUTPUT |
CALL MNC_CW_RL_W_S('D','gm_inst',0,0,'T',myTime,myThid) |
./pkg/gmredi/gmredi_output.F |
87 |
GMREDI_OUTPUT |
CALL MNC_CW_SET_UDIM('gm_inst', 0, myThid) |
./pkg/gmredi/gmredi_output.F |
88 |
GMREDI_OUTPUT |
CALL MNC_CW_I_W_S('I','gm_inst',0,0,'iter',myIter,myThid) |
./pkg/gmredi/gmredi_output.F |
90 |
GMREDI_OUTPUT |
CALL MNC_CW_RL_W(pf,'gm_inst',0,0,'Kux',Kux,myThid) |
./pkg/gmredi/gmredi_output.F |
91 |
GMREDI_OUTPUT |
CALL MNC_CW_RL_W(pf,'gm_inst',0,0,'Kvy',Kvy,myThid) |
./pkg/gmredi/gmredi_output.F |
95 |
GMREDI_OUTPUT |
CALL MNC_CW_RL_W(pf,'gm_inst',0,0,'Kuz',Kuz,myThid) |
./pkg/gmredi/gmredi_output.F |
96 |
GMREDI_OUTPUT |
CALL MNC_CW_RL_W(pf,'gm_inst',0,0,'Kvz',Kvz,myThid) |
./pkg/gmredi/gmredi_readparms.F |
107 |
GMREDI_READPARMS |
I myThid ) |
./pkg/gmredi/gmredi_readparms.F |
146 |
GMREDI_READPARMS |
_END_MASTER(myThid) |
./pkg/gmredi/gmredi_readparms.F |
32 |
GMREDI_READPARMS |
INTEGER myThid |
./pkg/gmredi/gmredi_readparms.F |
63 |
GMREDI_READPARMS |
_BEGIN_MASTER(myThid) |
./pkg/gmredi/gmredi_readparms.F |
9 |
GMREDI_READPARMS |
SUBROUTINE GMREDI_READPARMS( myThid ) |
./pkg/gmredi/gmredi_rtransport.F |
10 |
GMREDI_RTRANSPORT |
I myThid) |
./pkg/gmredi/gmredi_rtransport.F |
48 |
GMREDI_RTRANSPORT |
INTEGER myThid |
./pkg/gmredi/gmredi_rtransport.F |
64 |
GMREDI_RTRANSPORT |
act1 = bi - myBxLo(myThid) |
./pkg/gmredi/gmredi_rtransport.F |
65 |
GMREDI_RTRANSPORT |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
./pkg/gmredi/gmredi_rtransport.F |
66 |
GMREDI_RTRANSPORT |
act2 = bj - myByLo(myThid) |
./pkg/gmredi/gmredi_rtransport.F |
67 |
GMREDI_RTRANSPORT |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
./pkg/gmredi/gmredi_rtransport.F |
68 |
GMREDI_RTRANSPORT |
act3 = myThid - 1 |
./pkg/gmredi/gmredi_slope_limit.F |
129 |
GMREDI_SLOPE_LIMIT |
act1 = bi - myBxLo(myThid) |
./pkg/gmredi/gmredi_slope_limit.F |
130 |
GMREDI_SLOPE_LIMIT |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
./pkg/gmredi/gmredi_slope_limit.F |
131 |
GMREDI_SLOPE_LIMIT |
act2 = bj - myByLo(myThid) |
./pkg/gmredi/gmredi_slope_limit.F |
132 |
GMREDI_SLOPE_LIMIT |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
./pkg/gmredi/gmredi_slope_limit.F |
133 |
GMREDI_SLOPE_LIMIT |
act3 = myThid - 1 |
./pkg/gmredi/gmredi_slope_limit.F |
16 |
GMREDI_SLOPE_LIMIT |
I k, bi, bj, myTime, myIter, myThid ) |
./pkg/gmredi/gmredi_slope_limit.F |
95 |
GMREDI_SLOPE_LIMIT |
INTEGER myThid |
./pkg/gmredi/gmredi_slope_psi.F |
12 |
GMREDI_SLOPE_PSI |
I bi,bj, myThid ) |
./pkg/gmredi/gmredi_slope_psi.F |
51 |
GMREDI_SLOPE_PSI |
INTEGER K,bi,bj,myThid |
./pkg/gmredi/gmredi_slope_psi.F |
74 |
GMREDI_SLOPE_PSI |
act1 = bi - myBxLo(myThid) |
./pkg/gmredi/gmredi_slope_psi.F |
75 |
GMREDI_SLOPE_PSI |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
./pkg/gmredi/gmredi_slope_psi.F |
76 |
GMREDI_SLOPE_PSI |
act2 = bj - myByLo(myThid) |
./pkg/gmredi/gmredi_slope_psi.F |
77 |
GMREDI_SLOPE_PSI |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
./pkg/gmredi/gmredi_slope_psi.F |
78 |
GMREDI_SLOPE_PSI |
act3 = myThid - 1 |
./pkg/gmredi/gmredi_xtransport.F |
10 |
GMREDI_XTRANSPORT |
I myThid) |
./pkg/gmredi/gmredi_xtransport.F |
193 |
GMREDI_XTRANSPORT |
& .AND. DIAGNOSTICS_IS_ON('GM_ubT ', myThid ) |
./pkg/gmredi/gmredi_xtransport.F |
206 |
GMREDI_XTRANSPORT |
CALL DIAGNOSTICS_FILL(tmp1k,'GM_ubT ', k,1,2,bi,bj,myThid) |
./pkg/gmredi/gmredi_xtransport.F |
44 |
GMREDI_XTRANSPORT |
INTEGER myThid |
./pkg/gmredi/gmredi_xtransport.F |
71 |
GMREDI_XTRANSPORT |
act1 = bi - myBxLo(myThid) |
./pkg/gmredi/gmredi_xtransport.F |
72 |
GMREDI_XTRANSPORT |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
./pkg/gmredi/gmredi_xtransport.F |
73 |
GMREDI_XTRANSPORT |
act2 = bj - myByLo(myThid) |
./pkg/gmredi/gmredi_xtransport.F |
74 |
GMREDI_XTRANSPORT |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
./pkg/gmredi/gmredi_xtransport.F |
75 |
GMREDI_XTRANSPORT |
act3 = myThid - 1 |
./pkg/gmredi/gmredi_ytransport.F |
10 |
GMREDI_YTRANSPORT |
I myThid) |
./pkg/gmredi/gmredi_ytransport.F |
192 |
GMREDI_YTRANSPORT |
& .AND. DIAGNOSTICS_IS_ON('GM_vbT ', myThid ) |
./pkg/gmredi/gmredi_ytransport.F |
205 |
GMREDI_YTRANSPORT |
CALL DIAGNOSTICS_FILL(tmp1k,'GM_vbT ', k,1,2,bi,bj,myThid) |
./pkg/gmredi/gmredi_ytransport.F |
44 |
GMREDI_YTRANSPORT |
INTEGER myThid |
./pkg/gmredi/gmredi_ytransport.F |
71 |
GMREDI_YTRANSPORT |
act1 = bi - myBxLo(myThid) |
./pkg/gmredi/gmredi_ytransport.F |
72 |
GMREDI_YTRANSPORT |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
./pkg/gmredi/gmredi_ytransport.F |
73 |
GMREDI_YTRANSPORT |
act2 = bj - myByLo(myThid) |
./pkg/gmredi/gmredi_ytransport.F |
74 |
GMREDI_YTRANSPORT |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
./pkg/gmredi/gmredi_ytransport.F |
75 |
GMREDI_YTRANSPORT |
act3 = myThid - 1 |
./pkg/grdchk/grdchk_check.F |
31 |
GRDCHK_CHECK |
INTEGER myThid |
./pkg/grdchk/grdchk_check.F |
43 |
GRDCHK_CHECK |
& SQUEEZE_RIGHT, myThid ) |
./pkg/grdchk/grdchk_check.F |
49 |
GRDCHK_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/grdchk/grdchk_check.F |
7 |
GRDCHK_CHECK |
SUBROUTINE GRDCHK_CHECK( myThid ) |
./pkg/grdchk/grdchk_main.F |
511 |
GRDCHK_MAIN |
& 'grd_findiff' , tmpplot1, 1, 0, myThid) |
./pkg/grdchk/grdchk_main.F |
513 |
GRDCHK_MAIN |
& 'grd_ratio_ad' , tmpplot2, 1, 0, myThid) |
./pkg/grdchk/grdchk_main.F |
515 |
GRDCHK_MAIN |
& 'grd_ratio_ftl' , tmpplot3, 1, 0, myThid) |
./pkg/grdchk/grdchk_readparms.F |
116 |
GRDCHK_READPARMS |
I myThid ) |
./pkg/gridalt/gridalt_diagnostics_init.F |
27 |
GRIDALT_DIAGNOSTICS_INIT |
INTEGER myThid |
./pkg/gridalt/gridalt_diagnostics_init.F |
52 |
GRIDALT_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/gridalt/gridalt_diagnostics_init.F |
9 |
GRIDALT_DIAGNOSTICS_INIT |
SUBROUTINE GRIDALT_DIAGNOSTICS_INIT( myThid ) |
./pkg/gridalt/gridalt_initialise.F |
27 |
GRIDALT_INITIALISE |
integer myThid |
./pkg/gridalt/gridalt_initialise.F |
44 |
GRIDALT_INITIALISE |
do bj = myByLo(myThid), myByHi(myThid) |
./pkg/gridalt/gridalt_initialise.F |
45 |
GRIDALT_INITIALISE |
do bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/gridalt/gridalt_initialise.F |
4 |
GRIDALT_INITIALISE |
subroutine GRIDALT_INITIALISE (myThid) |
./pkg/gridalt/gridalt_initialise.F |
63 |
GRIDALT_INITIALISE |
call GRIDALT_DIAGNOSTICS_INIT( myThid ) |
./pkg/gridalt/gridalt_update.F |
27 |
GRIDALT_UPDATE |
integer myThid |
./pkg/gridalt/gridalt_update.F |
49 |
GRIDALT_UPDATE |
do bj = myByLo(myThid), myByHi(myThid) |
./pkg/gridalt/gridalt_update.F |
4 |
GRIDALT_UPDATE |
subroutine GRIDALT_UPDATE(myThid) |
./pkg/gridalt/gridalt_update.F |
50 |
GRIDALT_UPDATE |
do bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/gridalt/gridalt_update.F |
70 |
GRIDALT_UPDATE |
IF ( DIAGNOSTICS_IS_ON('DPPHYS ',myThid) ) THEN |
./pkg/gridalt/gridalt_update.F |
71 |
GRIDALT_UPDATE |
do bj = myByLo(myThid), myByHi(myThid) |
./pkg/gridalt/gridalt_update.F |
72 |
GRIDALT_UPDATE |
do bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/gridalt/gridalt_update.F |
82 |
GRIDALT_UPDATE |
CALL DIAGNOSTICS_FILL(temparr,'DPPHYS ',-1,Nrphys,0,1,1,myThid) |
./pkg/icefront/icefront_check.F |
21 |
ICEFRONT_CHECK |
INTEGER myThid |
./pkg/icefront/icefront_check.F |
29 |
ICEFRONT_CHECK |
_BEGIN_MASTER(myThid) |
./pkg/icefront/icefront_check.F |
33 |
ICEFRONT_CHECK |
& SQUEEZE_RIGHT, myThid ) |
./pkg/icefront/icefront_check.F |
39 |
ICEFRONT_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/icefront/icefront_check.F |
50 |
ICEFRONT_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/icefront/icefront_check.F |
59 |
ICEFRONT_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/icefront/icefront_check.F |
5 |
ICEFRONT_CHECK |
SUBROUTINE ICEFRONT_CHECK( myThid ) |
./pkg/icefront/icefront_check.F |
66 |
ICEFRONT_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/icefront/icefront_check.F |
71 |
ICEFRONT_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/icefront/icefront_check.F |
87 |
ICEFRONT_CHECK |
_END_MASTER(myThid) |
./pkg/icefront/icefront_diagnostics_init.F |
11 |
ICEFRONT_DIAGNOSTICS_INIT |
SUBROUTINE ICEFRONT_DIAGNOSTICS_INIT( myThid ) |
./pkg/icefront/icefront_diagnostics_init.F |
24 |
ICEFRONT_DIAGNOSTICS_INIT |
INTEGER myThid |
./pkg/icefront/icefront_diagnostics_init.F |
49 |
ICEFRONT_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/icefront/icefront_diagnostics_init.F |
56 |
ICEFRONT_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/icefront/icefront_init_fixed.F |
24 |
ICEFRONT_INIT_FIXED |
INTEGER myThid |
./pkg/icefront/icefront_init_fixed.F |
34 |
ICEFRONT_INIT_FIXED |
& icefrontlength, 0, myThid ) |
./pkg/icefront/icefront_init_fixed.F |
35 |
ICEFRONT_INIT_FIXED |
_EXCH_XY_RS( icefrontlength, myThid ) |
./pkg/icefront/icefront_init_fixed.F |
41 |
ICEFRONT_INIT_FIXED |
& R_icefront, 0, myThid ) |
./pkg/icefront/icefront_init_fixed.F |
42 |
ICEFRONT_INIT_FIXED |
_EXCH_XY_RS( R_icefront, myThid ) |
./pkg/icefront/icefront_init_fixed.F |
46 |
ICEFRONT_INIT_FIXED |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/icefront/icefront_init_fixed.F |
47 |
ICEFRONT_INIT_FIXED |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/icefront/icefront_init_fixed.F |
56 |
ICEFRONT_INIT_FIXED |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/icefront/icefront_init_fixed.F |
57 |
ICEFRONT_INIT_FIXED |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/icefront/icefront_init_fixed.F |
6 |
ICEFRONT_INIT_FIXED |
SUBROUTINE ICEFRONT_INIT_FIXED( myThid ) |
./pkg/icefront/icefront_init_fixed.F |
72 |
ICEFRONT_INIT_FIXED |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/icefront/icefront_init_fixed.F |
73 |
ICEFRONT_INIT_FIXED |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/icefront/icefront_init_fixed.F |
90 |
ICEFRONT_INIT_FIXED |
CALL ICEFRONT_DIAGNOSTICS_INIT(myThid) |
./pkg/icefront/icefront_init_varia.F |
28 |
ICEFRONT_INIT_VARIA |
INTEGER myThid |
./pkg/icefront/icefront_init_varia.F |
37 |
ICEFRONT_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/icefront/icefront_init_varia.F |
38 |
ICEFRONT_INIT_VARIA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/icefront/icefront_init_varia.F |
7 |
ICEFRONT_INIT_VARIA |
SUBROUTINE ICEFRONT_INIT_VARIA( myThid ) |
./pkg/icefront/icefront_readparms.F |
104 |
ICEFRONT_READPARMS |
& SQUEEZE_RIGHT, myThid ) |
./pkg/icefront/icefront_readparms.F |
10 |
ICEFRONT_READPARMS |
SUBROUTINE ICEFRONT_READPARMS( myThid ) |
./pkg/icefront/icefront_readparms.F |
115 |
ICEFRONT_READPARMS |
_END_MASTER(myThid) |
./pkg/icefront/icefront_readparms.F |
27 |
ICEFRONT_READPARMS |
INTEGER myThid |
./pkg/icefront/icefront_readparms.F |
53 |
ICEFRONT_READPARMS |
_BEGIN_MASTER(myThid) |
./pkg/icefront/icefront_readparms.F |
95 |
ICEFRONT_READPARMS |
& SQUEEZE_RIGHT, myThid ) |
./pkg/icefront/icefront_readparms.F |
99 |
ICEFRONT_READPARMS |
I myThid ) |
./pkg/icefront/icefront_sgrunoff_read.F |
31 |
SGRUNOFF_READ |
integer myThid |
./pkg/icefront/icefront_sgrunoff_read.F |
44 |
SGRUNOFF_READ |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/icefront/icefront_sgrunoff_read.F |
45 |
SGRUNOFF_READ |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/icefront/icefront_sgrunoff_read.F |
7 |
SGRUNOFF_READ |
I myTime, myIter, myThid) |
./pkg/icefront/icefront_tendency_apply.F |
16 |
ICEFRONT_TENDENCY_APPLY_T |
& bi, bj, k, myTime, myThid ) |
./pkg/icefront/icefront_tendency_apply.F |
31 |
ICEFRONT_TENDENCY_APPLY_T |
INTEGER k, bi, bj, myThid |
./pkg/icefront/icefront_tendency_apply.F |
58 |
ICEFRONT_TENDENCY_APPLY_S |
& bi, bj, k, myTime, myThid ) |
./pkg/icefront/icefront_tendency_apply.F |
73 |
ICEFRONT_TENDENCY_APPLY_S |
INTEGER k, bi, bj, myThid |
./pkg/icefront/icefront_thermodynamics.F |
10 |
ICEFRONT_THERMODYNAMICS |
I myTime, myIter, myThid ) |
./pkg/icefront/icefront_thermodynamics.F |
186 |
ICEFRONT_THERMODYNAMICS |
& k,1,3,bi,bj,myThid) |
./pkg/icefront/icefront_thermodynamics.F |
188 |
ICEFRONT_THERMODYNAMICS |
& k,1,3,bi,bj,myThid) |
./pkg/icefront/icefront_thermodynamics.F |
41 |
ICEFRONT_THERMODYNAMICS |
INTEGER myThid |
./pkg/icefront/icefront_thermodynamics.F |
79 |
ICEFRONT_THERMODYNAMICS |
CALL SGRUNOFF_READ(myTime, myIter, myThid) |
./pkg/icefront/icefront_thermodynamics.F |
96 |
ICEFRONT_THERMODYNAMICS |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/icefront/icefront_thermodynamics.F |
97 |
ICEFRONT_THERMODYNAMICS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/kpp/kpp_calc.F |
11 |
KPP_CALC |
I bi, bj, myTime, myIter, myThid ) |
./pkg/kpp/kpp_calc.F |
134 |
KPP_CALC |
INTEGER myThid |
./pkg/kpp/kpp_calc.F |
210 |
KPP_CALC |
act1 = bi - myBxLo(myThid) |
./pkg/kpp/kpp_calc.F |
211 |
KPP_CALC |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
./pkg/kpp/kpp_calc.F |
212 |
KPP_CALC |
act2 = bj - myByLo(myThid) |
./pkg/kpp/kpp_calc.F |
213 |
KPP_CALC |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
./pkg/kpp/kpp_calc.F |
214 |
KPP_CALC |
act3 = myThid - 1 |
./pkg/kpp/kpp_calc.F |
264 |
KPP_CALC |
I ikppkey, bi, bj, myThid ) |
./pkg/kpp/kpp_calc.F |
284 |
KPP_CALC |
I myThid ) |
./pkg/kpp/kpp_calc.F |
294 |
KPP_CALC |
I myThid ) |
./pkg/kpp/kpp_calc.F |
299 |
KPP_CALC |
I myThid ) |
./pkg/kpp/kpp_calc.F |
303 |
KPP_CALC |
I myThid ) |
./pkg/kpp/kpp_calc.F |
307 |
KPP_CALC |
I myThid ) |
./pkg/kpp/kpp_calc.F |
311 |
KPP_CALC |
I myThid ) |
./pkg/kpp/kpp_calc.F |
407 |
KPP_CALC |
I ikppkey, iMin, iMax, jMin, jMax, bi, bj, myTime, myThid ) |
./pkg/kpp/kpp_calc.F |
479 |
KPP_CALC |
I myThid) |
./pkg/kpp/kpp_calc.F |
484 |
KPP_CALC |
I myThid) |
./pkg/kpp/kpp_calc.F |
495 |
KPP_CALC |
I ikppkey,1-Olx,sNx+OLx,1-Oly,sNy+OLy,bi,bj,myThid) |
./pkg/kpp/kpp_calc.F |
553 |
KPP_CALC |
I myThid ) |
./pkg/kpp/kpp_calc.F |
565 |
KPP_CALC |
I myThid ) |
./pkg/kpp/kpp_calc.F |
569 |
KPP_CALC |
I myThid ) |
./pkg/kpp/kpp_calc.F |
588 |
KPP_CALC |
I myTime, myIter, myThid ) |
./pkg/kpp/kpp_calc.F |
608 |
KPP_CALC |
I myTime, myIter, myThid ) |
./pkg/kpp/kpp_calc.F |
627 |
KPP_CALC_DUMMY |
I bi, bj, myTime, myIter, myThid ) |
./pkg/kpp/kpp_calc.F |
655 |
KPP_CALC_DUMMY |
INTEGER myThid |
./pkg/kpp/kpp_calc.F |
680 |
KPP_CALC_DUMMY |
I myThid) |
./pkg/kpp/kpp_calc.F |
685 |
KPP_CALC_DUMMY |
I myThid) |
./pkg/kpp/kpp_calc_diff_ptr.F |
42 |
KPP_CALC_DIFF_PTR |
INTEGER myThid |
./pkg/kpp/kpp_calc_diff_ptr.F |
9 |
KPP_CALC_DIFF_PTR |
I myThid) |
./pkg/kpp/kpp_calc_diff_s.F |
39 |
KPP_CALC_DIFF_S |
INTEGER myThid |
./pkg/kpp/kpp_calc_diff_s.F |
9 |
KPP_CALC_DIFF_S |
I myThid) |
./pkg/kpp/kpp_calc_diff_t.F |
39 |
KPP_CALC_DIFF_T |
INTEGER myThid |
./pkg/kpp/kpp_calc_diff_t.F |
9 |
KPP_CALC_DIFF_T |
I myThid) |
./pkg/kpp/kpp_calc_visc.F |
31 |
KPP_CALC_VISC |
INTEGER myThid |
./pkg/kpp/kpp_calc_visc.F |
9 |
KPP_CALC_VISC |
I myThid) |
./pkg/kpp/kpp_check.F |
21 |
KPP_CHECK |
INTEGER myThid |
./pkg/kpp/kpp_check.F |
31 |
KPP_CHECK |
& SQUEEZE_RIGHT , myThid ) |
./pkg/kpp/kpp_check.F |
37 |
KPP_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/kpp/kpp_check.F |
44 |
KPP_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/kpp/kpp_check.F |
49 |
KPP_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/kpp/kpp_check.F |
56 |
KPP_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/kpp/kpp_check.F |
5 |
KPP_CHECK |
SUBROUTINE KPP_CHECK( myThid ) |
./pkg/kpp/kpp_check.F |
77 |
KPP_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/kpp/kpp_check.F |
87 |
KPP_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/kpp/kpp_diagnostics_init.F |
100 |
KPP_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/kpp/kpp_diagnostics_init.F |
107 |
KPP_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/kpp/kpp_diagnostics_init.F |
114 |
KPP_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/kpp/kpp_diagnostics_init.F |
121 |
KPP_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/kpp/kpp_diagnostics_init.F |
128 |
KPP_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/kpp/kpp_diagnostics_init.F |
135 |
KPP_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/kpp/kpp_diagnostics_init.F |
142 |
KPP_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/kpp/kpp_diagnostics_init.F |
150 |
KPP_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/kpp/kpp_diagnostics_init.F |
157 |
KPP_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/kpp/kpp_diagnostics_init.F |
162 |
KPP_DIAGNOSTICS_INIT |
diagSufx = GAD_DIAG_SUFX( GAD_TEMPERATURE, myThid ) |
./pkg/kpp/kpp_diagnostics_init.F |
169 |
KPP_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/kpp/kpp_diagnostics_init.F |
172 |
KPP_DIAGNOSTICS_INIT |
diagSufx = GAD_DIAG_SUFX( GAD_SALINITY, myThid ) |
./pkg/kpp/kpp_diagnostics_init.F |
179 |
KPP_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/kpp/kpp_diagnostics_init.F |
187 |
KPP_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/kpp/kpp_diagnostics_init.F |
194 |
KPP_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/kpp/kpp_diagnostics_init.F |
31 |
KPP_DIAGNOSTICS_INIT |
INTEGER myThid |
./pkg/kpp/kpp_diagnostics_init.F |
64 |
KPP_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/kpp/kpp_diagnostics_init.F |
71 |
KPP_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/kpp/kpp_diagnostics_init.F |
78 |
KPP_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/kpp/kpp_diagnostics_init.F |
86 |
KPP_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/kpp/kpp_diagnostics_init.F |
93 |
KPP_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/kpp/kpp_diagnostics_init.F |
9 |
KPP_DIAGNOSTICS_INIT |
SUBROUTINE KPP_DIAGNOSTICS_INIT( myThid ) |
./pkg/kpp/kpp_do_exch.F |
30 |
KPP_DO_EXCH |
INTEGER myThid |
./pkg/kpp/kpp_do_exch.F |
37 |
KPP_DO_EXCH |
CALL EXCH_3D_RL( KPPviscAz, Nr, myThid ) |
./pkg/kpp/kpp_do_exch.F |
39 |
KPP_DO_EXCH |
_EXCH_XYZ_RL( KPPviscAz, myThid ) |
./pkg/kpp/kpp_do_exch.F |
9 |
KPP_DO_EXCH |
SUBROUTINE KPP_DO_EXCH( myThid ) |
./pkg/kpp/kpp_forcing_surf.F |
105 |
KPP_FORCING_SURF |
INTEGER myThid |
./pkg/kpp/kpp_forcing_surf.F |
234 |
KPP_FORCING_SURF |
CALL DIAGNOSTICS_FILL(bo ,'KPPbo ',0,1,2,bi,bj,myThid) |
./pkg/kpp/kpp_forcing_surf.F |
235 |
KPP_FORCING_SURF |
CALL DIAGNOSTICS_FILL(bosol ,'KPPbosol',0,1,2,bi,bj,myThid) |
./pkg/kpp/kpp_forcing_surf.F |
237 |
KPP_FORCING_SURF |
CALL DIAGNOSTICS_FILL(boplume,'KPPboplm',0,1,2,bi,bj,myThid) |
./pkg/kpp/kpp_forcing_surf.F |
23 |
KPP_FORCING_SURF |
I ikppkey, iMin, iMax, jMin, jMax, bi, bj, myTime, myThid ) |
./pkg/kpp/kpp_init_fixed.F |
100 |
KPP_INIT_FIXED |
& myThid) |
./pkg/kpp/kpp_init_fixed.F |
102 |
KPP_INIT_FIXED |
& 'KPP_boundary_layer_depth', myThid) |
./pkg/kpp/kpp_init_fixed.F |
104 |
KPP_INIT_FIXED |
& 'coordinates','XC YC iter', myThid) |
./pkg/kpp/kpp_init_fixed.F |
107 |
KPP_INIT_FIXED |
& 3,4, myThid) |
./pkg/kpp/kpp_init_fixed.F |
109 |
KPP_INIT_FIXED |
& myThid) |
./pkg/kpp/kpp_init_fixed.F |
112 |
KPP_INIT_FIXED |
& myThid) |
./pkg/kpp/kpp_init_fixed.F |
114 |
KPP_INIT_FIXED |
& 'coordinates','XC YC iter', myThid) |
./pkg/kpp/kpp_init_fixed.F |
119 |
KPP_INIT_FIXED |
_BEGIN_MASTER(myThid) |
./pkg/kpp/kpp_init_fixed.F |
186 |
KPP_INIT_FIXED |
_END_MASTER(myThid) |
./pkg/kpp/kpp_init_fixed.F |
191 |
KPP_INIT_FIXED |
CALL KPP_DIAGNOSTICS_INIT( myThid ) |
./pkg/kpp/kpp_init_fixed.F |
31 |
KPP_INIT_FIXED |
INTEGER myThid |
./pkg/kpp/kpp_init_fixed.F |
51 |
KPP_INIT_FIXED |
& 4,5, myThid) |
./pkg/kpp/kpp_init_fixed.F |
53 |
KPP_INIT_FIXED |
& myThid) |
./pkg/kpp/kpp_init_fixed.F |
55 |
KPP_INIT_FIXED |
& 'KPP_vertical_eddy_viscosity_coefficient', myThid) |
./pkg/kpp/kpp_init_fixed.F |
57 |
KPP_INIT_FIXED |
& 'coordinates','XC YC RC iter', myThid) |
./pkg/kpp/kpp_init_fixed.F |
60 |
KPP_INIT_FIXED |
& 4,5, myThid) |
./pkg/kpp/kpp_init_fixed.F |
62 |
KPP_INIT_FIXED |
& myThid) |
./pkg/kpp/kpp_init_fixed.F |
65 |
KPP_INIT_FIXED |
& myThid) |
./pkg/kpp/kpp_init_fixed.F |
67 |
KPP_INIT_FIXED |
& 'coordinates','XC YC RC iter', myThid) |
./pkg/kpp/kpp_init_fixed.F |
70 |
KPP_INIT_FIXED |
& 4,5, myThid) |
./pkg/kpp/kpp_init_fixed.F |
72 |
KPP_INIT_FIXED |
& myThid) |
./pkg/kpp/kpp_init_fixed.F |
74 |
KPP_INIT_FIXED |
& 'KPP_vertical_heat_diffusion_coefficient', myThid) |
./pkg/kpp/kpp_init_fixed.F |
76 |
KPP_INIT_FIXED |
& 'coordinates','XC YC RC iter', myThid) |
./pkg/kpp/kpp_init_fixed.F |
79 |
KPP_INIT_FIXED |
& 4,5, myThid) |
./pkg/kpp/kpp_init_fixed.F |
81 |
KPP_INIT_FIXED |
& myThid) |
./pkg/kpp/kpp_init_fixed.F |
83 |
KPP_INIT_FIXED |
& 'KPP_nonlocal_transport_coefficient', myThid) |
./pkg/kpp/kpp_init_fixed.F |
85 |
KPP_INIT_FIXED |
& 'coordinates','XC YC RC iter', myThid) |
./pkg/kpp/kpp_init_fixed.F |
88 |
KPP_INIT_FIXED |
& 4,5, myThid) |
./pkg/kpp/kpp_init_fixed.F |
90 |
KPP_INIT_FIXED |
& myThid) |
./pkg/kpp/kpp_init_fixed.F |
93 |
KPP_INIT_FIXED |
& myThid) |
./pkg/kpp/kpp_init_fixed.F |
95 |
KPP_INIT_FIXED |
& 'XC YC RF iter', myThid) |
./pkg/kpp/kpp_init_fixed.F |
98 |
KPP_INIT_FIXED |
& 3,4, myThid) |
./pkg/kpp/kpp_init_fixed.F |
9 |
KPP_INIT_FIXED |
SUBROUTINE KPP_INIT_FIXED( myThid ) |
./pkg/kpp/kpp_init_varia.F |
10 |
KPP_INIT_VARIA |
SUBROUTINE KPP_INIT_VARIA( myThid ) |
./pkg/kpp/kpp_init_varia.F |
26 |
KPP_INIT_VARIA |
INTEGER myThid |
./pkg/kpp/kpp_init_varia.F |
40 |
KPP_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/kpp/kpp_init_varia.F |
41 |
KPP_INIT_VARIA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/kpp/kpp_output.F |
105 |
KPP_OUTPUT |
_BEGIN_MASTER( myThid ) |
./pkg/kpp/kpp_output.F |
110 |
KPP_OUTPUT |
_END_MASTER( myThid ) |
./pkg/kpp/kpp_output.F |
127 |
KPP_OUTPUT |
& myIter,myThid) |
./pkg/kpp/kpp_output.F |
129 |
KPP_OUTPUT |
& myIter,myThid) |
./pkg/kpp/kpp_output.F |
131 |
KPP_OUTPUT |
& myIter,myThid) |
./pkg/kpp/kpp_output.F |
133 |
KPP_OUTPUT |
& myIter,myThid) |
./pkg/kpp/kpp_output.F |
135 |
KPP_OUTPUT |
& myIter,myThid) |
./pkg/kpp/kpp_output.F |
138 |
KPP_OUTPUT |
_BEGIN_MASTER( myThid ) |
./pkg/kpp/kpp_output.F |
140 |
KPP_OUTPUT |
_END_MASTER( myThid ) |
./pkg/kpp/kpp_output.F |
148 |
KPP_OUTPUT |
& myIter,myThid) |
./pkg/kpp/kpp_output.F |
14 |
KPP_OUTPUT |
SUBROUTINE KPP_OUTPUT( myTime, myIter, myThid ) |
./pkg/kpp/kpp_output.F |
150 |
KPP_OUTPUT |
& myIter,myThid) |
./pkg/kpp/kpp_output.F |
152 |
KPP_OUTPUT |
& myIter,myThid) |
./pkg/kpp/kpp_output.F |
154 |
KPP_OUTPUT |
& myIter,myThid) |
./pkg/kpp/kpp_output.F |
156 |
KPP_OUTPUT |
& myIter,myThid) |
./pkg/kpp/kpp_output.F |
167 |
KPP_OUTPUT |
CALL MNC_CW_SET_UDIM('kpp_state', -1, myThid) |
./pkg/kpp/kpp_output.F |
168 |
KPP_OUTPUT |
CALL MNC_CW_RL_W_S('D','kpp_state',0,0,'T',myTime,myThid) |
./pkg/kpp/kpp_output.F |
169 |
KPP_OUTPUT |
CALL MNC_CW_SET_UDIM('kpp_state', 0, myThid) |
./pkg/kpp/kpp_output.F |
170 |
KPP_OUTPUT |
CALL MNC_CW_I_W_S('I','kpp_state',0,0,'iter',myIter,myThid) |
./pkg/kpp/kpp_output.F |
172 |
KPP_OUTPUT |
& 'KPPviscAz', KPPviscAz, myThid) |
./pkg/kpp/kpp_output.F |
174 |
KPP_OUTPUT |
& 'KPPdiffKzT', KPPdiffKzT, myThid) |
./pkg/kpp/kpp_output.F |
176 |
KPP_OUTPUT |
& 'KPPdiffKzS', KPPdiffKzS, myThid) |
./pkg/kpp/kpp_output.F |
178 |
KPP_OUTPUT |
& 'KPPGHAT', KPPghat, myThid) |
./pkg/kpp/kpp_output.F |
180 |
KPP_OUTPUT |
& 'KPPHBL', KPPhbl, myThid) |
./pkg/kpp/kpp_output.F |
195 |
KPP_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/kpp/kpp_output.F |
196 |
KPP_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/kpp/kpp_output.F |
197 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPviscAztave, Nr,bi,bj,myThid) |
./pkg/kpp/kpp_output.F |
198 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPdiffKzTtave,Nr,bi,bj,myThid) |
./pkg/kpp/kpp_output.F |
199 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPghatKStave, Nr,bi,bj,myThid) |
./pkg/kpp/kpp_output.F |
200 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPdiffKzStave,Nr,bi,bj,myThid) |
./pkg/kpp/kpp_output.F |
201 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPhbltave, 1, bi,bj,myThid) |
./pkg/kpp/kpp_output.F |
215 |
KPP_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/kpp/kpp_output.F |
216 |
KPP_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/kpp/kpp_output.F |
218 |
KPP_OUTPUT |
& KPPviscAztave, KPPviscAz, Nr,DDTT,bi,bj,myThid) |
./pkg/kpp/kpp_output.F |
220 |
KPP_OUTPUT |
& KPPdiffKzTtave,KPPdiffKzT,Nr,DDTT,bi,bj,myThid) |
./pkg/kpp/kpp_output.F |
222 |
KPP_OUTPUT |
& KPPdiffKzStave,KPPdiffKzS,Nr,DDTT,bi,bj,myThid) |
./pkg/kpp/kpp_output.F |
236 |
KPP_OUTPUT |
& KPPhbltave, KPPhbl, 1, DDTT,bi,bj,myThid) |
./pkg/kpp/kpp_output.F |
253 |
KPP_OUTPUT |
I myTime, myIter, myThid ) |
./pkg/kpp/kpp_output.F |
260 |
KPP_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/kpp/kpp_output.F |
261 |
KPP_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/kpp/kpp_output.F |
263 |
KPP_OUTPUT |
& KPP_timeAve, Nr, bi, bj, myThid ) |
./pkg/kpp/kpp_output.F |
265 |
KPP_OUTPUT |
& KPP_timeAve, Nr, bi, bj, myThid ) |
./pkg/kpp/kpp_output.F |
267 |
KPP_OUTPUT |
& KPP_timeAve, Nr, bi, bj, myThid ) |
./pkg/kpp/kpp_output.F |
269 |
KPP_OUTPUT |
& KPP_timeAve, Nr, bi, bj, myThid ) |
./pkg/kpp/kpp_output.F |
271 |
KPP_OUTPUT |
& KPP_timeAve, 1 , bi, bj, myThid ) |
./pkg/kpp/kpp_output.F |
281 |
KPP_OUTPUT |
& kpp_drctrecTave,myIter,myThid) |
./pkg/kpp/kpp_output.F |
283 |
KPP_OUTPUT |
& kpp_drctrecTave,myIter,myThid) |
./pkg/kpp/kpp_output.F |
285 |
KPP_OUTPUT |
& kpp_drctrecTave,myIter,myThid) |
./pkg/kpp/kpp_output.F |
287 |
KPP_OUTPUT |
& kpp_drctrecTave,myIter,myThid) |
./pkg/kpp/kpp_output.F |
289 |
KPP_OUTPUT |
& kpp_drctrecTave,myIter,myThid) |
./pkg/kpp/kpp_output.F |
292 |
KPP_OUTPUT |
_BEGIN_MASTER( myThid ) |
./pkg/kpp/kpp_output.F |
294 |
KPP_OUTPUT |
_END_MASTER( myThid ) |
./pkg/kpp/kpp_output.F |
302 |
KPP_OUTPUT |
& myIter,myThid) |
./pkg/kpp/kpp_output.F |
304 |
KPP_OUTPUT |
& myIter,myThid) |
./pkg/kpp/kpp_output.F |
306 |
KPP_OUTPUT |
& myIter,myThid) |
./pkg/kpp/kpp_output.F |
308 |
KPP_OUTPUT |
& myIter,myThid) |
./pkg/kpp/kpp_output.F |
310 |
KPP_OUTPUT |
& myIter,myThid) |
./pkg/kpp/kpp_output.F |
321 |
KPP_OUTPUT |
CALL MNC_CW_SET_UDIM('kpp_timeave', -1, myThid) |
./pkg/kpp/kpp_output.F |
322 |
KPP_OUTPUT |
CALL MNC_CW_RL_W_S('D','kpp_timeave',0,0,'T',myTime,myThid) |
./pkg/kpp/kpp_output.F |
323 |
KPP_OUTPUT |
CALL MNC_CW_SET_UDIM('kpp_timeave', 0, myThid) |
./pkg/kpp/kpp_output.F |
324 |
KPP_OUTPUT |
CALL MNC_CW_I_W_S('I','kpp_timeave',0,0,'iter',myIter,myThid) |
./pkg/kpp/kpp_output.F |
326 |
KPP_OUTPUT |
& 'KPPviscAz', KPPviscAztave, myThid) |
./pkg/kpp/kpp_output.F |
328 |
KPP_OUTPUT |
& 'KPPdiffKzT', KPPdiffKzTtave, myThid) |
./pkg/kpp/kpp_output.F |
330 |
KPP_OUTPUT |
& 'KPPdiffKzS', KPPdiffKzStave, myThid) |
./pkg/kpp/kpp_output.F |
332 |
KPP_OUTPUT |
& 'KPPghatKS', KPPghatKStave, myThid) |
./pkg/kpp/kpp_output.F |
334 |
KPP_OUTPUT |
& 'KPPHBL', KPPhbltave, myThid) |
./pkg/kpp/kpp_output.F |
339 |
KPP_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/kpp/kpp_output.F |
340 |
KPP_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/kpp/kpp_output.F |
341 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPviscAztave, Nr,bi,bj,myThid) |
./pkg/kpp/kpp_output.F |
342 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPdiffKzTtave,Nr,bi,bj,myThid) |
./pkg/kpp/kpp_output.F |
343 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPghatKStave, Nr,bi,bj,myThid) |
./pkg/kpp/kpp_output.F |
344 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPdiffKzStave,Nr,bi,bj,myThid) |
./pkg/kpp/kpp_output.F |
345 |
KPP_OUTPUT |
CALL TIMEAVE_RESET(KPPhbltave, 1, bi,bj,myThid) |
./pkg/kpp/kpp_output.F |
360 |
KPP_OUTPUT |
CALL DIAGNOSTICS_FILL(KPPviscAz ,'KPPviscA',0,Nr,0,1,1,myThid) |
./pkg/kpp/kpp_output.F |
361 |
KPP_OUTPUT |
CALL DIAGNOSTICS_FILL(KPPdiffKzS,'KPPdiffS',0,Nr,0,1,1,myThid) |
./pkg/kpp/kpp_output.F |
362 |
KPP_OUTPUT |
CALL DIAGNOSTICS_FILL(KPPdiffKzT,'KPPdiffT',0,Nr,0,1,1,myThid) |
./pkg/kpp/kpp_output.F |
363 |
KPP_OUTPUT |
IF ( DIAGNOSTICS_IS_ON( 'KPPghatK', myThid ) ) THEN |
./pkg/kpp/kpp_output.F |
369 |
KPP_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/kpp/kpp_output.F |
370 |
KPP_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/kpp/kpp_output.F |
388 |
KPP_OUTPUT |
CALL DIAGNOSTICS_FILL(tmpLoc,'KPPghatK',0,Nr,3,bi,bj,myThid) |
./pkg/kpp/kpp_output.F |
392 |
KPP_OUTPUT |
CALL DIAGNOSTICS_FILL(KPPhbl ,'KPPhbl ',0,1 ,0,1,1,myThid) |
./pkg/kpp/kpp_output.F |
393 |
KPP_OUTPUT |
CALL DIAGNOSTICS_FILL(KPPfrac ,'KPPfrac ',0,1 ,0,1,1,myThid) |
./pkg/kpp/kpp_output.F |
395 |
KPP_OUTPUT |
CALL DIAGNOSTICS_FILL(KPPplumefrac,'KPPpfrac',0,1 ,0,1,1,myThid) |
./pkg/kpp/kpp_output.F |
66 |
KPP_OUTPUT |
INTEGER myThid |
./pkg/kpp/kpp_readparms.F |
10 |
KPP_READPARMS |
SUBROUTINE KPP_READPARMS( myThid ) |
./pkg/kpp/kpp_readparms.F |
165 |
KPP_READPARMS |
_END_MASTER(myThid) |
./pkg/kpp/kpp_readparms.F |
23 |
KPP_READPARMS |
INTEGER myThid |
./pkg/kpp/kpp_readparms.F |
53 |
KPP_READPARMS |
_BEGIN_MASTER(myThid) |
./pkg/kpp/kpp_readparms.F |
63 |
KPP_READPARMS |
I myThid ) |
./pkg/kpp/kpp_routines.F |
1004 |
Z121 |
integer myThid |
./pkg/kpp/kpp_routines.F |
1071 |
SMOOTH_HORIZ |
I myThid ) |
./pkg/kpp/kpp_routines.F |
1084 |
SMOOTH_HORIZ |
INTEGER myThid |
./pkg/kpp/kpp_routines.F |
1155 |
BLMIX |
I , myThid ) |
./pkg/kpp/kpp_routines.F |
1182 |
BLMIX |
integer myThid |
./pkg/kpp/kpp_routines.F |
1235 |
BLMIX |
O wm, ws, myThid ) |
./pkg/kpp/kpp_routines.F |
1328 |
BLMIX |
O wm, ws, myThid ) |
./pkg/kpp/kpp_routines.F |
1381 |
BLMIX |
O wm, ws, myThid ) |
./pkg/kpp/kpp_routines.F |
1409 |
ENHANCE |
& , myThid ) |
./pkg/kpp/kpp_routines.F |
1425 |
ENHANCE |
integer myThid |
./pkg/kpp/kpp_routines.F |
1473 |
STATEKPP |
I ikppkey, bi, bj, myThid ) |
./pkg/kpp/kpp_routines.F |
1514 |
STATEKPP |
INTEGER bi, bj, myThid |
./pkg/kpp/kpp_routines.F |
1556 |
STATEKPP |
I 1, bi, bj, myThid ) |
./pkg/kpp/kpp_routines.F |
1566 |
STATEKPP |
O WORK2, myThid ) |
./pkg/kpp/kpp_routines.F |
1570 |
STATEKPP |
O WORK3, myThid ) |
./pkg/kpp/kpp_routines.F |
158 |
KPPMIX |
O , diffus, myThid ) |
./pkg/kpp/kpp_routines.F |
1598 |
STATEKPP |
I k, bi, bj, myThid ) |
./pkg/kpp/kpp_routines.F |
1610 |
STATEKPP |
I k-1, bi, bj, myThid ) |
./pkg/kpp/kpp_routines.F |
1622 |
STATEKPP |
I 1, bi, bj, myThid ) |
./pkg/kpp/kpp_routines.F |
1635 |
STATEKPP |
O WORK1, myThid ) |
./pkg/kpp/kpp_routines.F |
1639 |
STATEKPP |
O WORK2, myThid ) |
./pkg/kpp/kpp_routines.F |
1665 |
STATEKPP |
CALL DIAGNOSTICS_FILL(DBSFC ,'KPPdbsfc',0,Nr,2,bi,bj,myThid) |
./pkg/kpp/kpp_routines.F |
1666 |
STATEKPP |
CALL DIAGNOSTICS_FILL(DBLOC ,'KPPdbloc',0,Nr,2,bi,bj,myThid) |
./pkg/kpp/kpp_routines.F |
1682 |
KPP_DOUBLEDIFF |
I ikppkey, imin, imax, jmin, jmax, bi, bj, myThid ) |
./pkg/kpp/kpp_routines.F |
1719 |
KPP_DOUBLEDIFF |
INTEGER ikppkey, imin, imax, jmin, jmax, bi, bj, myThid |
./pkg/kpp/kpp_routines.F |
1829 |
KPP_DOUBLEDIFF |
CALL DIAGNOSTICS_FILL(nuddt,'KPPnuddt',k,1,2,bi,bj,myThid) |
./pkg/kpp/kpp_routines.F |
1830 |
KPP_DOUBLEDIFF |
CALL DIAGNOSTICS_FILL(nudds,'KPPnudds',k,1,2,bi,bj,myThid) |
./pkg/kpp/kpp_routines.F |
197 |
KPPMIX |
I , bi, bj, myTime, myIter, myThid ) |
./pkg/kpp/kpp_routines.F |
209 |
KPPMIX |
I , myThid ) |
./pkg/kpp/kpp_routines.F |
225 |
KPPMIX |
I , myThid ) |
./pkg/kpp/kpp_routines.F |
276 |
BLDEPTH |
I , bi, bj, myTime, myIter, myThid ) |
./pkg/kpp/kpp_routines.F |
329 |
BLDEPTH |
integer myThid |
./pkg/kpp/kpp_routines.F |
35 |
KPPMIX |
I , bi, bj, myTime, myIter, myThid ) |
./pkg/kpp/kpp_routines.F |
426 |
BLDEPTH |
I myTime, myIter, myThid ) |
./pkg/kpp/kpp_routines.F |
449 |
BLDEPTH |
I myTime, myIter, myThid) |
./pkg/kpp/kpp_routines.F |
473 |
BLDEPTH |
O wm, ws, myThid ) |
./pkg/kpp/kpp_routines.F |
515 |
BLDEPTH |
CALL DIAGNOSTICS_FILL(KPPBFSFC,'KPPbfsfc',0,Nr,2,bi,bj,myThid) |
./pkg/kpp/kpp_routines.F |
516 |
BLDEPTH |
CALL DIAGNOSTICS_FILL(KPPRi ,'KPPRi ',0,Nr,2,bi,bj,myThid) |
./pkg/kpp/kpp_routines.F |
564 |
BLDEPTH |
I myTime, myIter, myThid ) |
./pkg/kpp/kpp_routines.F |
581 |
BLDEPTH |
I myTime, myIter, myThid ) |
./pkg/kpp/kpp_routines.F |
660 |
BLDEPTH |
I myTime, myIter, myThid ) |
./pkg/kpp/kpp_routines.F |
677 |
BLDEPTH |
I myTime, myIter, myThid ) |
./pkg/kpp/kpp_routines.F |
712 |
WSCALE |
I myThid ) |
./pkg/kpp/kpp_routines.F |
734 |
WSCALE |
integer myThid |
./pkg/kpp/kpp_routines.F |
813 |
RI_IWMIX |
I myThid ) |
./pkg/kpp/kpp_routines.F |
845 |
RI_IWMIX |
integer myThid |
./pkg/kpp/kpp_routines.F |
88 |
KPPMIX |
integer myThid |
./pkg/kpp/kpp_routines.F |
919 |
RI_IWMIX |
I myThid ) |
./pkg/kpp/kpp_routines.F |
985 |
Z121 |
I myThid ) |
./pkg/kpp/kpp_transport_ptr.F |
13 |
KPP_TRANSPORT_PTR |
I myTime, myIter, myThid ) |
./pkg/kpp/kpp_transport_ptr.F |
64 |
KPP_TRANSPORT_PTR |
INTEGER myThid |
./pkg/kpp/kpp_transport_s.F |
12 |
KPP_TRANSPORT_S |
I myTime, myIter, myThid ) |
./pkg/kpp/kpp_transport_s.F |
54 |
KPP_TRANSPORT_S |
INTEGER myThid |
./pkg/kpp/kpp_transport_t.F |
12 |
KPP_TRANSPORT_T |
I myTime, myIter, myThid ) |
./pkg/kpp/kpp_transport_t.F |
55 |
KPP_TRANSPORT_T |
INTEGER myThid |
./pkg/land/land_albedo.F |
12 |
LAND_ALBEDO |
I bi,bj, myTime, myIter, myThid ) |
./pkg/land/land_albedo.F |
45 |
LAND_ALBEDO |
INTEGER bi, bj, myIter, myThid |
./pkg/land/land_diagnostics_init.F |
108 |
LAND_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/land/land_diagnostics_init.F |
115 |
LAND_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/land/land_diagnostics_init.F |
122 |
LAND_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/land/land_diagnostics_init.F |
129 |
LAND_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/land/land_diagnostics_init.F |
137 |
LAND_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/land/land_diagnostics_init.F |
30 |
LAND_DIAGNOSTICS_INIT |
INTEGER myThid |
./pkg/land/land_diagnostics_init.F |
58 |
LAND_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/land/land_diagnostics_init.F |
65 |
LAND_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/land/land_diagnostics_init.F |
72 |
LAND_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/land/land_diagnostics_init.F |
80 |
LAND_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/land/land_diagnostics_init.F |
92 |
LAND_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/land/land_diagnostics_init.F |
99 |
LAND_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/land/land_diagnostics_init.F |
9 |
LAND_DIAGNOSTICS_INIT |
SUBROUTINE LAND_DIAGNOSTICS_INIT( myThid ) |
./pkg/land/land_diagnostics_state.F |
10 |
LAND_DIAGNOSTICS_STATE |
I myTime, myIter, bi,bj, myThid ) |
./pkg/land/land_diagnostics_state.F |
38 |
LAND_DIAGNOSTICS_STATE |
INTEGER myIter, bi, bj, myThid |
./pkg/land/land_diagnostics_state.F |
52 |
LAND_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(land_skinT,'GrdSurfT',0,1,1,bi,bj,myThid) |
./pkg/land/land_diagnostics_state.F |
54 |
LAND_DIAGNOSTICS_STATE |
& 1,bi,bj,myThid) |
./pkg/land/land_diagnostics_state.F |
56 |
LAND_DIAGNOSTICS_STATE |
& 1,bi,bj,myThid) |
./pkg/land/land_diagnostics_state.F |
58 |
LAND_DIAGNOSTICS_STATE |
& 1,bi,bj,myThid) |
./pkg/land/land_diagnostics_state.F |
59 |
LAND_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(land_hSnow,'LdSnowH ',0,1,1,bi,bj,myThid) |
./pkg/land/land_diagnostics_state.F |
61 |
LAND_DIAGNOSTICS_STATE |
& 1,bi,bj,myThid) |
./pkg/land/land_do_diags.F |
10 |
LAND_DO_DIAGS |
I land_frc, bi,bj, myTime, myIter, myThid ) |
./pkg/land/land_do_diags.F |
43 |
LAND_DO_DIAGS |
INTEGER bi, bj, myIter, myThid |
./pkg/land/land_do_diags.F |
60 |
LAND_DO_DIAGS |
& land_deltaT, bi, bj, myThid ) |
./pkg/land/land_do_diags.F |
62 |
LAND_DO_DIAGS |
& land_deltaT, bi, bj, myThid ) |
./pkg/land/land_do_diags.F |
64 |
LAND_DO_DIAGS |
& land_deltaT, bi, bj, myThid ) |
./pkg/land/land_do_diags.F |
66 |
LAND_DO_DIAGS |
& land_deltaT, bi, bj, myThid ) |
./pkg/land/land_do_diags.F |
68 |
LAND_DO_DIAGS |
& land_deltaT, bi, bj, myThid ) |
./pkg/land/land_do_diags.F |
70 |
LAND_DO_DIAGS |
& land_deltaT, bi, bj, myThid ) |
./pkg/land/land_do_diags.F |
72 |
LAND_DO_DIAGS |
& land_deltaT, bi, bj, myThid ) |
./pkg/land/land_do_diags.F |
74 |
LAND_DO_DIAGS |
& land_deltaT, bi, bj, myThid ) |
./pkg/land/land_do_diags.F |
90 |
LAND_DO_DIAGS |
& 1,bi,bj,myThid) |
./pkg/land/land_do_diags.F |
92 |
LAND_DO_DIAGS |
& 1,bi,bj,myThid) |
./pkg/land/land_do_diags.F |
94 |
LAND_DO_DIAGS |
& 1,bi,bj,myThid) |
./pkg/land/land_do_diags.F |
96 |
LAND_DO_DIAGS |
& 1,bi,bj,myThid) |
./pkg/land/land_do_diags.F |
98 |
LAND_DO_DIAGS |
& 1,bi,bj,myThid) |
./pkg/land/land_impl_temp.F |
13 |
LAND_IMPL_TEMP |
I bi, bj, myTime, myIter, myThid) |
./pkg/land/land_impl_temp.F |
198 |
LAND_IMPL_TEMP |
& SQUEEZE_RIGHT, myThid ) |
./pkg/land/land_impl_temp.F |
204 |
LAND_IMPL_TEMP |
& SQUEEZE_RIGHT, myThid ) |
./pkg/land/land_impl_temp.F |
209 |
LAND_IMPL_TEMP |
& SQUEEZE_RIGHT, myThid ) |
./pkg/land/land_impl_temp.F |
213 |
LAND_IMPL_TEMP |
& SQUEEZE_RIGHT, myThid ) |
./pkg/land/land_impl_temp.F |
251 |
LAND_IMPL_TEMP |
& SQUEEZE_RIGHT, myThid ) |
./pkg/land/land_impl_temp.F |
257 |
LAND_IMPL_TEMP |
& SQUEEZE_RIGHT, myThid ) |
./pkg/land/land_impl_temp.F |
262 |
LAND_IMPL_TEMP |
& SQUEEZE_RIGHT, myThid ) |
./pkg/land/land_impl_temp.F |
266 |
LAND_IMPL_TEMP |
& SQUEEZE_RIGHT, myThid ) |
./pkg/land/land_impl_temp.F |
270 |
LAND_IMPL_TEMP |
& SQUEEZE_RIGHT, myThid ) |
./pkg/land/land_impl_temp.F |
51 |
LAND_IMPL_TEMP |
INTEGER bi, bj, myIter, myThid |
./pkg/land/land_ini_vars.F |
100 |
LAND_INI_VARS |
& land_nLev, land_groundT, 1, nIter0, myThid ) |
./pkg/land/land_ini_vars.F |
104 |
LAND_INI_VARS |
& land_nLev, land_groundW, 1, nIter0, myThid ) |
./pkg/land/land_ini_vars.F |
108 |
LAND_INI_VARS |
& land_hSnow, nIter0, myThid ) |
./pkg/land/land_ini_vars.F |
114 |
LAND_INI_VARS |
CALL LAND_READ_PICKUP( nIter0, myThid ) |
./pkg/land/land_ini_vars.F |
126 |
LAND_INI_VARS |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/land/land_ini_vars.F |
127 |
LAND_INI_VARS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/land/land_ini_vars.F |
36 |
LAND_INI_VARS |
INTEGER myThid |
./pkg/land/land_ini_vars.F |
58 |
LAND_INI_VARS |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/land/land_ini_vars.F |
59 |
LAND_INI_VARS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/land/land_ini_vars.F |
9 |
LAND_INI_VARS |
SUBROUTINE LAND_INI_VARS( myThid ) |
./pkg/land/land_initialise.F |
36 |
LAND_INITIALISE |
INTEGER myThid |
./pkg/land/land_initialise.F |
50 |
LAND_INITIALISE |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/land/land_initialise.F |
53 |
LAND_INITIALISE |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/land/land_initialise.F |
60 |
LAND_INITIALISE |
CALL LAND_READPARMS( myThid ) |
./pkg/land/land_initialise.F |
64 |
LAND_INITIALISE |
& land_nLev, myThid) |
./pkg/land/land_initialise.F |
67 |
LAND_INITIALISE |
IF ( useDiagnostics ) CALL LAND_DIAGNOSTICS_INIT( myThid ) |
./pkg/land/land_initialise.F |
9 |
LAND_INITIALISE |
SUBROUTINE LAND_INITIALISE( myThid ) |
./pkg/land/land_mnc_init.F |
13 |
LAND_MNC_INIT |
I myThid ) |
./pkg/land/land_mnc_init.F |
211 |
LAND_MNC_INIT |
& dim, dn, ib, ie, myThid) |
./pkg/land/land_mnc_init.F |
225 |
LAND_MNC_INIT |
& 'land_groundT','Cen_xy_Hn__Zland__t',4,5,myThid) |
./pkg/land/land_mnc_init.F |
226 |
LAND_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('land_groundT','units','---',myThid) |
./pkg/land/land_mnc_init.F |
229 |
LAND_MNC_INIT |
& 'land_enthalp','Cen_xy_Hn__Zland__t',4,5,myThid) |
./pkg/land/land_mnc_init.F |
230 |
LAND_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('land_enthalp','units','---',myThid) |
./pkg/land/land_mnc_init.F |
233 |
LAND_MNC_INIT |
& 'land_groundW','Cen_xy_Hn__Zland__t',4,5,myThid) |
./pkg/land/land_mnc_init.F |
234 |
LAND_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('land_groundW','units','---',myThid) |
./pkg/land/land_mnc_init.F |
236 |
LAND_MNC_INIT |
CALL MNC_CW_ADD_VNAME('land_skinT','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/land/land_mnc_init.F |
237 |
LAND_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('land_skinT','units','---',myThid) |
./pkg/land/land_mnc_init.F |
238 |
LAND_MNC_INIT |
CALL MNC_CW_ADD_VNAME('land_hSnow','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/land/land_mnc_init.F |
239 |
LAND_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('land_hSnow','units','---',myThid) |
./pkg/land/land_mnc_init.F |
240 |
LAND_MNC_INIT |
CALL MNC_CW_ADD_VNAME('land_snAge','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/land/land_mnc_init.F |
241 |
LAND_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('land_snAge','units','---',myThid) |
./pkg/land/land_mnc_init.F |
242 |
LAND_MNC_INIT |
CALL MNC_CW_ADD_VNAME('land_RunOff','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/land/land_mnc_init.F |
243 |
LAND_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('land_RunOff','units','---',myThid) |
./pkg/land/land_mnc_init.F |
244 |
LAND_MNC_INIT |
CALL MNC_CW_ADD_VNAME('land_enRnOf','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/land/land_mnc_init.F |
245 |
LAND_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('land_enRnOf','units','---',myThid) |
./pkg/land/land_mnc_init.F |
247 |
LAND_MNC_INIT |
CALL MNC_CW_ADD_VNAME('land_HeatFx','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/land/land_mnc_init.F |
248 |
LAND_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('land_HeatFx','units','---',myThid) |
./pkg/land/land_mnc_init.F |
249 |
LAND_MNC_INIT |
CALL MNC_CW_ADD_VNAME('land_frWaFx','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/land/land_mnc_init.F |
250 |
LAND_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('land_frWaFx','units','---',myThid) |
./pkg/land/land_mnc_init.F |
251 |
LAND_MNC_INIT |
CALL MNC_CW_ADD_VNAME('land_EnWaFx','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/land/land_mnc_init.F |
252 |
LAND_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('land_EnWaFx','units','---',myThid) |
./pkg/land/land_mnc_init.F |
47 |
LAND_MNC_INIT |
integer myThid |
./pkg/land/land_monitor.F |
101 |
LAND_MONITOR |
& 'T', '-_-_--__-__t', 0,0, myThid) |
./pkg/land/land_monitor.F |
102 |
LAND_MONITOR |
CALL MNC_CW_SET_UDIM(mon_fname, -1, myThid) |
./pkg/land/land_monitor.F |
104 |
LAND_MONITOR |
& 'I',mon_fname,1,1,'T', myIter, myThid) |
./pkg/land/land_monitor.F |
105 |
LAND_MONITOR |
CALL MNC_CW_SET_UDIM(mon_fname, 0, myThid) |
./pkg/land/land_monitor.F |
124 |
LAND_MONITOR |
CALL MON_SET_PREF('land_',myThid) |
./pkg/land/land_monitor.F |
125 |
LAND_MONITOR |
CALL MON_OUT_RL('time_sec', myTime,mon_string_none,myThid) |
./pkg/land/land_monitor.F |
136 |
LAND_MONITOR |
I myThid ) |
./pkg/land/land_monitor.F |
147 |
LAND_MONITOR |
CALL MON_OUT_RL(mon_var,theMeanG , mon_sufx(0), myThid) |
./pkg/land/land_monitor.F |
148 |
LAND_MONITOR |
CALL MON_OUT_RL(mon_var,theMean(1), mon_sufx(1), myThid) |
./pkg/land/land_monitor.F |
149 |
LAND_MONITOR |
CALL MON_OUT_RL(mon_var,theMean(2), mon_sufx(2), myThid) |
./pkg/land/land_monitor.F |
150 |
LAND_MONITOR |
CALL MON_OUT_RL(mon_var,theMean(3), mon_sufx(3), myThid) |
./pkg/land/land_monitor.F |
152 |
LAND_MONITOR |
CALL MON_OUT_RL(mon_var, theMax(1), mon_sufx(1), myThid) |
./pkg/land/land_monitor.F |
153 |
LAND_MONITOR |
CALL MON_OUT_RL(mon_var, theMax(2), mon_sufx(2), myThid) |
./pkg/land/land_monitor.F |
154 |
LAND_MONITOR |
CALL MON_OUT_RL(mon_var, theMax(3), mon_sufx(3), myThid) |
./pkg/land/land_monitor.F |
157 |
LAND_MONITOR |
_BEGIN_MASTER(myThid) |
./pkg/land/land_monitor.F |
164 |
LAND_MONITOR |
_END_MASTER(myThid) |
./pkg/land/land_monitor.F |
172 |
LAND_MONITOR |
I myThid ) |
./pkg/land/land_monitor.F |
182 |
LAND_MONITOR |
CALL MON_OUT_RL(mon_var,theMeanG , mon_sufx(0), myThid) |
./pkg/land/land_monitor.F |
183 |
LAND_MONITOR |
CALL MON_OUT_RL(mon_var,theMean(1), mon_sufx(1), myThid) |
./pkg/land/land_monitor.F |
184 |
LAND_MONITOR |
CALL MON_OUT_RL(mon_var,theMean(2), mon_sufx(2), myThid) |
./pkg/land/land_monitor.F |
185 |
LAND_MONITOR |
CALL MON_OUT_RL(mon_var,theMean(3), mon_sufx(3), myThid) |
./pkg/land/land_monitor.F |
187 |
LAND_MONITOR |
CALL MON_OUT_RL(mon_var, theMin(1), mon_sufx(1), myThid) |
./pkg/land/land_monitor.F |
188 |
LAND_MONITOR |
CALL MON_OUT_RL(mon_var, theMin(2), mon_sufx(2), myThid) |
./pkg/land/land_monitor.F |
189 |
LAND_MONITOR |
CALL MON_OUT_RL(mon_var, theMin(3), mon_sufx(3), myThid) |
./pkg/land/land_monitor.F |
191 |
LAND_MONITOR |
CALL MON_OUT_RL(mon_var, theMax(1), mon_sufx(1), myThid) |
./pkg/land/land_monitor.F |
192 |
LAND_MONITOR |
CALL MON_OUT_RL(mon_var, theMax(2), mon_sufx(2), myThid) |
./pkg/land/land_monitor.F |
193 |
LAND_MONITOR |
CALL MON_OUT_RL(mon_var, theMax(3), mon_sufx(3), myThid) |
./pkg/land/land_monitor.F |
200 |
LAND_MONITOR |
I myThid ) |
./pkg/land/land_monitor.F |
210 |
LAND_MONITOR |
CALL MON_OUT_RL(mon_var,theMeanG , mon_sufx(0), myThid) |
./pkg/land/land_monitor.F |
211 |
LAND_MONITOR |
CALL MON_OUT_RL(mon_var,theMean(1), mon_sufx(1), myThid) |
./pkg/land/land_monitor.F |
212 |
LAND_MONITOR |
CALL MON_OUT_RL(mon_var,theMean(2), mon_sufx(2), myThid) |
./pkg/land/land_monitor.F |
213 |
LAND_MONITOR |
CALL MON_OUT_RL(mon_var,theMean(3), mon_sufx(3), myThid) |
./pkg/land/land_monitor.F |
215 |
LAND_MONITOR |
CALL MON_OUT_RL(mon_var, theMin(1), mon_sufx(1), myThid) |
./pkg/land/land_monitor.F |
216 |
LAND_MONITOR |
CALL MON_OUT_RL(mon_var, theMin(2), mon_sufx(2), myThid) |
./pkg/land/land_monitor.F |
217 |
LAND_MONITOR |
CALL MON_OUT_RL(mon_var, theMin(3), mon_sufx(3), myThid) |
./pkg/land/land_monitor.F |
219 |
LAND_MONITOR |
CALL MON_OUT_RL(mon_var, theMax(1), mon_sufx(1), myThid) |
./pkg/land/land_monitor.F |
220 |
LAND_MONITOR |
CALL MON_OUT_RL(mon_var, theMax(2), mon_sufx(2), myThid) |
./pkg/land/land_monitor.F |
221 |
LAND_MONITOR |
CALL MON_OUT_RL(mon_var, theMax(3), mon_sufx(3), myThid) |
./pkg/land/land_monitor.F |
228 |
LAND_MONITOR |
I myThid ) |
./pkg/land/land_monitor.F |
238 |
LAND_MONITOR |
CALL MON_OUT_RL(mon_var,theMeanG , mon_sufx(0), myThid) |
./pkg/land/land_monitor.F |
239 |
LAND_MONITOR |
CALL MON_OUT_RL(mon_var,theMean(1), mon_sufx(1), myThid) |
./pkg/land/land_monitor.F |
240 |
LAND_MONITOR |
CALL MON_OUT_RL(mon_var,theMean(2), mon_sufx(2), myThid) |
./pkg/land/land_monitor.F |
241 |
LAND_MONITOR |
CALL MON_OUT_RL(mon_var,theMean(3), mon_sufx(3), myThid) |
./pkg/land/land_monitor.F |
243 |
LAND_MONITOR |
CALL MON_OUT_RL(mon_var, theMin(1), mon_sufx(1), myThid) |
./pkg/land/land_monitor.F |
244 |
LAND_MONITOR |
CALL MON_OUT_RL(mon_var, theMin(2), mon_sufx(2), myThid) |
./pkg/land/land_monitor.F |
245 |
LAND_MONITOR |
CALL MON_OUT_RL(mon_var, theMin(3), mon_sufx(3), myThid) |
./pkg/land/land_monitor.F |
247 |
LAND_MONITOR |
CALL MON_OUT_RL(mon_var, theMax(1), mon_sufx(1), myThid) |
./pkg/land/land_monitor.F |
248 |
LAND_MONITOR |
CALL MON_OUT_RL(mon_var, theMax(2), mon_sufx(2), myThid) |
./pkg/land/land_monitor.F |
249 |
LAND_MONITOR |
CALL MON_OUT_RL(mon_var, theMax(3), mon_sufx(3), myThid) |
./pkg/land/land_monitor.F |
259 |
LAND_MONITOR |
I myThid ) |
./pkg/land/land_monitor.F |
266 |
LAND_MONITOR |
CALL MON_OUT_RL(mon_var,theEnergy, mon_sufx(0), myThid) |
./pkg/land/land_monitor.F |
267 |
LAND_MONITOR |
CALL MON_OUT_RL(mon_var,theEng(1), mon_sufx(1), myThid) |
./pkg/land/land_monitor.F |
268 |
LAND_MONITOR |
CALL MON_OUT_RL(mon_var,theEng(2), mon_sufx(2), myThid) |
./pkg/land/land_monitor.F |
269 |
LAND_MONITOR |
CALL MON_OUT_RL(mon_var,theEng(3), mon_sufx(3), myThid) |
./pkg/land/land_monitor.F |
276 |
LAND_MONITOR |
I myThid ) |
./pkg/land/land_monitor.F |
286 |
LAND_MONITOR |
CALL MON_OUT_RL(mon_var,theMeanG , mon_sufx(0), myThid) |
./pkg/land/land_monitor.F |
287 |
LAND_MONITOR |
CALL MON_OUT_RL(mon_var,theMean(1), mon_sufx(1), myThid) |
./pkg/land/land_monitor.F |
288 |
LAND_MONITOR |
CALL MON_OUT_RL(mon_var,theMean(2), mon_sufx(2), myThid) |
./pkg/land/land_monitor.F |
289 |
LAND_MONITOR |
CALL MON_OUT_RL(mon_var,theMean(3), mon_sufx(3), myThid) |
./pkg/land/land_monitor.F |
291 |
LAND_MONITOR |
CALL MON_OUT_RL(mon_var, theMin(1), mon_sufx(1), myThid) |
./pkg/land/land_monitor.F |
292 |
LAND_MONITOR |
CALL MON_OUT_RL(mon_var, theMin(2), mon_sufx(2), myThid) |
./pkg/land/land_monitor.F |
293 |
LAND_MONITOR |
CALL MON_OUT_RL(mon_var, theMin(3), mon_sufx(3), myThid) |
./pkg/land/land_monitor.F |
299 |
LAND_MONITOR |
IF ( MASTER_CPU_IO(myThid) ) THEN |
./pkg/land/land_monitor.F |
34 |
LAND_MONITOR |
INTEGER myThid |
./pkg/land/land_monitor.F |
84 |
LAND_MONITOR |
IF ( MASTER_CPU_IO(myThid) ) THEN |
./pkg/land/land_monitor.F |
9 |
LAND_MONITOR |
SUBROUTINE LAND_MONITOR( land_frc, myTime, myIter, myThid ) |
./pkg/land/land_output.F |
100 |
LAND_OUTPUT |
& 'land_RunOff.', suff, land_runOff, myIter, myThid ) |
./pkg/land/land_output.F |
102 |
LAND_OUTPUT |
& 'land_enRnOf.', suff, land_enRnOf, myIter, myThid ) |
./pkg/land/land_output.F |
104 |
LAND_OUTPUT |
& 'land_HeatFx.', suff, land_HeatFlx, myIter, myThid ) |
./pkg/land/land_output.F |
106 |
LAND_OUTPUT |
& 'land_frWaFx.', suff, land_Pr_m_Ev, myIter, myThid ) |
./pkg/land/land_output.F |
108 |
LAND_OUTPUT |
& 'land_EnWaFx.', suff, land_EnWFlux, myIter, myThid ) |
./pkg/land/land_output.F |
127 |
LAND_OUTPUT |
CALL MNC_CW_SET_UDIM(fmnc, -1, myThid) |
./pkg/land/land_output.F |
128 |
LAND_OUTPUT |
CALL MNC_CW_RL_W_S('D',fmnc,0,0,'T', myTime, myThid) |
./pkg/land/land_output.F |
129 |
LAND_OUTPUT |
CALL MNC_CW_SET_UDIM(fmnc, 0, myThid) |
./pkg/land/land_output.F |
130 |
LAND_OUTPUT |
CALL MNC_CW_I_W_S('I',fmnc,0,0,'iter', myIter, myThid) |
./pkg/land/land_output.F |
133 |
LAND_OUTPUT |
& 'land_groundT', land_groundT, myThid) |
./pkg/land/land_output.F |
135 |
LAND_OUTPUT |
& 'land_enthalp', land_enthalp, myThid) |
./pkg/land/land_output.F |
137 |
LAND_OUTPUT |
& 'land_groundW', land_groundW, myThid) |
./pkg/land/land_output.F |
140 |
LAND_OUTPUT |
& 'land_skinT', land_skinT, myThid) |
./pkg/land/land_output.F |
142 |
LAND_OUTPUT |
& 'land_hSnow', land_hSnow, myThid) |
./pkg/land/land_output.F |
144 |
LAND_OUTPUT |
& 'land_snAge', land_snowAge, myThid) |
./pkg/land/land_output.F |
146 |
LAND_OUTPUT |
& 'land_RunOff', land_runOff, myThid) |
./pkg/land/land_output.F |
148 |
LAND_OUTPUT |
& 'land_enRnOf', land_enRnOf, myThid) |
./pkg/land/land_output.F |
151 |
LAND_OUTPUT |
& 'land_HeatFx', land_HeatFlx, myThid) |
./pkg/land/land_output.F |
153 |
LAND_OUTPUT |
& 'land_frWaFx', land_Pr_m_Ev, myThid) |
./pkg/land/land_output.F |
155 |
LAND_OUTPUT |
& 'land_EnWaFx', land_EnWFlux, myThid) |
./pkg/land/land_output.F |
171 |
LAND_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/land/land_output.F |
172 |
LAND_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/land/land_output.F |
173 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_grTtave,land_nLev, bi, bj, myThid) |
./pkg/land/land_output.F |
174 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_entave, land_nLev, bi, bj, myThid) |
./pkg/land/land_output.F |
175 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_grWtave,land_nLev, bi, bj, myThid) |
./pkg/land/land_output.F |
176 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_sTtave, 1, bi, bj, myThid) |
./pkg/land/land_output.F |
177 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_hStave, 1, bi, bj, myThid) |
./pkg/land/land_output.F |
178 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_sAtave, 1, bi, bj, myThid) |
./pkg/land/land_output.F |
179 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_ROftave, 1, bi, bj, myThid) |
./pkg/land/land_output.F |
180 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_eROtave, 1, bi, bj, myThid) |
./pkg/land/land_output.F |
191 |
LAND_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/land/land_output.F |
192 |
LAND_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/land/land_output.F |
194 |
LAND_OUTPUT |
& land_nLev, bi, bj, myThid ) |
./pkg/land/land_output.F |
196 |
LAND_OUTPUT |
& land_nLev, bi, bj, myThid ) |
./pkg/land/land_output.F |
198 |
LAND_OUTPUT |
& land_nLev, bi, bj, myThid ) |
./pkg/land/land_output.F |
200 |
LAND_OUTPUT |
& 1, bi, bj, myThid ) |
./pkg/land/land_output.F |
202 |
LAND_OUTPUT |
& 1, bi, bj, myThid ) |
./pkg/land/land_output.F |
204 |
LAND_OUTPUT |
& 1, bi, bj, myThid ) |
./pkg/land/land_output.F |
206 |
LAND_OUTPUT |
& 1, bi, bj, myThid ) |
./pkg/land/land_output.F |
208 |
LAND_OUTPUT |
& 1, bi, bj, myThid ) |
./pkg/land/land_output.F |
216 |
LAND_OUTPUT |
& land_grTtave, 1, myIter, myThid ) |
./pkg/land/land_output.F |
218 |
LAND_OUTPUT |
& land_entave, 2, myIter, myThid ) |
./pkg/land/land_output.F |
220 |
LAND_OUTPUT |
& land_grWtave, 3, myIter, myThid ) |
./pkg/land/land_output.F |
222 |
LAND_OUTPUT |
CALL WRITE_REC_XY_RL( fn, land_sTtave, k+1, myIter, myThid ) |
./pkg/land/land_output.F |
223 |
LAND_OUTPUT |
CALL WRITE_REC_XY_RL( fn, land_hStave, k+2, myIter, myThid ) |
./pkg/land/land_output.F |
224 |
LAND_OUTPUT |
CALL WRITE_REC_XY_RL( fn, land_sAtave, k+3, myIter, myThid ) |
./pkg/land/land_output.F |
225 |
LAND_OUTPUT |
CALL WRITE_REC_XY_RL( fn, land_ROftave, k+4, myIter, myThid ) |
./pkg/land/land_output.F |
226 |
LAND_OUTPUT |
CALL WRITE_REC_XY_RL( fn, land_eROtave, k+5, myIter, myThid ) |
./pkg/land/land_output.F |
244 |
LAND_OUTPUT |
CALL MNC_CW_SET_UDIM(fn, -1, myThid) |
./pkg/land/land_output.F |
245 |
LAND_OUTPUT |
CALL MNC_CW_I_W_S('I',fn,0,0,'iter', myIter, myThid) |
./pkg/land/land_output.F |
246 |
LAND_OUTPUT |
CALL MNC_CW_SET_UDIM(fn, 0, myThid) |
./pkg/land/land_output.F |
247 |
LAND_OUTPUT |
CALL MNC_CW_RL_W_S('D',fn,0,0,'T', myTime, myThid) |
./pkg/land/land_output.F |
249 |
LAND_OUTPUT |
& 'land_groundT', land_grTtave, myThid) |
./pkg/land/land_output.F |
251 |
LAND_OUTPUT |
& 'land_enthalp', land_entave, myThid) |
./pkg/land/land_output.F |
253 |
LAND_OUTPUT |
& 'land_groundW', land_grWtave, myThid) |
./pkg/land/land_output.F |
256 |
LAND_OUTPUT |
& 'land_skinT', land_sTtave, myThid) |
./pkg/land/land_output.F |
258 |
LAND_OUTPUT |
& 'land_hSnow', land_hStave, myThid) |
./pkg/land/land_output.F |
260 |
LAND_OUTPUT |
& 'land_snAge', land_sAtave, myThid) |
./pkg/land/land_output.F |
262 |
LAND_OUTPUT |
& 'land_RunOff', land_ROftave, myThid) |
./pkg/land/land_output.F |
264 |
LAND_OUTPUT |
& 'land_enRnOf', land_eROtave, myThid) |
./pkg/land/land_output.F |
273 |
LAND_OUTPUT |
& SQUEEZE_RIGHT, myThid ) |
./pkg/land/land_output.F |
276 |
LAND_OUTPUT |
& SQUEEZE_RIGHT, myThid ) |
./pkg/land/land_output.F |
279 |
LAND_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/land/land_output.F |
280 |
LAND_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/land/land_output.F |
281 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_grTtave,land_nLev, bi, bj, myThid) |
./pkg/land/land_output.F |
282 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_entave, land_nLev, bi, bj, myThid) |
./pkg/land/land_output.F |
283 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_grWtave,land_nLev, bi, bj, myThid) |
./pkg/land/land_output.F |
284 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_sTtave, 1, bi, bj, myThid) |
./pkg/land/land_output.F |
285 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_hStave, 1, bi, bj, myThid) |
./pkg/land/land_output.F |
286 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_sAtave, 1, bi, bj, myThid) |
./pkg/land/land_output.F |
287 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_ROftave, 1, bi, bj, myThid) |
./pkg/land/land_output.F |
288 |
LAND_OUTPUT |
CALL TIMEAVE_RESET(land_eROtave, 1, bi, bj, myThid) |
./pkg/land/land_output.F |
41 |
LAND_OUTPUT |
INTEGER myThid |
./pkg/land/land_output.F |
63 |
LAND_OUTPUT |
CALL LAND_MONITOR( aim_landFr, myTime, myIter, myThid ) |
./pkg/land/land_output.F |
84 |
LAND_OUTPUT |
& land_groundT, myIter, myThid ) |
./pkg/land/land_output.F |
86 |
LAND_OUTPUT |
& land_enthalp, myIter, myThid ) |
./pkg/land/land_output.F |
88 |
LAND_OUTPUT |
& land_groundW, myIter, myThid ) |
./pkg/land/land_output.F |
91 |
LAND_OUTPUT |
& 'land_skinT.', suff, land_skinT, myIter, myThid ) |
./pkg/land/land_output.F |
93 |
LAND_OUTPUT |
& 'land_hSnow.', suff, land_hSnow, myIter, myThid ) |
./pkg/land/land_output.F |
95 |
LAND_OUTPUT |
& 'land_snAge.', suff, land_snowAge, myIter, myThid ) |
./pkg/land/land_output.F |
9 |
LAND_OUTPUT |
SUBROUTINE LAND_OUTPUT( myTime, myIter, myThid ) |
./pkg/land/land_read_pickup.F |
32 |
LAND_READ_PICKUP |
INTEGER myThid |
./pkg/land/land_read_pickup.F |
54 |
LAND_READ_PICKUP |
& land_groundT, 1, myIter, myThid ) |
./pkg/land/land_read_pickup.F |
56 |
LAND_READ_PICKUP |
& land_groundW, 2, myIter, myThid ) |
./pkg/land/land_read_pickup.F |
62 |
LAND_READ_PICKUP |
& land_enthalp, 1, myIter, myThid ) |
./pkg/land/land_read_pickup.F |
64 |
LAND_READ_PICKUP |
& land_groundW, 2, myIter, myThid ) |
./pkg/land/land_read_pickup.F |
67 |
LAND_READ_PICKUP |
& land_skinT, k+1, myIter, myThid ) |
./pkg/land/land_read_pickup.F |
69 |
LAND_READ_PICKUP |
& land_hSnow, k+2, myIter, myThid ) |
./pkg/land/land_read_pickup.F |
71 |
LAND_READ_PICKUP |
& land_snowAge,k+3, myIter, myThid ) |
./pkg/land/land_read_pickup.F |
84 |
LAND_READ_PICKUP |
CALL MNC_FILE_CLOSE_ALL_MATCHING(fn, myThid) |
./pkg/land/land_read_pickup.F |
85 |
LAND_READ_PICKUP |
CALL MNC_CW_SET_UDIM(fn, 1, myThid) |
./pkg/land/land_read_pickup.F |
86 |
LAND_READ_PICKUP |
CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, -1, myThid) |
./pkg/land/land_read_pickup.F |
89 |
LAND_READ_PICKUP |
& 'land_enthalp', land_enthalp, myThid) |
./pkg/land/land_read_pickup.F |
91 |
LAND_READ_PICKUP |
& 'land_groundW', land_groundW, myThid) |
./pkg/land/land_read_pickup.F |
94 |
LAND_READ_PICKUP |
& 'land_skinT', land_skinT, myThid) |
./pkg/land/land_read_pickup.F |
96 |
LAND_READ_PICKUP |
& 'land_hSnow', land_hSnow, myThid) |
./pkg/land/land_read_pickup.F |
98 |
LAND_READ_PICKUP |
& 'land_snAge', land_snowAge, myThid) |
./pkg/land/land_read_pickup.F |
9 |
LAND_READ_PICKUP |
SUBROUTINE LAND_READ_PICKUP( myIter, myThid ) |
./pkg/land/land_readparms.F |
110 |
LAND_READPARMS |
_BEGIN_MASTER(myThid) |
./pkg/land/land_readparms.F |
167 |
LAND_READPARMS |
I SQUEEZE_RIGHT, myThid ) |
./pkg/land/land_readparms.F |
170 |
LAND_READPARMS |
O iUnit, myThid ) |
./pkg/land/land_readparms.F |
183 |
LAND_READPARMS |
I SQUEEZE_RIGHT, myThid ) |
./pkg/land/land_readparms.F |
210 |
LAND_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/land/land_readparms.F |
213 |
LAND_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/land/land_readparms.F |
222 |
LAND_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/land/land_readparms.F |
225 |
LAND_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/land/land_readparms.F |
235 |
LAND_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/land/land_readparms.F |
238 |
LAND_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/land/land_readparms.F |
275 |
LAND_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
./pkg/land/land_readparms.F |
277 |
LAND_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
./pkg/land/land_readparms.F |
279 |
LAND_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
./pkg/land/land_readparms.F |
281 |
LAND_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
./pkg/land/land_readparms.F |
304 |
LAND_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
./pkg/land/land_readparms.F |
306 |
LAND_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
./pkg/land/land_readparms.F |
308 |
LAND_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
./pkg/land/land_readparms.F |
314 |
LAND_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
./pkg/land/land_readparms.F |
316 |
LAND_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
./pkg/land/land_readparms.F |
318 |
LAND_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
./pkg/land/land_readparms.F |
324 |
LAND_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
./pkg/land/land_readparms.F |
326 |
LAND_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
./pkg/land/land_readparms.F |
328 |
LAND_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
./pkg/land/land_readparms.F |
36 |
LAND_READPARMS |
INTEGER myThid |
./pkg/land/land_readparms.F |
402 |
LAND_READPARMS |
_END_MASTER(myThid) |
./pkg/land/land_readparms.F |
9 |
LAND_READPARMS |
SUBROUTINE LAND_READPARMS( myThid ) |
./pkg/land/land_stepfwd.F |
10 |
LAND_STEPFWD |
I land_frc, bi, bj, myTime, myIter, myThid) |
./pkg/land/land_stepfwd.F |
38 |
LAND_STEPFWD |
INTEGER bi, bj, myIter, myThid |
./pkg/land/land_write_pickup.F |
100 |
LAND_WRITE_PICKUP |
CALL MNC_CW_RL_W_S('D',fn,0,0,'T', myTime, myThid) |
./pkg/land/land_write_pickup.F |
101 |
LAND_WRITE_PICKUP |
CALL MNC_CW_I_W_S('I',fn,0,0,'iter', myIter, myThid) |
./pkg/land/land_write_pickup.F |
104 |
LAND_WRITE_PICKUP |
& 'land_enthalp', land_enthalp, myThid) |
./pkg/land/land_write_pickup.F |
106 |
LAND_WRITE_PICKUP |
& 'land_groundW', land_groundW, myThid) |
./pkg/land/land_write_pickup.F |
109 |
LAND_WRITE_PICKUP |
& 'land_skinT', land_skinT, myThid) |
./pkg/land/land_write_pickup.F |
10 |
LAND_WRITE_PICKUP |
I myTime, myIter, myThid ) |
./pkg/land/land_write_pickup.F |
111 |
LAND_WRITE_PICKUP |
& 'land_hSnow', land_hSnow, myThid) |
./pkg/land/land_write_pickup.F |
113 |
LAND_WRITE_PICKUP |
& 'land_snAge', land_snowAge, myThid) |
./pkg/land/land_write_pickup.F |
40 |
LAND_WRITE_PICKUP |
INTEGER myThid |
./pkg/land/land_write_pickup.F |
67 |
LAND_WRITE_PICKUP |
& land_enthalp, 1, myIter, myThid ) |
./pkg/land/land_write_pickup.F |
69 |
LAND_WRITE_PICKUP |
& land_groundW, 2, myIter, myThid ) |
./pkg/land/land_write_pickup.F |
72 |
LAND_WRITE_PICKUP |
& land_skinT, k+1, myIter, myThid ) |
./pkg/land/land_write_pickup.F |
74 |
LAND_WRITE_PICKUP |
& land_hSnow, k+2, myIter, myThid ) |
./pkg/land/land_write_pickup.F |
76 |
LAND_WRITE_PICKUP |
& land_snowAge,k+3, myIter, myThid ) |
./pkg/land/land_write_pickup.F |
91 |
LAND_WRITE_PICKUP |
CALL MNC_FILE_CLOSE_ALL_MATCHING(fn, myThid) |
./pkg/land/land_write_pickup.F |
92 |
LAND_WRITE_PICKUP |
CALL MNC_CW_SET_UDIM(fn, 1, myThid) |
./pkg/land/land_write_pickup.F |
94 |
LAND_WRITE_PICKUP |
CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, 0, myThid) |
./pkg/land/land_write_pickup.F |
96 |
LAND_WRITE_PICKUP |
CALL MNC_CW_SET_CITER(fn, 2, -1, -1, -1, myThid) |
./pkg/land/land_write_pickup.F |
98 |
LAND_WRITE_PICKUP |
CALL MNC_CW_SET_UDIM(fn, 1, myThid) |
./pkg/layers/layers_calc.F |
14 |
LAYERS_CALC |
I myTime, myIter, myThid ) |
./pkg/layers/layers_calc.F |
156 |
LAYERS_CALC |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/layers/layers_calc.F |
227 |
LAYERS_CALC |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/layers/layers_calc.F |
267 |
LAYERS_CALC |
& deltaTclock, bi, bj, myThid ) |
./pkg/layers/layers_calc.F |
270 |
LAYERS_CALC |
& deltaTclock, bi, bj, myThid ) |
./pkg/layers/layers_calc.F |
275 |
LAYERS_CALC |
& deltaTclock, bi, bj, myThid ) |
./pkg/layers/layers_calc.F |
278 |
LAYERS_CALC |
& deltaTclock, bi, bj, myThid ) |
./pkg/layers/layers_calc.F |
41 |
LAYERS_CALC |
INTEGER myThid |
./pkg/layers/layers_calc.F |
70 |
LAYERS_CALC |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/layers/layers_calc.F |
71 |
LAYERS_CALC |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/layers/layers_check.F |
21 |
LAYERS_CHECK |
INTEGER myThid |
./pkg/layers/layers_check.F |
29 |
LAYERS_CHECK |
_BEGIN_MASTER(myThid) |
./pkg/layers/layers_check.F |
59 |
LAYERS_CHECK |
_END_MASTER(myThid) |
./pkg/layers/layers_check.F |
8 |
LAYERS_CHECK |
SUBROUTINE LAYERS_CHECK( myThid ) |
./pkg/layers/layers_init_fixed.F |
113 |
LAYERS_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/layers/layers_init_fixed.F |
141 |
LAYERS_INIT_FIXED |
& -1, myThid ) |
./pkg/layers/layers_init_fixed.F |
24 |
LAYERS_INIT_FIXED |
INTEGER myThid |
./pkg/layers/layers_init_fixed.F |
45 |
LAYERS_INIT_FIXED |
CALL LAYERS_MNC_INIT( myThid ) |
./pkg/layers/layers_init_fixed.F |
8 |
LAYERS_INIT_FIXED |
SUBROUTINE LAYERS_INIT_FIXED( myThid ) |
./pkg/layers/layers_init_varia.F |
23 |
LAYERS_INIT_VARIA |
INTEGER myThid |
./pkg/layers/layers_init_varia.F |
30 |
LAYERS_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/layers/layers_init_varia.F |
31 |
LAYERS_INIT_VARIA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/layers/layers_init_varia.F |
61 |
LAYERS_INIT_VARIA |
CALL TIMEAVE_RESET(layers_UFlux_T,Nlayers,bi,bj,myThid) |
./pkg/layers/layers_init_varia.F |
63 |
LAYERS_INIT_VARIA |
CALL TIMEAVE_RESET(layers_HU_T,Nlayers,bi,bj,myThid) |
./pkg/layers/layers_init_varia.F |
68 |
LAYERS_INIT_VARIA |
CALL TIMEAVE_RESET(layers_VFlux_T,Nlayers,bi,bj,myThid) |
./pkg/layers/layers_init_varia.F |
70 |
LAYERS_INIT_VARIA |
CALL TIMEAVE_RESET(layers_HV_T,Nlayers,bi,bj,myThid) |
./pkg/layers/layers_init_varia.F |
8 |
LAYERS_INIT_VARIA |
SUBROUTINE LAYERS_INIT_VARIA( myThid ) |
./pkg/layers/layers_mnc_init.F |
20 |
LAYERS_MNC_INIT |
INTEGER myThid |
./pkg/layers/layers_mnc_init.F |
32 |
LAYERS_MNC_INIT |
CALL MNC_CW_ADD_VNAME('UFlux','U_xy_Hn__G__t', 4,5,myThid) |
./pkg/layers/layers_mnc_init.F |
33 |
LAYERS_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('UFlux','units','m^2/s', myThid) |
./pkg/layers/layers_mnc_init.F |
36 |
LAYERS_MNC_INIT |
& myThid) |
./pkg/layers/layers_mnc_init.F |
38 |
LAYERS_MNC_INIT |
CALL MNC_CW_ADD_VNAME('VFlux','V_xy_Hn__G__t', 4,5,myThid) |
./pkg/layers/layers_mnc_init.F |
39 |
LAYERS_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('VFlux','units','m^2/s', myThid) |
./pkg/layers/layers_mnc_init.F |
42 |
LAYERS_MNC_INIT |
& myThid) |
./pkg/layers/layers_mnc_init.F |
8 |
LAYERS_MNC_INIT |
SUBROUTINE LAYERS_MNC_INIT( myThid ) |
./pkg/layers/layers_output.F |
103 |
LAYERS_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/layers/layers_output.F |
104 |
LAYERS_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/layers/layers_output.F |
106 |
LAYERS_OUTPUT |
CALL TIMEAVE_RESET(layers_UFlux_T,Nlayers,bi,bj,myThid) |
./pkg/layers/layers_output.F |
108 |
LAYERS_OUTPUT |
CALL TIMEAVE_RESET(layers_HU_T,Nlayers,bi,bj,myThid) |
./pkg/layers/layers_output.F |
10 |
LAYERS_OUTPUT |
SUBROUTINE LAYERS_OUTPUT( myTime, myIter, myThid ) |
./pkg/layers/layers_output.F |
113 |
LAYERS_OUTPUT |
CALL TIMEAVE_RESET(layers_VFlux_T,Nlayers,bi,bj,myThid) |
./pkg/layers/layers_output.F |
115 |
LAYERS_OUTPUT |
CALL TIMEAVE_RESET(layers_HV_T,Nlayers,bi,bj,myThid) |
./pkg/layers/layers_output.F |
128 |
LAYERS_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/layers/layers_output.F |
129 |
LAYERS_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/layers/layers_output.F |
133 |
LAYERS_OUTPUT |
& Nlayers, bi, bj, myThid ) |
./pkg/layers/layers_output.F |
136 |
LAYERS_OUTPUT |
& Nlayers, bi, bj, myThid ) |
./pkg/layers/layers_output.F |
142 |
LAYERS_OUTPUT |
& Nlayers, bi, bj, myThid ) |
./pkg/layers/layers_output.F |
145 |
LAYERS_OUTPUT |
& Nlayers, bi, bj, myThid ) |
./pkg/layers/layers_output.F |
156 |
LAYERS_OUTPUT |
& layers_UFlux_T, myIter, myThid ) |
./pkg/layers/layers_output.F |
159 |
LAYERS_OUTPUT |
& layers_HU_T, myIter, myThid ) |
./pkg/layers/layers_output.F |
164 |
LAYERS_OUTPUT |
& layers_VFlux_T, myIter, myThid ) |
./pkg/layers/layers_output.F |
167 |
LAYERS_OUTPUT |
& layers_HV_T, myIter, myThid ) |
./pkg/layers/layers_output.F |
177 |
LAYERS_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/layers/layers_output.F |
178 |
LAYERS_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/layers/layers_output.F |
180 |
LAYERS_OUTPUT |
CALL TIMEAVE_RESET(layers_UFlux_T,Nlayers,bi,bj,myThid) |
./pkg/layers/layers_output.F |
182 |
LAYERS_OUTPUT |
CALL TIMEAVE_RESET(layers_HU_T,Nlayers,bi,bj,myThid) |
./pkg/layers/layers_output.F |
187 |
LAYERS_OUTPUT |
CALL TIMEAVE_RESET(layers_VFlux_T,Nlayers,bi,bj,myThid) |
./pkg/layers/layers_output.F |
189 |
LAYERS_OUTPUT |
CALL TIMEAVE_RESET(layers_HV_T,Nlayers,bi,bj,myThid) |
./pkg/layers/layers_output.F |
38 |
LAYERS_OUTPUT |
INTEGER myThid |
./pkg/layers/layers_output.F |
72 |
LAYERS_OUTPUT |
& layers_UFlux, myIter, myThid ) |
./pkg/layers/layers_output.F |
75 |
LAYERS_OUTPUT |
& layers_HU, myIter, myThid ) |
./pkg/layers/layers_output.F |
80 |
LAYERS_OUTPUT |
& layers_VFlux, myIter, myThid ) |
./pkg/layers/layers_output.F |
83 |
LAYERS_OUTPUT |
& layers_HV, myIter, myThid ) |
./pkg/layers/layers_readparms.F |
20 |
LAYERS_READPARMS |
INTEGER myThid |
./pkg/layers/layers_readparms.F |
35 |
LAYERS_READPARMS |
_BEGIN_MASTER(myThid) |
./pkg/layers/layers_readparms.F |
57 |
LAYERS_READPARMS |
I myThid ) |
./pkg/layers/layers_readparms.F |
73 |
LAYERS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/layers/layers_readparms.F |
81 |
LAYERS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/layers/layers_readparms.F |
8 |
LAYERS_READPARMS |
SUBROUTINE LAYERS_READPARMS( myThid ) |
./pkg/layers/layers_readparms.F |
94 |
LAYERS_READPARMS |
_END_MASTER(myThid) |
./pkg/longstep/longstep_average.F |
102 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_FILL_3D_RS(LS_fwFluxCount,LS_fwFlux,PmEpR,1,myThid) |
./pkg/longstep/longstep_average.F |
104 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_FILL_3D_RS(LS_fwFluxCount,LS_fwFlux,EmPmR,1,myThid) |
./pkg/longstep/longstep_average.F |
108 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_FILL_3D(LS_KwxCount, LS_Kwx, Kwx, Nr, myThid) |
./pkg/longstep/longstep_average.F |
109 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_FILL_3D(LS_KwyCount, LS_Kwy, Kwy, Nr, myThid) |
./pkg/longstep/longstep_average.F |
110 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_FILL_3D(LS_KwzCount, LS_Kwz, Kwz, Nr, myThid) |
./pkg/longstep/longstep_average.F |
116 |
LONGSTEP_AVERAGE |
& LS_KPPdiffKzS, KPPdiffKzS, Nr, myThid) |
./pkg/longstep/longstep_average.F |
118 |
LONGSTEP_AVERAGE |
& LS_KPPghat, KPPghat, Nr, myThid) |
./pkg/longstep/longstep_average.F |
126 |
LONGSTEP_AVERAGE |
& Nr, myThid) |
./pkg/longstep/longstep_average.F |
128 |
LONGSTEP_AVERAGE |
& Nr, myThid) |
./pkg/longstep/longstep_average.F |
129 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_AVERAGE_3D(LS_wVelCount, LS_wVel, Nr, myThid) |
./pkg/longstep/longstep_average.F |
130 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_AVERAGE_3D(LS_thetaCount,LS_theta,Nr, myThid) |
./pkg/longstep/longstep_average.F |
131 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_AVERAGE_3D(LS_saltCount, LS_salt, Nr, myThid) |
./pkg/longstep/longstep_average.F |
134 |
LONGSTEP_AVERAGE |
& LS_IVDConvCount, Nr, myThid) |
./pkg/longstep/longstep_average.F |
136 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_AVERAGE_3D(LS_QswCount, LS_Qsw, 1, myThid) |
./pkg/longstep/longstep_average.F |
138 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_AVERAGE_3D(LS_fwFluxCount, LS_fwFlux, 1, myThid) |
./pkg/longstep/longstep_average.F |
142 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_AVERAGE_3D(LS_KwxCount, LS_Kwx, Nr, myThid) |
./pkg/longstep/longstep_average.F |
143 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_AVERAGE_3D(LS_KwyCount, LS_Kwy, Nr, myThid) |
./pkg/longstep/longstep_average.F |
144 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_AVERAGE_3D(LS_KwzCount, LS_Kwz, Nr, myThid) |
./pkg/longstep/longstep_average.F |
150 |
LONGSTEP_AVERAGE |
& LS_KPPdiffKzS, Nr, myThid) |
./pkg/longstep/longstep_average.F |
152 |
LONGSTEP_AVERAGE |
& LS_KPPghat, Nr, myThid) |
./pkg/longstep/longstep_average.F |
158 |
LONGSTEP_AVERAGE |
CALL EXCH_UV_3D_RL( LS_uVel, LS_vVel, .TRUE., Nr, myThid ) |
./pkg/longstep/longstep_average.F |
159 |
LONGSTEP_AVERAGE |
CALL EXCH_3D_RL( LS_wVel , Nr, myThid ) |
./pkg/longstep/longstep_average.F |
160 |
LONGSTEP_AVERAGE |
CALL EXCH_3D_RL( LS_theta, Nr, myThid ) |
./pkg/longstep/longstep_average.F |
161 |
LONGSTEP_AVERAGE |
CALL EXCH_3D_RL( LS_salt , Nr, myThid ) |
./pkg/longstep/longstep_average.F |
163 |
LONGSTEP_AVERAGE |
& CALL EXCH_3D_RL( LS_IVDConvCount, myThid ) |
./pkg/longstep/longstep_average.F |
165 |
LONGSTEP_AVERAGE |
CALL EXCH_XY_RL( LS_Qsw, myThid ) |
./pkg/longstep/longstep_average.F |
167 |
LONGSTEP_AVERAGE |
CALL EXCH_XY_RL( LS_fwFlux, myThid ) |
./pkg/longstep/longstep_average.F |
170 |
LONGSTEP_AVERAGE |
CALL EXCH_UV_AGRID_3D_RL( LS_Kwx, LS_Kwy, .FALSE., Nr, myThid ) |
./pkg/longstep/longstep_average.F |
171 |
LONGSTEP_AVERAGE |
CALL EXCH_3D_RL( LS_Kwz , Nr, myThid ) |
./pkg/longstep/longstep_average.F |
176 |
LONGSTEP_AVERAGE |
CALL EXCH_3D_RL( LS_KPPdiffKzS, Nr, myThid ) |
./pkg/longstep/longstep_average.F |
177 |
LONGSTEP_AVERAGE |
CALL EXCH_3D_RL( LS_KPPghat, Nr, myThid ) |
./pkg/longstep/longstep_average.F |
184 |
LONGSTEP_AVERAGE |
CALL DIAGNOSTICS_FILL(LS_uVel, 'LSuVel ',0,Nr,0,1,1,myThid) |
./pkg/longstep/longstep_average.F |
185 |
LONGSTEP_AVERAGE |
CALL DIAGNOSTICS_FILL(LS_vVel, 'LSvVel ',0,Nr,0,1,1,myThid) |
./pkg/longstep/longstep_average.F |
186 |
LONGSTEP_AVERAGE |
CALL DIAGNOSTICS_FILL(LS_wVel, 'LSwVel ',0,Nr,0,1,1,myThid) |
./pkg/longstep/longstep_average.F |
187 |
LONGSTEP_AVERAGE |
CALL DIAGNOSTICS_FILL(LS_theta,'LStheta ',0,Nr,0,1,1,myThid) |
./pkg/longstep/longstep_average.F |
188 |
LONGSTEP_AVERAGE |
CALL DIAGNOSTICS_FILL(LS_salt, 'LSsalt ',0,Nr,0,1,1,myThid) |
./pkg/longstep/longstep_average.F |
191 |
LONGSTEP_AVERAGE |
& 'LScnvAdj',0,Nr,0,1,1,myThid) |
./pkg/longstep/longstep_average.F |
193 |
LONGSTEP_AVERAGE |
CALL DIAGNOSTICS_FILL(LS_Qsw , 'LSqsw ',0,1 ,0,1,1,myThid) |
./pkg/longstep/longstep_average.F |
195 |
LONGSTEP_AVERAGE |
CALL DIAGNOSTICS_FILL(LS_fwFlux, 'LSfwFlux',0,1 ,0,1,1,myThid) |
./pkg/longstep/longstep_average.F |
198 |
LONGSTEP_AVERAGE |
CALL DIAGNOSTICS_FILL(LS_Kwx , 'LSkwx ',0,Nr,0,1,1,myThid) |
./pkg/longstep/longstep_average.F |
199 |
LONGSTEP_AVERAGE |
CALL DIAGNOSTICS_FILL(LS_Kwy , 'LSkwy ',0,Nr,0,1,1,myThid) |
./pkg/longstep/longstep_average.F |
200 |
LONGSTEP_AVERAGE |
CALL DIAGNOSTICS_FILL(LS_Kwz , 'LSkwz ',0,Nr,0,1,1,myThid) |
./pkg/longstep/longstep_average.F |
206 |
LONGSTEP_AVERAGE |
& 'LSKPPdfS',0,Nr,0,1,1,myThid) |
./pkg/longstep/longstep_average.F |
208 |
LONGSTEP_AVERAGE |
& 'LSKPPght',0,Nr,0,1,1,myThid) |
./pkg/longstep/longstep_average.F |
216 |
LONGSTEP_AVERAGE |
_BEGIN_MASTER(myThid) |
./pkg/longstep/longstep_average.F |
221 |
LONGSTEP_AVERAGE |
_END_MASTER(myThid) |
./pkg/longstep/longstep_average.F |
228 |
LONGSTEP_AVERAGE |
_BEGIN_MASTER(myThid) |
./pkg/longstep/longstep_average.F |
230 |
LONGSTEP_AVERAGE |
_END_MASTER(myThid) |
./pkg/longstep/longstep_average.F |
46 |
LONGSTEP_AVERAGE |
INTEGER myThid |
./pkg/longstep/longstep_average.F |
56 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_RESET_3D(LS_uVelCount, LS_uVel, Nr, myThid) |
./pkg/longstep/longstep_average.F |
57 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_RESET_3D(LS_vVelCount, LS_vVel, Nr, myThid) |
./pkg/longstep/longstep_average.F |
58 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_RESET_3D(LS_wVelCount, LS_wVel, Nr, myThid) |
./pkg/longstep/longstep_average.F |
59 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_RESET_3D(LS_thetaCount,LS_theta,Nr, myThid) |
./pkg/longstep/longstep_average.F |
60 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_RESET_3D(LS_saltCount, LS_salt, Nr, myThid) |
./pkg/longstep/longstep_average.F |
63 |
LONGSTEP_AVERAGE |
& LS_IVDConvCount, Nr, myThid) |
./pkg/longstep/longstep_average.F |
65 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_RESET_3D(LS_QswCount, LS_Qsw, 1, myThid) |
./pkg/longstep/longstep_average.F |
67 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_RESET_3D(LS_fwFluxCount, LS_fwFlux, 1, myThid) |
./pkg/longstep/longstep_average.F |
70 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_RESET_3D(LS_KwxCount, LS_Kwx, Nr, myThid) |
./pkg/longstep/longstep_average.F |
71 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_RESET_3D(LS_KwyCount, LS_Kwy, Nr, myThid) |
./pkg/longstep/longstep_average.F |
72 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_RESET_3D(LS_KwzCount, LS_Kwz, Nr, myThid) |
./pkg/longstep/longstep_average.F |
78 |
LONGSTEP_AVERAGE |
& LS_KPPdiffKzS, Nr, myThid) |
./pkg/longstep/longstep_average.F |
80 |
LONGSTEP_AVERAGE |
& LS_KPPghat, Nr, myThid) |
./pkg/longstep/longstep_average.F |
89 |
LONGSTEP_AVERAGE |
& Nr, myThid) |
./pkg/longstep/longstep_average.F |
91 |
LONGSTEP_AVERAGE |
& Nr, myThid) |
./pkg/longstep/longstep_average.F |
92 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_FILL_3D(LS_wVelCount, LS_wVel, wVel, Nr, myThid) |
./pkg/longstep/longstep_average.F |
93 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_FILL_3D(LS_thetaCount, LS_theta, theta, Nr, myThid) |
./pkg/longstep/longstep_average.F |
94 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_FILL_3D(LS_saltCount, LS_salt, salt, Nr, myThid) |
./pkg/longstep/longstep_average.F |
97 |
LONGSTEP_AVERAGE |
& LS_IVDConvCount, IVDConvCount, Nr, myThid) |
./pkg/longstep/longstep_average.F |
99 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_FILL_3D_RS(LS_QswCount, LS_Qsw, Qsw, 1, myThid) |
./pkg/longstep/longstep_average.F |
9 |
LONGSTEP_AVERAGE |
SUBROUTINE LONGSTEP_AVERAGE( myTime, myIter, myThid ) |
./pkg/longstep/longstep_average_3d.F |
12 |
LONGSTEP_AVERAGE_3D |
I myNr, myThid) |
./pkg/longstep/longstep_average_3d.F |
38 |
LONGSTEP_AVERAGE_3D |
INTEGER myThid |
./pkg/longstep/longstep_average_3d.F |
47 |
LONGSTEP_AVERAGE_3D |
DO bj=myByLo(myThid), myByHi(myThid) |
./pkg/longstep/longstep_average_3d.F |
48 |
LONGSTEP_AVERAGE_3D |
DO bi=myBxLo(myThid), myBxHi(myThid) |
./pkg/longstep/longstep_average_3d_fac.F |
13 |
LONGSTEP_AVERAGE_3D_FAC |
I myNr, myThid) |
./pkg/longstep/longstep_average_3d_fac.F |
40 |
LONGSTEP_AVERAGE_3D_FAC |
INTEGER myThid |
./pkg/longstep/longstep_average_3d_fac.F |
49 |
LONGSTEP_AVERAGE_3D_FAC |
DO bj=myByLo(myThid), myByHi(myThid) |
./pkg/longstep/longstep_average_3d_fac.F |
50 |
LONGSTEP_AVERAGE_3D_FAC |
DO bi=myBxLo(myThid), myBxHi(myThid) |
./pkg/longstep/longstep_check_iters.F |
11 |
LONGSTEP_CHECK_ITERS |
SUBROUTINE LONGSTEP_CHECK_ITERS( myThid ) |
./pkg/longstep/longstep_check_iters.F |
25 |
LONGSTEP_CHECK_ITERS |
INTEGER myThid |
./pkg/longstep/longstep_check_iters.F |
42 |
LONGSTEP_CHECK_ITERS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/longstep/longstep_check_iters.F |
53 |
LONGSTEP_CHECK_ITERS |
& SQUEEZE_RIGHT , myThid) |
./pkg/longstep/longstep_check_iters.F |
57 |
LONGSTEP_CHECK_ITERS |
& SQUEEZE_RIGHT , myThid) |
./pkg/longstep/longstep_check_iters.F |
65 |
LONGSTEP_CHECK_ITERS |
& SQUEEZE_RIGHT , myThid) |
./pkg/longstep/longstep_check_iters.F |
69 |
LONGSTEP_CHECK_ITERS |
& SQUEEZE_RIGHT , myThid) |
./pkg/longstep/longstep_check_iters.F |
73 |
LONGSTEP_CHECK_ITERS |
& SQUEEZE_RIGHT , myThid) |
./pkg/longstep/longstep_check_iters.F |
77 |
LONGSTEP_CHECK_ITERS |
& SQUEEZE_RIGHT , myThid) |
./pkg/longstep/longstep_correction_step.F |
10 |
LONGSTEP_CORRECTION_STEP |
SUBROUTINE LONGSTEP_CORRECTION_STEP(myTime, myIter, myThid) |
./pkg/longstep/longstep_correction_step.F |
42 |
LONGSTEP_CORRECTION_STEP |
INTEGER myThid |
./pkg/longstep/longstep_correction_step.F |
56 |
LONGSTEP_CORRECTION_STEP |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/longstep/longstep_correction_step.F |
57 |
LONGSTEP_CORRECTION_STEP |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/longstep/longstep_correction_step.F |
62 |
LONGSTEP_CORRECTION_STEP |
& CALL PTRACERS_CYCLE(bi,bj,myTime,myIter,myThid) |
./pkg/longstep/longstep_diagnostics_init.F |
102 |
LONGSTEP_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/longstep/longstep_diagnostics_init.F |
112 |
LONGSTEP_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/longstep/longstep_diagnostics_init.F |
120 |
LONGSTEP_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/longstep/longstep_diagnostics_init.F |
127 |
LONGSTEP_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/longstep/longstep_diagnostics_init.F |
138 |
LONGSTEP_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/longstep/longstep_diagnostics_init.F |
145 |
LONGSTEP_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/longstep/longstep_diagnostics_init.F |
24 |
LONGSTEP_DIAGNOSTICS_INIT |
INTEGER myThid |
./pkg/longstep/longstep_diagnostics_init.F |
47 |
LONGSTEP_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/longstep/longstep_diagnostics_init.F |
55 |
LONGSTEP_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/longstep/longstep_diagnostics_init.F |
63 |
LONGSTEP_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/longstep/longstep_diagnostics_init.F |
70 |
LONGSTEP_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/longstep/longstep_diagnostics_init.F |
77 |
LONGSTEP_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/longstep/longstep_diagnostics_init.F |
85 |
LONGSTEP_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/longstep/longstep_diagnostics_init.F |
94 |
LONGSTEP_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/longstep/longstep_diagnostics_init.F |
9 |
LONGSTEP_DIAGNOSTICS_INIT |
SUBROUTINE LONGSTEP_DIAGNOSTICS_INIT( myThid ) |
./pkg/longstep/longstep_fill_3d.F |
11 |
LONGSTEP_FILL_3D |
I fld, myNr, myThid) |
./pkg/longstep/longstep_fill_3d.F |
39 |
LONGSTEP_FILL_3D |
INTEGER myThid |
./pkg/longstep/longstep_fill_3d.F |
47 |
LONGSTEP_FILL_3D |
DO bj=myByLo(myThid), myByHi(myThid) |
./pkg/longstep/longstep_fill_3d.F |
48 |
LONGSTEP_FILL_3D |
DO bi=myBxLo(myThid), myBxHi(myThid) |
./pkg/longstep/longstep_fill_3d_fac.F |
11 |
LONGSTEP_FILL_3D_FAC |
I fld, fac, myNr, myThid) |
./pkg/longstep/longstep_fill_3d_fac.F |
40 |
LONGSTEP_FILL_3D_FAC |
INTEGER myThid |
./pkg/longstep/longstep_fill_3d_fac.F |
48 |
LONGSTEP_FILL_3D_FAC |
DO bj=myByLo(myThid), myByHi(myThid) |
./pkg/longstep/longstep_fill_3d_fac.F |
49 |
LONGSTEP_FILL_3D_FAC |
DO bi=myBxLo(myThid), myBxHi(myThid) |
./pkg/longstep/longstep_fill_3d_rs.F |
11 |
LONGSTEP_FILL_3D_RS |
I fld, myNr, myThid) |
./pkg/longstep/longstep_fill_3d_rs.F |
40 |
LONGSTEP_FILL_3D_RS |
INTEGER myThid |
./pkg/longstep/longstep_fill_3d_rs.F |
48 |
LONGSTEP_FILL_3D_RS |
DO bj=myByLo(myThid), myByHi(myThid) |
./pkg/longstep/longstep_fill_3d_rs.F |
49 |
LONGSTEP_FILL_3D_RS |
DO bi=myBxLo(myThid), myBxHi(myThid) |
./pkg/longstep/longstep_forcing_surf.F |
12 |
LONGSTEP_FORCING_SURF |
I myTime,myIter,myThid ) |
./pkg/longstep/longstep_forcing_surf.F |
41 |
LONGSTEP_FORCING_SURF |
INTEGER myThid |
./pkg/longstep/longstep_init_fixed.F |
10 |
LONGSTEP_INIT_FIXED |
SUBROUTINE LONGSTEP_INIT_FIXED( myThid ) |
./pkg/longstep/longstep_init_fixed.F |
23 |
LONGSTEP_INIT_FIXED |
INTEGER myThid |
./pkg/longstep/longstep_init_fixed.F |
41 |
LONGSTEP_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/longstep/longstep_init_fixed.F |
45 |
LONGSTEP_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/longstep/longstep_init_fixed.F |
57 |
LONGSTEP_INIT_FIXED |
CALL LONGSTEP_DIAGNOSTICS_INIT( myThid ) |
./pkg/longstep/longstep_init_varia.F |
30 |
LONGSTEP_INIT_VARIA |
INTEGER myThid |
./pkg/longstep/longstep_init_varia.F |
39 |
LONGSTEP_INIT_VARIA |
_BEGIN_MASTER(myThid) |
./pkg/longstep/longstep_init_varia.F |
41 |
LONGSTEP_INIT_VARIA |
_END_MASTER(myThid) |
./pkg/longstep/longstep_init_varia.F |
46 |
LONGSTEP_INIT_VARIA |
CALL LONGSTEP_RESET_3D(LS_uVelCount, LS_uVel, Nr, myThid) |
./pkg/longstep/longstep_init_varia.F |
47 |
LONGSTEP_INIT_VARIA |
CALL LONGSTEP_RESET_3D(LS_vVelCount, LS_vVel, Nr, myThid) |
./pkg/longstep/longstep_init_varia.F |
48 |
LONGSTEP_INIT_VARIA |
CALL LONGSTEP_RESET_3D(LS_wVelCount, LS_wVel, Nr, myThid) |
./pkg/longstep/longstep_init_varia.F |
49 |
LONGSTEP_INIT_VARIA |
CALL LONGSTEP_RESET_3D(LS_thetaCount,LS_theta,Nr, myThid) |
./pkg/longstep/longstep_init_varia.F |
50 |
LONGSTEP_INIT_VARIA |
CALL LONGSTEP_RESET_3D(LS_saltCount, LS_salt, Nr, myThid) |
./pkg/longstep/longstep_init_varia.F |
53 |
LONGSTEP_INIT_VARIA |
& LS_IVDConvCount, Nr, myThid) |
./pkg/longstep/longstep_init_varia.F |
55 |
LONGSTEP_INIT_VARIA |
CALL LONGSTEP_RESET_3D(LS_QswCount, LS_Qsw, 1, myThid) |
./pkg/longstep/longstep_init_varia.F |
59 |
LONGSTEP_INIT_VARIA |
CALL LONGSTEP_RESET_3D(LS_KwxCount, LS_Kwx, Nr, myThid) |
./pkg/longstep/longstep_init_varia.F |
60 |
LONGSTEP_INIT_VARIA |
CALL LONGSTEP_RESET_3D(LS_KwyCount, LS_Kwy, Nr, myThid) |
./pkg/longstep/longstep_init_varia.F |
61 |
LONGSTEP_INIT_VARIA |
CALL LONGSTEP_RESET_3D(LS_KwzCount, LS_Kwz, Nr, myThid) |
./pkg/longstep/longstep_init_varia.F |
67 |
LONGSTEP_INIT_VARIA |
& LS_KPPdiffKzS, Nr, myThid) |
./pkg/longstep/longstep_init_varia.F |
69 |
LONGSTEP_INIT_VARIA |
& LS_KPPghat, Nr, myThid) |
./pkg/longstep/longstep_init_varia.F |
9 |
LONGSTEP_INIT_VARIA |
SUBROUTINE LONGSTEP_INIT_VARIA( myThid ) |
./pkg/longstep/longstep_readparms.F |
11 |
LONGSTEP_READPARMS |
SUBROUTINE LONGSTEP_READPARMS( myThid ) |
./pkg/longstep/longstep_readparms.F |
24 |
LONGSTEP_READPARMS |
INTEGER myThid |
./pkg/longstep/longstep_readparms.F |
48 |
LONGSTEP_READPARMS |
_BEGIN_MASTER(myThid) |
./pkg/longstep/longstep_readparms.F |
57 |
LONGSTEP_READPARMS |
& SQUEEZE_RIGHT , myThid ) |
./pkg/longstep/longstep_readparms.F |
61 |
LONGSTEP_READPARMS |
I myThid ) |
./pkg/longstep/longstep_readparms.F |
66 |
LONGSTEP_READPARMS |
& SQUEEZE_RIGHT , myThid ) |
./pkg/longstep/longstep_readparms.F |
77 |
LONGSTEP_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT , myThid ) |
./pkg/longstep/longstep_readparms.F |
79 |
LONGSTEP_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT , myThid ) |
./pkg/longstep/longstep_readparms.F |
81 |
LONGSTEP_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT , myThid ) |
./pkg/longstep/longstep_readparms.F |
89 |
LONGSTEP_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/longstep/longstep_readparms.F |
91 |
LONGSTEP_READPARMS |
_END_MASTER(myThid) |
./pkg/longstep/longstep_reset_3d.F |
11 |
LONGSTEP_RESET_3D |
I myNr, myThid) |
./pkg/longstep/longstep_reset_3d.F |
37 |
LONGSTEP_RESET_3D |
INTEGER myThid |
./pkg/longstep/longstep_reset_3d.F |
45 |
LONGSTEP_RESET_3D |
DO bj=myByLo(myThid), myByHi(myThid) |
./pkg/longstep/longstep_reset_3d.F |
46 |
LONGSTEP_RESET_3D |
DO bi=myBxLo(myThid), myBxHi(myThid) |
./pkg/longstep/longstep_thermodynamics.F |
129 |
LONGSTEP_THERMODYNAMICS |
IF (debugMode) CALL DEBUG_ENTER('LONGSTEP_THERMODYNAMICS',myThid) |
./pkg/longstep/longstep_thermodynamics.F |
146 |
LONGSTEP_THERMODYNAMICS |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/longstep/longstep_thermodynamics.F |
158 |
LONGSTEP_THERMODYNAMICS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/longstep/longstep_thermodynamics.F |
15 |
LONGSTEP_THERMODYNAMICS |
SUBROUTINE LONGSTEP_THERMODYNAMICS(myTime, myIter, myThid) |
./pkg/longstep/longstep_thermodynamics.F |
161 |
LONGSTEP_THERMODYNAMICS |
act1 = bi - myBxLo(myThid) |
./pkg/longstep/longstep_thermodynamics.F |
162 |
LONGSTEP_THERMODYNAMICS |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
./pkg/longstep/longstep_thermodynamics.F |
163 |
LONGSTEP_THERMODYNAMICS |
act2 = bj - myByLo(myThid) |
./pkg/longstep/longstep_thermodynamics.F |
164 |
LONGSTEP_THERMODYNAMICS |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
./pkg/longstep/longstep_thermodynamics.F |
165 |
LONGSTEP_THERMODYNAMICS |
act3 = myThid - 1 |
./pkg/longstep/longstep_thermodynamics.F |
231 |
LONGSTEP_THERMODYNAMICS |
I myTime,myIter,myThid ) |
./pkg/longstep/longstep_thermodynamics.F |
271 |
LONGSTEP_THERMODYNAMICS |
IF (debugMode) CALL DEBUG_CALL('PTRACERS_ADVECTION',myThid) |
./pkg/longstep/longstep_thermodynamics.F |
274 |
LONGSTEP_THERMODYNAMICS |
I bi,bj,myTime,myIter,myThid ) |
./pkg/longstep/longstep_thermodynamics.F |
281 |
LONGSTEP_THERMODYNAMICS |
& 'ENTERING DOWNWARD K LOOP IN LONGSTEP', myThid) |
./pkg/longstep/longstep_thermodynamics.F |
329 |
LONGSTEP_THERMODYNAMICS |
I k,bi,bj, myThid ) |
./pkg/longstep/longstep_thermodynamics.F |
359 |
LONGSTEP_THERMODYNAMICS |
I k, bi, bj, myThid ) |
./pkg/longstep/longstep_thermodynamics.F |
363 |
LONGSTEP_THERMODYNAMICS |
I k, bi, bj, myThid ) |
./pkg/longstep/longstep_thermodynamics.F |
418 |
LONGSTEP_THERMODYNAMICS |
I myThid) |
./pkg/longstep/longstep_thermodynamics.F |
429 |
LONGSTEP_THERMODYNAMICS |
I myTime,myIter,myThid) |
./pkg/longstep/longstep_thermodynamics.F |
440 |
LONGSTEP_THERMODYNAMICS |
I bi, bj, myTime, myIter, myThid ) |
./pkg/longstep/longstep_thermodynamics.F |
452 |
LONGSTEP_THERMODYNAMICS |
& CALL MATRIX_STORE_TENDENCY_EXP(bi,bj, myTime,myIter,myThid) |
./pkg/longstep/longstep_thermodynamics.F |
465 |
LONGSTEP_THERMODYNAMICS |
I bi, bj, myTime, myIter, myThid ) |
./pkg/longstep/longstep_thermodynamics.F |
477 |
LONGSTEP_THERMODYNAMICS |
CALL DEBUG_STATS_RL(Nr,LS_uVel,'LS_Uvel (THERMODYNAMICS)',myThid) |
./pkg/longstep/longstep_thermodynamics.F |
478 |
LONGSTEP_THERMODYNAMICS |
CALL DEBUG_STATS_RL(Nr,LS_vVel,'LS_Vvel (THERMODYNAMICS)',myThid) |
./pkg/longstep/longstep_thermodynamics.F |
479 |
LONGSTEP_THERMODYNAMICS |
CALL DEBUG_STATS_RL(Nr,LS_wVel,'LS_Wvel (THERMODYNAMICS)',myThid) |
./pkg/longstep/longstep_thermodynamics.F |
481 |
LONGSTEP_THERMODYNAMICS |
& myThid) |
./pkg/longstep/longstep_thermodynamics.F |
482 |
LONGSTEP_THERMODYNAMICS |
CALL DEBUG_STATS_RL(Nr,LS_salt,'LS_Salt (THERMODYNAMICS)',myThid) |
./pkg/longstep/longstep_thermodynamics.F |
485 |
LONGSTEP_THERMODYNAMICS |
CALL PTRACERS_DEBUG(myThid) |
./pkg/longstep/longstep_thermodynamics.F |
495 |
LONGSTEP_THERMODYNAMICS |
IF (debugMode) CALL DEBUG_LEAVE('LONGSTEP_THERMODYNAMICS',myThid) |
./pkg/longstep/longstep_thermodynamics.F |
74 |
LONGSTEP_THERMODYNAMICS |
INTEGER myThid |
./pkg/matrix/matrix_init.F |
19 |
MATRIX_INIT |
INTEGER myThid |
./pkg/matrix/matrix_init.F |
31 |
MATRIX_INIT |
DO bj=myByLo(myThid), myByHi (myThid) |
./pkg/matrix/matrix_init.F |
32 |
MATRIX_INIT |
DO bi=myBxLo (myThid), myBxHi (myThid) |
./pkg/matrix/matrix_init.F |
7 |
MATRIX_INIT |
SUBROUTINE MATRIX_INIT( myThid ) |
./pkg/matrix/matrix_output.F |
12 |
MATRIX_OUTPUT |
I myTime, myIter, myThid ) |
./pkg/matrix/matrix_output.F |
29 |
MATRIX_OUTPUT |
INTEGER myThid |
./pkg/matrix/matrix_output.F |
38 |
MATRIX_OUTPUT |
CALL MATRIX_WRITE_TENDENCY( myTime, myIter, myThid ) |
./pkg/matrix/matrix_output.F |
41 |
MATRIX_OUTPUT |
CALL MATRIX_WRITE_GRID( myThid ) |
./pkg/matrix/matrix_readparms.F |
22 |
MATRIX_READPARMS |
INTEGER myThid |
./pkg/matrix/matrix_readparms.F |
40 |
MATRIX_READPARMS |
_BEGIN_MASTER(myThid) |
./pkg/matrix/matrix_readparms.F |
47 |
MATRIX_READPARMS |
I myThid ) |
./pkg/matrix/matrix_readparms.F |
56 |
MATRIX_READPARMS |
_END_MASTER(myThid) |
./pkg/matrix/matrix_readparms.F |
9 |
MATRIX_READPARMS |
SUBROUTINE MATRIX_READPARMS( myThid ) |
./pkg/matrix/matrix_store_tendency.F |
14 |
MATRIX_STORE_TENDENCY_EXP |
& bi, bj, myTime, myIter, myThid ) |
./pkg/matrix/matrix_store_tendency.F |
28 |
MATRIX_STORE_TENDENCY_EXP |
INTEGER myThid |
./pkg/matrix/matrix_store_tendency.F |
62 |
MATRIX_STORE_TENDENCY_IMP |
& bi, bj, myTime, myIter, myThid ) |
./pkg/matrix/matrix_store_tendency.F |
76 |
MATRIX_STORE_TENDENCY_IMP |
INTEGER myThid |
./pkg/matrix/matrix_write_grid.F |
16 |
MATRIX_WRITE_GRID |
INTEGER myThid |
./pkg/matrix/matrix_write_grid.F |
23 |
MATRIX_WRITE_GRID |
CALL WRITE_FLD_XY_RS( 'DXF',' ',DXF,0,myThid) |
./pkg/matrix/matrix_write_grid.F |
24 |
MATRIX_WRITE_GRID |
CALL WRITE_FLD_XY_RS( 'DYF',' ',DYF,0,myThid) |
./pkg/matrix/matrix_write_grid.F |
7 |
MATRIX_WRITE_GRID |
SUBROUTINE MATRIX_WRITE_GRID( myThid ) |
./pkg/matrix/matrix_write_tendency.F |
102 |
MATRIX_WRITE_TENDENCY |
& MATRIX(1-Olx,1-Oly,1,1,1,iTracer,2),iRec,myIter,myThid) |
./pkg/matrix/matrix_write_tendency.F |
108 |
MATRIX_WRITE_TENDENCY |
DO bj=myByLo(myThid), myByHi (myThid) |
./pkg/matrix/matrix_write_tendency.F |
109 |
MATRIX_WRITE_TENDENCY |
DO bi=myBxLo (myThid), myBxHi (myThid) |
./pkg/matrix/matrix_write_tendency.F |
11 |
MATRIX_WRITE_TENDENCY |
SUBROUTINE MATRIX_WRITE_TENDENCY( myTime, myIter, myThid ) |
./pkg/matrix/matrix_write_tendency.F |
24 |
MATRIX_WRITE_TENDENCY |
INTEGER myThid |
./pkg/matrix/matrix_write_tendency.F |
42 |
MATRIX_WRITE_TENDENCY |
DO bj=myByLo(myThid), myByHi (myThid) |
./pkg/matrix/matrix_write_tendency.F |
43 |
MATRIX_WRITE_TENDENCY |
DO bi=myBxLo (myThid), myBxHi (myThid) |
./pkg/matrix/matrix_write_tendency.F |
59 |
MATRIX_WRITE_TENDENCY |
& MATRIX(1-Olx,1-Oly,1,1,1,iTracer,1),iRec,myIter,myThid) |
./pkg/matrix/matrix_write_tendency.F |
65 |
MATRIX_WRITE_TENDENCY |
DO bj=myByLo(myThid), myByHi (myThid) |
./pkg/matrix/matrix_write_tendency.F |
66 |
MATRIX_WRITE_TENDENCY |
DO bi=myBxLo (myThid), myBxHi (myThid) |
./pkg/matrix/matrix_write_tendency.F |
85 |
MATRIX_WRITE_TENDENCY |
DO bj=myByLo(myThid), myByHi (myThid) |
./pkg/matrix/matrix_write_tendency.F |
86 |
MATRIX_WRITE_TENDENCY |
DO bi=myBxLo (myThid), myBxHi (myThid) |
./pkg/mdsio/mdsio_buffertorl.F |
11 |
MDS_BUFFERTORL |
SUBROUTINE MDS_BUFFERTORL( vecBuf, arr, narr, copyTo, myThid ) |
./pkg/mdsio/mdsio_buffertorl.F |
30 |
MDS_BUFFERTORL |
INTEGER myThid |
./pkg/mdsio/mdsio_buffertors.F |
11 |
MDS_BUFFERTORS |
SUBROUTINE MDS_BUFFERTORS( vecBuf, arr, narr, copyTo, myThid ) |
./pkg/mdsio/mdsio_buffertors.F |
30 |
MDS_BUFFERTORS |
INTEGER myThid |
./pkg/mdsio/mdsio_facef_read.F |
110 |
MDS_FACEF_READ_RS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_facef_read.F |
117 |
MDS_FACEF_READ_RS |
CALL MDSFINDUNIT( dUnit, myThid ) |
./pkg/mdsio/mdsio_facef_read.F |
118 |
MDS_FACEF_READ_RS |
length_of_rec = MDS_RECLEN( fPrec, (sNx+1)*(sNy+1), myThid ) |
./pkg/mdsio/mdsio_facef_read.F |
144 |
MDS_FACEF_READ_RS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_facef_read.F |
19 |
MDS_FACEF_READ_RS |
I bi,bj, myThid ) |
./pkg/mdsio/mdsio_facef_read.F |
45 |
MDS_FACEF_READ_RS |
INTEGER bi,bj, myThid |
./pkg/mdsio/mdsio_facef_read.F |
79 |
MDS_FACEF_READ_RS |
CALL MDSFINDUNIT( dUnit, myThid ) |
./pkg/mdsio/mdsio_facef_read.F |
80 |
MDS_FACEF_READ_RS |
length_of_rec = MDS_RECLEN( fPrec, (dNx+1), myThid ) |
./pkg/mdsio/mdsio_gl.F |
1135 |
MDSREADFIELD_2D_GL |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/mdsio/mdsio_gl.F |
1136 |
MDSREADFIELD_2D_GL |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/mdsio/mdsio_gl.F |
1157 |
MDSREADFIELD_2D_GL |
_END_MASTER( myThid ) |
./pkg/mdsio/mdsio_gl.F |
1176 |
MDSWRITEFIELD_2D_GL |
I myThid ) |
./pkg/mdsio/mdsio_gl.F |
1232 |
MDSWRITEFIELD_2D_GL |
integer myThid |
./pkg/mdsio/mdsio_gl.F |
1273 |
MDSWRITEFIELD_2D_GL |
_BEGIN_MASTER( myThid ) |
./pkg/mdsio/mdsio_gl.F |
1306 |
MDSWRITEFIELD_2D_GL |
_END_MASTER( myThid ) |
./pkg/mdsio/mdsio_gl.F |
1312 |
MDSWRITEFIELD_2D_GL |
_BEGIN_MASTER( myThid ) |
./pkg/mdsio/mdsio_gl.F |
1324 |
MDSWRITEFIELD_2D_GL |
_END_MASTER( myThid ) |
./pkg/mdsio/mdsio_gl.F |
1331 |
MDSWRITEFIELD_2D_GL |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/mdsio/mdsio_gl.F |
1332 |
MDSWRITEFIELD_2D_GL |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/mdsio/mdsio_gl.F |
1344 |
MDSWRITEFIELD_2D_GL |
_BEGIN_MASTER( myThid ) |
./pkg/mdsio/mdsio_gl.F |
1374 |
MDSWRITEFIELD_2D_GL |
_END_MASTER( myThid ) |
./pkg/mdsio/mdsio_gl.F |
1378 |
MDSWRITEFIELD_2D_GL |
_BEGIN_MASTER( myThid ) |
./pkg/mdsio/mdsio_gl.F |
1398 |
MDSWRITEFIELD_2D_GL |
I 0, dummyRL, irecord, myIter, myThid ) |
./pkg/mdsio/mdsio_gl.F |
1400 |
MDSWRITEFIELD_2D_GL |
_END_MASTER( myThid ) |
./pkg/mdsio/mdsio_gl.F |
1405 |
MDSWRITEFIELD_2D_GL |
_BEGIN_MASTER( myThid ) |
./pkg/mdsio/mdsio_gl.F |
1512 |
MDSWRITEFIELD_2D_GL |
I 0, dummyRL, irecord, myIter, myThid ) |
./pkg/mdsio/mdsio_gl.F |
1520 |
MDSWRITEFIELD_2D_GL |
_END_MASTER( myThid ) |
./pkg/mdsio/mdsio_gl.F |
22 |
MDSREADFIELD_3D_GL |
I myThid ) |
./pkg/mdsio/mdsio_gl.F |
374 |
MDSREADFIELD_3D_GL |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/mdsio/mdsio_gl.F |
375 |
MDSREADFIELD_3D_GL |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/mdsio/mdsio_gl.F |
396 |
MDSREADFIELD_3D_GL |
_END_MASTER( myThid ) |
./pkg/mdsio/mdsio_gl.F |
415 |
MDSWRITEFIELD_3D_GL |
I myThid ) |
./pkg/mdsio/mdsio_gl.F |
470 |
MDSWRITEFIELD_3D_GL |
integer myThid |
./pkg/mdsio/mdsio_gl.F |
511 |
MDSWRITEFIELD_3D_GL |
_BEGIN_MASTER( myThid ) |
./pkg/mdsio/mdsio_gl.F |
543 |
MDSWRITEFIELD_3D_GL |
_END_MASTER( myThid ) |
./pkg/mdsio/mdsio_gl.F |
549 |
MDSWRITEFIELD_3D_GL |
_BEGIN_MASTER( myThid ) |
./pkg/mdsio/mdsio_gl.F |
561 |
MDSWRITEFIELD_3D_GL |
_END_MASTER( myThid ) |
./pkg/mdsio/mdsio_gl.F |
568 |
MDSWRITEFIELD_3D_GL |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/mdsio/mdsio_gl.F |
569 |
MDSWRITEFIELD_3D_GL |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/mdsio/mdsio_gl.F |
581 |
MDSWRITEFIELD_3D_GL |
_BEGIN_MASTER( myThid ) |
./pkg/mdsio/mdsio_gl.F |
611 |
MDSWRITEFIELD_3D_GL |
_END_MASTER( myThid ) |
./pkg/mdsio/mdsio_gl.F |
615 |
MDSWRITEFIELD_3D_GL |
_BEGIN_MASTER( myThid ) |
./pkg/mdsio/mdsio_gl.F |
635 |
MDSWRITEFIELD_3D_GL |
I 0, dummyRL, irecord, myIter, myThid ) |
./pkg/mdsio/mdsio_gl.F |
637 |
MDSWRITEFIELD_3D_GL |
_END_MASTER( myThid ) |
./pkg/mdsio/mdsio_gl.F |
642 |
MDSWRITEFIELD_3D_GL |
_BEGIN_MASTER( myThid ) |
./pkg/mdsio/mdsio_gl.F |
64 |
MDSREADFIELD_3D_GL |
integer myThid |
./pkg/mdsio/mdsio_gl.F |
749 |
MDSWRITEFIELD_3D_GL |
I 0, dummyRL, irecord, myIter, myThid ) |
./pkg/mdsio/mdsio_gl.F |
757 |
MDSWRITEFIELD_3D_GL |
_END_MASTER( myThid ) |
./pkg/mdsio/mdsio_gl.F |
782 |
MDSREADFIELD_2D_GL |
I myThid ) |
./pkg/mdsio/mdsio_gl.F |
825 |
MDSREADFIELD_2D_GL |
integer myThid |
./pkg/mdsio/mdsio_gl.F |
860 |
MDSREADFIELD_2D_GL |
_BEGIN_MASTER( myThid ) |
./pkg/mdsio/mdsio_gl.F |
99 |
MDSREADFIELD_3D_GL |
_BEGIN_MASTER( myThid ) |
./pkg/mdsio/mdsio_gl_slice.F |
22 |
MDSREADFIELD_XZ_GL |
I myThid ) |
./pkg/mdsio/mdsio_gl_slice.F |
232 |
MDSREADFIELD_XZ_GL |
_END_MASTER( myThid ) |
./pkg/mdsio/mdsio_gl_slice.F |
250 |
MDSREADFIELD_YZ_GL |
I myThid ) |
./pkg/mdsio/mdsio_gl_slice.F |
292 |
MDSREADFIELD_YZ_GL |
integer myThid |
./pkg/mdsio/mdsio_gl_slice.F |
311 |
MDSREADFIELD_YZ_GL |
_BEGIN_MASTER( myThid ) |
./pkg/mdsio/mdsio_gl_slice.F |
459 |
MDSREADFIELD_YZ_GL |
_END_MASTER( myThid ) |
./pkg/mdsio/mdsio_gl_slice.F |
478 |
MDSWRITEFIELD_XZ_GL |
I myThid ) |
./pkg/mdsio/mdsio_gl_slice.F |
533 |
MDSWRITEFIELD_XZ_GL |
integer myThid |
./pkg/mdsio/mdsio_gl_slice.F |
557 |
MDSWRITEFIELD_XZ_GL |
_BEGIN_MASTER( myThid ) |
./pkg/mdsio/mdsio_gl_slice.F |
64 |
MDSREADFIELD_XZ_GL |
integer myThid |
./pkg/mdsio/mdsio_gl_slice.F |
679 |
MDSWRITEFIELD_XZ_GL |
I 0, dummyRL, irecord, myIter, myThid ) |
./pkg/mdsio/mdsio_gl_slice.F |
687 |
MDSWRITEFIELD_XZ_GL |
_END_MASTER( myThid ) |
./pkg/mdsio/mdsio_gl_slice.F |
706 |
MDSWRITEFIELD_YZ_GL |
I myThid ) |
./pkg/mdsio/mdsio_gl_slice.F |
761 |
MDSWRITEFIELD_YZ_GL |
integer myThid |
./pkg/mdsio/mdsio_gl_slice.F |
785 |
MDSWRITEFIELD_YZ_GL |
_BEGIN_MASTER( myThid ) |
./pkg/mdsio/mdsio_gl_slice.F |
83 |
MDSREADFIELD_XZ_GL |
_BEGIN_MASTER( myThid ) |
./pkg/mdsio/mdsio_gl_slice.F |
907 |
MDSWRITEFIELD_YZ_GL |
I 0, dummyRL, irecord, myIter, myThid ) |
./pkg/mdsio/mdsio_gl_slice.F |
915 |
MDSWRITEFIELD_YZ_GL |
_END_MASTER( myThid ) |
./pkg/mdsio/mdsio_pass_r4torl.F |
18 |
MDS_PASS_R4TORL |
I biArg, bjArg, copyTo, myThid ) |
./pkg/mdsio/mdsio_pass_r4torl.F |
53 |
MDS_PASS_R4TORL |
INTEGER myThid |
./pkg/mdsio/mdsio_pass_r4torl.F |
68 |
MDS_PASS_R4TORL |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/mdsio/mdsio_pass_r4torl.F |
69 |
MDS_PASS_R4TORL |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/mdsio/mdsio_pass_r4torl.F |
81 |
MDS_PASS_R4TORL |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/mdsio/mdsio_pass_r4torl.F |
82 |
MDS_PASS_R4TORL |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/adams_bashforth2.F |
12 |
ADAMS_BASHFORTH2 |
I startAB, myIter, myThid ) |
./model/src/adams_bashforth2.F |
40 |
ADAMS_BASHFORTH2 |
INTEGER myIter, myThid |
./pkg/mdsio/mdsio_pass_r4tors.F |
18 |
MDS_PASS_R4TORS |
I biArg, bjArg, copyTo, myThid ) |
./pkg/mdsio/mdsio_pass_r4tors.F |
53 |
MDS_PASS_R4TORS |
INTEGER myThid |
./pkg/mdsio/mdsio_pass_r4tors.F |
68 |
MDS_PASS_R4TORS |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/mdsio/mdsio_pass_r4tors.F |
69 |
MDS_PASS_R4TORS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/mdsio/mdsio_pass_r4tors.F |
81 |
MDS_PASS_R4TORS |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/mdsio/mdsio_pass_r4tors.F |
82 |
MDS_PASS_R4TORS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/mdsio/mdsio_pass_r8torl.F |
18 |
MDS_PASS_R8TORL |
I biArg, bjArg, copyTo, myThid ) |
./pkg/mdsio/mdsio_pass_r8torl.F |
53 |
MDS_PASS_R8TORL |
INTEGER myThid |
./pkg/mdsio/mdsio_pass_r8torl.F |
68 |
MDS_PASS_R8TORL |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/mdsio/mdsio_pass_r8torl.F |
69 |
MDS_PASS_R8TORL |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/mdsio/mdsio_pass_r8torl.F |
81 |
MDS_PASS_R8TORL |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/mdsio/mdsio_pass_r8torl.F |
82 |
MDS_PASS_R8TORL |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/mdsio/mdsio_pass_r8tors.F |
18 |
MDS_PASS_R8TORS |
I biArg, bjArg, copyTo, myThid ) |
./pkg/mdsio/mdsio_pass_r8tors.F |
53 |
MDS_PASS_R8TORS |
INTEGER myThid |
./pkg/mdsio/mdsio_pass_r8tors.F |
68 |
MDS_PASS_R8TORS |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/mdsio/mdsio_pass_r8tors.F |
69 |
MDS_PASS_R8TORS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/mdsio/mdsio_pass_r8tors.F |
81 |
MDS_PASS_R8TORS |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/mdsio/mdsio_pass_r8tors.F |
82 |
MDS_PASS_R8TORS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/mdsio/mdsio_rd_rec_rl.F |
14 |
MDS_RD_REC_RL |
I fPrec, dUnit, iRec, nArr, myThid ) |
./pkg/mdsio/mdsio_rd_rec_rl.F |
39 |
MDS_RD_REC_RL |
INTEGER myThid |
./pkg/mdsio/mdsio_rd_rec_rl.F |
54 |
MDS_RD_REC_RL |
& SQUEEZE_RIGHT , myThid ) |
./pkg/mdsio/mdsio_rd_rec_rl.F |
80 |
MDS_RD_REC_RL |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_rd_rec_rs.F |
14 |
MDS_RD_REC_RS |
I fPrec, dUnit, iRec, nArr, myThid ) |
./pkg/mdsio/mdsio_rd_rec_rs.F |
39 |
MDS_RD_REC_RS |
INTEGER myThid |
./pkg/mdsio/mdsio_rd_rec_rs.F |
54 |
MDS_RD_REC_RS |
& SQUEEZE_RIGHT , myThid ) |
./pkg/mdsio/mdsio_rd_rec_rs.F |
76 |
MDS_RD_REC_RS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_read_field.F |
142 |
MDS_READ_FIELD |
iAmDoingIO = MASTER_CPU_IO(myThid) |
./pkg/mdsio/mdsio_read_field.F |
149 |
MDS_READ_FIELD |
& SQUEEZE_RIGHT , myThid ) |
./pkg/mdsio/mdsio_read_field.F |
153 |
MDS_READ_FIELD |
& SQUEEZE_RIGHT , myThid ) |
./pkg/mdsio/mdsio_read_field.F |
156 |
MDS_READ_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_read_field.F |
157 |
MDS_READ_FIELD |
CALL ALL_PROC_DIE( myThid ) |
./pkg/mdsio/mdsio_read_field.F |
165 |
MDS_READ_FIELD |
& SQUEEZE_RIGHT , myThid ) |
./pkg/mdsio/mdsio_read_field.F |
170 |
MDS_READ_FIELD |
& SQUEEZE_RIGHT , myThid ) |
./pkg/mdsio/mdsio_read_field.F |
173 |
MDS_READ_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_read_field.F |
174 |
MDS_READ_FIELD |
CALL ALL_PROC_DIE( myThid ) |
./pkg/mdsio/mdsio_read_field.F |
17 |
MDS_READ_FIELD |
I myThid ) |
./pkg/mdsio/mdsio_read_field.F |
182 |
MDS_READ_FIELD |
& SQUEEZE_RIGHT , myThid ) |
./pkg/mdsio/mdsio_read_field.F |
187 |
MDS_READ_FIELD |
& SQUEEZE_RIGHT , myThid ) |
./pkg/mdsio/mdsio_read_field.F |
190 |
MDS_READ_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_read_field.F |
194 |
MDS_READ_FIELD |
& SQUEEZE_RIGHT , myThid ) |
./pkg/mdsio/mdsio_read_field.F |
195 |
MDS_READ_FIELD |
CALL ALL_PROC_DIE( myThid ) |
./pkg/mdsio/mdsio_read_field.F |
211 |
MDS_READ_FIELD |
CALL MDSFINDUNIT( dUnit, myThid ) |
./pkg/mdsio/mdsio_read_field.F |
222 |
MDS_READ_FIELD |
& SQUEEZE_RIGHT , myThid) |
./pkg/mdsio/mdsio_read_field.F |
238 |
MDS_READ_FIELD |
& SQUEEZE_RIGHT , myThid) |
./pkg/mdsio/mdsio_read_field.F |
257 |
MDS_READ_FIELD |
length_of_rec = MDS_RECLEN( filePrec, xSize*ySize, myThid ) |
./pkg/mdsio/mdsio_read_field.F |
264 |
MDS_READ_FIELD |
& SQUEEZE_RIGHT , myThid) |
./pkg/mdsio/mdsio_read_field.F |
265 |
MDS_READ_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_read_field.F |
269 |
MDS_READ_FIELD |
& SQUEEZE_RIGHT , myThid) |
./pkg/mdsio/mdsio_read_field.F |
270 |
MDS_READ_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_read_field.F |
297 |
MDS_READ_FIELD |
CALL BAR2( myThid ) |
./pkg/mdsio/mdsio_read_field.F |
304 |
MDS_READ_FIELD |
I useExch2ioLayOut, .FALSE., myThid ) |
./pkg/mdsio/mdsio_read_field.F |
306 |
MDS_READ_FIELD |
CALL BAR2( myThid ) |
./pkg/mdsio/mdsio_read_field.F |
309 |
MDS_READ_FIELD |
I 0, 0, 1, k, kSize, 0, 0, .TRUE., myThid ) |
./pkg/mdsio/mdsio_read_field.F |
312 |
MDS_READ_FIELD |
I 0, 0, 1, k, kSize, 0, 0, .TRUE., myThid ) |
./pkg/mdsio/mdsio_read_field.F |
316 |
MDS_READ_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_read_field.F |
317 |
MDS_READ_FIELD |
CALL ALL_PROC_DIE( myThid ) |
./pkg/mdsio/mdsio_read_field.F |
325 |
MDS_READ_FIELD |
I useExch2ioLayOut, .FALSE., myThid ) |
./pkg/mdsio/mdsio_read_field.F |
327 |
MDS_READ_FIELD |
CALL BAR2( myThid ) |
./pkg/mdsio/mdsio_read_field.F |
330 |
MDS_READ_FIELD |
I 0, 0, 1, k, kSize, 0, 0, .TRUE., myThid ) |
./pkg/mdsio/mdsio_read_field.F |
333 |
MDS_READ_FIELD |
I 0, 0, 1, k, kSize, 0, 0, .TRUE., myThid ) |
./pkg/mdsio/mdsio_read_field.F |
337 |
MDS_READ_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_read_field.F |
338 |
MDS_READ_FIELD |
CALL ALL_PROC_DIE( myThid ) |
./pkg/mdsio/mdsio_read_field.F |
344 |
MDS_READ_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_read_field.F |
345 |
MDS_READ_FIELD |
CALL ALL_PROC_DIE( myThid ) |
./pkg/mdsio/mdsio_read_field.F |
369 |
MDS_READ_FIELD |
length_of_rec = MDS_RECLEN( filePrec, sNx, myThid ) |
./pkg/mdsio/mdsio_read_field.F |
450 |
MDS_READ_FIELD |
& SQUEEZE_RIGHT , myThid) |
./pkg/mdsio/mdsio_read_field.F |
452 |
MDS_READ_FIELD |
length_of_rec = MDS_RECLEN( filePrec, sNx*sNy*nNz, myThid ) |
./pkg/mdsio/mdsio_read_field.F |
461 |
MDS_READ_FIELD |
& SQUEEZE_RIGHT , myThid) |
./pkg/mdsio/mdsio_read_field.F |
462 |
MDS_READ_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_read_field.F |
466 |
MDS_READ_FIELD |
& SQUEEZE_RIGHT , myThid) |
./pkg/mdsio/mdsio_read_field.F |
467 |
MDS_READ_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_read_field.F |
511 |
MDS_READ_FIELD |
CALL BAR2( myThid ) |
./pkg/mdsio/mdsio_read_field.F |
517 |
MDS_READ_FIELD |
I 0, 0, nNz, kLo, kSize, 0, 0, .TRUE., myThid ) |
./pkg/mdsio/mdsio_read_field.F |
520 |
MDS_READ_FIELD |
I 0, 0, nNz, kLo, kSize, 0, 0, .TRUE., myThid ) |
./pkg/mdsio/mdsio_read_field.F |
524 |
MDS_READ_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_read_field.F |
525 |
MDS_READ_FIELD |
CALL ALL_PROC_DIE( myThid ) |
./pkg/mdsio/mdsio_read_field.F |
531 |
MDS_READ_FIELD |
I 0, 0, nNz, kLo, kSize, 0, 0, .TRUE., myThid ) |
./pkg/mdsio/mdsio_read_field.F |
534 |
MDS_READ_FIELD |
I 0, 0, nNz, kLo, kSize, 0, 0, .TRUE., myThid ) |
./pkg/mdsio/mdsio_read_field.F |
538 |
MDS_READ_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_read_field.F |
539 |
MDS_READ_FIELD |
CALL ALL_PROC_DIE( myThid ) |
./pkg/mdsio/mdsio_read_field.F |
545 |
MDS_READ_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_read_field.F |
546 |
MDS_READ_FIELD |
CALL ALL_PROC_DIE( myThid ) |
./pkg/mdsio/mdsio_read_field.F |
553 |
MDS_READ_FIELD |
CALL BAR2( myThid ) |
./pkg/mdsio/mdsio_read_field.F |
88 |
MDS_READ_FIELD |
INTEGER myThid |
./pkg/mdsio/mdsio_read_meta.F |
128 |
MDS_READ_META |
_BEGIN_MASTER( myThid ) |
./pkg/mdsio/mdsio_read_meta.F |
174 |
MDS_READ_META |
& SQUEEZE_RIGHT , myThid ) |
./pkg/mdsio/mdsio_read_meta.F |
178 |
MDS_READ_META |
& SQUEEZE_RIGHT , myThid ) |
./pkg/mdsio/mdsio_read_meta.F |
187 |
MDS_READ_META |
& SQUEEZE_RIGHT , myThid) |
./pkg/mdsio/mdsio_read_meta.F |
18 |
MDS_READ_META |
I myThid ) |
./pkg/mdsio/mdsio_read_meta.F |
191 |
MDS_READ_META |
CALL MDSFINDUNIT( mUnit, myThid ) |
./pkg/mdsio/mdsio_read_meta.F |
200 |
MDS_READ_META |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/mdsio/mdsio_read_meta.F |
227 |
MDS_READ_META |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_read_meta.F |
280 |
MDS_READ_META |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_read_meta.F |
281 |
MDS_READ_META |
CALL PRINT_ERROR(lineBuf, myThid ) |
./pkg/mdsio/mdsio_read_meta.F |
295 |
MDS_READ_META |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_read_meta.F |
296 |
MDS_READ_META |
CALL PRINT_ERROR(lineBuf, myThid ) |
./pkg/mdsio/mdsio_read_meta.F |
327 |
MDS_READ_META |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_read_meta.F |
352 |
MDS_READ_META |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_read_meta.F |
375 |
MDS_READ_META |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_read_meta.F |
381 |
MDS_READ_META |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_read_meta.F |
382 |
MDS_READ_META |
CALL PRINT_ERROR(lineBuf, myThid ) |
./pkg/mdsio/mdsio_read_meta.F |
388 |
MDS_READ_META |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_read_meta.F |
389 |
MDS_READ_META |
CALL PRINT_ERROR(lineBuf, myThid ) |
./pkg/mdsio/mdsio_read_meta.F |
399 |
MDS_READ_META |
_END_MASTER( myThid ) |
./pkg/mdsio/mdsio_read_meta.F |
72 |
MDS_READ_META |
INTEGER myThid |
./pkg/mdsio/mdsio_read_section.F |
104 |
MDS_READ_SEC_XZ |
& SQUEEZE_RIGHT, myThid ) |
./pkg/mdsio/mdsio_read_section.F |
107 |
MDS_READ_SEC_XZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_read_section.F |
126 |
MDS_READ_SEC_XZ |
CALL MDSFINDUNIT( dUnit, myThid ) |
./pkg/mdsio/mdsio_read_section.F |
136 |
MDS_READ_SEC_XZ |
& SQUEEZE_RIGHT, myThid ) |
./pkg/mdsio/mdsio_read_section.F |
150 |
MDS_READ_SEC_XZ |
& SQUEEZE_RIGHT, myThid ) |
./pkg/mdsio/mdsio_read_section.F |
158 |
MDS_READ_SEC_XZ |
length_of_rec = MDS_RECLEN( filePrec, sNx, myThid ) |
./pkg/mdsio/mdsio_read_section.F |
181 |
MDS_READ_SEC_XZ |
& SQUEEZE_RIGHT, myThid ) |
./pkg/mdsio/mdsio_read_section.F |
183 |
MDS_READ_SEC_XZ |
length_of_rec = MDS_RECLEN( filePrec, sNx, myThid ) |
./pkg/mdsio/mdsio_read_section.F |
192 |
MDS_READ_SEC_XZ |
& SQUEEZE_RIGHT, myThid ) |
./pkg/mdsio/mdsio_read_section.F |
195 |
MDS_READ_SEC_XZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_read_section.F |
239 |
MDS_READ_SEC_XZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_read_section.F |
24 |
MDS_READ_SEC_XZ |
I myThid ) |
./pkg/mdsio/mdsio_read_section.F |
256 |
MDS_READ_SEC_XZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_read_section.F |
262 |
MDS_READ_SEC_XZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_read_section.F |
282 |
MDS_READ_SEC_XZ |
_END_MASTER( myThid ) |
./pkg/mdsio/mdsio_read_section.F |
301 |
MDS_READ_SEC_YZ |
I myThid ) |
./pkg/mdsio/mdsio_read_section.F |
349 |
MDS_READ_SEC_YZ |
INTEGER myThid |
./pkg/mdsio/mdsio_read_section.F |
375 |
MDS_READ_SEC_YZ |
_BEGIN_MASTER( myThid ) |
./pkg/mdsio/mdsio_read_section.F |
382 |
MDS_READ_SEC_YZ |
& SQUEEZE_RIGHT, myThid ) |
./pkg/mdsio/mdsio_read_section.F |
385 |
MDS_READ_SEC_YZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_read_section.F |
404 |
MDS_READ_SEC_YZ |
CALL MDSFINDUNIT( dUnit, myThid ) |
./pkg/mdsio/mdsio_read_section.F |
414 |
MDS_READ_SEC_YZ |
& SQUEEZE_RIGHT, myThid ) |
./pkg/mdsio/mdsio_read_section.F |
428 |
MDS_READ_SEC_YZ |
& SQUEEZE_RIGHT, myThid ) |
./pkg/mdsio/mdsio_read_section.F |
436 |
MDS_READ_SEC_YZ |
length_of_rec = MDS_RECLEN( filePrec, sNy, myThid ) |
./pkg/mdsio/mdsio_read_section.F |
459 |
MDS_READ_SEC_YZ |
& SQUEEZE_RIGHT, myThid ) |
./pkg/mdsio/mdsio_read_section.F |
461 |
MDS_READ_SEC_YZ |
length_of_rec = MDS_RECLEN( filePrec, sNy, myThid ) |
./pkg/mdsio/mdsio_read_section.F |
470 |
MDS_READ_SEC_YZ |
& SQUEEZE_RIGHT, myThid ) |
./pkg/mdsio/mdsio_read_section.F |
473 |
MDS_READ_SEC_YZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_read_section.F |
517 |
MDS_READ_SEC_YZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_read_section.F |
534 |
MDS_READ_SEC_YZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_read_section.F |
540 |
MDS_READ_SEC_YZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_read_section.F |
560 |
MDS_READ_SEC_YZ |
_END_MASTER( myThid ) |
./pkg/mdsio/mdsio_read_section.F |
72 |
MDS_READ_SEC_XZ |
INTEGER myThid |
./pkg/mdsio/mdsio_read_section.F |
97 |
MDS_READ_SEC_XZ |
_BEGIN_MASTER( myThid ) |
./pkg/mdsio/mdsio_read_whalos.F |
107 |
MDS_READ_WHALOS |
iAmDoingIO = MASTER_CPU_IO(myThid) |
./pkg/mdsio/mdsio_read_whalos.F |
110 |
MDS_READ_WHALOS |
CALL MDSFINDUNIT( dUnit, myThid ) |
./pkg/mdsio/mdsio_read_whalos.F |
121 |
MDS_READ_WHALOS |
length_of_rec = MDS_RECLEN( filePrec,sNxWh*procNyWh, myThid ) |
./pkg/mdsio/mdsio_read_whalos.F |
124 |
MDS_READ_WHALOS |
length_of_rec = MDS_RECLEN( filePrec,sNxWh*gloNyWh,myThid) |
./pkg/mdsio/mdsio_read_whalos.F |
155 |
MDS_READ_WHALOS |
& fld2d_procbuff_r4,myThid) |
./pkg/mdsio/mdsio_read_whalos.F |
156 |
MDS_READ_WHALOS |
CALL BAR2( myThid ) |
./pkg/mdsio/mdsio_read_whalos.F |
159 |
MDS_READ_WHALOS |
& OLx, OLy, 1, i2d, n2d, 0, 0, .TRUE., myThid ) |
./pkg/mdsio/mdsio_read_whalos.F |
163 |
MDS_READ_WHALOS |
& fld2d_procbuff_r8,myThid) |
./pkg/mdsio/mdsio_read_whalos.F |
164 |
MDS_READ_WHALOS |
CALL BAR2( myThid ) |
./pkg/mdsio/mdsio_read_whalos.F |
167 |
MDS_READ_WHALOS |
& OLx, OLy, 1, i2d, n2d, 0, 0, .TRUE., myThid ) |
./pkg/mdsio/mdsio_readvec_loc.F |
101 |
MDS_READVEC_LOC |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_readvec_loc.F |
110 |
MDS_READVEC_LOC |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_readvec_loc.F |
113 |
MDS_READVEC_LOC |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_readvec_loc.F |
116 |
MDS_READVEC_LOC |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_readvec_loc.F |
119 |
MDS_READVEC_LOC |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_readvec_loc.F |
141 |
MDS_READVEC_LOC |
CALL MDSFINDUNIT( dUnit, myThid ) |
./pkg/mdsio/mdsio_readvec_loc.F |
181 |
MDS_READVEC_LOC |
length_of_rec = MDS_RECLEN( filePrec, nSize, myThid ) |
./pkg/mdsio/mdsio_readvec_loc.F |
18 |
MDS_READVEC_LOC |
I myThid ) |
./pkg/mdsio/mdsio_readvec_loc.F |
190 |
MDS_READVEC_LOC |
CALL PRINT_ERROR( msgbuf, myThid ) |
./pkg/mdsio/mdsio_readvec_loc.F |
201 |
MDS_READVEC_LOC |
I filePrec, dUnit, iRec, nSize, myThid ) |
./pkg/mdsio/mdsio_readvec_loc.F |
204 |
MDS_READVEC_LOC |
I filePrec, dUnit, iRec, nSize, myThid ) |
./pkg/mdsio/mdsio_readvec_loc.F |
208 |
MDS_READVEC_LOC |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_readvec_loc.F |
223 |
MDS_READVEC_LOC |
_END_MASTER( myThid ) |
./pkg/mdsio/mdsio_readvec_loc.F |
69 |
MDS_READVEC_LOC |
INTEGER myThid |
./pkg/mdsio/mdsio_readvec_loc.F |
88 |
MDS_READVEC_LOC |
_BEGIN_MASTER( myThid ) |
./pkg/mdsio/mdsio_readvec_loc.F |
98 |
MDS_READVEC_LOC |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/adams_bashforth3.F |
12 |
ADAMS_BASHFORTH3 |
I startAB, myIter, myThid ) |
./model/src/adams_bashforth3.F |
65 |
ADAMS_BASHFORTH3 |
INTEGER myIter, myThid |
./pkg/mdsio/mdsio_readvector.F |
109 |
MDSREADVECTOR |
CALL MDSFINDUNIT( dUnit, myThid ) |
./pkg/mdsio/mdsio_readvector.F |
121 |
MDSREADVECTOR |
& SQUEEZE_RIGHT , myThid ) |
./pkg/mdsio/mdsio_readvector.F |
135 |
MDSREADVECTOR |
& SQUEEZE_RIGHT , myThid ) |
./pkg/mdsio/mdsio_readvector.F |
143 |
MDSREADVECTOR |
length_of_rec=MDS_RECLEN( filePrec, narr, myThid ) |
./pkg/mdsio/mdsio_readvector.F |
15 |
MDSREADVECTOR |
I myThid ) |
./pkg/mdsio/mdsio_readvector.F |
166 |
MDSREADVECTOR |
& SQUEEZE_RIGHT , myThid ) |
./pkg/mdsio/mdsio_readvector.F |
168 |
MDSREADVECTOR |
length_of_rec=MDS_RECLEN( filePrec, narr, myThid ) |
./pkg/mdsio/mdsio_readvector.F |
177 |
MDSREADVECTOR |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_readvector.F |
180 |
MDSREADVECTOR |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_readvector.F |
197 |
MDSREADVECTOR |
I filePrec, dUnit, irec, narr, myThid ) |
./pkg/mdsio/mdsio_readvector.F |
200 |
MDSREADVECTOR |
I filePrec, dUnit, irec, narr, myThid ) |
./pkg/mdsio/mdsio_readvector.F |
204 |
MDSREADVECTOR |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_readvector.F |
222 |
MDSREADVECTOR |
_END_MASTER( myThid ) |
./pkg/mdsio/mdsio_readvector.F |
234 |
MDSREADVECTOR |
_BEGIN_MASTER( myThid ) |
./pkg/mdsio/mdsio_readvector.F |
256 |
MDSREADVECTOR |
length_of_rec=MDS_RECLEN( filePrec, vec_size, myThid ) |
./pkg/mdsio/mdsio_readvector.F |
264 |
MDSREADVECTOR |
& SQUEEZE_RIGHT , myThid ) |
./pkg/mdsio/mdsio_readvector.F |
265 |
MDSREADVECTOR |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_readvector.F |
269 |
MDSREADVECTOR |
& SQUEEZE_RIGHT , myThid ) |
./pkg/mdsio/mdsio_readvector.F |
270 |
MDSREADVECTOR |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_readvector.F |
275 |
MDSREADVECTOR |
_END_MASTER( myThid ) |
./pkg/mdsio/mdsio_readvector.F |
279 |
MDSREADVECTOR |
_BEGIN_MASTER( myThid ) |
./pkg/mdsio/mdsio_readvector.F |
313 |
MDSREADVECTOR |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_readvector.F |
317 |
MDSREADVECTOR |
_END_MASTER( myThid ) |
./pkg/mdsio/mdsio_readvector.F |
318 |
MDSREADVECTOR |
CALL SCATTER_VECTOR( narr,global,local,myThid ) |
./pkg/mdsio/mdsio_readvector.F |
320 |
MDSREADVECTOR |
CALL MDS_BUFFERTORS( local, arr, narr, .TRUE., myThid ) |
./pkg/mdsio/mdsio_readvector.F |
322 |
MDSREADVECTOR |
CALL MDS_BUFFERTORL( local, arr, narr, .TRUE., myThid ) |
./pkg/mdsio/mdsio_readvector.F |
326 |
MDSREADVECTOR |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_readvector.F |
333 |
MDSREADVECTOR |
_BEGIN_MASTER( myThid ) |
./pkg/mdsio/mdsio_readvector.F |
335 |
MDSREADVECTOR |
_END_MASTER( myThid ) |
./pkg/mdsio/mdsio_readvector.F |
50 |
MDSREADVECTOR |
INTEGER myThid |
./pkg/mdsio/mdsio_readvector.F |
80 |
MDSREADVECTOR |
_BEGIN_MASTER( myThid ) |
./pkg/mdsio/mdsio_readvector.F |
86 |
MDSREADVECTOR |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_readvector.F |
89 |
MDSREADVECTOR |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_rw_field.F |
121 |
MDSREADFIELD_LOC |
INTEGER myThid |
./pkg/mdsio/mdsio_rw_field.F |
132 |
MDSREADFIELD_LOC |
I irecord, myThid ) |
./pkg/mdsio/mdsio_rw_field.F |
137 |
MDSREADFIELD_LOC |
I irecord, myThid ) |
./pkg/mdsio/mdsio_rw_field.F |
158 |
MDSWRITEFIELD |
I myThid ) |
./pkg/mdsio/mdsio_rw_field.F |
193 |
MDSWRITEFIELD |
INTEGER myThid |
./pkg/mdsio/mdsio_rw_field.F |
204 |
MDSWRITEFIELD |
I irecord, myIter, myThid ) |
./pkg/mdsio/mdsio_rw_field.F |
209 |
MDSWRITEFIELD |
I irecord, myIter, myThid ) |
./pkg/mdsio/mdsio_rw_field.F |
230 |
MDSWRITEFIELD_LOC |
I myThid ) |
./pkg/mdsio/mdsio_rw_field.F |
24 |
MDSREADFIELD |
I myThid ) |
./pkg/mdsio/mdsio_rw_field.F |
265 |
MDSWRITEFIELD_LOC |
INTEGER myThid |
./pkg/mdsio/mdsio_rw_field.F |
276 |
MDSWRITEFIELD_LOC |
I irecord, myIter, myThid ) |
./pkg/mdsio/mdsio_rw_field.F |
281 |
MDSWRITEFIELD_LOC |
I irecord, myIter, myThid ) |
./pkg/mdsio/mdsio_rw_field.F |
55 |
MDSREADFIELD |
INTEGER myThid |
./pkg/mdsio/mdsio_rw_field.F |
66 |
MDSREADFIELD |
I irecord, myThid ) |
./pkg/mdsio/mdsio_rw_field.F |
71 |
MDSREADFIELD |
I irecord, myThid ) |
./pkg/mdsio/mdsio_rw_field.F |
90 |
MDSREADFIELD_LOC |
I myThid ) |
./pkg/mdsio/mdsio_rw_slice.F |
123 |
MDSREADFIELDYZ |
INTEGER myThid |
./pkg/mdsio/mdsio_rw_slice.F |
134 |
MDSREADFIELDYZ |
I irecord, myThid ) |
./pkg/mdsio/mdsio_rw_slice.F |
139 |
MDSREADFIELDYZ |
I irecord, myThid ) |
./pkg/mdsio/mdsio_rw_slice.F |
158 |
MDSREADFIELDXZ_LOC |
I myThid ) |
./pkg/mdsio/mdsio_rw_slice.F |
188 |
MDSREADFIELDXZ_LOC |
INTEGER myThid |
./pkg/mdsio/mdsio_rw_slice.F |
199 |
MDSREADFIELDXZ_LOC |
I irecord, myThid ) |
./pkg/mdsio/mdsio_rw_slice.F |
204 |
MDSREADFIELDXZ_LOC |
I irecord, myThid ) |
./pkg/mdsio/mdsio_rw_slice.F |
223 |
MDSREADFIELDYZ_LOC |
I myThid ) |
./pkg/mdsio/mdsio_rw_slice.F |
253 |
MDSREADFIELDYZ_LOC |
INTEGER myThid |
./pkg/mdsio/mdsio_rw_slice.F |
264 |
MDSREADFIELDYZ_LOC |
I irecord, myThid ) |
./pkg/mdsio/mdsio_rw_slice.F |
269 |
MDSREADFIELDYZ_LOC |
I irecord, myThid ) |
./pkg/mdsio/mdsio_rw_slice.F |
28 |
MDSREADFIELDXZ |
I myThid ) |
./pkg/mdsio/mdsio_rw_slice.F |
290 |
MDSWRITEFIELDXZ |
I myThid ) |
./pkg/mdsio/mdsio_rw_slice.F |
324 |
MDSWRITEFIELDXZ |
INTEGER myThid |
./pkg/mdsio/mdsio_rw_slice.F |
335 |
MDSWRITEFIELDXZ |
I irecord, myIter, myThid ) |
./pkg/mdsio/mdsio_rw_slice.F |
340 |
MDSWRITEFIELDXZ |
I irecord, myIter, myThid ) |
./pkg/mdsio/mdsio_rw_slice.F |
361 |
MDSWRITEFIELDYZ |
I myThid ) |
./pkg/mdsio/mdsio_rw_slice.F |
395 |
MDSWRITEFIELDYZ |
INTEGER myThid |
./pkg/mdsio/mdsio_rw_slice.F |
406 |
MDSWRITEFIELDYZ |
I irecord, myIter, myThid ) |
./pkg/mdsio/mdsio_rw_slice.F |
411 |
MDSWRITEFIELDYZ |
I irecord, myIter, myThid ) |
./pkg/mdsio/mdsio_rw_slice.F |
432 |
MDSWRITEFIELDXZ_LOC |
I myThid ) |
./pkg/mdsio/mdsio_rw_slice.F |
466 |
MDSWRITEFIELDXZ_LOC |
INTEGER myThid |
./pkg/mdsio/mdsio_rw_slice.F |
477 |
MDSWRITEFIELDXZ_LOC |
I irecord, myIter, myThid ) |
./pkg/mdsio/mdsio_rw_slice.F |
482 |
MDSWRITEFIELDXZ_LOC |
I irecord, myIter, myThid ) |
./pkg/mdsio/mdsio_rw_slice.F |
503 |
MDSWRITEFIELDYZ_LOC |
I myThid ) |
./pkg/mdsio/mdsio_rw_slice.F |
537 |
MDSWRITEFIELDYZ_LOC |
INTEGER myThid |
./pkg/mdsio/mdsio_rw_slice.F |
548 |
MDSWRITEFIELDYZ_LOC |
I irecord, myIter, myThid ) |
./pkg/mdsio/mdsio_rw_slice.F |
553 |
MDSWRITEFIELDYZ_LOC |
I irecord, myIter, myThid ) |
./pkg/mdsio/mdsio_rw_slice.F |
58 |
MDSREADFIELDXZ |
INTEGER myThid |
./pkg/mdsio/mdsio_rw_slice.F |
69 |
MDSREADFIELDXZ |
I irecord, myThid ) |
./pkg/mdsio/mdsio_rw_slice.F |
74 |
MDSREADFIELDXZ |
I irecord, myThid ) |
./pkg/mdsio/mdsio_rw_slice.F |
93 |
MDSREADFIELDYZ |
I myThid ) |
./pkg/mdsio/mdsio_wr_metafiles.F |
116 |
MDS_WR_METAFILES |
IF ( MASTER_CPU_IO(myThid) ) THEN |
./pkg/mdsio/mdsio_wr_metafiles.F |
139 |
MDS_WR_METAFILES |
I nTimRec, timList, irecord, myIter, myThid ) |
./pkg/mdsio/mdsio_wr_metafiles.F |
208 |
MDS_WR_METAFILES |
I nTimRec, timList, irecord, myIter, myThid ) |
./pkg/mdsio/mdsio_wr_metafiles.F |
21 |
MDS_WR_METAFILES |
I myThid ) |
./pkg/mdsio/mdsio_wr_metafiles.F |
84 |
MDS_WR_METAFILES |
INTEGER myThid |
./pkg/mdsio/mdsio_wr_rec_rl.F |
14 |
MDS_WR_REC_RL |
I fPrec, dUnit, iRec, nArr, myThid ) |
./pkg/mdsio/mdsio_wr_rec_rl.F |
39 |
MDS_WR_REC_RL |
INTEGER myThid |
./pkg/mdsio/mdsio_wr_rec_rl.F |
54 |
MDS_WR_REC_RL |
& SQUEEZE_RIGHT , myThid ) |
./pkg/mdsio/mdsio_wr_rec_rl.F |
80 |
MDS_WR_REC_RL |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/calc_3d_diffusivity.F |
14 |
CALC_3D_DIFFUSIVITY |
I myThid) |
./model/src/calc_3d_diffusivity.F |
159 |
CALC_3D_DIFFUSIVITY |
CALL PRINT_ERROR(msgBuf, myThid) |
./model/src/calc_3d_diffusivity.F |
173 |
CALC_3D_DIFFUSIVITY |
I myThid) |
./model/src/calc_3d_diffusivity.F |
178 |
CALC_3D_DIFFUSIVITY |
I myThid) |
./model/src/calc_3d_diffusivity.F |
183 |
CALC_3D_DIFFUSIVITY |
I myThid) |
./model/src/calc_3d_diffusivity.F |
207 |
CALC_3D_DIFFUSIVITY |
I trIdentity,myThid) |
./model/src/calc_3d_diffusivity.F |
216 |
CALC_3D_DIFFUSIVITY |
I myThid) |
./model/src/calc_3d_diffusivity.F |
225 |
CALC_3D_DIFFUSIVITY |
I myThid) |
./model/src/calc_3d_diffusivity.F |
234 |
CALC_3D_DIFFUSIVITY |
I myThid) |
./model/src/calc_3d_diffusivity.F |
59 |
CALC_3D_DIFFUSIVITY |
INTEGER myThid |
./pkg/mdsio/mdsio_wr_rec_rs.F |
14 |
MDS_WR_REC_RS |
I fPrec, dUnit, iRec, nArr, myThid ) |
./pkg/mdsio/mdsio_wr_rec_rs.F |
39 |
MDS_WR_REC_RS |
INTEGER myThid |
./pkg/mdsio/mdsio_wr_rec_rs.F |
54 |
MDS_WR_REC_RS |
& SQUEEZE_RIGHT , myThid ) |
./pkg/mdsio/mdsio_wr_rec_rs.F |
76 |
MDS_WR_REC_RS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_write_field.F |
105 |
MDS_WRITE_FIELD |
INTEGER myThid |
./pkg/mdsio/mdsio_write_field.F |
170 |
MDS_WRITE_FIELD |
iAmDoingIO = MASTER_CPU_IO(myThid) |
./pkg/mdsio/mdsio_write_field.F |
177 |
MDS_WRITE_FIELD |
& SQUEEZE_RIGHT , myThid ) |
./pkg/mdsio/mdsio_write_field.F |
181 |
MDS_WRITE_FIELD |
& SQUEEZE_RIGHT , myThid ) |
./pkg/mdsio/mdsio_write_field.F |
184 |
MDS_WRITE_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_write_field.F |
185 |
MDS_WRITE_FIELD |
CALL ALL_PROC_DIE( myThid ) |
./pkg/mdsio/mdsio_write_field.F |
193 |
MDS_WRITE_FIELD |
& SQUEEZE_RIGHT , myThid ) |
./pkg/mdsio/mdsio_write_field.F |
198 |
MDS_WRITE_FIELD |
& SQUEEZE_RIGHT , myThid ) |
./pkg/mdsio/mdsio_write_field.F |
19 |
MDS_WRITE_FIELD |
I myThid ) |
./pkg/mdsio/mdsio_write_field.F |
201 |
MDS_WRITE_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_write_field.F |
202 |
MDS_WRITE_FIELD |
CALL ALL_PROC_DIE( myThid ) |
./pkg/mdsio/mdsio_write_field.F |
210 |
MDS_WRITE_FIELD |
& SQUEEZE_RIGHT , myThid ) |
./pkg/mdsio/mdsio_write_field.F |
215 |
MDS_WRITE_FIELD |
& SQUEEZE_RIGHT , myThid ) |
./pkg/mdsio/mdsio_write_field.F |
218 |
MDS_WRITE_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_write_field.F |
222 |
MDS_WRITE_FIELD |
& SQUEEZE_RIGHT , myThid) |
./pkg/mdsio/mdsio_write_field.F |
223 |
MDS_WRITE_FIELD |
CALL ALL_PROC_DIE( myThid ) |
./pkg/mdsio/mdsio_write_field.F |
239 |
MDS_WRITE_FIELD |
CALL MDSFINDUNIT( dUnit, myThid ) |
./pkg/mdsio/mdsio_write_field.F |
251 |
MDS_WRITE_FIELD |
length_of_rec = MDS_RECLEN( filePrec, xSize*ySize, myThid ) |
./pkg/mdsio/mdsio_write_field.F |
268 |
MDS_WRITE_FIELD |
I 0, 0, 1, k, kSize, 0, 0, .FALSE., myThid ) |
./pkg/mdsio/mdsio_write_field.F |
271 |
MDS_WRITE_FIELD |
I 0, 0, 1, k, kSize, 0, 0, .FALSE., myThid ) |
./pkg/mdsio/mdsio_write_field.F |
275 |
MDS_WRITE_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_write_field.F |
276 |
MDS_WRITE_FIELD |
CALL ALL_PROC_DIE( myThid ) |
./pkg/mdsio/mdsio_write_field.F |
280 |
MDS_WRITE_FIELD |
CALL BAR2( myThid ) |
./pkg/mdsio/mdsio_write_field.F |
285 |
MDS_WRITE_FIELD |
I useExch2ioLayOut, zeroBuff, myThid ) |
./pkg/mdsio/mdsio_write_field.F |
289 |
MDS_WRITE_FIELD |
I 0, 0, 1, k, kSize, 0, 0, .FALSE., myThid ) |
./pkg/mdsio/mdsio_write_field.F |
292 |
MDS_WRITE_FIELD |
I 0, 0, 1, k, kSize, 0, 0, .FALSE., myThid ) |
./pkg/mdsio/mdsio_write_field.F |
296 |
MDS_WRITE_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_write_field.F |
297 |
MDS_WRITE_FIELD |
CALL ALL_PROC_DIE( myThid ) |
./pkg/mdsio/mdsio_write_field.F |
301 |
MDS_WRITE_FIELD |
CALL BAR2( myThid ) |
./pkg/mdsio/mdsio_write_field.F |
306 |
MDS_WRITE_FIELD |
I useExch2ioLayOut, zeroBuff, myThid ) |
./pkg/mdsio/mdsio_write_field.F |
310 |
MDS_WRITE_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_write_field.F |
311 |
MDS_WRITE_FIELD |
CALL ALL_PROC_DIE( myThid ) |
./pkg/mdsio/mdsio_write_field.F |
316 |
MDS_WRITE_FIELD |
CALL BAR2( myThid ) |
./pkg/mdsio/mdsio_write_field.F |
347 |
MDS_WRITE_FIELD |
CALL BAR2( myThid ) |
./pkg/mdsio/mdsio_write_field.F |
353 |
MDS_WRITE_FIELD |
I 0, 0, nNz, kLo, kSize, 0,0, .FALSE., myThid ) |
./pkg/mdsio/mdsio_write_field.F |
356 |
MDS_WRITE_FIELD |
I 0, 0, nNz, kLo, kSize, 0,0, .FALSE., myThid ) |
./pkg/mdsio/mdsio_write_field.F |
360 |
MDS_WRITE_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_write_field.F |
361 |
MDS_WRITE_FIELD |
CALL ALL_PROC_DIE( myThid ) |
./pkg/mdsio/mdsio_write_field.F |
367 |
MDS_WRITE_FIELD |
I 0, 0, nNz, kLo, kSize, 0,0, .FALSE., myThid ) |
./pkg/mdsio/mdsio_write_field.F |
370 |
MDS_WRITE_FIELD |
I 0, 0, nNz, kLo, kSize, 0,0, .FALSE., myThid ) |
./pkg/mdsio/mdsio_write_field.F |
374 |
MDS_WRITE_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_write_field.F |
375 |
MDS_WRITE_FIELD |
CALL ALL_PROC_DIE( myThid ) |
./pkg/mdsio/mdsio_write_field.F |
381 |
MDS_WRITE_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_write_field.F |
382 |
MDS_WRITE_FIELD |
CALL ALL_PROC_DIE( myThid ) |
./pkg/mdsio/mdsio_write_field.F |
387 |
MDS_WRITE_FIELD |
CALL BAR2( myThid ) |
./pkg/mdsio/mdsio_write_field.F |
403 |
MDS_WRITE_FIELD |
length_of_rec = MDS_RECLEN( filePrec, sNx, myThid ) |
./pkg/mdsio/mdsio_write_field.F |
475 |
MDS_WRITE_FIELD |
length_of_rec = MDS_RECLEN( filePrec, sNx*sNy*nNz, myThid ) |
./pkg/mdsio/mdsio_write_field.F |
528 |
MDS_WRITE_FIELD |
I 0, dummyRL, irecord, myIter, myThid ) |
./pkg/mdsio/mdsio_write_field.F |
574 |
MDS_WRITE_FIELD |
I 0, dummyRL, irecord, myIter, myThid ) |
./pkg/mdsio/mdsio_write_meta.F |
151 |
MDS_WRITE_META |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_write_meta.F |
18 |
MDS_WRITE_META |
I nrecords, myIter, myThid ) |
./pkg/mdsio/mdsio_write_meta.F |
67 |
MDS_WRITE_META |
INTEGER myThid |
./pkg/mdsio/mdsio_write_meta.F |
92 |
MDS_WRITE_META |
CALL MDSFINDUNIT( mUnit, myThid ) |
./pkg/mdsio/mdsio_write_section.F |
104 |
MDS_WRITE_SEC_XZ |
_BEGIN_MASTER( myThid ) |
./pkg/mdsio/mdsio_write_section.F |
111 |
MDS_WRITE_SEC_XZ |
& SQUEEZE_RIGHT, myThid ) |
./pkg/mdsio/mdsio_write_section.F |
114 |
MDS_WRITE_SEC_XZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_write_section.F |
132 |
MDS_WRITE_SEC_XZ |
CALL MDSFINDUNIT( dUnit, myThid ) |
./pkg/mdsio/mdsio_write_section.F |
138 |
MDS_WRITE_SEC_XZ |
length_of_rec = MDS_RECLEN( filePrec, sNx, myThid ) |
./pkg/mdsio/mdsio_write_section.F |
143 |
MDS_WRITE_SEC_XZ |
length_of_rec = MDS_RECLEN( filePrec, sNx, myThid ) |
./pkg/mdsio/mdsio_write_section.F |
160 |
MDS_WRITE_SEC_XZ |
length_of_rec = MDS_RECLEN( filePrec, sNx, myThid ) |
./pkg/mdsio/mdsio_write_section.F |
165 |
MDS_WRITE_SEC_XZ |
length_of_rec = MDS_RECLEN( filePrec, sNx, myThid ) |
./pkg/mdsio/mdsio_write_section.F |
206 |
MDS_WRITE_SEC_XZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_write_section.F |
223 |
MDS_WRITE_SEC_XZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_write_section.F |
233 |
MDS_WRITE_SEC_XZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_write_section.F |
241 |
MDS_WRITE_SEC_XZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_write_section.F |
259 |
MDS_WRITE_SEC_XZ |
_END_MASTER( myThid ) |
./pkg/mdsio/mdsio_write_section.F |
26 |
MDS_WRITE_SEC_XZ |
I myThid ) |
./pkg/mdsio/mdsio_write_section.F |
280 |
MDS_WRITE_SEC_YZ |
I myThid ) |
./pkg/mdsio/mdsio_write_section.F |
335 |
MDS_WRITE_SEC_YZ |
INTEGER myThid |
./pkg/mdsio/mdsio_write_section.F |
357 |
MDS_WRITE_SEC_YZ |
_BEGIN_MASTER( myThid ) |
./pkg/mdsio/mdsio_write_section.F |
364 |
MDS_WRITE_SEC_YZ |
& SQUEEZE_RIGHT , myThid) |
./pkg/mdsio/mdsio_write_section.F |
367 |
MDS_WRITE_SEC_YZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_write_section.F |
385 |
MDS_WRITE_SEC_YZ |
CALL MDSFINDUNIT( dUnit, myThid ) |
./pkg/mdsio/mdsio_write_section.F |
391 |
MDS_WRITE_SEC_YZ |
length_of_rec = MDS_RECLEN( filePrec, sNy, myThid ) |
./pkg/mdsio/mdsio_write_section.F |
396 |
MDS_WRITE_SEC_YZ |
length_of_rec = MDS_RECLEN( filePrec, sNy, myThid ) |
./pkg/mdsio/mdsio_write_section.F |
413 |
MDS_WRITE_SEC_YZ |
length_of_rec = MDS_RECLEN( filePrec, sNy, myThid ) |
./pkg/mdsio/mdsio_write_section.F |
418 |
MDS_WRITE_SEC_YZ |
length_of_rec = MDS_RECLEN( filePrec, sNy, myThid ) |
./pkg/mdsio/mdsio_write_section.F |
459 |
MDS_WRITE_SEC_YZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_write_section.F |
476 |
MDS_WRITE_SEC_YZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_write_section.F |
486 |
MDS_WRITE_SEC_YZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_write_section.F |
494 |
MDS_WRITE_SEC_YZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_write_section.F |
512 |
MDS_WRITE_SEC_YZ |
_END_MASTER( myThid ) |
./pkg/mdsio/mdsio_write_section.F |
81 |
MDS_WRITE_SEC_XZ |
INTEGER myThid |
./pkg/mdsio/mdsio_write_whalos.F |
109 |
MDS_WRITE_WHALOS |
iAmDoingIO = MASTER_CPU_IO(myThid) |
./pkg/mdsio/mdsio_write_whalos.F |
112 |
MDS_WRITE_WHALOS |
CALL MDSFINDUNIT( dUnit, myThid ) |
./pkg/mdsio/mdsio_write_whalos.F |
123 |
MDS_WRITE_WHALOS |
length_of_rec = MDS_RECLEN( filePrec,sNxWh*procNyWh,myThid ) |
./pkg/mdsio/mdsio_write_whalos.F |
126 |
MDS_WRITE_WHALOS |
length_of_rec = MDS_RECLEN( filePrec,sNxWh*gloNyWh,myThid) |
./pkg/mdsio/mdsio_write_whalos.F |
137 |
MDS_WRITE_WHALOS |
& OLx, OLy, 1, i2d, n2d, 0, 0, .FALSE., myThid ) |
./pkg/mdsio/mdsio_write_whalos.F |
139 |
MDS_WRITE_WHALOS |
CALL BAR2( myThid ) |
./pkg/mdsio/mdsio_write_whalos.F |
141 |
MDS_WRITE_WHALOS |
& fld2d_procbuff_r4,myThid) |
./pkg/mdsio/mdsio_write_whalos.F |
145 |
MDS_WRITE_WHALOS |
& OLx, OLy, 1, i2d, n2d, 0, 0, .FALSE., myThid ) |
./pkg/mdsio/mdsio_write_whalos.F |
147 |
MDS_WRITE_WHALOS |
CALL BAR2( myThid ) |
./pkg/mdsio/mdsio_write_whalos.F |
149 |
MDS_WRITE_WHALOS |
& fld2d_procbuff_r8,myThid) |
./pkg/mdsio/mdsio_writelocal.F |
121 |
MDS_WRITELOCAL |
INTEGER myThid, ith, nthLoop |
./pkg/mdsio/mdsio_writelocal.F |
150 |
MDS_WRITELOCAL |
myThid = MAX(myThArg,1) |
./pkg/mdsio/mdsio_writelocal.F |
158 |
MDS_WRITELOCAL |
IF ( myThid.EQ.1 ) iAmDoingIO = .TRUE. |
./pkg/mdsio/mdsio_writelocal.F |
170 |
MDS_WRITELOCAL |
& SQUEEZE_RIGHT , myThid ) |
./pkg/mdsio/mdsio_writelocal.F |
174 |
MDS_WRITELOCAL |
& SQUEEZE_RIGHT , myThid ) |
./pkg/mdsio/mdsio_writelocal.F |
183 |
MDS_WRITELOCAL |
& SQUEEZE_RIGHT , myThid ) |
./pkg/mdsio/mdsio_writelocal.F |
187 |
MDS_WRITELOCAL |
& SQUEEZE_RIGHT , myThid ) |
./pkg/mdsio/mdsio_writelocal.F |
190 |
MDS_WRITELOCAL |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_writelocal.F |
198 |
MDS_WRITELOCAL |
& SQUEEZE_RIGHT , myThid ) |
./pkg/mdsio/mdsio_writelocal.F |
203 |
MDS_WRITELOCAL |
& SQUEEZE_RIGHT , myThid ) |
./pkg/mdsio/mdsio_writelocal.F |
206 |
MDS_WRITELOCAL |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_writelocal.F |
210 |
MDS_WRITELOCAL |
& SQUEEZE_RIGHT , myThid ) |
./pkg/mdsio/mdsio_writelocal.F |
217 |
MDS_WRITELOCAL |
IF ( nthLoop.GT.1 ) CALL BAR2( myThid ) |
./pkg/mdsio/mdsio_writelocal.F |
224 |
MDS_WRITELOCAL |
I 0, 0, nNz, 1, nNz, biArg, bjArg, .FALSE., myThid ) |
./pkg/mdsio/mdsio_writelocal.F |
227 |
MDS_WRITELOCAL |
I 0, 0, nNz, 1, nNz, biArg, bjArg, .FALSE., myThid ) |
./pkg/mdsio/mdsio_writelocal.F |
231 |
MDS_WRITELOCAL |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_writelocal.F |
237 |
MDS_WRITELOCAL |
I 0, 0, nNz, 1, nNz, biArg, bjArg, .FALSE., myThid ) |
./pkg/mdsio/mdsio_writelocal.F |
240 |
MDS_WRITELOCAL |
I 0, 0, nNz, 1, nNz, biArg, bjArg, .FALSE., myThid ) |
./pkg/mdsio/mdsio_writelocal.F |
244 |
MDS_WRITELOCAL |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_writelocal.F |
250 |
MDS_WRITELOCAL |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_writelocal.F |
256 |
MDS_WRITELOCAL |
IF ( nthLoop.GT.1 ) CALL BAR2( myThid ) |
./pkg/mdsio/mdsio_writelocal.F |
265 |
MDS_WRITELOCAL |
CALL MDSFINDUNIT( dUnit, myThid ) |
./pkg/mdsio/mdsio_writelocal.F |
270 |
MDS_WRITELOCAL |
length_of_rec = MDS_RECLEN( filePrec, sNx, myThid ) |
./pkg/mdsio/mdsio_writelocal.F |
351 |
MDS_WRITELOCAL |
length_of_rec = MDS_RECLEN( filePrec, sNx*sNy*nNz, myThid ) |
./pkg/mdsio/mdsio_writelocal.F |
401 |
MDS_WRITELOCAL |
I 0, dummyRL, irecord, myIter, myThid ) |
./pkg/mdsio/mdsio_writelocal.F |
432 |
MDS_WRITELOCAL |
I 0, dummyRL, irecord, myIter, myThid ) |
./pkg/mdsio/mdsio_writevec_loc.F |
110 |
MDS_WRITEVEC_LOC |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_writevec_loc.F |
113 |
MDS_WRITEVEC_LOC |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_writevec_loc.F |
122 |
MDS_WRITEVEC_LOC |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_writevec_loc.F |
125 |
MDS_WRITEVEC_LOC |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_writevec_loc.F |
128 |
MDS_WRITEVEC_LOC |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_writevec_loc.F |
131 |
MDS_WRITEVEC_LOC |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_writevec_loc.F |
153 |
MDS_WRITEVEC_LOC |
CALL MDSFINDUNIT( dUnit, myThid ) |
./pkg/mdsio/mdsio_writevec_loc.F |
168 |
MDS_WRITEVEC_LOC |
length_of_rec=MDS_RECLEN( filePrec, nSize, myThid ) |
./pkg/mdsio/mdsio_writevec_loc.F |
190 |
MDS_WRITEVEC_LOC |
I filePrec, dUnit, iRec, nSize, myThid ) |
./pkg/mdsio/mdsio_writevec_loc.F |
193 |
MDS_WRITEVEC_LOC |
I filePrec, dUnit, iRec, nSize, myThid ) |
./pkg/mdsio/mdsio_writevec_loc.F |
197 |
MDS_WRITEVEC_LOC |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_writevec_loc.F |
19 |
MDS_WRITEVEC_LOC |
I myThid ) |
./pkg/mdsio/mdsio_writevec_loc.F |
203 |
MDS_WRITEVEC_LOC |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_writevec_loc.F |
246 |
MDS_WRITEVEC_LOC |
I 0, dummyRL, iRec, myIter, myThid ) |
./pkg/mdsio/mdsio_writevec_loc.F |
249 |
MDS_WRITEVEC_LOC |
_END_MASTER( myThid ) |
./pkg/mdsio/mdsio_writevec_loc.F |
71 |
MDS_WRITEVEC_LOC |
INTEGER myThid |
./pkg/mdsio/mdsio_writevec_loc.F |
99 |
MDS_WRITEVEC_LOC |
_BEGIN_MASTER( myThid ) |
./pkg/mdsio/mdsio_writevector.F |
101 |
MDSWRITEVECTOR |
_BEGIN_MASTER( myThid ) |
./pkg/mdsio/mdsio_writevector.F |
107 |
MDSWRITEVECTOR |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_writevector.F |
110 |
MDSWRITEVECTOR |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_writevector.F |
129 |
MDSWRITEVECTOR |
CALL MDSFINDUNIT( dUnit, myThid ) |
./pkg/mdsio/mdsio_writevector.F |
132 |
MDSWRITEVECTOR |
_END_MASTER( myThid ) |
./pkg/mdsio/mdsio_writevector.F |
138 |
MDSWRITEVECTOR |
_BEGIN_MASTER( myThid ) |
./pkg/mdsio/mdsio_writevector.F |
141 |
MDSWRITEVECTOR |
length_of_rec=MDS_RECLEN(filePrec,vec_size,myThid) |
./pkg/mdsio/mdsio_writevector.F |
150 |
MDSWRITEVECTOR |
_END_MASTER( myThid ) |
./pkg/mdsio/mdsio_writevector.F |
155 |
MDSWRITEVECTOR |
CALL MDS_BUFFERTORS( local, arr, narr, .FALSE., myThid ) |
./pkg/mdsio/mdsio_writevector.F |
157 |
MDSWRITEVECTOR |
CALL MDS_BUFFERTORL( local, arr, narr, .FALSE., myThid ) |
./pkg/mdsio/mdsio_writevector.F |
161 |
MDSWRITEVECTOR |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_writevector.F |
172 |
MDSWRITEVECTOR |
CALL GATHER_VECTOR( lprint, narr, global, local, myThid ) |
./pkg/mdsio/mdsio_writevector.F |
173 |
MDSWRITEVECTOR |
_BEGIN_MASTER( myThid ) |
./pkg/mdsio/mdsio_writevector.F |
17 |
MDSWRITEVECTOR |
I myThid ) |
./pkg/mdsio/mdsio_writevector.F |
203 |
MDSWRITEVECTOR |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_writevector.F |
207 |
MDSWRITEVECTOR |
_END_MASTER( myThid ) |
./pkg/mdsio/mdsio_writevector.F |
212 |
MDSWRITEVECTOR |
_BEGIN_MASTER( myThid ) |
./pkg/mdsio/mdsio_writevector.F |
229 |
MDSWRITEVECTOR |
I 0, dummyRL, irecord, myIter, myThid ) |
./pkg/mdsio/mdsio_writevector.F |
231 |
MDSWRITEVECTOR |
_END_MASTER( myThid ) |
./pkg/mdsio/mdsio_writevector.F |
236 |
MDSWRITEVECTOR |
_BEGIN_MASTER( myThid ) |
./pkg/mdsio/mdsio_writevector.F |
243 |
MDSWRITEVECTOR |
length_of_rec = MDS_RECLEN( filePrec, narr, myThid ) |
./pkg/mdsio/mdsio_writevector.F |
248 |
MDSWRITEVECTOR |
length_of_rec = MDS_RECLEN( filePrec, narr, myThid ) |
./pkg/mdsio/mdsio_writevector.F |
265 |
MDSWRITEVECTOR |
length_of_rec = MDS_RECLEN( filePrec, narr, myThid ) |
./pkg/mdsio/mdsio_writevector.F |
270 |
MDSWRITEVECTOR |
length_of_rec = MDS_RECLEN( filePrec, narr, myThid ) |
./pkg/mdsio/mdsio_writevector.F |
289 |
MDSWRITEVECTOR |
I filePrec, dUnit, irec, narr, myThid ) |
./pkg/mdsio/mdsio_writevector.F |
292 |
MDSWRITEVECTOR |
I filePrec, dUnit, irec, narr, myThid ) |
./pkg/mdsio/mdsio_writevector.F |
296 |
MDSWRITEVECTOR |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_writevector.F |
302 |
MDSWRITEVECTOR |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mdsio/mdsio_writevector.F |
329 |
MDSWRITEVECTOR |
I 0, dummyRL, irecord, myIter, myThid ) |
./pkg/mdsio/mdsio_writevector.F |
357 |
MDSWRITEVECTOR |
I 0, dummyRL, irecord, myIter, myThid ) |
./pkg/mdsio/mdsio_writevector.F |
363 |
MDSWRITEVECTOR |
_END_MASTER( myThid ) |
./pkg/mdsio/mdsio_writevector.F |
58 |
MDSWRITEVECTOR |
INTEGER myThid |
./model/src/calc_buoyancy.F |
32 |
CALC_BUOYANCY |
INTEGER myThid |
./model/src/calc_buoyancy.F |
9 |
CALC_BUOYANCY |
I myThid ) |
./pkg/mnc/mnc_cw_citer.F |
106 |
MNC_CW_SET_CITER |
integer igroup, iflag, ival_curr, ival_next, myThid |
./pkg/mnc/mnc_cw_citer.F |
120 |
MNC_CW_SET_CITER |
CALL MNC_GET_IND(MNC_MAX_ID, fgname, mnc_cw_fgnm, indfg, myThid) |
./pkg/mnc/mnc_cw_citer.F |
144 |
MNC_CW_SET_CITER |
& iflag, ival_curr, ival_next, myThid ) |
./pkg/mnc/mnc_cw_citer.F |
159 |
MNC_CW_GET_CITER |
I myThid ) |
./pkg/mnc/mnc_cw_citer.F |
15 |
MNC_CW_CITER_SETG |
I myThid ) |
./pkg/mnc/mnc_cw_citer.F |
170 |
MNC_CW_GET_CITER |
integer igroup, iflag, ival_curr, ival_next, myThid |
./pkg/mnc/mnc_cw_citer.F |
184 |
MNC_CW_GET_CITER |
CALL MNC_GET_IND(MNC_MAX_ID, fgname, mnc_cw_fgnm, indfg, myThid) |
./pkg/mnc/mnc_cw_citer.F |
202 |
MNC_CW_GET_CITER |
& iflag, ival_curr, ival_next, myThid ) |
./pkg/mnc/mnc_cw_citer.F |
25 |
MNC_CW_CITER_SETG |
integer igroup, iflag, ival_curr, ival_next, myThid |
./pkg/mnc/mnc_cw_citer.F |
65 |
MNC_CW_CITER_GETG |
I myThid ) |
./pkg/mnc/mnc_cw_citer.F |
75 |
MNC_CW_CITER_GETG |
integer igroup, iflag, ival_curr, ival_next, myThid |
./pkg/mnc/mnc_cw_citer.F |
95 |
MNC_CW_SET_CITER |
I myThid ) |
./pkg/mnc/mnc_cw_cvars.F |
17 |
MNC_CW_WRITE_CVAR |
I myThid ) |
./pkg/mnc/mnc_cw_cvars.F |
411 |
MNC_CW_WRITE_CVAR |
CALL MNC_FILE_REDEF(fname, myThid) |
./pkg/mnc/mnc_cw_cvars.F |
422 |
MNC_CW_WRITE_CVAR |
CALL MNC_HANDLE_ERR(err, msgbuf, myThid) |
./pkg/mnc/mnc_cw_cvars.F |
430 |
MNC_CW_WRITE_CVAR |
CALL MNC_HANDLE_ERR(err, msgbuf, myThid) |
./pkg/mnc/mnc_cw_cvars.F |
438 |
MNC_CW_WRITE_CVAR |
CALL MNC_HANDLE_ERR(err, msgbuf, myThid) |
./pkg/mnc/mnc_cw_cvars.F |
43 |
MNC_CW_WRITE_CVAR |
integer myThid |
./pkg/mnc/mnc_cw_cvars.F |
446 |
MNC_CW_WRITE_CVAR |
CALL MNC_HANDLE_ERR(err, msgbuf, myThid) |
./pkg/mnc/mnc_cw_cvars.F |
449 |
MNC_CW_WRITE_CVAR |
CALL MNC_FILE_ENDDEF(fname, myThid) |
./pkg/mnc/mnc_cw_cvars.F |
459 |
MNC_CW_WRITE_CVAR |
CALL MNC_HANDLE_ERR(err, msgbuf, myThid) |
./pkg/mnc/mnc_cw_init.F |
13 |
MNC_CW_INIT |
I myThid ) |
./pkg/mnc/mnc_cw_init.F |
243 |
MNC_CW_INIT |
& dim, dn, ib, ie, myThid) |
./pkg/mnc/mnc_cw_init.F |
46 |
MNC_CW_INIT |
integer myThid |
./pkg/mnc/mnc_cw_missingvals.F |
15 |
MNC_CW_VATTR_MISSING |
I myThid ) |
./pkg/mnc/mnc_cw_missingvals.F |
26 |
MNC_CW_VATTR_MISSING |
integer myThid, iflag |
./pkg/mnc/mnc_cw_missingvals.F |
44 |
MNC_CW_VATTR_MISSING |
CALL MNC_GET_IND(MNC_MAX_ID, vname, mnc_cw_vname, indv, myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
102 |
MNC_CW_SET_GATTR |
& 4*exch2_nNeighbours(tnum), exch2_pij(1,1,tnum), myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
104 |
MNC_CW_SET_GATTR |
& exch2_nNeighbours(tnum), exch2_oi(1,tnum), myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
106 |
MNC_CW_SET_GATTR |
& exch2_nNeighbours(tnum), exch2_oj(1,tnum), myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
109 |
MNC_CW_SET_GATTR |
& 'exch2_isNedge', 1, exch2_isNedge(tnum), myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
111 |
MNC_CW_SET_GATTR |
& 'exch2_isSedge', 1, exch2_isSedge(tnum), myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
113 |
MNC_CW_SET_GATTR |
& 'exch2_isEedge', 1, exch2_isEedge(tnum), myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
115 |
MNC_CW_SET_GATTR |
& 'exch2_isWedge', 1, exch2_isWedge(tnum), myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
118 |
MNC_CW_SET_GATTR |
& 'exch2_myFace', 1, exch2_myFace(tnum), myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
120 |
MNC_CW_SET_GATTR |
& 'exch2_txGlobalo', 1, exch2_txGlobalo(tnum), myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
122 |
MNC_CW_SET_GATTR |
& 'exch2_tyGlobalo', 1, exch2_tyGlobalo(tnum), myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
124 |
MNC_CW_SET_GATTR |
& 'exch2_tBasex', 1, exch2_tBasex(tnum), myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
126 |
MNC_CW_SET_GATTR |
& 'exch2_tBasey', 1, exch2_tBasey(tnum), myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
130 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname, 'sNx', 1, sNx, myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
131 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname, 'sNy', 1, sNy, myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
132 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname, 'OLx', 1, OLx, myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
133 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname, 'OLy', 1, OLy, myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
134 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname, 'nSx', 1, nSx, myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
135 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname, 'nSy', 1, nSy, myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
136 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname, 'nPx', 1, nPx, myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
137 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname, 'nPy', 1, nPy, myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
138 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname, 'Nx', 1, Nx, myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
139 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname, 'Ny', 1, Ny, myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
140 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname, 'Nr', 1, Nr, myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
14 |
MNC_CW_SET_GATTR |
I myThid ) |
./pkg/mnc/mnc_cw_model_attr.F |
38 |
MNC_CW_SET_GATTR |
integer myThid, bi,bj, tnum |
./pkg/mnc/mnc_cw_model_attr.F |
45 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_REDEF(fname, myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
51 |
MNC_CW_SET_GATTR |
& the_run_name, myThid ) |
./pkg/mnc/mnc_cw_model_attr.F |
57 |
MNC_CW_SET_GATTR |
& myThid ) |
./pkg/mnc/mnc_cw_model_attr.F |
62 |
MNC_CW_SET_GATTR |
& myThid ) |
./pkg/mnc/mnc_cw_model_attr.F |
67 |
MNC_CW_SET_GATTR |
& myThid ) |
./pkg/mnc/mnc_cw_model_attr.F |
72 |
MNC_CW_SET_GATTR |
& myThid ) |
./pkg/mnc/mnc_cw_model_attr.F |
76 |
MNC_CW_SET_GATTR |
& 'http://mitgcm.org', myThid ) |
./pkg/mnc/mnc_cw_model_attr.F |
78 |
MNC_CW_SET_GATTR |
& MNC_TAG_ID, myThid ) |
./pkg/mnc/mnc_cw_model_attr.F |
80 |
MNC_CW_SET_GATTR |
& 1, 0.9D0, myThid ) |
./pkg/mnc/mnc_cw_model_attr.F |
83 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname,'tile_number', 1, tnum, myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
84 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname,'bi', 1, bi, myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
85 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname,'bj', 1, bj, myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
96 |
MNC_CW_SET_GATTR |
& 'exch2_nNeighbours', 1, exch2_nNeighbours(tnum), myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
99 |
MNC_CW_SET_GATTR |
& exch2_neighbourId(1,tnum), myThid) |
./pkg/mnc/mnc_cw_udim.F |
102 |
MNC_CW_GET_UDIM |
integer nudim, myThid |
./pkg/mnc/mnc_cw_udim.F |
115 |
MNC_CW_GET_UDIM |
CALL MNC_GET_IND(MNC_MAX_ID, fgname, mnc_cw_fgnm, indfg, myThid) |
./pkg/mnc/mnc_cw_udim.F |
14 |
MNC_CW_SET_UDIM |
I myThid ) |
./pkg/mnc/mnc_cw_udim.F |
36 |
MNC_CW_SET_UDIM |
integer nudim, myThid |
./pkg/mnc/mnc_cw_udim.F |
50 |
MNC_CW_SET_UDIM |
CALL MNC_GET_IND(MNC_MAX_ID, fgname, mnc_cw_fgnm, indfg, myThid) |
./pkg/mnc/mnc_cw_udim.F |
53 |
MNC_CW_SET_UDIM |
& MNC_MAX_ID, mnc_cw_fgnm, 'mnc_cw_fgnm', indfg, myThid) |
./pkg/mnc/mnc_cw_udim.F |
90 |
MNC_CW_GET_UDIM |
I myThid ) |
./pkg/mnc/mnc_cw_write_grid_info.F |
100 |
MNC_CW_WRITE_GRID_INFO |
& 'y cell face separation',myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
102 |
MNC_CW_WRITE_GRID_INFO |
& 'x v-velocity separation',myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
104 |
MNC_CW_WRITE_GRID_INFO |
& 'y u-velocity separation',myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
106 |
MNC_CW_WRITE_GRID_INFO |
& 'r-face area',myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
108 |
MNC_CW_WRITE_GRID_INFO |
& '',myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
110 |
MNC_CW_WRITE_GRID_INFO |
& '',myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
112 |
MNC_CW_WRITE_GRID_INFO |
& '',myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
114 |
MNC_CW_WRITE_GRID_INFO |
& 'Coriolis f',myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
116 |
MNC_CW_WRITE_GRID_INFO |
& 'Coriolis f',myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
118 |
MNC_CW_WRITE_GRID_INFO |
& 'base of fluid in r-units',myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
120 |
MNC_CW_WRITE_GRID_INFO |
& 'surface reference (at rest,myThid) position',myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
122 |
MNC_CW_WRITE_GRID_INFO |
& 'C-facing vertical fraction of open cell',myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
124 |
MNC_CW_WRITE_GRID_INFO |
& 'W-facing vertical fraction of open cell',myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
126 |
MNC_CW_WRITE_GRID_INFO |
& 'S-facing vertical fraction of open cell',myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
129 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_SET_UDIM(bfname(nf:nl), 0, myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
130 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'rC',rC,myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
131 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'rF',rF,myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
132 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'drC',drC,myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
133 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'drF',drF,myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
134 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'xC',xC,myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
135 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'yC',yC,myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
136 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'xG',xG,myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
137 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'yG',yG,myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
138 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'dxC',dxC,myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
139 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'dyC',dyC,myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
13 |
MNC_CW_WRITE_GRID_INFO |
I myThid ) |
./pkg/mnc/mnc_cw_write_grid_info.F |
140 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'dxF',dxF,myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
141 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'dyF',dyF,myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
142 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'dxG',dxG,myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
143 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'dyG',dyG,myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
144 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'dxV',dxV,myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
145 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'dyU',dyU,myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
146 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'rA',rA,myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
147 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'rAw',rAw,myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
148 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'rAs',rAs,myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
149 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'rAz',rAz,myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
150 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'fCori',fCori,myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
151 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'fCoriG',fCoriG,myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
152 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'R_low',R_low,myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
153 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'Ro_surf',Ro_surf,myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
154 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'HFacC',HFacC,myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
155 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'HFacW',HFacW,myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
156 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'HFacS',HFacS,myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
169 |
MNC_CW_WRITE_GRID_COORD |
I myThid ) |
./pkg/mnc/mnc_cw_write_grid_info.F |
181 |
MNC_CW_WRITE_GRID_COORD |
integer myThid |
./pkg/mnc/mnc_cw_write_grid_info.F |
185 |
MNC_CW_WRITE_GRID_COORD |
_BEGIN_MASTER( myThid ) |
./pkg/mnc/mnc_cw_write_grid_info.F |
187 |
MNC_CW_WRITE_GRID_COORD |
CALL MNC_CW_SET_UDIM(fname, 0, myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
188 |
MNC_CW_WRITE_GRID_COORD |
CALL MNC_CW_RS_W('R',fname,0,0,'XC',xC, myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
189 |
MNC_CW_WRITE_GRID_COORD |
CALL MNC_CW_RS_W('R',fname,0,0,'YC',yC, myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
190 |
MNC_CW_WRITE_GRID_COORD |
CALL MNC_CW_RS_W('R',fname,0,0,'XG',xG, myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
191 |
MNC_CW_WRITE_GRID_COORD |
CALL MNC_CW_RS_W('R',fname,0,0,'YG',yG, myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
208 |
MNC_CW_WRITE_GRID_COORD |
_END_MASTER(myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
30 |
MNC_CW_WRITE_GRID_INFO |
integer myThid |
./pkg/mnc/mnc_cw_write_grid_info.F |
44 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_ADD_VNAME('rC', '-_-_--__C__-', 0,0, myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
45 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_ADD_VNAME('rF', '-_-_--__I__-', 0,0, myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
46 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_ADD_VNAME('drC', '-_-_--__C__-', 0,0, myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
47 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_ADD_VNAME('drF', '-_-_--__C__-', 0,0, myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
49 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_ADD_VNAME('xC', 'Cen_xy_Hn__-__-', 3,4, myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
50 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_ADD_VNAME('yC', 'Cen_xy_Hn__-__-', 3,4, myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
51 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_ADD_VNAME('xG', 'Cor_xy_Hn__-__-', 3,4, myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
52 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_ADD_VNAME('yG', 'Cor_xy_Hn__-__-', 3,4, myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
53 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_ADD_VNAME('dxC', 'Cen_xy_Hn__-__-', 3,4, myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
54 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_ADD_VNAME('dyC', 'Cen_xy_Hn__-__-', 3,4, myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
55 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_ADD_VNAME('dxF', 'Cen_xy_Hn__-__-', 3,4, myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
56 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_ADD_VNAME('dyF', 'Cen_xy_Hn__-__-', 3,4, myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
57 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_ADD_VNAME('dxG', 'Cen_xy_Hn__-__-', 3,4, myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
58 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_ADD_VNAME('dyG', 'Cen_xy_Hn__-__-', 3,4, myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
59 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_ADD_VNAME('dxV', 'U_xy_Hn__-__-', 3,4, myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
60 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_ADD_VNAME('dyU', 'V_xy_Hn__-__-', 3,4, myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
61 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_ADD_VNAME('rA', 'Cen_xy_Hn__-__-', 3,4, myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
62 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_ADD_VNAME('rAw', 'Cen_xy_Hn__-__-', 3,4, myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
63 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_ADD_VNAME('rAs', 'Cen_xy_Hn__-__-', 3,4, myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
64 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_ADD_VNAME('rAz', 'Cen_xy_Hn__-__-', 3,4, myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
65 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_ADD_VNAME('fCori', 'Cen_xy_Hn__-__-', 3,4, myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
66 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_ADD_VNAME('fCoriG', 'Cen_xy_Hn__-__-', 3,4, myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
67 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_ADD_VNAME('R_low', 'Cen_xy_Hn__-__-', 3,4, myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
68 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_ADD_VNAME('Ro_surf', 'Cen_xy_Hn__-__-', 3,4, myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
69 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_ADD_VNAME('HFacC', 'Cen_xy_Hn__C__-', 4,5, myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
70 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_ADD_VNAME('HFacW', 'Cen_xy_Hn__C__-', 4,5, myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
71 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_ADD_VNAME('HFacS', 'Cen_xy_Hn__C__-', 4,5, myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
74 |
MNC_CW_WRITE_GRID_INFO |
& 'r of cell center',myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
76 |
MNC_CW_WRITE_GRID_INFO |
& 'r of cell face',myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
78 |
MNC_CW_WRITE_GRID_INFO |
& 'r cell center separation',myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
80 |
MNC_CW_WRITE_GRID_INFO |
& 'r cell face separation',myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
82 |
MNC_CW_WRITE_GRID_INFO |
& 'x of cell center',myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
84 |
MNC_CW_WRITE_GRID_INFO |
& 'y of cell center',myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
86 |
MNC_CW_WRITE_GRID_INFO |
& 'x of cell corner',myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
88 |
MNC_CW_WRITE_GRID_INFO |
& 'y of cell corner',myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
90 |
MNC_CW_WRITE_GRID_INFO |
& 'x cell center separation',myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
92 |
MNC_CW_WRITE_GRID_INFO |
& 'y cell center separation',myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
94 |
MNC_CW_WRITE_GRID_INFO |
& 'x cell face separation',myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
96 |
MNC_CW_WRITE_GRID_INFO |
& 'y cell face separation',myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
98 |
MNC_CW_WRITE_GRID_INFO |
& 'x cell face separation',myThid) |
./model/src/calc_common_factors.F |
12 |
CALC_COMMON_FACTORS |
I k,bi,bj, myThid ) |
./model/src/calc_common_factors.F |
57 |
CALC_COMMON_FACTORS |
INTEGER myThid |
./pkg/mnc/mnc_cwrapper.F |
107 |
MNC_CW_DEL_GNAME |
integer myThid |
./pkg/mnc/mnc_cwrapper.F |
121 |
MNC_CW_DEL_GNAME |
CALL MNC_GET_IND(MNC_MAX_ID, name, mnc_cw_gname, indg, myThid) |
./pkg/mnc/mnc_cwrapper.F |
137 |
MNC_CW_DUMP |
SUBROUTINE MNC_CW_DUMP( myThid ) |
./pkg/mnc/mnc_cwrapper.F |
151 |
MNC_CW_DUMP |
integer myThid |
./pkg/mnc/mnc_cwrapper.F |
160 |
MNC_CW_DUMP |
_BEGIN_MASTER(myThid) |
./pkg/mnc/mnc_cwrapper.F |
246 |
MNC_CW_DUMP |
_END_MASTER(myThid) |
./pkg/mnc/mnc_cwrapper.F |
260 |
MNC_CW_APPEND_VNAME |
I myThid ) |
./pkg/mnc/mnc_cwrapper.F |
271 |
MNC_CW_APPEND_VNAME |
integer myThid, bi_dim, bj_dim |
./pkg/mnc/mnc_cwrapper.F |
279 |
MNC_CW_APPEND_VNAME |
CALL MNC_GET_IND(MNC_MAX_ID, vname, mnc_cw_vname, indv, myThid) |
./pkg/mnc/mnc_cwrapper.F |
281 |
MNC_CW_APPEND_VNAME |
CALL MNC_CW_ADD_VNAME(vname, gname, bi_dim, bj_dim, myThid) |
./pkg/mnc/mnc_cwrapper.F |
297 |
MNC_CW_ADD_VNAME |
I myThid ) |
./pkg/mnc/mnc_cwrapper.F |
316 |
MNC_CW_ADD_VNAME |
integer myThid, bi_dim, bj_dim |
./pkg/mnc/mnc_cwrapper.F |
333 |
MNC_CW_ADD_VNAME |
CALL MNC_GET_IND(MNC_MAX_ID, vname, mnc_cw_vname, indv, myThid) |
./pkg/mnc/mnc_cwrapper.F |
341 |
MNC_CW_ADD_VNAME |
& 'mnc_cw_vname', indv, myThid) |
./pkg/mnc/mnc_cwrapper.F |
344 |
MNC_CW_ADD_VNAME |
CALL MNC_GET_IND(MNC_MAX_ID, gname, mnc_cw_gname, indg, myThid) |
./pkg/mnc/mnc_cwrapper.F |
34 |
MNC_CW_ADD_GNAME |
I myThid ) |
./pkg/mnc/mnc_cwrapper.F |
362 |
MNC_CW_ADD_VNAME |
CALL MNC_CW_ADD_VATTR_TEXT(vname,1,'mitgcm_grid',gname, myThid) |
./pkg/mnc/mnc_cwrapper.F |
375 |
MNC_CW_DEL_VNAME |
I myThid ) |
./pkg/mnc/mnc_cwrapper.F |
386 |
MNC_CW_DEL_VNAME |
integer myThid |
./pkg/mnc/mnc_cwrapper.F |
394 |
MNC_CW_DEL_VNAME |
CALL MNC_GET_IND(MNC_MAX_ID, vname, mnc_cw_vname, indv, myThid) |
./pkg/mnc/mnc_cwrapper.F |
414 |
MNC_CW_ADD_VATTR_TEXT |
I myThid ) |
./pkg/mnc/mnc_cwrapper.F |
423 |
MNC_CW_ADD_VATTR_TEXT |
integer myThid |
./pkg/mnc/mnc_cwrapper.F |
431 |
MNC_CW_ADD_VATTR_TEXT |
& tname, ' ', ' ', tval, ival, dval, myThid ) |
./pkg/mnc/mnc_cwrapper.F |
440 |
MNC_CW_ADD_VATTR_INT |
I myThid ) |
./pkg/mnc/mnc_cwrapper.F |
449 |
MNC_CW_ADD_VATTR_INT |
integer myThid |
./pkg/mnc/mnc_cwrapper.F |
456 |
MNC_CW_ADD_VATTR_INT |
& ' ', iname, ' ', ' ', ival, dval, myThid ) |
./pkg/mnc/mnc_cwrapper.F |
45 |
MNC_CW_ADD_GNAME |
integer myThid, ndim |
./pkg/mnc/mnc_cwrapper.F |
465 |
MNC_CW_ADD_VATTR_DBL |
I myThid ) |
./pkg/mnc/mnc_cwrapper.F |
474 |
MNC_CW_ADD_VATTR_DBL |
integer myThid |
./pkg/mnc/mnc_cwrapper.F |
481 |
MNC_CW_ADD_VATTR_DBL |
& ' ', ' ', dname, ' ', ival, dval, myThid ) |
./pkg/mnc/mnc_cwrapper.F |
494 |
MNC_CW_ADD_VATTR_ANY |
I myThid ) |
./pkg/mnc/mnc_cwrapper.F |
504 |
MNC_CW_ADD_VATTR_ANY |
integer myThid |
./pkg/mnc/mnc_cwrapper.F |
524 |
MNC_CW_ADD_VATTR_ANY |
CALL MNC_GET_IND(MNC_MAX_ID, vname, mnc_cw_vname, indv, myThid) |
./pkg/mnc/mnc_cwrapper.F |
544 |
MNC_CW_ADD_VATTR_ANY |
& SQUEEZE_RIGHT , myThid) |
./pkg/mnc/mnc_cwrapper.F |
562 |
MNC_CW_ADD_VATTR_ANY |
& SQUEEZE_RIGHT , myThid) |
./pkg/mnc/mnc_cwrapper.F |
608 |
MNC_CW_GET_TILE_NUM |
I myThid ) |
./pkg/mnc/mnc_cwrapper.F |
622 |
MNC_CW_GET_TILE_NUM |
integer myThid, bi,bj, uniq_tnum |
./pkg/mnc/mnc_cwrapper.F |
62 |
MNC_CW_ADD_GNAME |
CALL MNC_GET_IND(MNC_MAX_ID, name, mnc_cw_gname, indg, myThid) |
./pkg/mnc/mnc_cwrapper.F |
658 |
MNC_CW_GET_FACE_NUM |
I myThid ) |
./pkg/mnc/mnc_cwrapper.F |
672 |
MNC_CW_GET_FACE_NUM |
integer myThid, bi,bj, uniq_fnum |
./pkg/mnc/mnc_cwrapper.F |
697 |
MNC_CW_GET_XYFO |
I myThid ) |
./pkg/mnc/mnc_cwrapper.F |
70 |
MNC_CW_ADD_GNAME |
& 'mnc_cw_gname', indg, myThid) |
./pkg/mnc/mnc_cwrapper.F |
711 |
MNC_CW_GET_XYFO |
integer myThid, bi,bj, ixoff,iyoff |
./pkg/mnc/mnc_cwrapper.F |
748 |
MNC_CW_FILE_AORC |
I myThid ) |
./pkg/mnc/mnc_cwrapper.F |
761 |
MNC_CW_FILE_AORC |
integer myThid, indf, lbi, lbj, uniq_tnum |
./pkg/mnc/mnc_cwrapper.F |
769 |
MNC_CW_FILE_AORC |
CALL MNC_GET_IND(MNC_MAX_FID, fname, mnc_f_names, indf, myThid) |
./pkg/mnc/mnc_cwrapper.F |
775 |
MNC_CW_FILE_AORC |
CALL MNC_FILE_TRY_READ(fname, ierr, indf, myThid) |
./pkg/mnc/mnc_cwrapper.F |
778 |
MNC_CW_FILE_AORC |
CALL MNC_FILE_OPEN(fname, 0, indf, myThid) |
./pkg/mnc/mnc_cwrapper.F |
782 |
MNC_CW_FILE_AORC |
CALL MNC_CW_SET_GATTR(fname, lbi,lbj, uniq_tnum, myThid) |
./pkg/mnc/mnc_cwrapper.F |
96 |
MNC_CW_DEL_GNAME |
I myThid ) |
./pkg/mnc/mnc_dim.F |
101 |
MNC_DIM_INIT_ALL_CV |
CALL MNC_GET_IND(MNC_MAX_FID, fname, mnc_f_names, indf, myThid) |
./pkg/mnc/mnc_dim.F |
136 |
MNC_DIM_INIT_ALL_CV |
& 'mnc_d_names', indd, myThid) |
./pkg/mnc/mnc_dim.F |
144 |
MNC_DIM_INIT_ALL_CV |
CALL MNC_FILE_REDEF(fname, myThid) |
./pkg/mnc/mnc_dim.F |
148 |
MNC_DIM_INIT_ALL_CV |
CALL MNC_HANDLE_ERR(err, msgbuf, myThid) |
./pkg/mnc/mnc_dim.F |
154 |
MNC_DIM_INIT_ALL_CV |
& mnc_f_info(indf,2), idd, bi, bj, myThid) |
./pkg/mnc/mnc_dim.F |
15 |
MNC_DIM_INIT |
I myThid ) |
./pkg/mnc/mnc_dim.F |
177 |
MNC_DIM_UNLIM_SIZE |
I myThid ) |
./pkg/mnc/mnc_dim.F |
189 |
MNC_DIM_UNLIM_SIZE |
integer myThid, unlim_sz |
./pkg/mnc/mnc_dim.F |
203 |
MNC_DIM_UNLIM_SIZE |
CALL MNC_GET_IND(MNC_MAX_FID, fname, mnc_f_names, indf, myThid) |
./pkg/mnc/mnc_dim.F |
21 |
MNC_DIM_INIT |
integer myThid, dlen |
./pkg/mnc/mnc_dim.F |
221 |
MNC_DIM_UNLIM_SIZE |
CALL MNC_HANDLE_ERR(err, msgbuf, myThid) |
./pkg/mnc/mnc_dim.F |
25 |
MNC_DIM_INIT |
CALL MNC_DIM_INIT_ALL(fname, dname, dlen, 'Y', myThid) |
./pkg/mnc/mnc_dim.F |
40 |
MNC_DIM_INIT_ALL |
I myThid ) |
./pkg/mnc/mnc_dim.F |
49 |
MNC_DIM_INIT_ALL |
integer myThid, dlen |
./pkg/mnc/mnc_dim.F |
54 |
MNC_DIM_INIT_ALL |
CALL MNC_DIM_INIT_ALL_CV(fname,dname,dlen,doWrite,-1,-1,myThid) |
./pkg/mnc/mnc_dim.F |
70 |
MNC_DIM_INIT_ALL_CV |
I myThid ) |
./pkg/mnc/mnc_dim.F |
82 |
MNC_DIM_INIT_ALL_CV |
integer myThid, dlen, bi,bj |
./pkg/mnc/mnc_dump.F |
11 |
MNC_DUMP |
SUBROUTINE MNC_DUMP( myThid ) |
./pkg/mnc/mnc_dump.F |
18 |
MNC_DUMP |
INTEGER myThid |
./pkg/mnc/mnc_dump.F |
20 |
MNC_DUMP |
CALL MNC_DUMP_ALL(5, 20, myThid) |
./pkg/mnc/mnc_dump.F |
29 |
MNC_DUMP_ALL |
SUBROUTINE MNC_DUMP_ALL( n_id, n_items, myThid ) |
./pkg/mnc/mnc_dump.F |
39 |
MNC_DUMP_ALL |
integer n_id, n_items, myThid |
./pkg/mnc/mnc_file.F |
120 |
MNC_FILE_ADD_ATTR_STR |
I myThid ) |
./pkg/mnc/mnc_file.F |
129 |
MNC_FILE_ADD_ATTR_STR |
integer myThid |
./pkg/mnc/mnc_file.F |
136 |
MNC_FILE_ADD_ATTR_STR |
& sval, 0, 0.0D0, sZero, 0, myThid ) |
./pkg/mnc/mnc_file.F |
13 |
MNC_FILE_CREATE |
I myThid ) |
./pkg/mnc/mnc_file.F |
150 |
MNC_FILE_ADD_ATTR_DBL |
I myThid ) |
./pkg/mnc/mnc_file.F |
159 |
MNC_FILE_ADD_ATTR_DBL |
integer myThid, len |
./pkg/mnc/mnc_file.F |
167 |
MNC_FILE_ADD_ATTR_DBL |
& ' ', len, dval, sZero, 0, myThid ) |
./pkg/mnc/mnc_file.F |
181 |
MNC_FILE_ADD_ATTR_REAL |
I myThid ) |
./pkg/mnc/mnc_file.F |
190 |
MNC_FILE_ADD_ATTR_REAL |
integer myThid, len |
./pkg/mnc/mnc_file.F |
196 |
MNC_FILE_ADD_ATTR_REAL |
& ' ', len, 0.0D0, rval, 0, myThid ) |
./pkg/mnc/mnc_file.F |
210 |
MNC_FILE_ADD_ATTR_INT |
I myThid ) |
./pkg/mnc/mnc_file.F |
219 |
MNC_FILE_ADD_ATTR_INT |
integer myThid, len, ival |
./pkg/mnc/mnc_file.F |
226 |
MNC_FILE_ADD_ATTR_INT |
& ' ', len, 0.0D0, sZero, ival, myThid ) |
./pkg/mnc/mnc_file.F |
22 |
MNC_FILE_CREATE |
integer myThid |
./pkg/mnc/mnc_file.F |
239 |
MNC_FILE_ADD_ATTR_ANY |
I myThid ) |
./pkg/mnc/mnc_file.F |
251 |
MNC_FILE_ADD_ATTR_ANY |
integer myThid, atype, len, iv |
./pkg/mnc/mnc_file.F |
266 |
MNC_FILE_ADD_ATTR_ANY |
CALL MNC_GET_IND(MNC_MAX_FID, fname, mnc_f_names, ind, myThid) |
./pkg/mnc/mnc_file.F |
277 |
MNC_FILE_ADD_ATTR_ANY |
CALL MNC_FILE_REDEF(fname, myThid) |
./pkg/mnc/mnc_file.F |
288 |
MNC_FILE_ADD_ATTR_ANY |
& myThid) |
./pkg/mnc/mnc_file.F |
293 |
MNC_FILE_ADD_ATTR_ANY |
& myThid) |
./pkg/mnc/mnc_file.F |
298 |
MNC_FILE_ADD_ATTR_ANY |
& myThid) |
./pkg/mnc/mnc_file.F |
29 |
MNC_FILE_CREATE |
CALL MNC_FILE_OPEN(fname, 0, indf, myThid) |
./pkg/mnc/mnc_file.F |
303 |
MNC_FILE_ADD_ATTR_ANY |
& myThid) |
./pkg/mnc/mnc_file.F |
322 |
MNC_FILE_CLOSE |
I myThid ) |
./pkg/mnc/mnc_file.F |
334 |
MNC_FILE_CLOSE |
integer myThid |
./pkg/mnc/mnc_file.F |
348 |
MNC_FILE_CLOSE |
CALL MNC_GET_IND(MNC_MAX_FID, fname, mnc_f_names, indf, myThid) |
./pkg/mnc/mnc_file.F |
358 |
MNC_FILE_CLOSE |
CALL MNC_HANDLE_ERR(err, msgbuf, myThid) |
./pkg/mnc/mnc_file.F |
411 |
MNC_FILE_CLOSE_ALL_MATCHING |
I myThid ) |
./pkg/mnc/mnc_file.F |
423 |
MNC_FILE_CLOSE_ALL_MATCHING |
integer myThid |
./pkg/mnc/mnc_file.F |
438 |
MNC_FILE_CLOSE_ALL_MATCHING |
CALL MNC_FILE_CLOSE(mnc_f_names(i), myThid) |
./pkg/mnc/mnc_file.F |
43 |
MNC_FILE_OPEN |
I myThid ) |
./pkg/mnc/mnc_file.F |
452 |
MNC_FILE_CLOSE_ALL |
I myThid ) |
./pkg/mnc/mnc_file.F |
464 |
MNC_FILE_CLOSE_ALL |
integer myThid |
./pkg/mnc/mnc_file.F |
480 |
MNC_FILE_CLOSE_ALL |
CALL MNC_FILE_CLOSE(mnc_f_names(i), myThid) |
./pkg/mnc/mnc_file.F |
495 |
MNC_FILE_REDEF |
I myThid ) |
./pkg/mnc/mnc_file.F |
507 |
MNC_FILE_REDEF |
integer myThid |
./pkg/mnc/mnc_file.F |
519 |
MNC_FILE_REDEF |
CALL MNC_GET_IND(MNC_MAX_FID, fname, mnc_f_names, ind, myThid) |
./pkg/mnc/mnc_file.F |
534 |
MNC_FILE_REDEF |
& 'entering define mode in S/R MNC_FILE_REDEF', myThid) |
./pkg/mnc/mnc_file.F |
548 |
MNC_FILE_ENDDEF |
I myThid ) |
./pkg/mnc/mnc_file.F |
55 |
MNC_FILE_OPEN |
integer myThid,indf |
./pkg/mnc/mnc_file.F |
560 |
MNC_FILE_ENDDEF |
integer myThid |
./pkg/mnc/mnc_file.F |
572 |
MNC_FILE_ENDDEF |
CALL MNC_GET_IND(MNC_MAX_FID, fname, mnc_f_names, ind, myThid) |
./pkg/mnc/mnc_file.F |
587 |
MNC_FILE_ENDDEF |
& 'ending define mode in S/R MNC_FILE_ENDDEF', myThid) |
./pkg/mnc/mnc_file.F |
601 |
MNC_FILE_READALL |
I myThid ) |
./pkg/mnc/mnc_file.F |
612 |
MNC_FILE_READALL |
integer myThid |
./pkg/mnc/mnc_file.F |
625 |
MNC_FILE_READALL |
CALL MNC_FILE_TRY_READ(fname, ierr, indf, myThid) |
./pkg/mnc/mnc_file.F |
628 |
MNC_FILE_READALL |
CALL MNC_HANDLE_ERR(ierr, msgbuf, myThid) |
./pkg/mnc/mnc_file.F |
642 |
MNC_FILE_TRY_READ |
I myThid ) |
./pkg/mnc/mnc_file.F |
654 |
MNC_FILE_TRY_READ |
integer myThid, ierr, indf |
./pkg/mnc/mnc_file.F |
679 |
MNC_FILE_TRY_READ |
& 'mnc_f_names', indf, myThid) |
./pkg/mnc/mnc_file.F |
687 |
MNC_FILE_TRY_READ |
CALL MNC_HANDLE_ERR(err, msgbuf, myThid) |
./pkg/mnc/mnc_file.F |
695 |
MNC_FILE_TRY_READ |
CALL MNC_HANDLE_ERR(err, msgbuf, myThid) |
./pkg/mnc/mnc_file.F |
702 |
MNC_FILE_TRY_READ |
CALL MNC_DIM_INIT_ALL(fname,name(ns:ne),dlen,'N', myThid) |
./pkg/mnc/mnc_file.F |
70 |
MNC_FILE_OPEN |
CALL MNC_GET_IND(MNC_MAX_FID, fname,mnc_f_names,indf,myThid) |
./pkg/mnc/mnc_file.F |
722 |
MNC_FILE_TRY_READ |
CALL MNC_HANDLE_ERR(err, msgbuf, myThid) |
./pkg/mnc/mnc_file.F |
732 |
MNC_FILE_TRY_READ |
CALL MNC_GRID_INIT_ALL(fname, name, ndv, dnames, indg, myThid) |
./pkg/mnc/mnc_file.F |
736 |
MNC_FILE_TRY_READ |
& 'mnc_v_names', indv,myThid) |
./pkg/mnc/mnc_file.F |
83 |
MNC_FILE_OPEN |
CALL MNC_HANDLE_ERR(err, msgbuf, myThid) |
./pkg/mnc/mnc_file.F |
88 |
MNC_FILE_OPEN |
CALL MNC_FILE_READALL(fname, myThid) |
./pkg/mnc/mnc_file.F |
99 |
MNC_FILE_OPEN |
& 'mnc_f_names', indf, myThid) |
./pkg/mnc/mnc_grid.F |
116 |
MNC_GRID_INIT_ALL |
CALL MNC_FILE_REDEF(fname, myThid) |
./pkg/mnc/mnc_grid.F |
169 |
MNC_GRID_INIT_ALL |
& 'mnc_g_names', indg, myThid) |
./pkg/mnc/mnc_grid.F |
16 |
MNC_GRID_INIT |
I myThid ) |
./pkg/mnc/mnc_grid.F |
226 |
MNC_GRID_GET_DIMIND |
I myThid ) |
./pkg/mnc/mnc_grid.F |
236 |
MNC_GRID_GET_DIMIND |
integer indf, ind_fg_ids, myThid |
./pkg/mnc/mnc_grid.F |
25 |
MNC_GRID_INIT |
integer myThid, ndim |
./pkg/mnc/mnc_grid.F |
33 |
MNC_GRID_INIT |
CALL MNC_GRID_INIT_ALL(fname, gname, ndim, dnames, ind, myThid) |
./pkg/mnc/mnc_grid.F |
49 |
MNC_GRID_INIT_ALL |
I myThid ) |
./pkg/mnc/mnc_grid.F |
66 |
MNC_GRID_INIT_ALL |
integer myThid, ndim, ind |
./pkg/mnc/mnc_grid.F |
88 |
MNC_GRID_INIT_ALL |
CALL MNC_GET_IND(MNC_MAX_FID,file_name,mnc_f_names,indf,myThid) |
./pkg/mnc/mnc_init.F |
11 |
MNC_INIT |
SUBROUTINE MNC_INIT( myThid ) |
./pkg/mnc/mnc_init.F |
27 |
MNC_INIT |
integer myThid |
./pkg/mnc/mnc_readparms.F |
119 |
MNC_READPARMS |
& ku, myThid ) |
./pkg/mnc/mnc_readparms.F |
154 |
MNC_READPARMS |
CALL MNC_SET_OUTDIR(myThid) |
./pkg/mnc/mnc_readparms.F |
16 |
MNC_READPARMS |
SUBROUTINE MNC_READPARMS( myThid ) |
./pkg/mnc/mnc_readparms.F |
172 |
MNC_SET_OUTDIR |
SUBROUTINE MNC_SET_OUTDIR( myThid ) |
./pkg/mnc/mnc_readparms.F |
186 |
MNC_SET_OUTDIR |
integer myThid |
./pkg/mnc/mnc_readparms.F |
33 |
MNC_READPARMS |
integer myThid |
./pkg/mnc/mnc_readparms.F |
58 |
MNC_READPARMS |
_BEGIN_MASTER( myThid ) |
./pkg/mnc/mnc_readparms.F |
62 |
MNC_READPARMS |
& SQUEEZE_RIGHT , myThid ) |
./pkg/mnc/mnc_readparms.F |
66 |
MNC_READPARMS |
& SQUEEZE_RIGHT , myThid ) |
./pkg/mnc/mnc_readparms.F |
68 |
MNC_READPARMS |
_END_MASTER( myThid ) |
./pkg/mnc/mnc_utils.F |
107 |
MNC_GET_IND |
CALL PRINT_ERROR(msgbuf(1:lenm), myThid) |
./pkg/mnc/mnc_utils.F |
136 |
MNC_GET_NEXT_EMPTY_IND |
I myThid ) |
./pkg/mnc/mnc_utils.F |
146 |
MNC_GET_NEXT_EMPTY_IND |
integer myThid, nt |
./pkg/mnc/mnc_utils.F |
172 |
MNC_GET_NEXT_EMPTY_IND |
CALL PRINT_ERROR( msgbuf, myThid ) |
./pkg/mnc/mnc_utils.F |
177 |
MNC_GET_NEXT_EMPTY_IND |
CALL PRINT_ERROR( msgbuf, myThid ) |
./pkg/mnc/mnc_utils.F |
194 |
MNC_GET_FVINDS |
I myThid ) |
./pkg/mnc/mnc_utils.F |
205 |
MNC_GET_FVINDS |
INTEGER myThid, fid, indf, ind_fv_ids |
./pkg/mnc/mnc_utils.F |
20 |
MNC_HANDLE_ERR |
SUBROUTINE MNC_HANDLE_ERR( status, msg, myThid ) |
./pkg/mnc/mnc_utils.F |
220 |
MNC_GET_FVINDS |
CALL MNC_GET_IND(MNC_MAX_FID, fname, mnc_f_names, indf, myThid) |
./pkg/mnc/mnc_utils.F |
262 |
MNC_CHK_VTYP_R_NCVAR |
I myThid ) |
./pkg/mnc/mnc_utils.F |
269 |
MNC_CHK_VTYP_R_NCVAR |
INTEGER myThid, ind_vt, indf, ind_fv_ids, indu, ires |
./pkg/mnc/mnc_utils.F |
302 |
MNC_CHK_VTYP_R_NCVAR |
CALL PRINT_ERROR(msgbuf, myThid) |
./pkg/mnc/mnc_utils.F |
315 |
MNC_CHK_VTYP_R_NCVAR |
CALL PRINT_ERROR(msgbuf, myThid) |
./pkg/mnc/mnc_utils.F |
35 |
MNC_HANDLE_ERR |
INTEGER myThid, status |
./pkg/mnc/mnc_utils.F |
79 |
MNC_GET_IND |
I myThid ) |
./pkg/mnc/mnc_utils.F |
89 |
MNC_GET_IND |
integer myThid, nt |
./pkg/mnc/mnc_var.F |
104 |
MNC_VAR_INIT_INT |
INTEGER irv,myThid |
./pkg/mnc/mnc_var.F |
107 |
MNC_VAR_INIT_INT |
CALL MNC_VAR_INIT_ANY( fname,gname,vname, NF_INT, irv,myThid ) |
./pkg/mnc/mnc_var.F |
123 |
MNC_VAR_INIT_ANY |
I myThid ) |
./pkg/mnc/mnc_var.F |
137 |
MNC_VAR_INIT_ANY |
INTEGER irv,myThid |
./pkg/mnc/mnc_var.F |
157 |
MNC_VAR_INIT_ANY |
CALL MNC_GET_IND(MNC_MAX_FID, fname, mnc_f_names, indf, myThid) |
./pkg/mnc/mnc_var.F |
162 |
MNC_VAR_INIT_ANY |
CALL PRINT_ERROR(msgBuf, myThid) |
./pkg/mnc/mnc_var.F |
173 |
MNC_VAR_INIT_ANY |
CALL PRINT_ERROR(msgBuf, myThid) |
./pkg/mnc/mnc_var.F |
182 |
MNC_VAR_INIT_ANY |
CALL PRINT_ERROR(msgBuf, myThid) |
./pkg/mnc/mnc_var.F |
204 |
MNC_VAR_INIT_ANY |
CALL PRINT_ERROR(msgBuf, myThid) |
./pkg/mnc/mnc_var.F |
218 |
MNC_VAR_INIT_ANY |
CALL PRINT_ERROR(msgBuf, myThid) |
./pkg/mnc/mnc_var.F |
231 |
MNC_VAR_INIT_ANY |
CALL MNC_FILE_REDEF(fname, myThid) |
./pkg/mnc/mnc_var.F |
236 |
MNC_VAR_INIT_ANY |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mnc/mnc_var.F |
239 |
MNC_VAR_INIT_ANY |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mnc/mnc_var.F |
242 |
MNC_VAR_INIT_ANY |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mnc/mnc_var.F |
245 |
MNC_VAR_INIT_ANY |
CALL MNC_HANDLE_ERR(err, msgBuf, myThid) |
./pkg/mnc/mnc_var.F |
250 |
MNC_VAR_INIT_ANY |
& indv, myThid) |
./pkg/mnc/mnc_var.F |
272 |
MNC_VAR_ADD_ATTR_STR |
I myThid ) |
./pkg/mnc/mnc_var.F |
282 |
MNC_VAR_ADD_ATTR_STR |
INTEGER myThid |
./pkg/mnc/mnc_var.F |
292 |
MNC_VAR_ADD_ATTR_STR |
& 1, sval, 0, dZero, sZero, iZero, myThid ) |
./pkg/mnc/mnc_var.F |
307 |
MNC_VAR_ADD_ATTR_DBL |
I myThid ) |
./pkg/mnc/mnc_var.F |
319 |
MNC_VAR_ADD_ATTR_DBL |
INTEGER myThid |
./pkg/mnc/mnc_var.F |
327 |
MNC_VAR_ADD_ATTR_DBL |
& 2, ' ', nv, dval, sZero, iZero, myThid ) |
./pkg/mnc/mnc_var.F |
343 |
MNC_VAR_ADD_ATTR_REAL |
I myThid ) |
./pkg/mnc/mnc_var.F |
355 |
MNC_VAR_ADD_ATTR_REAL |
INTEGER myThid |
./pkg/mnc/mnc_var.F |
35 |
MNC_VAR_INIT_DBL |
I myThid ) |
./pkg/mnc/mnc_var.F |
363 |
MNC_VAR_ADD_ATTR_REAL |
& 3, ' ', nv, dZero, rval, iZero, myThid ) |
./pkg/mnc/mnc_var.F |
378 |
MNC_VAR_ADD_ATTR_INT |
I myThid ) |
./pkg/mnc/mnc_var.F |
390 |
MNC_VAR_ADD_ATTR_INT |
INTEGER myThid |
./pkg/mnc/mnc_var.F |
398 |
MNC_VAR_ADD_ATTR_INT |
& 4, ' ', nv, dZero, sZero, ival, myThid ) |
./pkg/mnc/mnc_var.F |
413 |
MNC_VAR_ADD_ATTR_ANY |
I myThid ) |
./pkg/mnc/mnc_var.F |
432 |
MNC_VAR_ADD_ATTR_ANY |
INTEGER myThid |
./pkg/mnc/mnc_var.F |
450 |
MNC_VAR_ADD_ATTR_ANY |
CALL MNC_GET_FVINDS(fname, vname, indf, ind_fv_ids, myThid) |
./pkg/mnc/mnc_var.F |
455 |
MNC_VAR_ADD_ATTR_ANY |
CALL PRINT_ERROR(msgBuf, myThid) |
./pkg/mnc/mnc_var.F |
462 |
MNC_VAR_ADD_ATTR_ANY |
CALL MNC_FILE_REDEF(fname, myThid) |
./pkg/mnc/mnc_var.F |
46 |
MNC_VAR_INIT_DBL |
INTEGER irv,myThid |
./pkg/mnc/mnc_var.F |
475 |
MNC_VAR_ADD_ATTR_ANY |
CALL PRINT_ERROR(msgBuf(1:n), myThid) |
./pkg/mnc/mnc_var.F |
480 |
MNC_VAR_ADD_ATTR_ANY |
CALL MNC_HANDLE_ERR(err, msgBuf, myThid) |
./pkg/mnc/mnc_var.F |
491 |
MNC_VAR_WRITE_DBL |
I myThid ) |
./pkg/mnc/mnc_var.F |
497 |
MNC_VAR_WRITE_DBL |
INTEGER myThid |
./pkg/mnc/mnc_var.F |
49 |
MNC_VAR_INIT_DBL |
CALL MNC_VAR_INIT_ANY( fname,gname,vname, NF_DOUBLE, irv,myThid ) |
./pkg/mnc/mnc_var.F |
507 |
MNC_VAR_WRITE_DBL |
& var, dummyR4, dummyI, myThid ) |
./pkg/mnc/mnc_var.F |
518 |
MNC_VAR_WRITE_REAL |
I myThid ) |
./pkg/mnc/mnc_var.F |
524 |
MNC_VAR_WRITE_REAL |
INTEGER myThid |
./pkg/mnc/mnc_var.F |
534 |
MNC_VAR_WRITE_REAL |
& dummyR8, var, dummyI, myThid ) |
./pkg/mnc/mnc_var.F |
545 |
MNC_VAR_WRITE_INT |
I myThid ) |
./pkg/mnc/mnc_var.F |
551 |
MNC_VAR_WRITE_INT |
INTEGER myThid |
./pkg/mnc/mnc_var.F |
561 |
MNC_VAR_WRITE_INT |
& dummyR8, dummyR4, var, myThid ) |
./pkg/mnc/mnc_var.F |
573 |
MNC_VAR_APPEND_DBL |
I myThid ) |
./pkg/mnc/mnc_var.F |
579 |
MNC_VAR_APPEND_DBL |
INTEGER append, myThid |
./pkg/mnc/mnc_var.F |
589 |
MNC_VAR_APPEND_DBL |
& var, dummyR4, dummyI, myThid ) |
./pkg/mnc/mnc_var.F |
601 |
MNC_VAR_APPEND_REAL |
I myThid ) |
./pkg/mnc/mnc_var.F |
607 |
MNC_VAR_APPEND_REAL |
INTEGER append, myThid |
./pkg/mnc/mnc_var.F |
617 |
MNC_VAR_APPEND_REAL |
& dummyR8, var, dummyI, myThid ) |
./pkg/mnc/mnc_var.F |
629 |
MNC_VAR_APPEND_INT |
I myThid ) |
./pkg/mnc/mnc_var.F |
635 |
MNC_VAR_APPEND_INT |
INTEGER append, myThid |
./pkg/mnc/mnc_var.F |
645 |
MNC_VAR_APPEND_INT |
& dummyR8, dummyR4, var, myThid ) |
./pkg/mnc/mnc_var.F |
64 |
MNC_VAR_INIT_REAL |
I myThid ) |
./pkg/mnc/mnc_var.F |
660 |
MNC_VAR_WRITE_ANY |
I myThid ) |
./pkg/mnc/mnc_var.F |
674 |
MNC_VAR_WRITE_ANY |
INTEGER myThid |
./pkg/mnc/mnc_var.F |
689 |
MNC_VAR_WRITE_ANY |
CALL MNC_GET_FVINDS(fname, vname, indf, ind_fv_ids, myThid) |
./pkg/mnc/mnc_var.F |
694 |
MNC_VAR_WRITE_ANY |
CALL PRINT_ERROR(msgBuf, myThid) |
./pkg/mnc/mnc_var.F |
717 |
MNC_VAR_WRITE_ANY |
CALL MNC_HANDLE_ERR(err, msgBuf, myThid) |
./pkg/mnc/mnc_var.F |
726 |
MNC_VAR_WRITE_ANY |
CALL MNC_FILE_ENDDEF(fname, myThid) |
./pkg/mnc/mnc_var.F |
737 |
MNC_VAR_WRITE_ANY |
CALL PRINT_ERROR(msgBuf(1:n), myThid) |
./pkg/mnc/mnc_var.F |
742 |
MNC_VAR_WRITE_ANY |
CALL MNC_HANDLE_ERR(err, msgBuf, myThid) |
./pkg/mnc/mnc_var.F |
75 |
MNC_VAR_INIT_REAL |
INTEGER irv,myThid |
./pkg/mnc/mnc_var.F |
78 |
MNC_VAR_INIT_REAL |
CALL MNC_VAR_INIT_ANY( fname,gname,vname, NF_FLOAT, irv,myThid ) |
./pkg/mnc/mnc_var.F |
93 |
MNC_VAR_INIT_INT |
I myThid ) |
./model/src/calc_diffusivity.F |
114 |
CALC_DIFFUSIVITY |
I myThid) |
./model/src/calc_diffusivity.F |
118 |
CALC_DIFFUSIVITY |
I myThid) |
./model/src/calc_diffusivity.F |
128 |
CALC_DIFFUSIVITY |
I GAD_TEMPERATURE,myThid) |
./model/src/calc_diffusivity.F |
132 |
CALC_DIFFUSIVITY |
I GAD_SALINITY,myThid) |
./model/src/calc_diffusivity.F |
142 |
CALC_DIFFUSIVITY |
I myThid) |
./model/src/calc_diffusivity.F |
146 |
CALC_DIFFUSIVITY |
I myThid) |
./model/src/calc_diffusivity.F |
14 |
CALC_DIFFUSIVITY |
I myThid) |
./model/src/calc_diffusivity.F |
155 |
CALC_DIFFUSIVITY |
I myThid) |
./model/src/calc_diffusivity.F |
159 |
CALC_DIFFUSIVITY |
I myThid) |
./model/src/calc_diffusivity.F |
168 |
CALC_DIFFUSIVITY |
I myThid) |
./model/src/calc_diffusivity.F |
172 |
CALC_DIFFUSIVITY |
I myThid) |
./model/src/calc_diffusivity.F |
53 |
CALC_DIFFUSIVITY |
INTEGER myThid |
./pkg/mom_common/mom_calc_absvort3.F |
10 |
MOM_CALC_ABSVORT3 |
I myThid) |
./pkg/mom_common/mom_calc_absvort3.F |
27 |
MOM_CALC_ABSVORT3 |
INTEGER myThid |
./pkg/mom_common/mom_calc_hdiv.F |
10 |
MOM_CALC_HDIV |
I myThid) |
./pkg/mom_common/mom_calc_hdiv.F |
28 |
MOM_CALC_HDIV |
INTEGER myThid |
./pkg/mom_common/mom_calc_hfacz.F |
13 |
MOM_CALC_HFACZ |
I myThid) |
./pkg/mom_common/mom_calc_hfacz.F |
40 |
MOM_CALC_HFACZ |
INTEGER myThid |
./pkg/mom_common/mom_calc_hfacz.F |
81 |
MOM_CALC_HFACZ |
act1 = bi - myBxLo(myThid) |
./pkg/mom_common/mom_calc_hfacz.F |
82 |
MOM_CALC_HFACZ |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
./pkg/mom_common/mom_calc_hfacz.F |
83 |
MOM_CALC_HFACZ |
act2 = bj - myByLo(myThid) |
./pkg/mom_common/mom_calc_hfacz.F |
84 |
MOM_CALC_HFACZ |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
./pkg/mom_common/mom_calc_hfacz.F |
85 |
MOM_CALC_HFACZ |
act3 = myThid - 1 |
./pkg/mom_common/mom_calc_ke.F |
14 |
MOM_CALC_KE |
I myThid) |
./pkg/mom_common/mom_calc_ke.F |
39 |
MOM_CALC_KE |
INTEGER myThid |
./pkg/mom_common/mom_calc_relvort3.F |
11 |
MOM_CALC_RELVORT3 |
I myThid) |
./pkg/mom_common/mom_calc_relvort3.F |
34 |
MOM_CALC_RELVORT3 |
INTEGER myThid |
./pkg/mom_common/mom_calc_strain.F |
14 |
MOM_CALC_STRAIN |
I myThid) |
./pkg/mom_common/mom_calc_strain.F |
42 |
MOM_CALC_STRAIN |
INTEGER myThid |
./pkg/mom_common/mom_calc_tension.F |
14 |
MOM_CALC_TENSION |
I myThid) |
./pkg/mom_common/mom_calc_tension.F |
38 |
MOM_CALC_TENSION |
INTEGER myThid |
./pkg/mom_common/mom_calc_visc.F |
101 |
MOM_CALC_VISC |
INTEGER myThid |
./pkg/mom_common/mom_calc_visc.F |
12 |
MOM_CALC_VISC |
I myThid) |
./pkg/mom_common/mom_calc_visc.F |
146 |
MOM_CALC_VISC |
act1 = bi - myBxLo(myThid) |
./pkg/mom_common/mom_calc_visc.F |
147 |
MOM_CALC_VISC |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
./pkg/mom_common/mom_calc_visc.F |
148 |
MOM_CALC_VISC |
act2 = bj - myByLo(myThid) |
./pkg/mom_common/mom_calc_visc.F |
149 |
MOM_CALC_VISC |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
./pkg/mom_common/mom_calc_visc.F |
150 |
MOM_CALC_VISC |
act3 = myThid - 1 |
./pkg/mom_common/mom_calc_visc.F |
304 |
MOM_CALC_VISC |
& hDiv, bi,bj, myThid ) |
./pkg/mom_common/mom_calc_visc.F |
318 |
MOM_CALC_VISC |
& hDiv, bi,bj, myThid ) |
./pkg/mom_common/mom_calc_visc.F |
616 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_D,'VISCAHD ',k,1,2,bi,bj,myThid) |
./pkg/mom_common/mom_calc_visc.F |
617 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_D,'VISCA4D ',k,1,2,bi,bj,myThid) |
./pkg/mom_common/mom_calc_visc.F |
618 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_Z,'VISCAHZ ',k,1,2,bi,bj,myThid) |
./pkg/mom_common/mom_calc_visc.F |
619 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_Z,'VISCA4Z ',k,1,2,bi,bj,myThid) |
./pkg/mom_common/mom_calc_visc.F |
621 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_DMax,'VAHDMAX ',k,1,2,bi,bj,myThid) |
./pkg/mom_common/mom_calc_visc.F |
622 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_DMax,'VA4DMAX ',k,1,2,bi,bj,myThid) |
./pkg/mom_common/mom_calc_visc.F |
623 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_ZMax,'VAHZMAX ',k,1,2,bi,bj,myThid) |
./pkg/mom_common/mom_calc_visc.F |
624 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_ZMax,'VA4ZMAX ',k,1,2,bi,bj,myThid) |
./pkg/mom_common/mom_calc_visc.F |
626 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_DMin,'VAHDMIN ',k,1,2,bi,bj,myThid) |
./pkg/mom_common/mom_calc_visc.F |
627 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_DMin,'VA4DMIN ',k,1,2,bi,bj,myThid) |
./pkg/mom_common/mom_calc_visc.F |
628 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_ZMin,'VAHZMIN ',k,1,2,bi,bj,myThid) |
./pkg/mom_common/mom_calc_visc.F |
629 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_ZMin,'VA4ZMIN ',k,1,2,bi,bj,myThid) |
./pkg/mom_common/mom_calc_visc.F |
631 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_DLth,'VAHDLTH ',k,1,2,bi,bj,myThid) |
./pkg/mom_common/mom_calc_visc.F |
632 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_DLth,'VA4DLTH ',k,1,2,bi,bj,myThid) |
./pkg/mom_common/mom_calc_visc.F |
633 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_ZLth,'VAHZLTH ',k,1,2,bi,bj,myThid) |
./pkg/mom_common/mom_calc_visc.F |
634 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_ZLth,'VA4ZLTH ',k,1,2,bi,bj,myThid) |
./pkg/mom_common/mom_calc_visc.F |
637 |
MOM_CALC_VISC |
& ,k,1,2,bi,bj,myThid) |
./pkg/mom_common/mom_calc_visc.F |
639 |
MOM_CALC_VISC |
& ,k,1,2,bi,bj,myThid) |
./pkg/mom_common/mom_calc_visc.F |
641 |
MOM_CALC_VISC |
& ,k,1,2,bi,bj,myThid) |
./pkg/mom_common/mom_calc_visc.F |
643 |
MOM_CALC_VISC |
& ,k,1,2,bi,bj,myThid) |
./pkg/mom_common/mom_calc_visc.F |
645 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_DSmg,'VAHDSMAG',k,1,2,bi,bj,myThid) |
./pkg/mom_common/mom_calc_visc.F |
646 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_DSmg,'VA4DSMAG',k,1,2,bi,bj,myThid) |
./pkg/mom_common/mom_calc_visc.F |
647 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_ZSmg,'VAHZSMAG',k,1,2,bi,bj,myThid) |
./pkg/mom_common/mom_calc_visc.F |
648 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscA4_ZSmg,'VA4ZSMAG',k,1,2,bi,bj,myThid) |
./pkg/mom_common/mom_diagnostics_init.F |
101 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
108 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
115 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
122 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
129 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
136 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
143 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
150 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
157 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
164 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
171 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
178 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
185 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
192 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
199 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
206 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
213 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
220 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
227 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
236 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
244 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
251 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
258 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
25 |
MOM_DIAGNOSTICS_INIT |
INTEGER myThid |
./pkg/mom_common/mom_diagnostics_init.F |
265 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
276 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
282 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
288 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
294 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
301 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
307 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
314 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
320 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
327 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
333 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
340 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
346 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
353 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
359 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
367 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
373 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
381 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
388 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
403 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
409 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
415 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
432 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
438 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
444 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
460 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
466 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
472 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
488 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
494 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
500 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
507 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
516 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
522 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
528 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
52 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
535 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
59 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
66 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
73 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
80 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
87 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
94 |
MOM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/mom_common/mom_diagnostics_init.F |
9 |
MOM_DIAGNOSTICS_INIT |
SUBROUTINE MOM_DIAGNOSTICS_INIT( myThid ) |
./model/src/calc_div_ghat.F |
12 |
CALC_DIV_GHAT |
I myThid) |
./model/src/calc_div_ghat.F |
48 |
CALC_DIV_GHAT |
INTEGER myThid |
./pkg/mom_common/mom_hdissip.F |
13 |
MOM_HDISSIP |
I myThid) |
./pkg/mom_common/mom_hdissip.F |
42 |
MOM_HDISSIP |
INTEGER myThid |
./pkg/mom_common/mom_init_fixed.F |
115 |
MOM_INIT_FIXED |
DO bj=myByLo(myThid), myByHi(myThid) |
./pkg/mom_common/mom_init_fixed.F |
116 |
MOM_INIT_FIXED |
DO bi=myBxLo(myThid), myBxHi(myThid) |
./pkg/mom_common/mom_init_fixed.F |
11 |
MOM_INIT_FIXED |
SUBROUTINE MOM_INIT_FIXED( myThid ) |
./pkg/mom_common/mom_init_fixed.F |
145 |
MOM_INIT_FIXED |
CALL READ_FLD_XYZ_RL(viscAhDfile,' ',viscAhDfld,0,myThid) |
./pkg/mom_common/mom_init_fixed.F |
146 |
MOM_INIT_FIXED |
CALL EXCH_3D_RL( viscAhDfld, Nr, myThid ) |
./pkg/mom_common/mom_init_fixed.F |
149 |
MOM_INIT_FIXED |
CALL READ_FLD_XYZ_RL(viscAhZfile,' ',viscAhZfld,0,myThid) |
./pkg/mom_common/mom_init_fixed.F |
150 |
MOM_INIT_FIXED |
CALL EXCH_Z_3D_RL( viscAhZfld, Nr, myThid ) |
./pkg/mom_common/mom_init_fixed.F |
155 |
MOM_INIT_FIXED |
CALL READ_FLD_XYZ_RL(viscA4Dfile,' ',viscA4Dfld,0,myThid) |
./pkg/mom_common/mom_init_fixed.F |
156 |
MOM_INIT_FIXED |
CALL EXCH_3D_RL( viscA4Dfld, Nr, myThid ) |
./pkg/mom_common/mom_init_fixed.F |
159 |
MOM_INIT_FIXED |
CALL READ_FLD_XYZ_RL(viscA4Zfile,' ',viscA4Zfld,0,myThid) |
./pkg/mom_common/mom_init_fixed.F |
160 |
MOM_INIT_FIXED |
CALL EXCH_Z_3D_RL( viscA4Zfld, Nr, myThid ) |
./pkg/mom_common/mom_init_fixed.F |
166 |
MOM_INIT_FIXED |
CALL MOM_DIAGNOSTICS_INIT( myThid ) |
./pkg/mom_common/mom_init_fixed.F |
31 |
MOM_INIT_FIXED |
INTEGER myThid |
./pkg/mom_common/mom_init_fixed.F |
45 |
MOM_INIT_FIXED |
DO bj=myByLo(myThid), myByHi(myThid) |
./pkg/mom_common/mom_init_fixed.F |
46 |
MOM_INIT_FIXED |
DO bi=myBxLo(myThid), myBxHi(myThid) |
./pkg/mom_common/mom_init_fixed.F |
61 |
MOM_INIT_FIXED |
DO bj=myByLo(myThid), myByHi(myThid) |
./pkg/mom_common/mom_init_fixed.F |
62 |
MOM_INIT_FIXED |
DO bi=myBxLo(myThid), myBxHi(myThid) |
./pkg/mom_common/mom_init_fixed.F |
87 |
MOM_INIT_FIXED |
DO bj=myByLo(myThid), myByHi(myThid) |
./pkg/mom_common/mom_init_fixed.F |
88 |
MOM_INIT_FIXED |
DO bi=myBxLo(myThid), myBxHi(myThid) |
./pkg/mom_common/mom_quasihydrostatic.F |
14 |
MOM_QUASIHYDROSTATIC |
I myThid ) |
./pkg/mom_common/mom_quasihydrostatic.F |
41 |
MOM_QUASIHYDROSTATIC |
INTEGER myThid |
./pkg/mom_common/mom_u_bottomdrag.F |
101 |
MOM_U_BOTTOMDRAG |
CALL DIAGNOSTICS_FILL(uDragTerms,'UBotDrag',k,1,2,bi,bj,myThid) |
./pkg/mom_common/mom_u_bottomdrag.F |
14 |
MOM_U_BOTTOMDRAG |
I myThid) |
./pkg/mom_common/mom_u_bottomdrag.F |
43 |
MOM_U_BOTTOMDRAG |
INTEGER myThid |
./pkg/mom_common/mom_u_coriolis_nh.F |
13 |
MOM_U_CORIOLIS_NH |
I myThid ) |
./pkg/mom_common/mom_u_coriolis_nh.F |
36 |
MOM_U_CORIOLIS_NH |
INTEGER myThid |
./pkg/mom_common/mom_u_implicit_r.F |
11 |
MOM_U_IMPLICIT_R |
I bi, bj, myTime, myIter, myThid ) |
./pkg/mom_common/mom_u_implicit_r.F |
190 |
MOM_U_IMPLICIT_R |
I bi, bj, myThid ) |
./pkg/mom_common/mom_u_implicit_r.F |
202 |
MOM_U_IMPLICIT_R |
IF ( DIAGNOSTICS_IS_ON(diagName,myThid) ) THEN |
./pkg/mom_common/mom_u_implicit_r.F |
223 |
MOM_U_IMPLICIT_R |
CALL DIAGNOSTICS_FILL(vf,diagName, k,1, 2,bi,bj, myThid) |
./pkg/mom_common/mom_u_implicit_r.F |
35 |
MOM_U_IMPLICIT_R |
INTEGER myIter, myThid |
./pkg/mom_common/mom_u_metric_nh.F |
14 |
MOM_U_METRIC_NH |
I myThid ) |
./pkg/mom_common/mom_u_metric_nh.F |
38 |
MOM_U_METRIC_NH |
INTEGER myThid |
./pkg/mom_common/mom_u_rviscflux.F |
14 |
MOM_U_RVISCFLUX |
I myThid) |
./pkg/mom_common/mom_u_rviscflux.F |
39 |
MOM_U_RVISCFLUX |
INTEGER myThid |
./pkg/mom_common/mom_u_sidedrag.F |
161 |
MOM_U_SIDEDRAG |
CALL DIAGNOSTICS_FILL(uDragTerms,'USidDrag',k,1,2,bi,bj,myThid) |
./pkg/mom_common/mom_u_sidedrag.F |
16 |
MOM_U_SIDEDRAG |
I myThid) |
./pkg/mom_common/mom_u_sidedrag.F |
46 |
MOM_U_SIDEDRAG |
INTEGER myThid |
./pkg/mom_common/mom_v_bottomdrag.F |
108 |
MOM_V_BOTTOMDRAG |
CALL DIAGNOSTICS_FILL(vDragTerms,'VBotDrag',k,1,2,bi,bj,myThid) |
./pkg/mom_common/mom_v_bottomdrag.F |
21 |
MOM_V_BOTTOMDRAG |
I myThid) |
./pkg/mom_common/mom_v_bottomdrag.F |
50 |
MOM_V_BOTTOMDRAG |
INTEGER myThid |
./model/src/calc_grad_phi_hyd.F |
119 |
CALC_GRAD_PHI_HYD |
CALL PRINT_ERROR( msgBuf , myThid) |
./model/src/calc_grad_phi_hyd.F |
13 |
CALC_GRAD_PHI_HYD |
I myTime, myIter, myThid) |
./model/src/calc_grad_phi_hyd.F |
52 |
CALC_GRAD_PHI_HYD |
INTEGER myIter, myThid |
./pkg/mom_common/mom_v_coriolis_nh.F |
13 |
MOM_V_CORIOLIS_NH |
I myThid ) |
./pkg/mom_common/mom_v_coriolis_nh.F |
36 |
MOM_V_CORIOLIS_NH |
INTEGER myThid |
./pkg/mom_common/mom_v_implicit_r.F |
11 |
MOM_V_IMPLICIT_R |
I bi, bj, myTime, myIter, myThid ) |
./pkg/mom_common/mom_v_implicit_r.F |
190 |
MOM_V_IMPLICIT_R |
I bi, bj, myThid ) |
./pkg/mom_common/mom_v_implicit_r.F |
202 |
MOM_V_IMPLICIT_R |
IF ( DIAGNOSTICS_IS_ON(diagName,myThid) ) THEN |
./pkg/mom_common/mom_v_implicit_r.F |
223 |
MOM_V_IMPLICIT_R |
CALL DIAGNOSTICS_FILL(vf,diagName, k,1, 2,bi,bj, myThid) |
./pkg/mom_common/mom_v_implicit_r.F |
35 |
MOM_V_IMPLICIT_R |
INTEGER myIter, myThid |
./pkg/mom_common/mom_v_metric_nh.F |
14 |
MOM_V_METRIC_NH |
I myThid ) |
./pkg/mom_common/mom_v_metric_nh.F |
38 |
MOM_V_METRIC_NH |
INTEGER myThid |
./pkg/mom_common/mom_v_rviscflux.F |
14 |
MOM_V_RVISCFLUX |
I myThid) |
./pkg/mom_common/mom_v_rviscflux.F |
39 |
MOM_V_RVISCFLUX |
INTEGER myThid |
./pkg/mom_common/mom_v_sidedrag.F |
148 |
MOM_V_SIDEDRAG |
CALL DIAGNOSTICS_FILL(vDragTerms,'VSidDrag',k,1,2,bi,bj,myThid) |
./pkg/mom_common/mom_v_sidedrag.F |
16 |
MOM_V_SIDEDRAG |
I myThid) |
./pkg/mom_common/mom_v_sidedrag.F |
46 |
MOM_V_SIDEDRAG |
INTEGER myThid |
./pkg/mom_common/mom_w_coriolis_nh.F |
14 |
MOM_W_CORIOLIS_NH |
I myThid ) |
./pkg/mom_common/mom_w_coriolis_nh.F |
38 |
MOM_W_CORIOLIS_NH |
INTEGER myThid |
./pkg/mom_common/mom_w_metric_nh.F |
14 |
MOM_W_METRIC_NH |
I myThid ) |
./pkg/mom_common/mom_w_metric_nh.F |
38 |
MOM_W_METRIC_NH |
INTEGER myThid |
./pkg/mom_common/mom_w_sidedrag.F |
136 |
MOM_W_SIDEDRAG |
CALL DIAGNOSTICS_FILL(gwSideDrag,'WSidDrag',k,1,2,bi,bj,myThid) |
./pkg/mom_common/mom_w_sidedrag.F |
16 |
MOM_W_SIDEDRAG |
I myThid) |
./pkg/mom_common/mom_w_sidedrag.F |
49 |
MOM_W_SIDEDRAG |
INTEGER myThid |
./model/src/calc_grad_phi_surf.F |
12 |
CALC_GRAD_PHI_SURF |
I myThid ) |
./model/src/calc_grad_phi_surf.F |
40 |
CALC_GRAD_PHI_SURF |
INTEGER myThid |
./pkg/mom_fluxform/mom_calc_rtrans.F |
12 |
MOM_CALC_RTRANS |
I myTime, myIter, myThid) |
./pkg/mom_fluxform/mom_calc_rtrans.F |
47 |
MOM_CALC_RTRANS |
INTEGER k, bi, bj, myIter, myThid |
./pkg/mom_fluxform/mom_fluxform.F |
170 |
MOM_FLUXFORM |
act1 = bi - myBxLo(myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
171 |
MOM_FLUXFORM |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
./pkg/mom_fluxform/mom_fluxform.F |
172 |
MOM_FLUXFORM |
act2 = bj - myByLo(myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
173 |
MOM_FLUXFORM |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
./pkg/mom_fluxform/mom_fluxform.F |
174 |
MOM_FLUXFORM |
act3 = myThid - 1 |
./pkg/mom_fluxform/mom_fluxform.F |
251 |
MOM_FLUXFORM |
CALL MOM_CALC_HFACZ(bi,bj,k,hFacZ,r_hFacZ,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
281 |
MOM_FLUXFORM |
CALL MOM_CALC_KE(bi,bj,k,2,uFld,vFld,KE,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
283 |
MOM_FLUXFORM |
CALL MOM_CALC_HDIV(bi,bj,k,2,uFld,vFld,hDiv,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
284 |
MOM_FLUXFORM |
CALL MOM_CALC_RELVORT3(bi,bj,k,uFld,vFld,hFacZ,vort3,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
285 |
MOM_FLUXFORM |
CALL MOM_CALC_TENSION(bi,bj,k,uFld,vFld,tension,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
286 |
MOM_FLUXFORM |
CALL MOM_CALC_STRAIN(bi,bj,k,uFld,vFld,hFacZ,strain,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
297 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(hDiv, 'momHDiv ',k,1,2,bi,bj,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
298 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(vort3, 'momVort3',k,1,2,bi,bj,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
299 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(tension,'Tension ',k,1,2,bi,bj,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
300 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(strain, 'Strain ',k,1,2,bi,bj,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
313 |
MOM_FLUXFORM |
I myTime, myIter, myThid ) |
./pkg/mom_fluxform/mom_fluxform.F |
332 |
MOM_FLUXFORM |
I myTime, myIter, myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
336 |
MOM_FLUXFORM |
O fVerU(1-OLx,1-OLy,kUp), myThid ) |
./pkg/mom_fluxform/mom_fluxform.F |
339 |
MOM_FLUXFORM |
O fVerV(1-OLx,1-OLy,kUp), myThid ) |
./pkg/mom_fluxform/mom_fluxform.F |
349 |
MOM_FLUXFORM |
I myTime, myIter, myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
358 |
MOM_FLUXFORM |
I myTime, myIter, myThid ) |
./pkg/mom_fluxform/mom_fluxform.F |
368 |
MOM_FLUXFORM |
I myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
380 |
MOM_FLUXFORM |
O fZon,myThid ) |
./pkg/mom_fluxform/mom_fluxform.F |
382 |
MOM_FLUXFORM |
O fMer,myThid ) |
./pkg/mom_fluxform/mom_fluxform.F |
385 |
MOM_FLUXFORM |
O fVerU(1-OLx,1-OLy,kDown), myThid ) |
./pkg/mom_fluxform/mom_fluxform.F |
389 |
MOM_FLUXFORM |
CALL MOM_U_ADV_UU(bi,bj,k,uTrans,uFld,fZon,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
393 |
MOM_FLUXFORM |
CALL MOM_U_ADV_VU(bi,bj,k,vTrans,uFld,fMer,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
399 |
MOM_FLUXFORM |
O fVerU(1-OLx,1-OLy,kDown), myThid ) |
./pkg/mom_fluxform/mom_fluxform.F |
39 |
MOM_FLUXFORM |
I myTime, myIter, myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
422 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fZon,'ADVx_Um ',k,1,2,bi,bj,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
423 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fMer,'ADVy_Um ',k,1,2,bi,bj,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
425 |
MOM_FLUXFORM |
& 'ADVrE_Um',k,1,2,bi,bj,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
468 |
MOM_FLUXFORM |
& CALL MOM_U_DEL2U(bi,bj,k,uFld,hFacZ,v4f,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
472 |
MOM_FLUXFORM |
I viscAh_D,viscA4_D,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
476 |
MOM_FLUXFORM |
I viscAh_Z,viscA4_Z,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
480 |
MOM_FLUXFORM |
CALL MOM_U_RVISCFLUX(bi,bj, k, uVel,KappaRU,fVrUp,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
481 |
MOM_FLUXFORM |
CALL MOM_U_RVISCFLUX(bi,bj,k+1,uVel,KappaRU,fVrDw,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
506 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fZon, 'VISCx_Um',k,1,2,bi,bj,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
507 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fMer, 'VISCy_Um',k,1,2,bi,bj,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
509 |
MOM_FLUXFORM |
& CALL DIAGNOSTICS_FILL(fVrUp,'VISrE_Um',k,1,2,bi,bj,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
522 |
MOM_FLUXFORM |
I myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
531 |
MOM_FLUXFORM |
CALL MOM_U_BOTTOMDRAG(bi,bj,k,uFld,KE,KappaRU,vF,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
541 |
MOM_FLUXFORM |
CALL SHELFICE_U_DRAG(bi,bj,k,uFld,KE,KappaRU,vF,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
562 |
MOM_FLUXFORM |
CALL MOM_U_METRIC_NH(bi,bj,k,uFld,wVel,mT,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
571 |
MOM_FLUXFORM |
CALL MOM_U_METRIC_SPHERE(bi,bj,k,uFld,vFld,mT,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
580 |
MOM_FLUXFORM |
CALL MOM_U_METRIC_CYLINDER(bi,bj,k,uFld,vFld,mT,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
596 |
MOM_FLUXFORM |
O fZon,myThid ) |
./pkg/mom_fluxform/mom_fluxform.F |
598 |
MOM_FLUXFORM |
O fMer,myThid ) |
./pkg/mom_fluxform/mom_fluxform.F |
601 |
MOM_FLUXFORM |
O fVerV(1-OLx,1-OLy,kDown), myThid ) |
./pkg/mom_fluxform/mom_fluxform.F |
605 |
MOM_FLUXFORM |
CALL MOM_V_ADV_UV(bi,bj,k,uTrans,vFld,fZon,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
609 |
MOM_FLUXFORM |
CALL MOM_V_ADV_VV(bi,bj,k,vTrans,vFld,fMer,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
615 |
MOM_FLUXFORM |
O fVerV(1-OLx,1-OLy,kDown), myThid ) |
./pkg/mom_fluxform/mom_fluxform.F |
638 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fZon,'ADVx_Vm ',k,1,2,bi,bj,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
639 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fMer,'ADVy_Vm ',k,1,2,bi,bj,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
641 |
MOM_FLUXFORM |
& 'ADVrE_Vm',k,1,2,bi,bj,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
683 |
MOM_FLUXFORM |
& CALL MOM_V_DEL2V(bi,bj,k,vFld,hFacZ,v4f,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
687 |
MOM_FLUXFORM |
I viscAh_Z,viscA4_Z,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
691 |
MOM_FLUXFORM |
I viscAh_D,viscA4_D,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
695 |
MOM_FLUXFORM |
CALL MOM_V_RVISCFLUX(bi,bj, k, vVel,KappaRV,fVrUp,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
696 |
MOM_FLUXFORM |
CALL MOM_V_RVISCFLUX(bi,bj,k+1,vVel,KappaRV,fVrDw,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
721 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fZon, 'VISCx_Vm',k,1,2,bi,bj,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
722 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(fMer, 'VISCy_Vm',k,1,2,bi,bj,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
724 |
MOM_FLUXFORM |
& CALL DIAGNOSTICS_FILL(fVrUp,'VISrE_Vm',k,1,2,bi,bj,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
737 |
MOM_FLUXFORM |
I myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
746 |
MOM_FLUXFORM |
CALL MOM_V_BOTTOMDRAG(bi,bj,k,vFld,KE,KappaRV,vF,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
756 |
MOM_FLUXFORM |
CALL SHELFICE_V_DRAG(bi,bj,k,vFld,KE,KappaRU,vF,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
777 |
MOM_FLUXFORM |
CALL MOM_V_METRIC_NH(bi,bj,k,vFld,wVel,mT,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
786 |
MOM_FLUXFORM |
CALL MOM_V_METRIC_SPHERE(bi,bj,k,uFld,mT,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
795 |
MOM_FLUXFORM |
CALL MOM_V_METRIC_CYLINDER(bi,bj,k,uFld,vFld,mT,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
811 |
MOM_FLUXFORM |
CALL MOM_U_CORIOLIS(bi,bj,k,vFld,cf,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
819 |
MOM_FLUXFORM |
& CALL DIAGNOSTICS_FILL(cf,'Um_Cori ',k,1,2,bi,bj,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
821 |
MOM_FLUXFORM |
CALL MOM_V_CORIOLIS(bi,bj,k,uFld,cf,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
829 |
MOM_FLUXFORM |
& CALL DIAGNOSTICS_FILL(cf,'Vm_Cori ',k,1,2,bi,bj,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
835 |
MOM_FLUXFORM |
CALL MOM_U_CORIOLIS_NH(bi,bj,k,wVel,cf,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
843 |
MOM_FLUXFORM |
CALL MOM_V_CORIOLIS_NH(bi,bj,k,wVel,cf,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
864 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(KE, 'momKE ',k,1,2,bi,bj,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
866 |
MOM_FLUXFORM |
& 'Um_Advec',k,1,2,bi,bj,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
868 |
MOM_FLUXFORM |
& 'Vm_Advec',k,1,2,bi,bj,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
86 |
MOM_FLUXFORM |
INTEGER myThid |
./pkg/mom_fluxform/mom_fluxform.F |
870 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(guDiss,'Um_Diss ',k,1,2,bi,bj,myThid) |
./pkg/mom_fluxform/mom_fluxform.F |
871 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(gvDiss,'Vm_Diss ',k,1,2,bi,bj,myThid) |
./pkg/mom_fluxform/mom_u_adv_uu.F |
14 |
MOM_U_ADV_UU |
I myThid) |
./pkg/mom_fluxform/mom_u_adv_uu.F |
38 |
MOM_U_ADV_UU |
INTEGER myThid |
./pkg/mom_fluxform/mom_u_adv_vu.F |
14 |
MOM_U_ADV_VU |
I myThid) |
./pkg/mom_fluxform/mom_u_adv_vu.F |
38 |
MOM_U_ADV_VU |
INTEGER myThid |
./pkg/mom_fluxform/mom_u_adv_wu.F |
14 |
MOM_U_ADV_WU |
I myThid ) |
./pkg/mom_fluxform/mom_u_adv_wu.F |
40 |
MOM_U_ADV_WU |
INTEGER myThid |
./pkg/mom_fluxform/mom_u_coriolis.F |
13 |
MOM_U_CORIOLIS |
I myThid) |
./pkg/mom_fluxform/mom_u_coriolis.F |
36 |
MOM_U_CORIOLIS |
INTEGER myThid |
./pkg/mom_fluxform/mom_u_del2u.F |
14 |
MOM_U_DEL2U |
I myThid) |
./pkg/mom_fluxform/mom_u_del2u.F |
35 |
MOM_U_DEL2U |
INTEGER myThid |
./pkg/mom_fluxform/mom_u_metric_cylinder.F |
14 |
MOM_U_METRIC_CYLINDER |
I myThid) |
./pkg/mom_fluxform/mom_u_metric_cylinder.F |
38 |
MOM_U_METRIC_CYLINDER |
INTEGER myThid |
./pkg/mom_fluxform/mom_u_metric_sphere.F |
14 |
MOM_U_METRIC_SPHERE |
I myThid ) |
./pkg/mom_fluxform/mom_u_metric_sphere.F |
38 |
MOM_U_METRIC_SPHERE |
INTEGER myThid |
./pkg/mom_fluxform/mom_u_xviscflux.F |
15 |
MOM_U_XVISCFLUX |
I myThid ) |
./pkg/mom_fluxform/mom_u_xviscflux.F |
42 |
MOM_U_XVISCFLUX |
INTEGER myThid |
./model/src/calc_gs.F |
102 |
CALC_GS |
INTEGER myThid |
./model/src/calc_gs.F |
114 |
CALC_GS |
act1 = bi - myBxLo(myThid) |
./model/src/calc_gs.F |
115 |
CALC_GS |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
./model/src/calc_gs.F |
116 |
CALC_GS |
act2 = bj - myByLo(myThid) |
./model/src/calc_gs.F |
117 |
CALC_GS |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
./model/src/calc_gs.F |
118 |
CALC_GS |
act3 = myThid - 1 |
./model/src/calc_gs.F |
16 |
CALC_GS |
I myTime,myIter,myThid ) |
./model/src/calc_gs.F |
172 |
CALC_GS |
I myTime, myIter, myThid ) |
./model/src/calc_gs.F |
183 |
CALC_GS |
I myTime, myIter, myThid ) |
./model/src/calc_gs.F |
190 |
CALC_GS |
I myTime,myThid) |
./model/src/calc_gs.F |
197 |
CALC_GS |
I saltStartAB, iterNb, myThid ) |
./model/src/calc_gs.F |
202 |
CALC_GS |
I saltStartAB, iterNb, myThid ) |
./model/src/calc_gs.F |
210 |
CALC_GS |
I myTime,myThid) |
./model/src/calc_gs.F |
217 |
CALC_GS |
I myThid ) |
./model/src/calc_gs.F |
231 |
CALC_GS |
I myThid ) |
./model/src/calc_gs.F |
235 |
CALC_GS |
I myThid ) |
./model/src/calc_gs.F |
240 |
CALC_GS |
I myThid ) |
./pkg/mom_fluxform/mom_u_yviscflux.F |
15 |
MOM_U_YVISCFLUX |
I myThid ) |
./pkg/mom_fluxform/mom_u_yviscflux.F |
43 |
MOM_U_YVISCFLUX |
INTEGER myThid |
./pkg/mom_fluxform/mom_uv_boundary.F |
14 |
MOM_UV_BOUNDARY |
I myTime, myIter, myThid ) |
./pkg/mom_fluxform/mom_uv_boundary.F |
43 |
MOM_UV_BOUNDARY |
INTEGER myThid |
./pkg/mom_fluxform/mom_v_adv_uv.F |
14 |
MOM_V_ADV_UV |
I myThid) |
./pkg/mom_fluxform/mom_v_adv_uv.F |
38 |
MOM_V_ADV_UV |
INTEGER myThid |
./pkg/mom_fluxform/mom_v_adv_vv.F |
14 |
MOM_V_ADV_VV |
I myThid) |
./pkg/mom_fluxform/mom_v_adv_vv.F |
38 |
MOM_V_ADV_VV |
INTEGER myThid |
./pkg/mom_fluxform/mom_v_adv_wv.F |
15 |
MOM_V_ADV_WV |
I myThid) |
./pkg/mom_fluxform/mom_v_adv_wv.F |
41 |
MOM_V_ADV_WV |
INTEGER myThid |
./pkg/mom_fluxform/mom_v_coriolis.F |
13 |
MOM_V_CORIOLIS |
I myThid) |
./pkg/mom_fluxform/mom_v_coriolis.F |
36 |
MOM_V_CORIOLIS |
INTEGER myThid |
./pkg/mom_fluxform/mom_v_del2v.F |
14 |
MOM_V_DEL2V |
I myThid) |
./pkg/mom_fluxform/mom_v_del2v.F |
35 |
MOM_V_DEL2V |
INTEGER myThid |
./pkg/mom_fluxform/mom_v_metric_cylinder.F |
14 |
MOM_V_METRIC_CYLINDER |
I myThid) |
./pkg/mom_fluxform/mom_v_metric_cylinder.F |
38 |
MOM_V_METRIC_CYLINDER |
INTEGER myThid |
./pkg/mom_fluxform/mom_v_metric_sphere.F |
14 |
MOM_V_METRIC_SPHERE |
I myThid ) |
./pkg/mom_fluxform/mom_v_metric_sphere.F |
36 |
MOM_V_METRIC_SPHERE |
INTEGER myThid |
./pkg/mom_fluxform/mom_v_xviscflux.F |
15 |
MOM_V_XVISCFLUX |
I myThid ) |
./pkg/mom_fluxform/mom_v_xviscflux.F |
43 |
MOM_V_XVISCFLUX |
INTEGER myThid |
./model/src/calc_gt.F |
101 |
CALC_GT |
INTEGER myThid |
./model/src/calc_gt.F |
113 |
CALC_GT |
act1 = bi - myBxLo(myThid) |
./model/src/calc_gt.F |
114 |
CALC_GT |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
./model/src/calc_gt.F |
115 |
CALC_GT |
act2 = bj - myByLo(myThid) |
./model/src/calc_gt.F |
116 |
CALC_GT |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
./model/src/calc_gt.F |
117 |
CALC_GT |
act3 = myThid - 1 |
./model/src/calc_gt.F |
16 |
CALC_GT |
I myTime,myIter,myThid ) |
./model/src/calc_gt.F |
171 |
CALC_GT |
I myTime, myIter, myThid ) |
./model/src/calc_gt.F |
182 |
CALC_GT |
I myTime, myIter, myThid ) |
./model/src/calc_gt.F |
189 |
CALC_GT |
I myTime,myThid) |
./model/src/calc_gt.F |
196 |
CALC_GT |
I tempStartAB, iterNb, myThid ) |
./model/src/calc_gt.F |
201 |
CALC_GT |
I tempStartAB, iterNb, myThid ) |
./model/src/calc_gt.F |
209 |
CALC_GT |
I myTime,myThid) |
./model/src/calc_gt.F |
216 |
CALC_GT |
I myThid ) |
./model/src/calc_gt.F |
230 |
CALC_GT |
I myThid ) |
./model/src/calc_gt.F |
234 |
CALC_GT |
I myThid ) |
./model/src/calc_gt.F |
239 |
CALC_GT |
I myThid ) |
./pkg/mom_fluxform/mom_v_yviscflux.F |
15 |
MOM_V_YVISCFLUX |
I myThid ) |
./pkg/mom_fluxform/mom_v_yviscflux.F |
42 |
MOM_V_YVISCFLUX |
INTEGER myThid |
./pkg/mom_vecinv/mom_vecinv.F |
11 |
MOM_VECINV |
I myTime, myIter, myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
126 |
MOM_VECINV |
act1 = bi - myBxLo(myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
127 |
MOM_VECINV |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
./pkg/mom_vecinv/mom_vecinv.F |
128 |
MOM_VECINV |
act2 = bj - myByLo(myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
129 |
MOM_VECINV |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
./pkg/mom_vecinv/mom_vecinv.F |
130 |
MOM_VECINV |
act3 = myThid - 1 |
./pkg/mom_vecinv/mom_vecinv.F |
150 |
MOM_VECINV |
CALL MNC_CW_SET_UDIM('mom_vi', -1, myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
151 |
MOM_VECINV |
CALL MNC_CW_RL_W_S('D','mom_vi',0,0,'T',myTime,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
152 |
MOM_VECINV |
CALL MNC_CW_SET_UDIM('mom_vi', 0, myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
153 |
MOM_VECINV |
CALL MNC_CW_I_W_S('I','mom_vi',0,0,'iter',myIter,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
217 |
MOM_VECINV |
CALL MOM_CALC_HFACZ(bi,bj,k,hFacZ,r_hFacZ,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
231 |
MOM_VECINV |
CALL MOM_CALC_KE(bi,bj,k,selectKEscheme,uFld,vFld,KE,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
233 |
MOM_VECINV |
CALL MOM_CALC_RELVORT3(bi,bj,k,uFld,vFld,hFacZ,vort3,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
244 |
MOM_VECINV |
CALL MOM_CALC_HDIV(bi,bj,k,2,uFld,vFld,hDiv,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
246 |
MOM_VECINV |
CALL MOM_CALC_TENSION(bi,bj,k,uFld,vFld,tension,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
248 |
MOM_VECINV |
CALL MOM_CALC_STRAIN(bi,bj,k,uFld,vFld,hFacZ,strain,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
266 |
MOM_VECINV |
I myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
272 |
MOM_VECINV |
& myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
273 |
MOM_VECINV |
CALL MOM_CALC_HDIV(bi,bj,k,2,del2u,del2v,dStar,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
275 |
MOM_VECINV |
& del2u,del2v,hFacZ,zStar,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
281 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('Ds','I10',1,strain,bi,bj,k,myIter,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
286 |
MOM_VECINV |
& offsets, myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
292 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(strain, 'Strain ',k,1,2,bi,bj,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
311 |
MOM_VECINV |
I myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
319 |
MOM_VECINV |
& myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
333 |
MOM_VECINV |
CALL MOM_U_RVISCFLUX(bi,bj,k+1,uVel,KappaRU,vrF,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
364 |
MOM_VECINV |
I myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
373 |
MOM_VECINV |
CALL MOM_U_BOTTOMDRAG(bi,bj,k,uFld,KE,KappaRU,vF,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
382 |
MOM_VECINV |
CALL SHELFICE_U_DRAG(bi,bj,k,uFld,KE,KappaRU,vF,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
398 |
MOM_VECINV |
CALL MOM_V_RVISCFLUX(bi,bj,k+1,vVel,KappaRV,vrF,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
429 |
MOM_VECINV |
I myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
438 |
MOM_VECINV |
CALL MOM_V_BOTTOMDRAG(bi,bj,k,vFld,KE,KappaRV,vF,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
447 |
MOM_VECINV |
CALL SHELFICE_V_DRAG(bi,bj,k,vFld,KE,KappaRU,vF,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
460 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('Z3','I10',1,vort3, bi,bj,k,myIter,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
465 |
MOM_VECINV |
& offsets, myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
471 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(vort3, 'momVort3',k,1,2,bi,bj,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
485 |
MOM_VECINV |
& CALL MOM_CALC_ABSVORT3(bi,bj,k,vort3,omega3,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
496 |
MOM_VECINV |
& uCf,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
498 |
MOM_VECINV |
& vCf,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
501 |
MOM_VECINV |
& uCf,vCf,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
511 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('fV','I10',1,uCf,bi,bj,k,myIter,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
512 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('fU','I10',1,vCf,bi,bj,k,myIter,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
517 |
MOM_VECINV |
& offsets, myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
519 |
MOM_VECINV |
& offsets, myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
525 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(uCf,'Um_Cori ',k,1,2,bi,bj,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
526 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(vCf,'Vm_Cori ',k,1,2,bi,bj,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
543 |
MOM_VECINV |
& uCf,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
546 |
MOM_VECINV |
& uCf,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
549 |
MOM_VECINV |
& uCf,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
552 |
MOM_VECINV |
& uCf,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
562 |
MOM_VECINV |
& vCf,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
565 |
MOM_VECINV |
& vCf,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
568 |
MOM_VECINV |
& vCf,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
571 |
MOM_VECINV |
& vCf,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
581 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('zV','I10',1,uCf,bi,bj,k,myIter,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
582 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('zU','I10',1,vCf,bi,bj,k,myIter,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
587 |
MOM_VECINV |
& offsets, myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
589 |
MOM_VECINV |
& offsets, myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
597 |
MOM_VECINV |
& Nr, k, bi, bj, myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
599 |
MOM_VECINV |
& Nr, k, bi, bj, myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
604 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(uCf,'Um_AdvZ3',k,1,2,bi,bj,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
605 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(vCf,'Vm_AdvZ3',k,1,2,bi,bj,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
611 |
MOM_VECINV |
CALL MOM_VI_U_VERTSHEAR(bi,bj,K,uVel,wVel,uCf,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
617 |
MOM_VECINV |
CALL MOM_VI_V_VERTSHEAR(bi,bj,K,vVel,wVel,vCf,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
625 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(uCf,'Um_AdvRe',k,1,2,bi,bj,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
626 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(vCf,'Vm_AdvRe',k,1,2,bi,bj,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
632 |
MOM_VECINV |
CALL MOM_VI_U_GRAD_KE(bi,bj,K,KE,uCf,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
638 |
MOM_VECINV |
CALL MOM_VI_V_GRAD_KE(bi,bj,K,KE,vCf,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
646 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('KEx','I10',1,uCf,bi,bj,k,myIter,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
647 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('KEy','I10',1,vCf,bi,bj,k,myIter,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
64 |
MOM_VECINV |
INTEGER myThid |
./pkg/mom_vecinv/mom_vecinv.F |
652 |
MOM_VECINV |
& offsets, myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
654 |
MOM_VECINV |
& offsets, myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
664 |
MOM_VECINV |
CALL MOM_U_CORIOLIS_NH(bi,bj,k,wVel,uCf,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
672 |
MOM_VECINV |
CALL MOM_V_CORIOLIS_NH(bi,bj,k,wVel,vCf,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
683 |
MOM_VECINV |
CALL MOM_U_METRIC_NH(bi,bj,k,uFld,wVel,uCf,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
689 |
MOM_VECINV |
CALL MOM_V_METRIC_NH(bi,bj,k,vFld,wVel,vCf,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
711 |
MOM_VECINV |
& guDiss,gvDiss, k, standardMessageUnit,bi,bj,myThid ) |
./pkg/mom_vecinv/mom_vecinv.F |
717 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('W3','I10',1,omega3, bi,bj,k,myIter,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
718 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('KE','I10',1,KE, bi,bj,k,myIter,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
719 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('D', 'I10',1,hDiv, bi,bj,k,myIter,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
720 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('Dt','I10',1,tension,bi,bj,k,myIter,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
721 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('Du','I10',1,guDiss, bi,bj,k,myIter,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
722 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('Dv','I10',1,gvDiss, bi,bj,k,myIter,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
727 |
MOM_VECINV |
& offsets, myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
729 |
MOM_VECINV |
& offsets, myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
731 |
MOM_VECINV |
& offsets, myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
733 |
MOM_VECINV |
& offsets, myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
735 |
MOM_VECINV |
& offsets, myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
737 |
MOM_VECINV |
& offsets, myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
744 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(KE, 'momKE ',k,1,2,bi,bj,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
746 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(hDiv, 'momHDiv ',k,1,2,bi,bj,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
747 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(tension,'Tension ',k,1,2,bi,bj,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
748 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(guDiss, 'Um_Diss ',k,1,2,bi,bj,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
749 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(gvDiss, 'Vm_Diss ',k,1,2,bi,bj,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
752 |
MOM_VECINV |
& 'Um_Advec',k,1,2,bi,bj,myThid) |
./pkg/mom_vecinv/mom_vecinv.F |
754 |
MOM_VECINV |
& 'Vm_Advec',k,1,2,bi,bj,myThid) |
./pkg/mom_vecinv/mom_vi_coriolis.F |
10 |
MOM_VI_CORIOLIS |
I myThid) |
./pkg/mom_vecinv/mom_vi_coriolis.F |
31 |
MOM_VI_CORIOLIS |
INTEGER myThid |
./pkg/mom_vecinv/mom_vi_del2uv.F |
107 |
MOM_VI_DEL2UV |
& hDiv, bi,bj, myThid ) |
./pkg/mom_vecinv/mom_vi_del2uv.F |
10 |
MOM_VI_DEL2UV |
I myThid) |
./pkg/mom_vecinv/mom_vi_del2uv.F |
28 |
MOM_VI_DEL2UV |
INTEGER myThid |
./pkg/mom_vecinv/mom_vi_del2uv.F |
86 |
MOM_VI_DEL2UV |
& hDiv, bi,bj, myThid ) |
./pkg/mom_vecinv/mom_vi_hdissip.F |
13 |
MOM_VI_HDISSIP |
I myThid) |
./pkg/mom_vecinv/mom_vi_hdissip.F |
50 |
MOM_VI_HDISSIP |
INTEGER myThid |
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
13 |
MOM_VI_U_CORIOLIS |
I myThid ) |
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
182 |
MOM_VI_U_CORIOLIS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
40 |
MOM_VI_U_CORIOLIS |
INTEGER myThid |
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
13 |
MOM_VI_U_CORIOLIS_C4 |
I myThid) |
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
194 |
MOM_VI_U_CORIOLIS_C4 |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
43 |
MOM_VI_U_CORIOLIS_C4 |
INTEGER myThid |
./pkg/mom_vecinv/mom_vi_u_grad_ke.F |
10 |
MOM_VI_U_GRAD_KE |
I myThid) |
./pkg/mom_vecinv/mom_vi_u_grad_ke.F |
26 |
MOM_VI_U_GRAD_KE |
INTEGER myThid |
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
10 |
MOM_VI_U_VERTSHEAR |
I myThid) |
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
28 |
MOM_VI_U_VERTSHEAR |
INTEGER myThid |
./model/src/calc_gw.F |
114 |
CALC_GW |
diagDiss = DIAGNOSTICS_IS_ON( 'Wm_Diss ', myThid ) |
./model/src/calc_gw.F |
115 |
CALC_GW |
diagAdvec = DIAGNOSTICS_IS_ON( 'Wm_Advec', myThid ) |
./model/src/calc_gw.F |
13 |
CALC_GW |
I myTime, myIter, myThid ) |
./model/src/calc_gw.F |
281 |
CALC_GW |
& wFld, bi,bj, myThid ) |
./model/src/calc_gw.F |
299 |
CALC_GW |
& wFld, bi,bj, myThid ) |
./model/src/calc_gw.F |
433 |
CALC_GW |
I myThid ) |
./model/src/calc_gw.F |
52 |
CALC_GW |
INTEGER myThid |
./model/src/calc_gw.F |
549 |
CALC_GW |
I myThid ) |
./model/src/calc_gw.F |
561 |
CALC_GW |
I myThid ) |
./model/src/calc_gw.F |
574 |
CALC_GW |
& k, 1, 2, bi,bj, myThid ) |
./model/src/calc_gw.F |
581 |
CALC_GW |
& k,Nr, 1, bi,bj, myThid ) |
./model/src/calc_gw.F |
601 |
CALC_GW |
I nHydStartAB, myIter, myThid ) |
./model/src/calc_gw.F |
606 |
CALC_GW |
I nHydStartAB, myIter, myThid ) |
./model/src/calc_gw.F |
623 |
CALC_GW |
CALL DIAGNOSTICS_FILL(viscAh_W,'VISCAHW ',0,Nr,1,bi,bj,myThid) |
./model/src/calc_gw.F |
624 |
CALC_GW |
CALL DIAGNOSTICS_FILL(viscA4_W,'VISCA4W ',0,Nr,1,bi,bj,myThid) |
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
13 |
MOM_VI_V_CORIOLIS |
I myThid ) |
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
182 |
MOM_VI_V_CORIOLIS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
40 |
MOM_VI_V_CORIOLIS |
INTEGER myThid |
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
13 |
MOM_VI_V_CORIOLIS_C4 |
I myThid) |
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
194 |
MOM_VI_V_CORIOLIS_C4 |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
43 |
MOM_VI_V_CORIOLIS_C4 |
INTEGER myThid |
./pkg/mom_vecinv/mom_vi_v_grad_ke.F |
10 |
MOM_VI_V_GRAD_KE |
I myThid) |
./pkg/mom_vecinv/mom_vi_v_grad_ke.F |
26 |
MOM_VI_V_GRAD_KE |
INTEGER myThid |
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
10 |
MOM_VI_V_VERTSHEAR |
I myThid) |
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
28 |
MOM_VI_V_VERTSHEAR |
INTEGER myThid |
./pkg/monitor/mon_advcfl.F |
13 |
MON_ADVCFL |
I myThid ) |
./pkg/monitor/mon_advcfl.F |
29 |
MON_ADVCFL |
INTEGER myThid |
./pkg/monitor/mon_advcfl.F |
38 |
MON_ADVCFL |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/monitor/mon_advcfl.F |
39 |
MON_ADVCFL |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/monitor/mon_advcfl.F |
50 |
MON_ADVCFL |
_GLOBAL_MAX_RL(theMax,myThid) |
./pkg/monitor/mon_advcfl.F |
52 |
MON_ADVCFL |
CALL MON_OUT_RL( label, theMax, mon_foot_max ,myThid) |
./pkg/monitor/mon_advcflw.F |
13 |
MON_ADVCFLW |
I myThid ) |
./pkg/monitor/mon_advcflw.F |
29 |
MON_ADVCFLW |
INTEGER myThid |
./pkg/monitor/mon_advcflw.F |
38 |
MON_ADVCFLW |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/monitor/mon_advcflw.F |
39 |
MON_ADVCFLW |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/monitor/mon_advcflw.F |
50 |
MON_ADVCFLW |
_GLOBAL_MAX_RL(theMax,myThid) |
./pkg/monitor/mon_advcflw.F |
52 |
MON_ADVCFLW |
CALL MON_OUT_RL( label, theMax, mon_foot_max ,myThid) |
./pkg/monitor/mon_advcflw2.F |
13 |
MON_ADVCFLW2 |
I myThid ) |
./pkg/monitor/mon_advcflw2.F |
31 |
MON_ADVCFLW2 |
INTEGER myThid |
./pkg/monitor/mon_advcflw2.F |
40 |
MON_ADVCFLW2 |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/monitor/mon_advcflw2.F |
41 |
MON_ADVCFLW2 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/monitor/mon_advcflw2.F |
54 |
MON_ADVCFLW2 |
_GLOBAL_MAX_RL(theMax,myThid) |
./pkg/monitor/mon_advcflw2.F |
56 |
MON_ADVCFLW2 |
CALL MON_OUT_RL( label, theMax, mon_foot_max ,myThid) |
./pkg/monitor/mon_calc_stats_rl.F |
112 |
MON_CALC_STATS_RL |
CALL GLOBAL_SUM_TILE_RL( tileDel2, theDel2, myThid ) |
./pkg/monitor/mon_calc_stats_rl.F |
113 |
MON_CALC_STATS_RL |
CALL GLOBAL_SUM_TILE_RL( tileVol , theVol , myThid ) |
./pkg/monitor/mon_calc_stats_rl.F |
114 |
MON_CALC_STATS_RL |
CALL GLOBAL_SUM_TILE_RL( tileMean, theMean, myThid ) |
./pkg/monitor/mon_calc_stats_rl.F |
117 |
MON_CALC_STATS_RL |
CALL GLOBAL_SUM_INT( numPnts, myThid ) |
./pkg/monitor/mon_calc_stats_rl.F |
130 |
MON_CALC_STATS_RL |
_GLOBAL_MAX_RL(theMin,myThid) |
./pkg/monitor/mon_calc_stats_rl.F |
133 |
MON_CALC_STATS_RL |
_GLOBAL_MAX_RL(theMax,myThid) |
./pkg/monitor/mon_calc_stats_rl.F |
135 |
MON_CALC_STATS_RL |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/monitor/mon_calc_stats_rl.F |
136 |
MON_CALC_STATS_RL |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/monitor/mon_calc_stats_rl.F |
14 |
MON_CALC_STATS_RL |
I myThid ) |
./pkg/monitor/mon_calc_stats_rl.F |
154 |
MON_CALC_STATS_RL |
CALL GLOBAL_SUM_TILE_RL( tileSD, theSD, myThid ) |
./pkg/monitor/mon_calc_stats_rl.F |
32 |
MON_CALC_STATS_RL |
INTEGER myThid |
./pkg/monitor/mon_calc_stats_rl.F |
60 |
MON_CALC_STATS_RL |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/monitor/mon_calc_stats_rl.F |
61 |
MON_CALC_STATS_RL |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/calc_ivdc.F |
11 |
CALC_IVDC |
I myTime,myIter, myThid ) |
./model/src/calc_ivdc.F |
40 |
CALC_IVDC |
INTEGER myThid |
./pkg/monitor/mon_calc_stats_rs.F |
112 |
MON_CALC_STATS_RS |
CALL GLOBAL_SUM_TILE_RL( tileDel2, theDel2, myThid ) |
./pkg/monitor/mon_calc_stats_rs.F |
113 |
MON_CALC_STATS_RS |
CALL GLOBAL_SUM_TILE_RL( tileVol , theVol , myThid ) |
./pkg/monitor/mon_calc_stats_rs.F |
114 |
MON_CALC_STATS_RS |
CALL GLOBAL_SUM_TILE_RL( tileMean, theMean, myThid ) |
./pkg/monitor/mon_calc_stats_rs.F |
117 |
MON_CALC_STATS_RS |
CALL GLOBAL_SUM_INT( numPnts, myThid ) |
./pkg/monitor/mon_calc_stats_rs.F |
130 |
MON_CALC_STATS_RS |
_GLOBAL_MAX_RL(theMin,myThid) |
./pkg/monitor/mon_calc_stats_rs.F |
133 |
MON_CALC_STATS_RS |
_GLOBAL_MAX_RL(theMax,myThid) |
./pkg/monitor/mon_calc_stats_rs.F |
135 |
MON_CALC_STATS_RS |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/monitor/mon_calc_stats_rs.F |
136 |
MON_CALC_STATS_RS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/monitor/mon_calc_stats_rs.F |
14 |
MON_CALC_STATS_RS |
I myThid ) |
./pkg/monitor/mon_calc_stats_rs.F |
154 |
MON_CALC_STATS_RS |
CALL GLOBAL_SUM_TILE_RL( tileSD, theSD, myThid ) |
./pkg/monitor/mon_calc_stats_rs.F |
32 |
MON_CALC_STATS_RS |
INTEGER myThid |
./pkg/monitor/mon_calc_stats_rs.F |
60 |
MON_CALC_STATS_RS |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/monitor/mon_calc_stats_rs.F |
61 |
MON_CALC_STATS_RS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/monitor/mon_init.F |
11 |
MON_INIT |
SUBROUTINE MON_INIT( myThid ) |
./pkg/monitor/mon_init.F |
24 |
MON_INIT |
INTEGER myThid |
./pkg/monitor/mon_init.F |
36 |
MON_INIT |
CALL MON_SET_IOUNIT( standardMessageUnit, myThid ) |
./pkg/monitor/mon_init.F |
37 |
MON_INIT |
CALL MON_SET_PREF ( mon_string_none , myThid ) |
./pkg/monitor/mon_init.F |
39 |
MON_INIT |
_BEGIN_MASTER(myThid) |
./pkg/monitor/mon_init.F |
45 |
MON_INIT |
_END_MASTER(myThid) |
./pkg/monitor/mon_ke.F |
12 |
MON_KE |
I myIter, myThid ) |
./pkg/monitor/mon_ke.F |
141 |
MON_KE |
_GLOBAL_SUM_RL(numPnts,myThid) |
./pkg/monitor/mon_ke.F |
142 |
MON_KE |
_GLOBAL_MAX_RL(theMax,myThid) |
./pkg/monitor/mon_ke.F |
143 |
MON_KE |
CALL GLOBAL_SUM_TILE_RL( tileMean, theMean , myThid ) |
./pkg/monitor/mon_ke.F |
144 |
MON_KE |
CALL GLOBAL_SUM_TILE_RL( tileVol , theVol , myThid ) |
./pkg/monitor/mon_ke.F |
145 |
MON_KE |
CALL GLOBAL_SUM_TILE_RL( tileVlAv, theVolMean, myThid ) |
./pkg/monitor/mon_ke.F |
146 |
MON_KE |
CALL GLOBAL_SUM_TILE_RL( tilePEav, potEnMean , myThid ) |
./pkg/monitor/mon_ke.F |
154 |
MON_KE |
CALL MON_SET_PREF('pe_b',myThid) |
./pkg/monitor/mon_ke.F |
156 |
MON_KE |
& mon_foot_mean,myThid) |
./pkg/monitor/mon_ke.F |
159 |
MON_KE |
CALL MON_SET_PREF('ke',myThid) |
./pkg/monitor/mon_ke.F |
160 |
MON_KE |
CALL MON_OUT_RL(mon_string_none,theMax,mon_foot_max,myThid) |
./pkg/monitor/mon_ke.F |
163 |
MON_KE |
& mon_foot_mean,myThid) |
./pkg/monitor/mon_ke.F |
165 |
MON_KE |
& mon_foot_vol,myThid) |
./pkg/monitor/mon_ke.F |
28 |
MON_KE |
INTEGER myIter, myThid |
./pkg/monitor/mon_ke.F |
50 |
MON_KE |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/monitor/mon_ke.F |
51 |
MON_KE |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/monitor/mon_out.F |
109 |
MON_OUT_ALL |
INTEGER myThid |
./pkg/monitor/mon_out.F |
11 |
MON_OUT_I |
SUBROUTINE MON_OUT_I( pref, value, foot, myThid ) |
./pkg/monitor/mon_out.F |
130 |
MON_OUT_ALL |
IF ( MASTER_CPU_IO(myThid) ) THEN |
./pkg/monitor/mon_out.F |
216 |
MON_OUT_ALL |
& mon_vname, '-_-_--__-__t', 0,0, myThid) |
./pkg/monitor/mon_out.F |
219 |
MON_OUT_ALL |
& 'I',mon_fname,1,1,mon_vname, ivarr, myThid) |
./pkg/monitor/mon_out.F |
222 |
MON_OUT_ALL |
& 'D',mon_fname,1,1,mon_vname, dvarr, myThid) |
./pkg/monitor/mon_out.F |
23 |
MON_OUT_I |
INTEGER myThid |
./pkg/monitor/mon_out.F |
26 |
MON_OUT_I |
CALL MON_OUT_ALL(pref, foot, 1, value, 0.0d0, myThid) |
./pkg/monitor/mon_out.F |
35 |
MON_OUT_RS |
SUBROUTINE MON_OUT_RS( pref, value, foot, myThid ) |
./pkg/monitor/mon_out.F |
47 |
MON_OUT_RS |
INTEGER myThid |
./pkg/monitor/mon_out.F |
52 |
MON_OUT_RS |
CALL MON_OUT_ALL(pref, foot, 2, 0, dtmp, myThid) |
./pkg/monitor/mon_out.F |
61 |
MON_OUT_RL |
SUBROUTINE MON_OUT_RL( pref, value, foot, myThid ) |
./pkg/monitor/mon_out.F |
73 |
MON_OUT_RL |
INTEGER myThid |
./pkg/monitor/mon_out.F |
78 |
MON_OUT_RL |
CALL MON_OUT_ALL(pref, foot, 2, 0, dtmp, myThid) |
./pkg/monitor/mon_out.F |
90 |
MON_OUT_ALL |
I myThid ) |
./pkg/monitor/mon_printstats_rl.F |
14 |
MON_PRINTSTATS_RL |
I myThid ) |
./pkg/monitor/mon_printstats_rl.F |
34 |
MON_PRINTSTATS_RL |
INTEGER myThid |
./pkg/monitor/mon_printstats_rl.F |
47 |
MON_PRINTSTATS_RL |
I myThid ) |
./pkg/monitor/mon_printstats_rl.F |
49 |
MON_PRINTSTATS_RL |
CALL MON_OUT_RL( arrName, theMax, mon_foot_max ,myThid) |
./pkg/monitor/mon_printstats_rl.F |
50 |
MON_PRINTSTATS_RL |
CALL MON_OUT_RL( arrName, theMin, mon_foot_min ,myThid) |
./pkg/monitor/mon_printstats_rl.F |
51 |
MON_PRINTSTATS_RL |
CALL MON_OUT_RL( arrName, theMean, mon_foot_mean ,myThid) |
./pkg/monitor/mon_printstats_rl.F |
52 |
MON_PRINTSTATS_RL |
CALL MON_OUT_RL( arrName, theSD, mon_foot_sd ,myThid) |
./pkg/monitor/mon_printstats_rl.F |
53 |
MON_PRINTSTATS_RL |
CALL MON_OUT_RL( arrName, theDel2, mon_foot_del2 ,myThid) |
./pkg/monitor/mon_printstats_rs.F |
13 |
MON_PRINTSTATS_RS |
I myThid ) |
./pkg/monitor/mon_printstats_rs.F |
29 |
MON_PRINTSTATS_RS |
INTEGER myThid |
./pkg/monitor/mon_printstats_rs.F |
41 |
MON_PRINTSTATS_RS |
I myThid ) |
./pkg/monitor/mon_printstats_rs.F |
43 |
MON_PRINTSTATS_RS |
CALL MON_OUT_RL( arrName, theMax, mon_foot_max ,myThid) |
./pkg/monitor/mon_printstats_rs.F |
44 |
MON_PRINTSTATS_RS |
CALL MON_OUT_RL( arrName, theMin, mon_foot_min ,myThid) |
./pkg/monitor/mon_printstats_rs.F |
45 |
MON_PRINTSTATS_RS |
CALL MON_OUT_RL( arrName, theMean, mon_foot_mean ,myThid) |
./pkg/monitor/mon_printstats_rs.F |
46 |
MON_PRINTSTATS_RS |
CALL MON_OUT_RL( arrName, theSD, mon_foot_sd ,myThid) |
./pkg/monitor/mon_set_iounit.F |
11 |
MON_SET_IOUNIT |
SUBROUTINE MON_SET_IOUNIT( monUnit, myThid ) |
./pkg/monitor/mon_set_iounit.F |
26 |
MON_SET_IOUNIT |
INTEGER myThid |
./pkg/monitor/mon_set_iounit.F |
30 |
MON_SET_IOUNIT |
CALL BAR2( myThid ) |
./pkg/monitor/mon_set_iounit.F |
33 |
MON_SET_IOUNIT |
_BEGIN_MASTER(myThid) |
./pkg/monitor/mon_set_iounit.F |
35 |
MON_SET_IOUNIT |
_END_MASTER(myThid) |
./pkg/monitor/mon_set_iounit.F |
38 |
MON_SET_IOUNIT |
CALL BAR2( myThid ) |
./pkg/monitor/mon_set_pref.F |
11 |
MON_SET_PREF |
SUBROUTINE MON_SET_PREF( prefString, myThid ) |
./pkg/monitor/mon_set_pref.F |
28 |
MON_SET_PREF |
INTEGER myThid |
./pkg/monitor/mon_set_pref.F |
38 |
MON_SET_PREF |
CALL BAR2( myThid ) |
./pkg/monitor/mon_set_pref.F |
41 |
MON_SET_PREF |
_BEGIN_MASTER(myThid) |
./pkg/monitor/mon_set_pref.F |
50 |
MON_SET_PREF |
_END_MASTER(myThid) |
./pkg/monitor/mon_set_pref.F |
53 |
MON_SET_PREF |
CALL BAR2( myThid ) |
./pkg/monitor/mon_solution.F |
13 |
MON_SOLUTION |
I myTime, myIter, myThid ) |
./pkg/monitor/mon_solution.F |
31 |
MON_SOLUTION |
INTEGER myThid |
./pkg/monitor/mon_solution.F |
47 |
MON_SOLUTION |
I myThid ) |
./pkg/monitor/mon_solution.F |
51 |
MON_SOLUTION |
_BEGIN_MASTER(myThid) |
./pkg/monitor/mon_solution.F |
54 |
MON_SOLUTION |
CALL PRINT_MESSAGE(msgBuf,errorMessageUnit,SQUEEZE_RIGHT,myThid) |
./pkg/monitor/mon_solution.F |
57 |
MON_SOLUTION |
CALL PRINT_MESSAGE(msgBuf,errorMessageUnit,SQUEEZE_RIGHT,myThid) |
./pkg/monitor/mon_solution.F |
60 |
MON_SOLUTION |
CALL PRINT_MESSAGE(msgBuf,errorMessageUnit,SQUEEZE_RIGHT,myThid) |
./pkg/monitor/mon_solution.F |
61 |
MON_SOLUTION |
_END_MASTER(myThid) |
./pkg/monitor/mon_solution.F |
63 |
MON_SOLUTION |
CALL ALL_PROC_DIE( myThid ) |
./pkg/monitor/mon_stats_latbnd_rl.F |
125 |
MON_STATS_LATBND_RL |
CALL GLOBAL_SUM_TILE_RL( tileVol(1,1,n) , theVol(n) , myThid ) |
./pkg/monitor/mon_stats_latbnd_rl.F |
126 |
MON_STATS_LATBND_RL |
CALL GLOBAL_SUM_TILE_RL( tileMean(1,1,n), theMean(n), myThid ) |
./pkg/monitor/mon_stats_latbnd_rl.F |
127 |
MON_STATS_LATBND_RL |
CALL GLOBAL_SUM_TILE_RL( tileVar(1,1,n) , theVar(n) , myThid ) |
./pkg/monitor/mon_stats_latbnd_rl.F |
137 |
MON_STATS_LATBND_RL |
_GLOBAL_MAX_RL(theMin(n), myThid) |
./pkg/monitor/mon_stats_latbnd_rl.F |
140 |
MON_STATS_LATBND_RL |
_GLOBAL_MAX_RL(theMax(n), myThid) |
./pkg/monitor/mon_stats_latbnd_rl.F |
15 |
MON_STATS_LATBND_RL |
I myThid ) |
./pkg/monitor/mon_stats_latbnd_rl.F |
45 |
MON_STATS_LATBND_RL |
INTEGER myThid |
./pkg/monitor/mon_stats_latbnd_rl.F |
67 |
MON_STATS_LATBND_RL |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/monitor/mon_stats_latbnd_rl.F |
70 |
MON_STATS_LATBND_RL |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/monitor/mon_stats_latbnd_rl.F |
91 |
MON_STATS_LATBND_RL |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/monitor/mon_stats_latbnd_rl.F |
92 |
MON_STATS_LATBND_RL |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/calc_oce_mxlayer.F |
113 |
CALC_OCE_MXLAYER |
I k, bi, bj, myThid ) |
./model/src/calc_oce_mxlayer.F |
12 |
CALC_OCE_MXLAYER |
I bi, bj, myTime, myIter, myThid ) |
./model/src/calc_oce_mxlayer.F |
159 |
CALC_OCE_MXLAYER |
I k, bi, bj, myThid ) |
./model/src/calc_oce_mxlayer.F |
218 |
CALC_OCE_MXLAYER |
& 0, 1, 1, bi, bj, myThid ) |
./model/src/calc_oce_mxlayer.F |
45 |
CALC_OCE_MXLAYER |
INTEGER myThid |
./model/src/calc_oce_mxlayer.F |
74 |
CALC_OCE_MXLAYER |
calcMixLayerDepth = DIAGNOSTICS_IS_ON('MXLDEPTH',myThid) |
./model/src/calc_oce_mxlayer.F |
97 |
CALC_OCE_MXLAYER |
O rhoMxL, myThid ) |
./pkg/monitor/mon_stats_rl.F |
107 |
MON_STATS_RL |
CALL GLOBAL_SUM_TILE_RL( tileDel2, theDel2, myThid ) |
./pkg/monitor/mon_stats_rl.F |
108 |
MON_STATS_RL |
CALL GLOBAL_SUM_TILE_RL( tileVol , theVol , myThid ) |
./pkg/monitor/mon_stats_rl.F |
109 |
MON_STATS_RL |
CALL GLOBAL_SUM_TILE_RL( tileMean, theMean, myThid ) |
./pkg/monitor/mon_stats_rl.F |
110 |
MON_STATS_RL |
CALL GLOBAL_SUM_TILE_RL( tileVar , theVar , myThid ) |
./pkg/monitor/mon_stats_rl.F |
112 |
MON_STATS_RL |
_GLOBAL_SUM_RL(tmpVal,myThid) |
./pkg/monitor/mon_stats_rl.F |
125 |
MON_STATS_RL |
_GLOBAL_MAX_RL(theMin,myThid) |
./pkg/monitor/mon_stats_rl.F |
128 |
MON_STATS_RL |
_GLOBAL_MAX_RL(theMax,myThid) |
./pkg/monitor/mon_stats_rl.F |
130 |
MON_STATS_RL |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/monitor/mon_stats_rl.F |
131 |
MON_STATS_RL |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/monitor/mon_stats_rl.F |
14 |
MON_STATS_RL |
I myThid ) |
./pkg/monitor/mon_stats_rl.F |
151 |
MON_STATS_RL |
CALL GLOBAL_SUM_TILE_RL( tileSD, theSD, myThid ) |
./pkg/monitor/mon_stats_rl.F |
31 |
MON_STATS_RL |
INTEGER myThid |
./pkg/monitor/mon_stats_rl.F |
61 |
MON_STATS_RL |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/monitor/mon_stats_rl.F |
62 |
MON_STATS_RL |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/monitor/mon_stats_rs.F |
116 |
MON_STATS_RS |
CALL GLOBAL_SUM_TILE_RL( tileSD, theSD, myThid ) |
./pkg/monitor/mon_stats_rs.F |
14 |
MON_STATS_RS |
I myThid ) |
./pkg/monitor/mon_stats_rs.F |
28 |
MON_STATS_RS |
INTEGER myThid |
./pkg/monitor/mon_stats_rs.F |
49 |
MON_STATS_RS |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/monitor/mon_stats_rs.F |
50 |
MON_STATS_RS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/monitor/mon_stats_rs.F |
80 |
MON_STATS_RS |
CALL GLOBAL_SUM_TILE_RL( tileMean, theMean, myThid ) |
./pkg/monitor/mon_stats_rs.F |
81 |
MON_STATS_RS |
CALL GLOBAL_SUM_TILE_RL( tileVar , theVar , myThid ) |
./pkg/monitor/mon_stats_rs.F |
83 |
MON_STATS_RS |
_GLOBAL_SUM_RL(tmpVal,myThid) |
./pkg/monitor/mon_stats_rs.F |
92 |
MON_STATS_RS |
_GLOBAL_MAX_RL(theMin,myThid) |
./pkg/monitor/mon_stats_rs.F |
95 |
MON_STATS_RS |
_GLOBAL_MAX_RL(theMax,myThid) |
./pkg/monitor/mon_stats_rs.F |
97 |
MON_STATS_RS |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/monitor/mon_stats_rs.F |
98 |
MON_STATS_RS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/monitor/mon_surfcor.F |
12 |
MON_SURFCOR |
I myThid ) |
./pkg/monitor/mon_surfcor.F |
178 |
MON_SURFCOR |
CALL GLOBAL_SUM_TILE_RL( tileArea, theArea, myThid ) |
./pkg/monitor/mon_surfcor.F |
179 |
MON_SURFCOR |
CALL GLOBAL_SUM_TILE_RL( tile_wT , wT_Mean, myThid ) |
./pkg/monitor/mon_surfcor.F |
180 |
MON_SURFCOR |
CALL GLOBAL_SUM_TILE_RL( tile_wS , wS_Mean, myThid ) |
./pkg/monitor/mon_surfcor.F |
182 |
MON_SURFCOR |
CALL GLOBAL_SUM_TILE_RL( tileWHeat , wT_Heat , myThid ) |
./pkg/monitor/mon_surfcor.F |
183 |
MON_SURFCOR |
CALL GLOBAL_SUM_TILE_RL( tileTh2pe , theta2PE, myThid ) |
./pkg/monitor/mon_surfcor.F |
198 |
MON_SURFCOR |
CALL MON_SET_PREF('surfExpan',myThid) |
./pkg/monitor/mon_surfcor.F |
199 |
MON_SURFCOR |
CALL MON_OUT_RL( '_theta', wT_Mean, mon_foot_mean ,myThid) |
./pkg/monitor/mon_surfcor.F |
200 |
MON_SURFCOR |
CALL MON_OUT_RL( '_salt' , wS_Mean, mon_foot_mean ,myThid) |
./pkg/monitor/mon_surfcor.F |
202 |
MON_SURFCOR |
CALL MON_OUT_RL( '_Heat' , wT_Heat, mon_foot_mean ,myThid) |
./pkg/monitor/mon_surfcor.F |
203 |
MON_SURFCOR |
CALL MON_SET_PREF('En_Budget',myThid) |
./pkg/monitor/mon_surfcor.F |
204 |
MON_SURFCOR |
CALL MON_OUT_RL('_T2PE',theta2PE, mon_foot_mean ,myThid) |
./pkg/monitor/mon_surfcor.F |
49 |
MON_SURFCOR |
INTEGER myThid |
./pkg/monitor/mon_surfcor.F |
73 |
MON_SURFCOR |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/monitor/mon_surfcor.F |
74 |
MON_SURFCOR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/monitor/mon_vort3.F |
12 |
MON_VORT3 |
I myIter, myThid ) |
./pkg/monitor/mon_vort3.F |
31 |
MON_VORT3 |
INTEGER myIter, myThid |
./pkg/monitor/mon_vort3.F |
321 |
MON_VORT3 |
_GLOBAL_MAX_RL(theMin, myThid) |
./pkg/monitor/mon_vort3.F |
322 |
MON_VORT3 |
_GLOBAL_MAX_RL(theMax, myThid) |
./pkg/monitor/mon_vort3.F |
330 |
MON_VORT3 |
CALL GLOBAL_SUM_TILE_RL( tileArea, theArea, myThid ) |
./pkg/monitor/mon_vort3.F |
331 |
MON_VORT3 |
CALL GLOBAL_SUM_TILE_RL( tileVol, theVol, myThid ) |
./pkg/monitor/mon_vort3.F |
332 |
MON_VORT3 |
CALL GLOBAL_SUM_TILE_RL( tileSum, theMean, myThid ) |
./pkg/monitor/mon_vort3.F |
333 |
MON_VORT3 |
CALL GLOBAL_SUM_TILE_RL( tileVar, theVar, myThid ) |
./pkg/monitor/mon_vort3.F |
334 |
MON_VORT3 |
CALL GLOBAL_SUM_TILE_RL( tileVSum, volMean, myThid ) |
./pkg/monitor/mon_vort3.F |
335 |
MON_VORT3 |
CALL GLOBAL_SUM_TILE_RL( tileVSq, volVar, myThid ) |
./pkg/monitor/mon_vort3.F |
351 |
MON_VORT3 |
CALL MON_SET_PREF('vort',myThid) |
./pkg/monitor/mon_vort3.F |
352 |
MON_VORT3 |
CALL MON_OUT_RL(mon_string_none,theMin, '_r_min', myThid) |
./pkg/monitor/mon_vort3.F |
353 |
MON_VORT3 |
CALL MON_OUT_RL(mon_string_none,theMax, '_r_max', myThid) |
./pkg/monitor/mon_vort3.F |
354 |
MON_VORT3 |
CALL MON_OUT_RL(mon_string_none,theMean,'_a_mean', myThid) |
./pkg/monitor/mon_vort3.F |
355 |
MON_VORT3 |
CALL MON_OUT_RL(mon_string_none,theVar, '_a_sd', myThid) |
./pkg/monitor/mon_vort3.F |
356 |
MON_VORT3 |
CALL MON_OUT_RL(mon_string_none,volMean,'_p_mean', myThid) |
./pkg/monitor/mon_vort3.F |
357 |
MON_VORT3 |
CALL MON_OUT_RL(mon_string_none,theSD, '_p_sd', myThid) |
./pkg/monitor/mon_vort3.F |
71 |
MON_VORT3 |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/monitor/mon_vort3.F |
72 |
MON_VORT3 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/monitor/mon_writestats_rl.F |
15 |
MON_WRITESTATS_RL |
I myThid ) |
./pkg/monitor/mon_writestats_rl.F |
35 |
MON_WRITESTATS_RL |
INTEGER myThid |
./pkg/monitor/mon_writestats_rl.F |
48 |
MON_WRITESTATS_RL |
I myThid ) |
./pkg/monitor/mon_writestats_rl.F |
57 |
MON_WRITESTATS_RL |
CALL MON_OUT_RL( arrName, theMax, mon_foot_max, myThid ) |
./pkg/monitor/mon_writestats_rl.F |
58 |
MON_WRITESTATS_RL |
CALL MON_OUT_RL( arrName, theMin, mon_foot_min, myThid ) |
./pkg/monitor/mon_writestats_rl.F |
59 |
MON_WRITESTATS_RL |
CALL MON_OUT_RL( arrName, theMean, mon_foot_mean, myThid ) |
./pkg/monitor/mon_writestats_rl.F |
60 |
MON_WRITESTATS_RL |
CALL MON_OUT_RL( arrName, theSD, mon_foot_sd, myThid ) |
./pkg/monitor/mon_writestats_rl.F |
61 |
MON_WRITESTATS_RL |
CALL MON_OUT_RL( arrName, theDel2, mon_foot_del2, myThid ) |
./pkg/monitor/mon_writestats_rs.F |
15 |
MON_WRITESTATS_RS |
I myThid ) |
./pkg/monitor/mon_writestats_rs.F |
35 |
MON_WRITESTATS_RS |
INTEGER myThid |
./pkg/monitor/mon_writestats_rs.F |
48 |
MON_WRITESTATS_RS |
I myThid ) |
./pkg/monitor/mon_writestats_rs.F |
57 |
MON_WRITESTATS_RS |
CALL MON_OUT_RL( arrName, theMax, mon_foot_max, myThid ) |
./pkg/monitor/mon_writestats_rs.F |
58 |
MON_WRITESTATS_RS |
CALL MON_OUT_RL( arrName, theMin, mon_foot_min, myThid ) |
./pkg/monitor/mon_writestats_rs.F |
59 |
MON_WRITESTATS_RS |
CALL MON_OUT_RL( arrName, theMean, mon_foot_mean, myThid ) |
./pkg/monitor/mon_writestats_rs.F |
60 |
MON_WRITESTATS_RS |
CALL MON_OUT_RL( arrName, theSD, mon_foot_sd, myThid ) |
./pkg/monitor/mon_writestats_rs.F |
61 |
MON_WRITESTATS_RS |
CALL MON_OUT_RL( arrName, theDel2, mon_foot_del2, myThid ) |
./pkg/monitor/monitor.F |
102 |
MONITOR |
CALL MON_SET_PREF( 'time', myThid ) |
./pkg/monitor/monitor.F |
103 |
MONITOR |
CALL MON_OUT_I( '_tsnumber', myIter,mon_string_none,myThid ) |
./pkg/monitor/monitor.F |
104 |
MONITOR |
CALL MON_OUT_RL('_secondsf', myTime,mon_string_none,myThid ) |
./pkg/monitor/monitor.F |
107 |
MONITOR |
CALL MON_SET_PREF( 'dynstat', myThid ) |
./pkg/monitor/monitor.F |
109 |
MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
./pkg/monitor/monitor.F |
111 |
MONITOR |
& hFacW, maskInW, rAw, thickFacC, dummyRL, myThid ) |
./pkg/monitor/monitor.F |
113 |
MONITOR |
& hFacS, maskInS, rAs, thickFacC, dummyRL, myThid ) |
./pkg/monitor/monitor.F |
115 |
MONITOR |
& maskC, maskInC, rA , thickFacF, dummyRL, myThid ) |
./pkg/monitor/monitor.F |
117 |
MONITOR |
& hFacC, maskInC, rA , thickFacC, statsTemp, myThid ) |
./pkg/monitor/monitor.F |
119 |
MONITOR |
& hFacC, maskInC, rA , thickFacC, dummyRL, myThid ) |
./pkg/monitor/monitor.F |
126 |
MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
./pkg/monitor/monitor.F |
128 |
MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
./pkg/monitor/monitor.F |
12 |
MONITOR |
I myTime, myIter, myThid ) |
./pkg/monitor/monitor.F |
133 |
MONITOR |
CALL MON_SET_PREF( 'forcing', myThid ) |
./pkg/monitor/monitor.F |
135 |
MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
./pkg/monitor/monitor.F |
137 |
MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
./pkg/monitor/monitor.F |
139 |
MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
./pkg/monitor/monitor.F |
141 |
MONITOR |
& maskInW, maskInW, rAw, drF, dummyRL, myThid ) |
./pkg/monitor/monitor.F |
143 |
MONITOR |
& maskInS, maskInS, rAs, drF, dummyRL, myThid ) |
./pkg/monitor/monitor.F |
147 |
MONITOR |
CALL MON_SET_PREF( 'advcfl', myThid ) |
./pkg/monitor/monitor.F |
149 |
MONITOR |
CALL MON_ADVCFL( '_uvel', uVel, recip_dxC, dT, myThid ) |
./pkg/monitor/monitor.F |
150 |
MONITOR |
CALL MON_ADVCFL( '_vvel', vVel, recip_dyC, dT, myThid ) |
./pkg/monitor/monitor.F |
151 |
MONITOR |
CALL MON_ADVCFLW( '_wvel', wVel, recip_drC, dT, myThid ) |
./pkg/monitor/monitor.F |
153 |
MONITOR |
& recip_drF, dT, myThid ) |
./pkg/monitor/monitor.F |
156 |
MONITOR |
CALL MON_KE(myIter, myThid) |
./pkg/monitor/monitor.F |
159 |
MONITOR |
IF ( monitorSelect.GE.2 ) CALL MON_VORT3( myIter, myThid ) |
./pkg/monitor/monitor.F |
162 |
MONITOR |
IF ( monitorSelect.GE.2 ) CALL MON_SURFCOR( myThid ) |
./pkg/monitor/monitor.F |
165 |
MONITOR |
CALL MON_SOLUTION( statsTemp, myTime, myIter, myThid ) |
./pkg/monitor/monitor.F |
168 |
MONITOR |
IF ( MASTER_CPU_IO(myThid) ) THEN |
./pkg/monitor/monitor.F |
34 |
MONITOR |
INTEGER myThid |
./pkg/monitor/monitor.F |
53 |
MONITOR |
IF ( MASTER_CPU_IO(myThid) ) THEN |
./pkg/monitor/monitor.F |
70 |
MONITOR |
& 'T', '-_-_--__-__t', 0,0, myThid) |
./pkg/monitor/monitor.F |
71 |
MONITOR |
CALL MNC_CW_SET_UDIM(mon_fname, -1, myThid) |
./pkg/monitor/monitor.F |
73 |
MONITOR |
& 'D',mon_fname,1,1,'T', myTime, myThid) |
./pkg/monitor/monitor.F |
74 |
MONITOR |
CALL MNC_CW_SET_UDIM(mon_fname, 0, myThid) |
./pkg/monitor/monitor_ad.F |
105 |
ADMONITOR |
CALL MON_SET_PREF('ad_time',myThid) |
./pkg/monitor/monitor_ad.F |
106 |
ADMONITOR |
CALL MON_OUT_I( '_tsnumber', myIter,mon_string_none,myThid) |
./pkg/monitor/monitor_ad.F |
107 |
ADMONITOR |
CALL MON_OUT_RL('_secondsf', myTime,mon_string_none,myThid) |
./pkg/monitor/monitor_ad.F |
110 |
ADMONITOR |
CALL MON_SET_PREF('ad_dynstat',myThid) |
./pkg/monitor/monitor_ad.F |
112 |
ADMONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
./pkg/monitor/monitor_ad.F |
114 |
ADMONITOR |
& hFacW, maskInW, rAw, drF, dummyRL, myThid ) |
./pkg/monitor/monitor_ad.F |
116 |
ADMONITOR |
& hFacS, maskInS, rAs, drF, dummyRL, myThid ) |
./pkg/monitor/monitor_ad.F |
118 |
ADMONITOR |
& maskC, maskInC, rA , drC, dummyRL, myThid ) |
./pkg/monitor/monitor_ad.F |
120 |
ADMONITOR |
& hFacC, maskInC, rA , drF, dummyRL, myThid ) |
./pkg/monitor/monitor_ad.F |
122 |
ADMONITOR |
& hFacC, maskInC, rA , drF, dummyRL, myThid ) |
./pkg/monitor/monitor_ad.F |
128 |
ADMONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
./pkg/monitor/monitor_ad.F |
130 |
ADMONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
./pkg/monitor/monitor_ad.F |
135 |
ADMONITOR |
CALL MON_SET_PREF('ad_forcing',myThid) |
./pkg/monitor/monitor_ad.F |
137 |
ADMONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
./pkg/monitor/monitor_ad.F |
140 |
ADMONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
./pkg/monitor/monitor_ad.F |
143 |
ADMONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
./pkg/monitor/monitor_ad.F |
145 |
ADMONITOR |
& maskInW, maskInW, rAw, drF, dummyRL, myThid ) |
./pkg/monitor/monitor_ad.F |
147 |
ADMONITOR |
& maskInS, maskInS, rAs, drF, dummyRL, myThid ) |
./pkg/monitor/monitor_ad.F |
151 |
ADMONITOR |
CALL MON_SET_PREF('ad_advcfl',myThid) |
./pkg/monitor/monitor_ad.F |
153 |
ADMONITOR |
CALL MON_ADVCFL( '_aduvel', aduVel,recip_dxC,dT,myThid ) |
./pkg/monitor/monitor_ad.F |
154 |
ADMONITOR |
CALL MON_ADVCFL( '_advvel', advVel,recip_dyC,dT,myThid ) |
./pkg/monitor/monitor_ad.F |
155 |
ADMONITOR |
CALL MON_ADVCFLW('_adwvel', adwVel,recip_drC,dT,myThid ) |
./pkg/monitor/monitor_ad.F |
157 |
ADMONITOR |
& recip_drF,dT,myThid ) |
./pkg/monitor/monitor_ad.F |
15 |
ADMONITOR |
I myTime, myIter, myThid ) |
./pkg/monitor/monitor_ad.F |
160 |
ADMONITOR |
IF ( MASTER_CPU_IO(myThid) ) THEN |
./pkg/monitor/monitor_ad.F |
42 |
ADMONITOR |
INTEGER myThid |
./pkg/monitor/monitor_ad.F |
62 |
ADMONITOR |
IF ( MASTER_CPU_IO(myThid) ) THEN |
./pkg/monitor/monitor_ad.F |
79 |
ADMONITOR |
& 'T', '-_-_--__-__t', 0,0, myThid) |
./pkg/monitor/monitor_ad.F |
80 |
ADMONITOR |
CALL MNC_CW_SET_UDIM(mon_fname, -1, myThid) |
./pkg/monitor/monitor_ad.F |
82 |
ADMONITOR |
& 'D',mon_fname,1,1,'T', myTime, myThid) |
./pkg/monitor/monitor_ad.F |
83 |
ADMONITOR |
CALL MNC_CW_SET_UDIM(mon_fname, 0, myThid) |
./pkg/monitor/monitor_g.F |
105 |
G_MONITOR |
CALL MON_SET_PREF('g__time',myThid) |
./pkg/monitor/monitor_g.F |
106 |
G_MONITOR |
CALL MON_OUT_I( '_tsnumber', myIter,mon_string_none,myThid) |
./pkg/monitor/monitor_g.F |
107 |
G_MONITOR |
CALL MON_OUT_RL('_secondsf', myTime,mon_string_none,myThid) |
./pkg/monitor/monitor_g.F |
110 |
G_MONITOR |
CALL MON_SET_PREF('g__dynstat',myThid) |
./pkg/monitor/monitor_g.F |
113 |
G_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
./pkg/monitor/monitor_g.F |
115 |
G_MONITOR |
& hFacW, maskInW, rAw, drF, dummyRL, myThid ) |
./pkg/monitor/monitor_g.F |
117 |
G_MONITOR |
& hFacS, maskInS, rAs, drF, dummyRL, myThid ) |
./pkg/monitor/monitor_g.F |
119 |
G_MONITOR |
& maskC, maskInC, rA , drC, dummyRL, myThid ) |
./pkg/monitor/monitor_g.F |
121 |
G_MONITOR |
& hFacC, maskInC, rA , drF, dummyRL, myThid ) |
./pkg/monitor/monitor_g.F |
123 |
G_MONITOR |
& hFacC, maskInC, rA , drF, dummyRL, myThid ) |
./pkg/monitor/monitor_g.F |
129 |
G_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
./pkg/monitor/monitor_g.F |
131 |
G_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
./pkg/monitor/monitor_g.F |
136 |
G_MONITOR |
CALL MON_SET_PREF('g__forcing',myThid) |
./pkg/monitor/monitor_g.F |
138 |
G_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
./pkg/monitor/monitor_g.F |
141 |
G_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
./pkg/monitor/monitor_g.F |
144 |
G_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
./pkg/monitor/monitor_g.F |
146 |
G_MONITOR |
& maskInW, maskInW, rAw, drF, dummyRL, myThid ) |
./pkg/monitor/monitor_g.F |
148 |
G_MONITOR |
& maskInS, maskInS, rAs, drF, dummyRL, myThid ) |
./pkg/monitor/monitor_g.F |
152 |
G_MONITOR |
CALL MON_SET_PREF('g__g_vcfl',myThid) |
./pkg/monitor/monitor_g.F |
154 |
G_MONITOR |
CALL MON_ADVCFL( '_g_uvel', g_uVel,recip_dxC,dT,myThid ) |
./pkg/monitor/monitor_g.F |
155 |
G_MONITOR |
CALL MON_ADVCFL( '_g_vvel', g_vVel,recip_dyC,dT,myThid ) |
./pkg/monitor/monitor_g.F |
156 |
G_MONITOR |
CALL MON_ADVCFLW( '_g_wvel',g_wVel,recip_drC,dT,myThid ) |
./pkg/monitor/monitor_g.F |
158 |
G_MONITOR |
& recip_drF,dT,myThid ) |
./pkg/monitor/monitor_g.F |
15 |
G_MONITOR |
I myTime, myIter, myThid ) |
./pkg/monitor/monitor_g.F |
161 |
G_MONITOR |
IF ( MASTER_CPU_IO(myThid) ) THEN |
./pkg/monitor/monitor_g.F |
42 |
G_MONITOR |
INTEGER myThid |
./pkg/monitor/monitor_g.F |
62 |
G_MONITOR |
IF ( MASTER_CPU_IO(myThid) ) THEN |
./pkg/monitor/monitor_g.F |
79 |
G_MONITOR |
& 'T', '-_-_--__-__t', 0,0, myThid) |
./pkg/monitor/monitor_g.F |
80 |
G_MONITOR |
CALL MNC_CW_SET_UDIM(mon_fname, -1, myThid) |
./pkg/monitor/monitor_g.F |
82 |
G_MONITOR |
& 'D',mon_fname,1,1,'T', myTime, myThid) |
./pkg/monitor/monitor_g.F |
83 |
G_MONITOR |
CALL MNC_CW_SET_UDIM(mon_fname, 0, myThid) |
./model/src/calc_phi_hyd.F |
106 |
CALC_PHI_HYD |
act1 = bi - myBxLo(myThid) |
./model/src/calc_phi_hyd.F |
107 |
CALC_PHI_HYD |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
./model/src/calc_phi_hyd.F |
109 |
CALC_PHI_HYD |
act2 = bj - myByLo(myThid) |
./model/src/calc_phi_hyd.F |
110 |
CALC_PHI_HYD |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
./model/src/calc_phi_hyd.F |
112 |
CALC_PHI_HYD |
act3 = myThid - 1 |
./model/src/calc_phi_hyd.F |
156 |
CALC_PHI_HYD |
I k, bi, bj, myThid ) |
./model/src/calc_phi_hyd.F |
15 |
CALC_PHI_HYD |
I myTime, myIter, myThid ) |
./model/src/calc_phi_hyd.F |
189 |
CALC_PHI_HYD |
CALL MOM_QUASIHYDROSTATIC(bi,bj,k,uVel,vVel,alphaRho,myThid) |
./model/src/calc_phi_hyd.F |
273 |
CALC_PHI_HYD |
I k, bi, bj, myThid ) |
./model/src/calc_phi_hyd.F |
507 |
CALC_PHI_HYD |
I myTime, myIter, myThid) |
./model/src/calc_phi_hyd.F |
514 |
CALC_PHI_HYD |
I myTime, myIter, myThid) |
./model/src/calc_phi_hyd.F |
521 |
CALC_PHI_HYD |
I myTime, myIter, myThid) |
./model/src/calc_phi_hyd.F |
74 |
CALC_PHI_HYD |
INTEGER myIter, myThid |
./pkg/my82/my82_calc.F |
11 |
MY82_CALC |
I bi, bj, myTime, myThid ) |
./pkg/my82/my82_calc.F |
46 |
MY82_CALC |
INTEGER myThid |
./pkg/my82/my82_calc.F |
96 |
MY82_CALC |
I myTime, myThid ) |
./pkg/my82/my82_calc_diff.F |
39 |
MY82_CALC_DIFF |
INTEGER myThid |
./pkg/my82/my82_calc_diff.F |
9 |
MY82_CALC_DIFF |
I myThid) |
./pkg/my82/my82_calc_visc.F |
31 |
MY82_CALC_VISC |
INTEGER myThid |
./pkg/my82/my82_calc_visc.F |
8 |
MY82_CALC_VISC |
I myThid) |
./pkg/my82/my82_check.F |
20 |
MY82_CHECK |
INTEGER myThid |
./pkg/my82/my82_check.F |
5 |
MY82_CHECK |
SUBROUTINE MY82_CHECK( myThid ) |
./pkg/my82/my82_diagnostics_init.F |
27 |
MY82_DIAGNOSTICS_INIT |
INTEGER myThid |
./pkg/my82/my82_diagnostics_init.F |
52 |
MY82_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/my82/my82_diagnostics_init.F |
59 |
MY82_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/my82/my82_diagnostics_init.F |
66 |
MY82_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/my82/my82_diagnostics_init.F |
9 |
MY82_DIAGNOSTICS_INIT |
SUBROUTINE MY82_DIAGNOSTICS_INIT( myThid ) |
./pkg/my82/my82_init_fixed.F |
29 |
MY82_INIT_FIXED |
INTEGER myThid |
./pkg/my82/my82_init_fixed.F |
39 |
MY82_INIT_FIXED |
& 4,5, myThid) |
./pkg/my82/my82_init_fixed.F |
41 |
MY82_INIT_FIXED |
& myThid) |
./pkg/my82/my82_init_fixed.F |
43 |
MY82_INIT_FIXED |
& 'MY_vertical_eddy_viscosity_coefficient', myThid) |
./pkg/my82/my82_init_fixed.F |
45 |
MY82_INIT_FIXED |
& 'coordinates','XC YC RC iter', myThid) |
./pkg/my82/my82_init_fixed.F |
48 |
MY82_INIT_FIXED |
& 4,5, myThid) |
./pkg/my82/my82_init_fixed.F |
50 |
MY82_INIT_FIXED |
& myThid) |
./pkg/my82/my82_init_fixed.F |
53 |
MY82_INIT_FIXED |
& myThid) |
./pkg/my82/my82_init_fixed.F |
55 |
MY82_INIT_FIXED |
& 'coordinates','XC YC RC iter', myThid) |
./pkg/my82/my82_init_fixed.F |
58 |
MY82_INIT_FIXED |
& 3,4, myThid) |
./pkg/my82/my82_init_fixed.F |
60 |
MY82_INIT_FIXED |
& myThid) |
./pkg/my82/my82_init_fixed.F |
62 |
MY82_INIT_FIXED |
& 'MY_boundary_layer_depth', myThid) |
./pkg/my82/my82_init_fixed.F |
64 |
MY82_INIT_FIXED |
& 'coordinates','XC YC iter', myThid) |
./pkg/my82/my82_init_fixed.F |
70 |
MY82_INIT_FIXED |
CALL MY82_DIAGNOSTICS_INIT( myThid ) |
./pkg/my82/my82_init_fixed.F |
9 |
MY82_INIT_FIXED |
SUBROUTINE MY82_INIT_FIXED( myThid ) |
./pkg/my82/my82_init_varia.F |
24 |
MY82_INIT_VARIA |
INTEGER myThid |
./pkg/my82/my82_init_varia.F |
48 |
MY82_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/my82/my82_init_varia.F |
49 |
MY82_INIT_VARIA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/my82/my82_init_varia.F |
6 |
MY82_INIT_VARIA |
SUBROUTINE MY82_INIT_VARIA( myThid ) |
./pkg/my82/my82_output.F |
100 |
MY82_OUTPUT |
& myIter,myThid) |
./pkg/my82/my82_output.F |
110 |
MY82_OUTPUT |
CALL MNC_CW_SET_UDIM('my_state', -1, myThid) |
./pkg/my82/my82_output.F |
111 |
MY82_OUTPUT |
CALL MNC_CW_RL_W_S('D','my_state',0,0,'T',myTime,myThid) |
./pkg/my82/my82_output.F |
112 |
MY82_OUTPUT |
CALL MNC_CW_SET_UDIM('my_state', 0, myThid) |
./pkg/my82/my82_output.F |
113 |
MY82_OUTPUT |
CALL MNC_CW_I_W_S('I','my_state',0,0,'iter',myIter,myThid) |
./pkg/my82/my82_output.F |
115 |
MY82_OUTPUT |
& 'MYviscAr', MYviscAr, myThid) |
./pkg/my82/my82_output.F |
117 |
MY82_OUTPUT |
& 'MYdiffKr', MYdiffKr, myThid) |
./pkg/my82/my82_output.F |
119 |
MY82_OUTPUT |
& 'MYhbl', MYhbl, myThid) |
./pkg/my82/my82_output.F |
134 |
MY82_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/my82/my82_output.F |
135 |
MY82_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/my82/my82_output.F |
136 |
MY82_OUTPUT |
CALL TIMEAVE_RESET( MYviscArtave, Nr, bi, bj, myThid ) |
./pkg/my82/my82_output.F |
137 |
MY82_OUTPUT |
CALL TIMEAVE_RESET( MYdiffKrtave, Nr, bi, bj, myThid ) |
./pkg/my82/my82_output.F |
138 |
MY82_OUTPUT |
CALL TIMEAVE_RESET( MYhbltave, 1 , bi, bj, myThid ) |
./pkg/my82/my82_output.F |
146 |
MY82_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/my82/my82_output.F |
147 |
MY82_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/my82/my82_output.F |
149 |
MY82_OUTPUT |
& Nr, DDTT, bi, bj, myThid ) |
./pkg/my82/my82_output.F |
151 |
MY82_OUTPUT |
& Nr, DDTT, bi, bj, myThid ) |
./pkg/my82/my82_output.F |
153 |
MY82_OUTPUT |
& 1 , DDTT, bi, bj, myThid ) |
./pkg/my82/my82_output.F |
166 |
MY82_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/my82/my82_output.F |
167 |
MY82_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/my82/my82_output.F |
169 |
MY82_OUTPUT |
& MY_timeAve, Nr, bi,bj,myThid) |
./pkg/my82/my82_output.F |
171 |
MY82_OUTPUT |
& MY_timeAve, Nr, bi,bj,myThid) |
./pkg/my82/my82_output.F |
173 |
MY82_OUTPUT |
& MY_timeAve, 1 , bi,bj,myThid) |
./pkg/my82/my82_output.F |
181 |
MY82_OUTPUT |
& MYviscArTave, myIter, myThid ) |
./pkg/my82/my82_output.F |
183 |
MY82_OUTPUT |
& MYdiffKrTave, myIter, myThid ) |
./pkg/my82/my82_output.F |
185 |
MY82_OUTPUT |
& MYhblTave, myIter, myThid ) |
./pkg/my82/my82_output.F |
195 |
MY82_OUTPUT |
CALL MNC_CW_SET_UDIM('my_timeave', -1, myThid) |
./pkg/my82/my82_output.F |
196 |
MY82_OUTPUT |
CALL MNC_CW_RL_W_S('D','my_timeave',0,0,'T',myTime,myThid) |
./pkg/my82/my82_output.F |
197 |
MY82_OUTPUT |
CALL MNC_CW_SET_UDIM('my_timeave', 0, myThid) |
./pkg/my82/my82_output.F |
198 |
MY82_OUTPUT |
CALL MNC_CW_I_W_S('I','my_timeave',0,0,'iter',myIter,myThid) |
./pkg/my82/my82_output.F |
200 |
MY82_OUTPUT |
& 'MYviscAr', MYviscArTave, myThid) |
./pkg/my82/my82_output.F |
202 |
MY82_OUTPUT |
& 'MYdiffKr', MYdiffKrTave, myThid) |
./pkg/my82/my82_output.F |
204 |
MY82_OUTPUT |
& 'MYhbl', MYhblTave, myThid) |
./pkg/my82/my82_output.F |
209 |
MY82_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/my82/my82_output.F |
210 |
MY82_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/my82/my82_output.F |
211 |
MY82_OUTPUT |
CALL TIMEAVE_RESET( MYviscArtave, Nr, bi, bj, myThid ) |
./pkg/my82/my82_output.F |
212 |
MY82_OUTPUT |
CALL TIMEAVE_RESET( MYdiffKrtave, Nr, bi, bj, myThid ) |
./pkg/my82/my82_output.F |
213 |
MY82_OUTPUT |
CALL TIMEAVE_RESET( MYhbltave, 1 , bi, bj, myThid ) |
./pkg/my82/my82_output.F |
227 |
MY82_OUTPUT |
CALL DIAGNOSTICS_FILL(MYviscAr,'MYVISCAR',0,Nr,0,1,1,myThid) |
./pkg/my82/my82_output.F |
228 |
MY82_OUTPUT |
CALL DIAGNOSTICS_FILL(MYdiffKr,'MYDIFFKR',0,Nr,0,1,1,myThid) |
./pkg/my82/my82_output.F |
229 |
MY82_OUTPUT |
CALL DIAGNOSTICS_FILL(MYhbl ,'MYHBL ',0,1 ,0,1,1,myThid) |
./pkg/my82/my82_output.F |
60 |
MY82_OUTPUT |
INTEGER myThid |
./pkg/my82/my82_output.F |
96 |
MY82_OUTPUT |
& myIter,myThid) |
./pkg/my82/my82_output.F |
98 |
MY82_OUTPUT |
& myIter,myThid) |
./pkg/my82/my82_output.F |
9 |
MY82_OUTPUT |
SUBROUTINE MY82_OUTPUT( myTime, myIter, myThid ) |
./model/src/calc_r_star.F |
14 |
CALC_R_STAR |
I myTime, myIter, myThid ) |
./model/src/calc_r_star.F |
197 |
CALC_R_STAR |
& ' pts : bi,bj,Thid,Iter=',bi,bj,myThid,myIter |
./model/src/calc_r_star.F |
209 |
CALC_R_STAR |
& ' pts : bi,bj,Thid,Iter=',bi,bj,myThid,myIter |
./model/src/calc_r_star.F |
220 |
CALC_R_STAR |
& ' pts : bi,bj,Thid,Iter=',bi,bj,myThid,myIter |
./model/src/calc_r_star.F |
236 |
CALC_R_STAR |
& ' pts : bi,bj,Thid,Iter=',bi,bj,myThid,myIter |
./model/src/calc_r_star.F |
248 |
CALC_R_STAR |
_EXCH_XY_RL( rStarFacC, myThid ) |
./model/src/calc_r_star.F |
249 |
CALC_R_STAR |
CALL EXCH_UV_XY_RL(rStarFacW,rStarFacS,.FALSE.,myThid) |
./model/src/calc_r_star.F |
253 |
CALC_R_STAR |
DO bj=myByLo(myThid), myByHi(myThid) |
./model/src/calc_r_star.F |
254 |
CALC_R_STAR |
DO bi=myBxLo(myThid), myBxHi(myThid) |
./model/src/calc_r_star.F |
309 |
CALC_R_STAR |
IF (debugMode) CALL DEBUG_LEAVE('CALC_R_STAR',myThid) |
./model/src/calc_r_star.F |
40 |
CALC_R_STAR |
INTEGER myThid |
./model/src/calc_r_star.F |
75 |
CALC_R_STAR |
IF (debugMode) CALL DEBUG_ENTER('CALC_R_STAR',myThid) |
./model/src/calc_r_star.F |
78 |
CALC_R_STAR |
DO bj=myByLo(myThid), myByHi(myThid) |
./model/src/calc_r_star.F |
79 |
CALC_R_STAR |
DO bi=myBxLo(myThid), myBxHi(myThid) |
./pkg/my82/my82_readparms.F |
10 |
MY82_READPARMS |
SUBROUTINE MY82_READPARMS( myThid ) |
./pkg/my82/my82_readparms.F |
24 |
MY82_READPARMS |
INTEGER myThid |
./pkg/my82/my82_readparms.F |
62 |
MY82_READPARMS |
_BEGIN_MASTER(myThid) |
./pkg/my82/my82_readparms.F |
69 |
MY82_READPARMS |
I myThid ) |
./pkg/my82/my82_readparms.F |
78 |
MY82_READPARMS |
_END_MASTER(myThid) |
./pkg/my82/my82_ri_number.F |
13 |
MY82_RI_NUMBER |
I myTime, myThid ) |
./pkg/my82/my82_ri_number.F |
46 |
MY82_RI_NUMBER |
INTEGER myThid |
./pkg/my82/my82_ri_number.F |
93 |
MY82_RI_NUMBER |
I Km1, bi, bj, myThid ) |
./pkg/my82/my82_ri_number.F |
98 |
MY82_RI_NUMBER |
I K, bi, bj, myThid ) |
./pkg/mypackage/mypackage_calc_rhs.F |
11 |
MYPACKAGE_CALC_RHS |
I bi, bj, myTime, myIter, myThid ) |
./pkg/mypackage/mypackage_calc_rhs.F |
26 |
MYPACKAGE_CALC_RHS |
INTEGER myIter, myThid |
./pkg/mypackage/mypackage_check.F |
11 |
MYPACKAGE_CHECK |
SUBROUTINE MYPACKAGE_CHECK( myThid ) |
./pkg/mypackage/mypackage_check.F |
25 |
MYPACKAGE_CHECK |
INTEGER myThid |
./pkg/mypackage/mypackage_check.F |
33 |
MYPACKAGE_CHECK |
_BEGIN_MASTER(myThid) |
./pkg/mypackage/mypackage_check.F |
77 |
MYPACKAGE_CHECK |
_END_MASTER(myThid) |
./pkg/mypackage/mypackage_diagnostics_init.F |
106 |
MYPACKAGE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/mypackage/mypackage_diagnostics_init.F |
115 |
MYPACKAGE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/mypackage/mypackage_diagnostics_init.F |
11 |
MYPACKAGE_DIAGNOSTICS_INIT |
SUBROUTINE MYPACKAGE_DIAGNOSTICS_INIT( myThid ) |
./pkg/mypackage/mypackage_diagnostics_init.F |
124 |
MYPACKAGE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/mypackage/mypackage_diagnostics_init.F |
132 |
MYPACKAGE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/mypackage/mypackage_diagnostics_init.F |
133 |
MYPACKAGE_DIAGNOSTICS_INIT |
CALL DIAGNOSTICS_SETKLEV( diagName, 3, myThid ) |
./pkg/mypackage/mypackage_diagnostics_init.F |
24 |
MYPACKAGE_DIAGNOSTICS_INIT |
INTEGER myThid |
./pkg/mypackage/mypackage_diagnostics_init.F |
53 |
MYPACKAGE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/mypackage/mypackage_diagnostics_init.F |
60 |
MYPACKAGE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/mypackage/mypackage_diagnostics_init.F |
69 |
MYPACKAGE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/mypackage/mypackage_diagnostics_init.F |
78 |
MYPACKAGE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/mypackage/mypackage_diagnostics_init.F |
85 |
MYPACKAGE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/mypackage/mypackage_diagnostics_init.F |
92 |
MYPACKAGE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/mypackage/mypackage_diagnostics_init.F |
99 |
MYPACKAGE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/mypackage/mypackage_diagnostics_state.F |
12 |
MYPACKAGE_DIAGNOSTICS_STATE |
I myTime, myIter, myThid ) |
./pkg/mypackage/mypackage_diagnostics_state.F |
31 |
MYPACKAGE_DIAGNOSTICS_STATE |
INTEGER myIter, myThid |
./pkg/mypackage/mypackage_diagnostics_state.F |
42 |
MYPACKAGE_DIAGNOSTICS_STATE |
& 0,Nr, 0, 1, 1, myThid ) |
./pkg/mypackage/mypackage_diagnostics_state.F |
44 |
MYPACKAGE_DIAGNOSTICS_STATE |
& 0,Nr, 0, 1, 1, myThid ) |
./pkg/mypackage/mypackage_diagnostics_state.F |
46 |
MYPACKAGE_DIAGNOSTICS_STATE |
& 0,Nr, 0, 1, 1, myThid ) |
./pkg/mypackage/mypackage_diagnostics_state.F |
48 |
MYPACKAGE_DIAGNOSTICS_STATE |
& 0,Nr, 0, 1, 1, myThid ) |
./pkg/mypackage/mypackage_diagnostics_state.F |
53 |
MYPACKAGE_DIAGNOSTICS_STATE |
& 0, 1, 0, 1, 1, myThid ) |
./pkg/mypackage/mypackage_diagnostics_state.F |
55 |
MYPACKAGE_DIAGNOSTICS_STATE |
& 0, 1, 0, 1, 1, myThid ) |
./pkg/mypackage/mypackage_init_fixed.F |
11 |
MYPACKAGE_INIT_FIXED |
SUBROUTINE MYPACKAGE_INIT_FIXED( myThid ) |
./pkg/mypackage/mypackage_init_fixed.F |
25 |
MYPACKAGE_INIT_FIXED |
INTEGER myThid |
./pkg/mypackage/mypackage_init_fixed.F |
33 |
MYPACKAGE_INIT_FIXED |
CALL MYPACKAGE_MNC_INIT( myThid ) |
./pkg/mypackage/mypackage_init_fixed.F |
39 |
MYPACKAGE_INIT_FIXED |
CALL MYPACKAGE_DIAGNOSTICS_INIT( myThid ) |
./pkg/mypackage/mypackage_init_varia.F |
104 |
MYPACKAGE_INIT_VARIA |
& .TRUE., Nr, myThid ) |
./pkg/mypackage/mypackage_init_varia.F |
108 |
MYPACKAGE_INIT_VARIA |
& .TRUE., Nr, myThid ) |
./pkg/mypackage/mypackage_init_varia.F |
116 |
MYPACKAGE_INIT_VARIA |
& myPa_Surf1, 0, myThid ) |
./pkg/mypackage/mypackage_init_varia.F |
117 |
MYPACKAGE_INIT_VARIA |
CALL EXCH_XY_RL( myPa_Surf1, myThid ) |
./pkg/mypackage/mypackage_init_varia.F |
11 |
MYPACKAGE_INIT_VARIA |
SUBROUTINE MYPACKAGE_INIT_VARIA( myThid ) |
./pkg/mypackage/mypackage_init_varia.F |
121 |
MYPACKAGE_INIT_VARIA |
& myPa_Surf2, 0, myThid ) |
./pkg/mypackage/mypackage_init_varia.F |
122 |
MYPACKAGE_INIT_VARIA |
CALL EXCH_XY_RL( myPa_Surf2, myThid ) |
./pkg/mypackage/mypackage_init_varia.F |
128 |
MYPACKAGE_INIT_VARIA |
CALL MYPACKAGE_READ_PICKUP( nIter0, myThid ) |
./pkg/mypackage/mypackage_init_varia.F |
26 |
MYPACKAGE_INIT_VARIA |
INTEGER myThid |
./pkg/mypackage/mypackage_init_varia.F |
35 |
MYPACKAGE_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/mypackage/mypackage_init_varia.F |
36 |
MYPACKAGE_INIT_VARIA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/mypackage/mypackage_init_varia.F |
83 |
MYPACKAGE_INIT_VARIA |
& myPa_StatScal1, 0, myThid ) |
./pkg/mypackage/mypackage_init_varia.F |
84 |
MYPACKAGE_INIT_VARIA |
CALL EXCH_3D_RL( myPa_StatScal1, Nr, myThid ) |
./pkg/mypackage/mypackage_init_varia.F |
88 |
MYPACKAGE_INIT_VARIA |
& myPa_StatScal2, 0, myThid ) |
./pkg/mypackage/mypackage_init_varia.F |
89 |
MYPACKAGE_INIT_VARIA |
CALL EXCH_3D_RL( myPa_StatScal2, Nr, myThid ) |
./pkg/mypackage/mypackage_init_varia.F |
94 |
MYPACKAGE_INIT_VARIA |
& myPa_StatVelU, 0, myThid ) |
./pkg/mypackage/mypackage_init_varia.F |
98 |
MYPACKAGE_INIT_VARIA |
& myPa_StatVelV, 0, myThid ) |
./model/src/calc_surf_dr.F |
10 |
CALC_SURF_DR |
I myTime, myIter, myThid ) |
./model/src/calc_surf_dr.F |
123 |
CALC_SURF_DR |
& ' i,j,k,bi,bj,Thid,Iter=',i,j,ks,bi,bj,myThid,myIter |
./model/src/calc_surf_dr.F |
176 |
CALC_SURF_DR |
_GLOBAL_SUM_RL( adjust_nb_pt , myThid ) |
./model/src/calc_surf_dr.F |
177 |
CALC_SURF_DR |
_GLOBAL_SUM_RL( adjust_volum , myThid ) |
./model/src/calc_surf_dr.F |
179 |
CALC_SURF_DR |
_BEGIN_MASTER( myThid ) |
./model/src/calc_surf_dr.F |
183 |
CALC_SURF_DR |
_END_MASTER( myThid ) |
./model/src/calc_surf_dr.F |
186 |
CALC_SURF_DR |
_EXCH_XY_RS(hFac_surfC, myThid ) |
./model/src/calc_surf_dr.F |
187 |
CALC_SURF_DR |
CALL EXCH_UV_XY_RS(hFac_surfW,hFac_surfS,.FALSE.,myThid) |
./model/src/calc_surf_dr.F |
37 |
CALC_SURF_DR |
INTEGER myThid |
./model/src/calc_surf_dr.F |
65 |
CALC_SURF_DR |
DO bj=myByLo(myThid), myByHi(myThid) |
./model/src/calc_surf_dr.F |
66 |
CALC_SURF_DR |
DO bi=myBxLo(myThid), myBxHi(myThid) |
./model/src/calc_surf_dr.F |
85 |
CALC_SURF_DR |
& ' i,j,k,bi,bj,Thid,Iter=',i,j,ks,bi,bj,myThid,myIter |
./model/src/calc_surf_dr.F |
89 |
CALC_SURF_DR |
& ' i,j,k,bi,bj,Thid,Iter=',i,j,ks,bi,bj,myThid,myIter |
./pkg/mypackage/mypackage_mnc_init.F |
11 |
MYPACKAGE_MNC_INIT |
SUBROUTINE MYPACKAGE_MNC_INIT( myThid ) |
./pkg/mypackage/mypackage_mnc_init.F |
24 |
MYPACKAGE_MNC_INIT |
INTEGER myThid |
./pkg/mypackage/mypackage_mnc_init.F |
33 |
MYPACKAGE_MNC_INIT |
& 'Cen_xy_Hn__L__t', 4,5,myThid) |
./pkg/mypackage/mypackage_mnc_init.F |
35 |
MYPACKAGE_MNC_INIT |
& 'units','[unit]', myThid) |
./pkg/mypackage/mypackage_mnc_init.F |
37 |
MYPACKAGE_MNC_INIT |
& 'scalar state variable myPa_StatScal1',myThid) |
./pkg/mypackage/mypackage_mnc_init.F |
40 |
MYPACKAGE_MNC_INIT |
& 'Cen_xy_Hn__L__t', 4,5,myThid) |
./pkg/mypackage/mypackage_mnc_init.F |
42 |
MYPACKAGE_MNC_INIT |
& 'units','[unit]', myThid) |
./pkg/mypackage/mypackage_mnc_init.F |
44 |
MYPACKAGE_MNC_INIT |
& 'scalar state variable myPa_StatScal2',myThid) |
./pkg/mypackage/mypackage_mnc_init.F |
47 |
MYPACKAGE_MNC_INIT |
& 'U_xy_Hn__C__t', 4,5,myThid) |
./pkg/mypackage/mypackage_mnc_init.F |
49 |
MYPACKAGE_MNC_INIT |
& 'units','[unit]', myThid) |
./pkg/mypackage/mypackage_mnc_init.F |
51 |
MYPACKAGE_MNC_INIT |
& 'uVel-type state variable myPa_StatVelU',myThid) |
./pkg/mypackage/mypackage_mnc_init.F |
54 |
MYPACKAGE_MNC_INIT |
& 'V_xy_Hn__C__t', 4,5,myThid) |
./pkg/mypackage/mypackage_mnc_init.F |
56 |
MYPACKAGE_MNC_INIT |
& 'units','[unit]', myThid) |
./pkg/mypackage/mypackage_mnc_init.F |
58 |
MYPACKAGE_MNC_INIT |
& 'vVel-type state variable myPa_StatVelV',myThid) |
./pkg/mypackage/mypackage_mnc_init.F |
61 |
MYPACKAGE_MNC_INIT |
& 'Cen_xy_Hn__-__t', 3,4,myThid) |
./pkg/mypackage/mypackage_mnc_init.F |
63 |
MYPACKAGE_MNC_INIT |
& 'units','[unit]', myThid) |
./pkg/mypackage/mypackage_mnc_init.F |
65 |
MYPACKAGE_MNC_INIT |
& 'Surface scalar field myPa_Surf1',myThid) |
./pkg/mypackage/mypackage_mnc_init.F |
68 |
MYPACKAGE_MNC_INIT |
& 'Cen_xy_Hn__-__t', 3,4,myThid) |
./pkg/mypackage/mypackage_mnc_init.F |
70 |
MYPACKAGE_MNC_INIT |
& 'units','[unit]', myThid) |
./pkg/mypackage/mypackage_mnc_init.F |
72 |
MYPACKAGE_MNC_INIT |
& 'Surface scalar field myPa_Surf2',myThid) |
./pkg/mypackage/mypackage_read_pickup.F |
101 |
MYPACKAGE_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/mypackage/mypackage_read_pickup.F |
112 |
MYPACKAGE_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mypackage/mypackage_read_pickup.F |
11 |
MYPACKAGE_READ_PICKUP |
SUBROUTINE MYPACKAGE_READ_PICKUP( myIter, myThid ) |
./pkg/mypackage/mypackage_read_pickup.F |
129 |
MYPACKAGE_READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./pkg/mypackage/mypackage_read_pickup.F |
131 |
MYPACKAGE_READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./pkg/mypackage/mypackage_read_pickup.F |
133 |
MYPACKAGE_READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./pkg/mypackage/mypackage_read_pickup.F |
135 |
MYPACKAGE_READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./pkg/mypackage/mypackage_read_pickup.F |
141 |
MYPACKAGE_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
./pkg/mypackage/mypackage_read_pickup.F |
143 |
MYPACKAGE_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
./pkg/mypackage/mypackage_read_pickup.F |
154 |
MYPACKAGE_READ_PICKUP |
I myIter, myThid ) |
./pkg/mypackage/mypackage_read_pickup.F |
158 |
MYPACKAGE_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mypackage/mypackage_read_pickup.F |
166 |
MYPACKAGE_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mypackage/mypackage_read_pickup.F |
173 |
MYPACKAGE_READ_PICKUP |
CALL EXCH_3D_RL( myPa_StatScal1, Nr, myThid ) |
./pkg/mypackage/mypackage_read_pickup.F |
174 |
MYPACKAGE_READ_PICKUP |
CALL EXCH_3D_RL( myPa_StatScal2, Nr, myThid ) |
./pkg/mypackage/mypackage_read_pickup.F |
177 |
MYPACKAGE_READ_PICKUP |
& .TRUE., Nr, myThid ) |
./pkg/mypackage/mypackage_read_pickup.F |
181 |
MYPACKAGE_READ_PICKUP |
& .TRUE., Nr, myThid ) |
./pkg/mypackage/mypackage_read_pickup.F |
185 |
MYPACKAGE_READ_PICKUP |
CALL EXCH_XY_RL( myPa_Surf1, myThid ) |
./pkg/mypackage/mypackage_read_pickup.F |
186 |
MYPACKAGE_READ_PICKUP |
CALL EXCH_XY_RL( myPa_Surf2, myThid ) |
./pkg/mypackage/mypackage_read_pickup.F |
27 |
MYPACKAGE_READ_PICKUP |
INTEGER myThid |
./pkg/mypackage/mypackage_read_pickup.F |
66 |
MYPACKAGE_READ_PICKUP |
I Nr, myIter, myThid ) |
./pkg/mypackage/mypackage_read_pickup.F |
67 |
MYPACKAGE_READ_PICKUP |
_BEGIN_MASTER( myThid ) |
./pkg/mypackage/mypackage_read_pickup.F |
72 |
MYPACKAGE_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mypackage/mypackage_read_pickup.F |
75 |
MYPACKAGE_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mypackage/mypackage_read_pickup.F |
78 |
MYPACKAGE_READ_PICKUP |
_END_MASTER( myThid ) |
./pkg/mypackage/mypackage_read_pickup.F |
87 |
MYPACKAGE_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mypackage/mypackage_read_pickup.F |
91 |
MYPACKAGE_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/mypackage/mypackage_read_pickup.F |
96 |
MYPACKAGE_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/mypackage/mypackage_readparms.F |
100 |
MYPACKAGE_READPARMS |
_END_MASTER(myThid) |
./pkg/mypackage/mypackage_readparms.F |
11 |
MYPACKAGE_READPARMS |
SUBROUTINE MYPACKAGE_READPARMS( myThid ) |
./pkg/mypackage/mypackage_readparms.F |
24 |
MYPACKAGE_READPARMS |
INTEGER myThid |
./pkg/mypackage/mypackage_readparms.F |
48 |
MYPACKAGE_READPARMS |
_BEGIN_MASTER(myThid) |
./pkg/mypackage/mypackage_readparms.F |
81 |
MYPACKAGE_READPARMS |
I myThid ) |
./pkg/mypackage/mypackage_tendency_apply.F |
129 |
MYPACKAGE_TENDENCY_APPLY_T |
& bi, bj, k, myTime, myThid ) |
./pkg/mypackage/mypackage_tendency_apply.F |
144 |
MYPACKAGE_TENDENCY_APPLY_T |
INTEGER iMin, iMax, jMin, jMax, k, bi, bj, myThid |
./pkg/mypackage/mypackage_tendency_apply.F |
173 |
MYPACKAGE_TENDENCY_APPLY_S |
& bi, bj, k, myTime, myThid ) |
./pkg/mypackage/mypackage_tendency_apply.F |
188 |
MYPACKAGE_TENDENCY_APPLY_S |
INTEGER iMin, iMax, jMin, jMax, k, bi, bj, myThid |
./pkg/mypackage/mypackage_tendency_apply.F |
19 |
MYPACKAGE_TENDENCY_APPLY_U |
& bi, bj, k, myTime, myThid ) |
./pkg/mypackage/mypackage_tendency_apply.F |
35 |
MYPACKAGE_TENDENCY_APPLY_U |
INTEGER iMin, iMax, jMin, jMax, k, bi, bj, myThid |
./pkg/mypackage/mypackage_tendency_apply.F |
74 |
MYPACKAGE_TENDENCY_APPLY_V |
& bi, bj, k, myTime, myThid ) |
./pkg/mypackage/mypackage_tendency_apply.F |
90 |
MYPACKAGE_TENDENCY_APPLY_V |
INTEGER iMin, iMax, jMin, jMax, k, bi, bj, myThid |
./pkg/mypackage/mypackage_write_pickup.F |
104 |
MYPACKAGE_WRITE_PICKUP |
& myPa_Surf1, nj, myIter, myThid ) |
./pkg/mypackage/mypackage_write_pickup.F |
110 |
MYPACKAGE_WRITE_PICKUP |
& myPa_Surf2, nj, myIter, myThid ) |
./pkg/mypackage/mypackage_write_pickup.F |
119 |
MYPACKAGE_WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mypackage/mypackage_write_pickup.F |
11 |
MYPACKAGE_WRITE_PICKUP |
& suff, myTime, myIter, myThid ) |
./pkg/mypackage/mypackage_write_pickup.F |
122 |
MYPACKAGE_WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mypackage/mypackage_write_pickup.F |
138 |
MYPACKAGE_WRITE_PICKUP |
& nj, myIter, myThid ) |
./pkg/mypackage/mypackage_write_pickup.F |
33 |
MYPACKAGE_WRITE_PICKUP |
INTEGER myThid |
./pkg/mypackage/mypackage_write_pickup.F |
79 |
MYPACKAGE_WRITE_PICKUP |
& myPa_StatScal1, -j, myIter, myThid ) |
./pkg/mypackage/mypackage_write_pickup.F |
84 |
MYPACKAGE_WRITE_PICKUP |
& myPa_StatScal2, -j, myIter, myThid ) |
./pkg/mypackage/mypackage_write_pickup.F |
89 |
MYPACKAGE_WRITE_PICKUP |
& myPa_StatVelU, -j, myIter, myThid ) |
./pkg/mypackage/mypackage_write_pickup.F |
93 |
MYPACKAGE_WRITE_PICKUP |
& myPa_StatVelV, -j, myIter, myThid ) |
./model/src/calc_viscosity.F |
13 |
CALC_VISCOSITY |
I myThid ) |
./model/src/calc_viscosity.F |
42 |
CALC_VISCOSITY |
INTEGER myThid |
./model/src/calc_viscosity.F |
63 |
CALC_VISCOSITY |
I myThid) |
./model/src/calc_viscosity.F |
70 |
CALC_VISCOSITY |
I myThid) |
./model/src/calc_viscosity.F |
77 |
CALC_VISCOSITY |
I myThid) |
./model/src/calc_viscosity.F |
84 |
CALC_VISCOSITY |
I myThid) |
./pkg/obcs/obcs_apply_eta.F |
24 |
OBCS_APPLY_ETA |
INTEGER myThid |
./pkg/obcs/obcs_apply_eta.F |
8 |
OBCS_APPLY_ETA |
I myThid ) |
./pkg/obcs/obcs_apply_ptracer.F |
12 |
OBCS_APPLY_PTRACER |
I myThid ) |
./pkg/obcs/obcs_apply_ptracer.F |
46 |
OBCS_APPLY_PTRACER |
INTEGER myThid |
./pkg/obcs/obcs_apply_r_star.F |
27 |
OBCS_APPLY_R_STAR |
INTEGER myIter, myThid |
./pkg/obcs/obcs_apply_r_star.F |
9 |
OBCS_APPLY_R_STAR |
I myTime, myIter, myThid ) |
./pkg/obcs/obcs_apply_seaice.F |
10 |
OBCS_APPLY_SEAICE |
SUBROUTINE OBCS_APPLY_SEAICE( myThid ) |
./pkg/obcs/obcs_apply_seaice.F |
34 |
OBCS_APPLY_SEAICE |
INTEGER myThid |
./pkg/obcs/obcs_apply_seaice.F |
49 |
OBCS_APPLY_SEAICE |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/obcs/obcs_apply_seaice.F |
50 |
OBCS_APPLY_SEAICE |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/obcs/obcs_apply_sloc.F |
23 |
OBCS_APPLY_SLOC |
INTEGER myThid |
./pkg/obcs/obcs_apply_sloc.F |
8 |
OBCS_APPLY_SLOC |
I myThid ) |
./pkg/obcs/obcs_apply_surf_dr.F |
26 |
OBCS_APPLY_SURF_DR |
INTEGER myThid |
./pkg/obcs/obcs_apply_surf_dr.F |
9 |
OBCS_APPLY_SURF_DR |
I myThid ) |
./pkg/obcs/obcs_apply_tloc.F |
23 |
OBCS_APPLY_TLOC |
INTEGER myThid |
./pkg/obcs/obcs_apply_tloc.F |
8 |
OBCS_APPLY_TLOC |
I myThid ) |
./model/src/calc_wsurf_tr.F |
102 |
CALC_WSURF_TR |
_END_MASTER( myThid ) |
./model/src/calc_wsurf_tr.F |
10 |
CALC_WSURF_TR |
I myTime, myIter, myThid ) |
./model/src/calc_wsurf_tr.F |
42 |
CALC_WSURF_TR |
INTEGER myThid |
./model/src/calc_wsurf_tr.F |
64 |
CALC_WSURF_TR |
DO bj=myByLo(myThid), myByHi(myThid) |
./model/src/calc_wsurf_tr.F |
65 |
CALC_WSURF_TR |
DO bi=myBxLo(myThid), myBxHi(myThid) |
./model/src/calc_wsurf_tr.F |
94 |
CALC_WSURF_TR |
CALL GLOBAL_SUM_TILE_RL( wT_Tile, wT_Mean, myThid ) |
./model/src/calc_wsurf_tr.F |
95 |
CALC_WSURF_TR |
CALL GLOBAL_SUM_TILE_RL( wS_Tile, wS_Mean, myThid ) |
./model/src/calc_wsurf_tr.F |
99 |
CALC_WSURF_TR |
_BEGIN_MASTER( myThid ) |
./pkg/obcs/obcs_apply_ts.F |
12 |
OBCS_APPLY_TS |
I myThid ) |
./pkg/obcs/obcs_apply_ts.F |
41 |
OBCS_APPLY_TS |
INTEGER myThid |
./pkg/obcs/obcs_apply_uv.F |
11 |
OBCS_APPLY_UV |
I myThid ) |
./pkg/obcs/obcs_apply_uv.F |
40 |
OBCS_APPLY_UV |
INTEGER myThid |
./pkg/obcs/obcs_apply_uvice.F |
23 |
OBCS_APPLY_UVICE |
INTEGER myThid |
./pkg/obcs/obcs_apply_uvice.F |
32 |
OBCS_APPLY_UVICE |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/obcs/obcs_apply_uvice.F |
33 |
OBCS_APPLY_UVICE |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/obcs/obcs_apply_uvice.F |
8 |
OBCS_APPLY_UVICE |
I myThid ) |
./pkg/obcs/obcs_apply_w.F |
23 |
OBCS_APPLY_W |
INTEGER myThid |
./pkg/obcs/obcs_apply_w.F |
8 |
OBCS_APPLY_W |
I myThid ) |
./pkg/obcs/obcs_calc.F |
135 |
OBCS_CALC |
IF (debugMode) CALL DEBUG_MSG('OBCS_CALC: West',myThid) |
./pkg/obcs/obcs_calc.F |
142 |
OBCS_CALC |
& myThid ) |
./pkg/obcs/obcs_calc.F |
187 |
OBCS_CALC |
IF (debugMode) CALL DEBUG_MSG('OBCS_CALC: North',myThid) |
./pkg/obcs/obcs_calc.F |
194 |
OBCS_CALC |
& myThid ) |
./pkg/obcs/obcs_calc.F |
222 |
OBCS_CALC |
IF (debugMode) CALL DEBUG_MSG('OBCS_CALC: South',myThid) |
./pkg/obcs/obcs_calc.F |
229 |
OBCS_CALC |
& myThid ) |
./pkg/obcs/obcs_calc.F |
270 |
OBCS_CALC |
& CALL DEBUG_MSG('OBCS_CALC: East, pTracers',myThid) |
./pkg/obcs/obcs_calc.F |
275 |
OBCS_CALC |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_calc.F |
278 |
OBCS_CALC |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_calc.F |
302 |
OBCS_CALC |
& CALL DEBUG_MSG('OBCS_CALC: West, pTracers',myThid) |
./pkg/obcs/obcs_calc.F |
307 |
OBCS_CALC |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_calc.F |
310 |
OBCS_CALC |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_calc.F |
334 |
OBCS_CALC |
& CALL DEBUG_MSG('OBCS_CALC: North, pTracers',myThid) |
./pkg/obcs/obcs_calc.F |
339 |
OBCS_CALC |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_calc.F |
342 |
OBCS_CALC |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_calc.F |
366 |
OBCS_CALC |
& CALL DEBUG_MSG('OBCS_CALC: South, pTracers',myThid) |
./pkg/obcs/obcs_calc.F |
371 |
OBCS_CALC |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_calc.F |
374 |
OBCS_CALC |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_calc.F |
405 |
OBCS_CALC |
IF (debugMode) CALL DEBUG_CALL('OBCS_PRESCRIBE_READ',myThid) |
./pkg/obcs/obcs_calc.F |
407 |
OBCS_CALC |
CALL OBCS_PRESCRIBE_READ( futureTime, futureIter, myThid ) |
./pkg/obcs/obcs_calc.F |
422 |
OBCS_CALC |
IF (debugMode) CALL DEBUG_CALL('OBCS_CALC_STEVENS',myThid) |
./pkg/obcs/obcs_calc.F |
424 |
OBCS_CALC |
CALL OBCS_CALC_STEVENS( futureTime, futureIter, myThid ) |
./pkg/obcs/obcs_calc.F |
42 |
OBCS_CALC |
INTEGER myThid |
./pkg/obcs/obcs_calc.F |
434 |
OBCS_CALC |
IF (debugMode) CALL DEBUG_MSG('useOBCSbalance=.TRUE.',myThid) |
./pkg/obcs/obcs_calc.F |
440 |
OBCS_CALC |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/obcs/obcs_calc.F |
441 |
OBCS_CALC |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/obcs/obcs_calc.F |
454 |
OBCS_CALC |
_GLOBAL_SUM_RL( Ar_T , myThid ) |
./pkg/obcs/obcs_calc.F |
456 |
OBCS_CALC |
_GLOBAL_SUM_RL( Tr_T , myThid ) |
./pkg/obcs/obcs_calc.F |
458 |
OBCS_CALC |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/obcs/obcs_calc.F |
459 |
OBCS_CALC |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/obcs/obcs_calc.F |
477 |
OBCS_CALC |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/obcs/obcs_calc.F |
478 |
OBCS_CALC |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/obcs/obcs_calc.F |
491 |
OBCS_CALC |
_GLOBAL_SUM_RL( Ar_T , myThid ) |
./pkg/obcs/obcs_calc.F |
493 |
OBCS_CALC |
_GLOBAL_SUM_RL( Tr_T , myThid ) |
./pkg/obcs/obcs_calc.F |
495 |
OBCS_CALC |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/obcs/obcs_calc.F |
496 |
OBCS_CALC |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/obcs/obcs_calc.F |
514 |
OBCS_CALC |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/obcs/obcs_calc.F |
515 |
OBCS_CALC |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/obcs/obcs_calc.F |
528 |
OBCS_CALC |
_GLOBAL_SUM_RL( Ar_T , myThid ) |
./pkg/obcs/obcs_calc.F |
530 |
OBCS_CALC |
_GLOBAL_SUM_RL( Tr_T , myThid ) |
./pkg/obcs/obcs_calc.F |
532 |
OBCS_CALC |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/obcs/obcs_calc.F |
533 |
OBCS_CALC |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/obcs/obcs_calc.F |
551 |
OBCS_CALC |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/obcs/obcs_calc.F |
552 |
OBCS_CALC |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/obcs/obcs_calc.F |
565 |
OBCS_CALC |
_GLOBAL_SUM_RL( Ar_T , myThid ) |
./pkg/obcs/obcs_calc.F |
567 |
OBCS_CALC |
_GLOBAL_SUM_RL( Tr_T , myThid ) |
./pkg/obcs/obcs_calc.F |
569 |
OBCS_CALC |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/obcs/obcs_calc.F |
570 |
OBCS_CALC |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/obcs/obcs_calc.F |
591 |
OBCS_CALC |
IF (debugMode) CALL DEBUG_LEAVE('OBCS_CALC',myThid) |
./pkg/obcs/obcs_calc.F |
64 |
OBCS_CALC |
IF (debugMode) CALL DEBUG_ENTER('OBCS_CALC',myThid) |
./pkg/obcs/obcs_calc.F |
67 |
OBCS_CALC |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/obcs/obcs_calc.F |
68 |
OBCS_CALC |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/obcs/obcs_calc.F |
73 |
OBCS_CALC |
CALL NEST_CHILD_RECV ( myThid ) |
./pkg/obcs/obcs_calc.F |
83 |
OBCS_CALC |
IF (debugMode) CALL DEBUG_MSG('OBCS_CALC: East',myThid) |
./pkg/obcs/obcs_calc.F |
8 |
OBCS_CALC |
& myThid ) |
./pkg/obcs/obcs_calc.F |
90 |
OBCS_CALC |
& myThid ) |
./pkg/obcs/obcs_calc_stevens.F |
110 |
OBCS_CALC_STEVENS |
IF (debugMode) CALL DEBUG_ENTER('OBCS_CALC_STEVENS',myThid) |
./pkg/obcs/obcs_calc_stevens.F |
122 |
OBCS_CALC_STEVENS |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/obcs/obcs_calc_stevens.F |
123 |
OBCS_CALC_STEVENS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/obcs/obcs_calc_stevens.F |
130 |
OBCS_CALC_STEVENS |
& CALL DEBUG_MSG('OBCS_CALC_STEVENS: East',myThid) |
./pkg/obcs/obcs_calc_stevens.F |
13 |
OBCS_CALC_STEVENS |
I myThid ) |
./pkg/obcs/obcs_calc_stevens.F |
277 |
OBCS_CALC_STEVENS |
& CALL DEBUG_MSG('OBCS_CALC_STEVENS: West',myThid) |
./pkg/obcs/obcs_calc_stevens.F |
424 |
OBCS_CALC_STEVENS |
& CALL DEBUG_MSG('OBCS_CALC_STEVENS: North',myThid) |
./pkg/obcs/obcs_calc_stevens.F |
460 |
OBCS_CALC_STEVENS |
& CALL DEBUG_MSG('OBCS_CALC_STEVENS: South',myThid) |
./pkg/obcs/obcs_calc_stevens.F |
597 |
OBCS_CALC_STEVENS |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/obcs/obcs_calc_stevens.F |
598 |
OBCS_CALC_STEVENS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/obcs/obcs_calc_stevens.F |
622 |
OBCS_CALC_STEVENS |
_GLOBAL_SUM_RL( uPhase, myThid ) |
./pkg/obcs/obcs_calc_stevens.F |
623 |
OBCS_CALC_STEVENS |
_GLOBAL_SUM_RL( vPhase, myThid ) |
./pkg/obcs/obcs_calc_stevens.F |
624 |
OBCS_CALC_STEVENS |
_GLOBAL_SUM_RL( uVelLoc, myThid ) |
./pkg/obcs/obcs_calc_stevens.F |
638 |
OBCS_CALC_STEVENS |
IF (debugMode) CALL DEBUG_LEAVE('OBCS_CALC_STEVENS',myThid) |
./pkg/obcs/obcs_calc_stevens.F |
69 |
OBCS_CALC_STEVENS |
INTEGER myThid |
./pkg/obcs/obcs_check.F |
105 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
108 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
116 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
119 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
125 |
OBCS_CHECK |
_END_MASTER(myThid) |
./pkg/obcs/obcs_check.F |
131 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
134 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
137 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
145 |
OBCS_CHECK |
& SQUEEZE_RIGHT,myThid) |
./pkg/obcs/obcs_check.F |
151 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
154 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
164 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
167 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
173 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
176 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
182 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
185 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
193 |
OBCS_CHECK |
& SQUEEZE_RIGHT,myThid) |
./pkg/obcs/obcs_check.F |
201 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
204 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
212 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
215 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
221 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
224 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
227 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
233 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
236 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
239 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
266 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
269 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
278 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
281 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
28 |
OBCS_CHECK |
INTEGER myThid |
./pkg/obcs/obcs_check.F |
290 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
293 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
302 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
305 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
316 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
325 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
332 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
335 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
341 |
OBCS_CHECK |
& SQUEEZE_RIGHT,myThid ) |
./pkg/obcs/obcs_check.F |
41 |
OBCS_CHECK |
& SQUEEZE_RIGHT, myThid ) |
./pkg/obcs/obcs_check.F |
44 |
OBCS_CHECK |
_BEGIN_MASTER( myThid ) |
./pkg/obcs/obcs_check.F |
50 |
OBCS_CHECK |
& SQUEEZE_RIGHT, myThid ) |
./pkg/obcs/obcs_check.F |
53 |
OBCS_CHECK |
& SQUEEZE_RIGHT, myThid ) |
./pkg/obcs/obcs_check.F |
58 |
OBCS_CHECK |
& SQUEEZE_RIGHT, myThid ) |
./pkg/obcs/obcs_check.F |
63 |
OBCS_CHECK |
& SQUEEZE_RIGHT, myThid ) |
./pkg/obcs/obcs_check.F |
68 |
OBCS_CHECK |
& SQUEEZE_RIGHT, myThid ) |
./pkg/obcs/obcs_check.F |
73 |
OBCS_CHECK |
_END_MASTER(myThid) |
./pkg/obcs/obcs_check.F |
76 |
OBCS_CHECK |
_BEGIN_MASTER( myThid ) |
./pkg/obcs/obcs_check.F |
83 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
86 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
94 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
97 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
9 |
OBCS_CHECK |
SUBROUTINE OBCS_CHECK( myThid ) |
./pkg/obcs/obcs_check_depths.F |
114 |
OBCS_CHECK_DEPTHS |
& SQUEEZE_RIGHT, myThid) |
./pkg/obcs/obcs_check_depths.F |
25 |
OBCS_CHECK_DEPTHS |
INTEGER myThid |
./pkg/obcs/obcs_check_depths.F |
38 |
OBCS_CHECK_DEPTHS |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/obcs/obcs_check_depths.F |
39 |
OBCS_CHECK_DEPTHS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/obcs/obcs_check_depths.F |
53 |
OBCS_CHECK_DEPTHS |
& SQUEEZE_RIGHT, myThid) |
./pkg/obcs/obcs_check_depths.F |
68 |
OBCS_CHECK_DEPTHS |
& SQUEEZE_RIGHT, myThid) |
./pkg/obcs/obcs_check_depths.F |
6 |
OBCS_CHECK_DEPTHS |
SUBROUTINE OBCS_CHECK_DEPTHS( myThid ) |
./pkg/obcs/obcs_check_depths.F |
83 |
OBCS_CHECK_DEPTHS |
& SQUEEZE_RIGHT, myThid) |
./pkg/obcs/obcs_check_depths.F |
99 |
OBCS_CHECK_DEPTHS |
& SQUEEZE_RIGHT, myThid) |
./pkg/obcs/obcs_copy_tracer.F |
12 |
OBCS_COPY_TRACER |
I kSiz, bi, bj, myThid ) |
./pkg/obcs/obcs_copy_tracer.F |
46 |
OBCS_COPY_TRACER |
INTEGER myThid |
./pkg/obcs/obcs_external_fields_load.F |
133 |
OBCS_EXTERNAL_FIELDS_LOAD |
& SQUEEZE_RIGHT,myThid) |
./pkg/obcs/obcs_external_fields_load.F |
138 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEuFile, fp,Nr,OBEu0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
139 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEuFile, fp,Nr,OBEu1,iRec1,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
142 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEvFile, fp,Nr,OBEv0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
143 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEvFile, fp,Nr,OBEv1,iRec1,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
146 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEtFile, fp,Nr,OBEt0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
147 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEtFile, fp,Nr,OBEt1,iRec1,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
150 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEsFile, fp,Nr,OBEs0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
151 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEsFile, fp,Nr,OBEs1,iRec1,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
155 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEwFile, fp,Nr,OBEw0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
156 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEwFile, fp,Nr,OBEw1,iRec1,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
161 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL(OBEetaFile,fp,1,OBEeta0,iRec0,myIter,myThid) |
./pkg/obcs/obcs_external_fields_load.F |
162 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL(OBEetaFile,fp,1,OBEeta1,iRec1,myIter,myThid) |
./pkg/obcs/obcs_external_fields_load.F |
169 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWuFile, fp,Nr,OBWu0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
16 |
OBCS_EXTERNAL_FIELDS_LOAD |
SUBROUTINE OBCS_EXTERNAL_FIELDS_LOAD( myTime, myIter, myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
170 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWuFile, fp,Nr,OBWu1,iRec1,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
173 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWvFile, fp,Nr,OBWv0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
174 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWvFile, fp,Nr,OBWv1,iRec1,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
177 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWtFile, fp,Nr,OBWt0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
178 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWtFile, fp,Nr,OBWt1,iRec1,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
181 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWsFile, fp,Nr,OBWs0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
182 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWsFile, fp,Nr,OBWs1,iRec1,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
186 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWwFile, fp,Nr,OBWw0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
187 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWwFile, fp,Nr,OBWw1,iRec1,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
192 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL(OBWetaFile,fp,1,OBWeta0,iRec0,myIter,myThid) |
./pkg/obcs/obcs_external_fields_load.F |
193 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL(OBWetaFile,fp,1,OBWeta1,iRec1,myIter,myThid) |
./pkg/obcs/obcs_external_fields_load.F |
200 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNuFile, fp,Nr,OBNu0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
201 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNuFile, fp,Nr,OBNu1,iRec1,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
204 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNvFile, fp,Nr,OBNv0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
205 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNvFile, fp,Nr,OBNv1,iRec1,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
208 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNtFile, fp,Nr,OBNt0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
209 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNtFile, fp,Nr,OBNt1,iRec1,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
212 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNsFile, fp,Nr,OBNs0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
213 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNsFile, fp,Nr,OBNs1,iRec1,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
217 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNwFile, fp,Nr,OBNw0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
218 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNwFile, fp,Nr,OBNw1,iRec1,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
223 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL(OBNetaFile,fp,1,OBNeta0,iRec0,myIter,myThid) |
./pkg/obcs/obcs_external_fields_load.F |
224 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL(OBNetaFile,fp,1,OBNeta1,iRec1,myIter,myThid) |
./pkg/obcs/obcs_external_fields_load.F |
231 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSuFile, fp,Nr,OBSu0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
232 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSuFile, fp,Nr,OBSu1,iRec1,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
235 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSvFile, fp,Nr,OBSv0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
236 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSvFile, fp,Nr,OBSv1,iRec1,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
239 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBStFile, fp,Nr,OBSt0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
240 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBStFile, fp,Nr,OBSt1,iRec1,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
243 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSsFile, fp,Nr,OBSs0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
244 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSsFile, fp,Nr,OBSs1,iRec1,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
248 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSwFile, fp,Nr,OBSw0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
249 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSwFile, fp,Nr,OBSw1,iRec1,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
254 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL(OBSetaFile,fp,1,OBSeta0,iRec0,myIter,myThid) |
./pkg/obcs/obcs_external_fields_load.F |
255 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL(OBSetaFile,fp,1,OBSeta1,iRec1,myIter,myThid) |
./pkg/obcs/obcs_external_fields_load.F |
267 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBEptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
269 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBEptr1(1-Oly,1,1,1,iTr), iRec1, myIter, myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
276 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBWptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
278 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBWptr1(1-Oly,1,1,1,iTr), iRec1, myIter, myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
285 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBNptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
287 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBNptr1(1-Oly,1,1,1,iTr), iRec1, myIter, myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
294 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBSptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
296 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBSptr1(1-Oly,1,1,1,iTr), iRec1, myIter, myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
331 |
OBCS_EXTERNAL_FIELDS_LOAD |
& SQUEEZE_RIGHT,myThid) |
./pkg/obcs/obcs_external_fields_load.F |
337 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEuFile,fp,Nr,OBEu0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
340 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEvFile,fp,Nr,OBEv0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
343 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEtFile,fp,Nr,OBEt0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
346 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEsFile,fp,Nr,OBEs0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
350 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEwFile,fp,Nr,OBEw0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
356 |
OBCS_EXTERNAL_FIELDS_LOAD |
& myIter, myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
363 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWuFile,fp,Nr,OBWu0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
366 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWvFile,fp,Nr,OBWv0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
369 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWtFile,fp,Nr,OBWt0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
372 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWsFile,fp,Nr,OBWs0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
376 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWwFile,fp,Nr,OBWw0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
382 |
OBCS_EXTERNAL_FIELDS_LOAD |
& myIter, myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
389 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNuFile,fp,Nr,OBNu0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
392 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNvFile,fp,Nr,OBNv0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
395 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNtFile,fp,Nr,OBNt0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
398 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNsFile,fp,Nr,OBNs0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
402 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNwFile,fp,Nr,OBNw0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
408 |
OBCS_EXTERNAL_FIELDS_LOAD |
& myIter, myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
415 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSuFile,fp,Nr,OBSu0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
418 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSvFile,fp,Nr,OBSv0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
421 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBStFile,fp,Nr,OBSt0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
424 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSsFile,fp,Nr,OBSs0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
428 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSwFile,fp,Nr,OBSw0,iRec0,myIter,myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
434 |
OBCS_EXTERNAL_FIELDS_LOAD |
& myIter, myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
446 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBEptr0(1-Oly,1,1,1,iTr), iRec0,myIter, myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
453 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBWptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
460 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBNptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
467 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBSptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
487 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBEu, OBEu0, OBEu1, aWght, bWght, myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
489 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBEv, OBEv0, OBEv1, aWght, bWght, myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
491 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBEt, OBEt0, OBEt1, aWght, bWght, myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
493 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBEs, OBEs0, OBEs1, aWght, bWght, myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
496 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBEw, OBEw0, OBEw1, aWght, bWght, myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
500 |
OBCS_EXTERNAL_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/obcs/obcs_external_fields_load.F |
501 |
OBCS_EXTERNAL_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/obcs/obcs_external_fields_load.F |
513 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBWu, OBWu0, OBWu1, aWght, bWght, myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
515 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBWv, OBWv0, OBWv1, aWght, bWght, myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
517 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBWt, OBWt0, OBWt1, aWght, bWght, myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
519 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBWs, OBWs0, OBWs1, aWght, bWght, myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
522 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBWw, OBWw0, OBWw1, aWght, bWght, myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
526 |
OBCS_EXTERNAL_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/obcs/obcs_external_fields_load.F |
527 |
OBCS_EXTERNAL_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/obcs/obcs_external_fields_load.F |
539 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBNu, OBNu0, OBNu1, aWght, bWght, myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
541 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBNv, OBNv0, OBNv1, aWght, bWght, myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
543 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBNt, OBNt0, OBNt1, aWght, bWght, myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
545 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBNs, OBNs0, OBNs1, aWght, bWght, myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
548 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBNw, OBNw0, OBNw1, aWght, bWght, myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
552 |
OBCS_EXTERNAL_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/obcs/obcs_external_fields_load.F |
553 |
OBCS_EXTERNAL_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/obcs/obcs_external_fields_load.F |
565 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBSu, OBSu0, OBSu1, aWght, bWght, myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
567 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBSv, OBSv0, OBSv1, aWght, bWght, myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
569 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBSt, OBSt0, OBSt1, aWght, bWght, myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
571 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBSs, OBSs0, OBSs1, aWght, bWght, myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
574 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBSw, OBSw0, OBSw1, aWght, bWght, myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
578 |
OBCS_EXTERNAL_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/obcs/obcs_external_fields_load.F |
579 |
OBCS_EXTERNAL_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/obcs/obcs_external_fields_load.F |
598 |
OBCS_EXTERNAL_FIELDS_LOAD |
I OBEptr1(1-Oly,1,1,1,iTr), aWght, bWght, myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
605 |
OBCS_EXTERNAL_FIELDS_LOAD |
I OBWptr1(1-Oly,1,1,1,iTr), aWght, bWght, myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
612 |
OBCS_EXTERNAL_FIELDS_LOAD |
I OBNptr1(1-Olx,1,1,1,iTr), aWght, bWght, myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
619 |
OBCS_EXTERNAL_FIELDS_LOAD |
I OBSptr1(1-Olx,1,1,1,iTr), aWght, bWght, myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
636 |
OBCS_EXTERNAL_FIELDS_INTERP_XZ |
I fld0, fld1, aWght, bWght, myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
655 |
OBCS_EXTERNAL_FIELDS_INTERP_XZ |
INTEGER myThid |
./pkg/obcs/obcs_external_fields_load.F |
666 |
OBCS_EXTERNAL_FIELDS_INTERP_XZ |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/obcs/obcs_external_fields_load.F |
667 |
OBCS_EXTERNAL_FIELDS_INTERP_XZ |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/obcs/obcs_external_fields_load.F |
686 |
OBCS_EXTERNAL_FIELDS_INTERP_YZ |
I fld0, fld1, aWght, bWght, myThid ) |
./pkg/obcs/obcs_external_fields_load.F |
705 |
OBCS_EXTERNAL_FIELDS_INTERP_YZ |
INTEGER myThid |
./pkg/obcs/obcs_external_fields_load.F |
716 |
OBCS_EXTERNAL_FIELDS_INTERP_YZ |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/obcs/obcs_external_fields_load.F |
717 |
OBCS_EXTERNAL_FIELDS_INTERP_YZ |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/obcs/obcs_external_fields_load.F |
73 |
OBCS_EXTERNAL_FIELDS_LOAD |
INTEGER myThid |
./model/src/cg2d.F |
127 |
CG2D |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/cg2d.F |
128 |
CG2D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/cg2d.F |
144 |
CG2D |
_GLOBAL_MAX_RL( rhsMax, myThid ) |
./model/src/cg2d.F |
148 |
CG2D |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/cg2d.F |
149 |
CG2D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/cg2d.F |
163 |
CG2D |
CALL EXCH_XY_RL( cg2d_x, myThid ) |
./model/src/cg2d.F |
171 |
CG2D |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/cg2d.F |
172 |
CG2D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/cg2d.F |
212 |
CG2D |
CALL EXCH_S3D_RL( cg2d_r, 1, myThid ) |
./model/src/cg2d.F |
214 |
CG2D |
CALL GLOBAL_SUM_SINGLECPU_RL(localBuf, err, 0, 0, myThid) |
./model/src/cg2d.F |
215 |
CG2D |
CALL GLOBAL_SUM_SINGLECPU_RL(cg2d_b, sumRHS, OLx, OLy, myThid) |
./model/src/cg2d.F |
217 |
CG2D |
CALL GLOBAL_SUM_TILE_RL( errTile, err, myThid ) |
./model/src/cg2d.F |
218 |
CG2D |
CALL GLOBAL_SUM_TILE_RL( sumRHStile, sumRHS, myThid ) |
./model/src/cg2d.F |
225 |
CG2D |
_BEGIN_MASTER( myThid ) |
./model/src/cg2d.F |
228 |
CG2D |
_END_MASTER( myThid ) |
./model/src/cg2d.F |
22 |
CG2D |
I myThid ) |
./model/src/cg2d.F |
249 |
CG2D |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/cg2d.F |
250 |
CG2D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/cg2d.F |
279 |
CG2D |
CALL GLOBAL_SUM_SINGLECPU_RL( localBuf,eta_qrN,0,0,myThid ) |
./model/src/cg2d.F |
281 |
CG2D |
CALL GLOBAL_SUM_TILE_RL( eta_qrNtile,eta_qrN,myThid ) |
./model/src/cg2d.F |
292 |
CG2D |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/cg2d.F |
293 |
CG2D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/cg2d.F |
305 |
CG2D |
CALL EXCH_S3D_RL( cg2d_s, 1, myThid ) |
./model/src/cg2d.F |
309 |
CG2D |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/cg2d.F |
310 |
CG2D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/cg2d.F |
342 |
CG2D |
CALL GLOBAL_SUM_SINGLECPU_RL(localBuf, alpha, 0, 0, myThid) |
./model/src/cg2d.F |
344 |
CG2D |
CALL GLOBAL_SUM_TILE_RL( alphaTile, alpha, myThid ) |
./model/src/cg2d.F |
356 |
CG2D |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/cg2d.F |
357 |
CG2D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/cg2d.F |
375 |
CG2D |
CALL GLOBAL_SUM_SINGLECPU_RL(localBuf, err, 0, 0, myThid) |
./model/src/cg2d.F |
377 |
CG2D |
CALL GLOBAL_SUM_TILE_RL( errTile, err, myThid ) |
./model/src/cg2d.F |
385 |
CG2D |
_BEGIN_MASTER( myThid ) |
./model/src/cg2d.F |
389 |
CG2D |
_END_MASTER( myThid ) |
./model/src/cg2d.F |
394 |
CG2D |
CALL EXCH_S3D_RL( cg2d_r, 1, myThid ) |
./model/src/cg2d.F |
401 |
CG2D |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/cg2d.F |
402 |
CG2D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/cg2d.F |
72 |
CG2D |
INTEGER myThid |
./pkg/obcs/obcs_init_fixed.F |
26 |
OBCS_INIT_FIXED |
INTEGER myThid |
./pkg/obcs/obcs_init_fixed.F |
36 |
OBCS_INIT_FIXED |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/obcs/obcs_init_fixed.F |
37 |
OBCS_INIT_FIXED |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/obcs/obcs_init_fixed.F |
6 |
OBCS_INIT_FIXED |
SUBROUTINE OBCS_INIT_FIXED( myThid ) |
./pkg/obcs/obcs_init_variables.F |
321 |
OBCS_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('ORLANSKI_INIT',myThid) |
./pkg/obcs/obcs_init_variables.F |
323 |
OBCS_INIT_VARIABLES |
CALL ORLANSKI_INIT(bi, bj, myThid) |
./pkg/obcs/obcs_init_variables.F |
333 |
OBCS_INIT_VARIABLES |
CALL OBCS_READ_PICKUP( nIter0, myThid ) |
./pkg/obcs/obcs_init_variables.F |
340 |
OBCS_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('OBCS_CALC',myThid) |
./pkg/obcs/obcs_init_variables.F |
343 |
OBCS_INIT_VARIABLES |
& uVel, vVel, wVel, theta, salt, myThid ) |
./pkg/obcs/obcs_init_variables.F |
349 |
OBCS_INIT_VARIABLES |
& CALL DEBUG_CALL('OBCS_APPLY_UV + OBCS_APPLY_TS',myThid) |
./pkg/obcs/obcs_init_variables.F |
351 |
OBCS_INIT_VARIABLES |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/obcs/obcs_init_variables.F |
352 |
OBCS_INIT_VARIABLES |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/obcs/obcs_init_variables.F |
353 |
OBCS_INIT_VARIABLES |
CALL OBCS_APPLY_UV( bi, bj, 0, uVel, vVel, myThid ) |
./pkg/obcs/obcs_init_variables.F |
354 |
OBCS_INIT_VARIABLES |
CALL OBCS_APPLY_TS( bi, bj, 0, theta, salt, myThid ) |
./pkg/obcs/obcs_init_variables.F |
363 |
OBCS_INIT_VARIABLES |
& CALL DEBUG_CALL('EXCHANGES in OBCS_INIT_VARIABLES',myThid) |
./pkg/obcs/obcs_init_variables.F |
365 |
OBCS_INIT_VARIABLES |
CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid) |
./pkg/obcs/obcs_init_variables.F |
366 |
OBCS_INIT_VARIABLES |
_EXCH_XYZ_RL( theta, myThid ) |
./pkg/obcs/obcs_init_variables.F |
367 |
OBCS_INIT_VARIABLES |
_EXCH_XYZ_RL( salt , myThid ) |
./pkg/obcs/obcs_init_variables.F |
36 |
OBCS_INIT_VARIABLES |
INTEGER myThid |
./pkg/obcs/obcs_init_variables.F |
377 |
OBCS_INIT_VARIABLES |
CALL OBCS_PRESCRIBE_READ( startTime, nIter0, myThid ) |
./pkg/obcs/obcs_init_variables.F |
380 |
OBCS_INIT_VARIABLES |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/obcs/obcs_init_variables.F |
381 |
OBCS_INIT_VARIABLES |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/obcs/obcs_init_variables.F |
383 |
OBCS_INIT_VARIABLES |
I Nr, bi, bj, myThid ) |
./pkg/obcs/obcs_init_variables.F |
385 |
OBCS_INIT_VARIABLES |
I Nr, bi, bj, myThid ) |
./pkg/obcs/obcs_init_variables.F |
397 |
OBCS_INIT_VARIABLES |
& CALL DEBUG_CALL('OBCS_APPLY_PTRACER',myThid) |
./pkg/obcs/obcs_init_variables.F |
400 |
OBCS_INIT_VARIABLES |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/obcs/obcs_init_variables.F |
401 |
OBCS_INIT_VARIABLES |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/obcs/obcs_init_variables.F |
406 |
OBCS_INIT_VARIABLES |
I myThid ) |
./pkg/obcs/obcs_init_variables.F |
419 |
OBCS_INIT_VARIABLES |
& 'PTRACERS EXCHANGES in OBCS_INIT_VARIABLES',myThid) |
./pkg/obcs/obcs_init_variables.F |
421 |
OBCS_INIT_VARIABLES |
CALL PTRACERS_FIELDS_BLOCKING_EXCH( myThid ) |
./pkg/obcs/obcs_init_variables.F |
425 |
OBCS_INIT_VARIABLES |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/obcs/obcs_init_variables.F |
426 |
OBCS_INIT_VARIABLES |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/obcs/obcs_init_variables.F |
428 |
OBCS_INIT_VARIABLES |
I Nr, bi, bj, myThid ) |
./pkg/obcs/obcs_init_variables.F |
440 |
OBCS_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_LEAVE('OBCS_INIT_VARIABLES',myThid) |
./pkg/obcs/obcs_init_variables.F |
50 |
OBCS_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_ENTER('OBCS_INIT_VARIABLES',myThid) |
./pkg/obcs/obcs_init_variables.F |
53 |
OBCS_INIT_VARIABLES |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/obcs/obcs_init_variables.F |
54 |
OBCS_INIT_VARIABLES |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/obcs/obcs_init_variables.F |
9 |
OBCS_INIT_VARIABLES |
SUBROUTINE OBCS_INIT_VARIABLES( myThid ) |
./pkg/obcs/obcs_output.F |
101 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBNu,1,myIter,myThid) |
./pkg/obcs/obcs_output.F |
102 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBNv,2,myIter,myThid) |
./pkg/obcs/obcs_output.F |
103 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBNt,3,myIter,myThid) |
./pkg/obcs/obcs_output.F |
104 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBNs,4,myIter,myThid) |
./pkg/obcs/obcs_output.F |
107 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBNw,5,myIter,myThid) |
./pkg/obcs/obcs_output.F |
10 |
OBCS_OUTPUT |
SUBROUTINE OBCS_OUTPUT( myTime, myIter, myThid ) |
./pkg/obcs/obcs_output.F |
115 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBSu,1,myIter,myThid) |
./pkg/obcs/obcs_output.F |
116 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBSv,2,myIter,myThid) |
./pkg/obcs/obcs_output.F |
117 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBSt,3,myIter,myThid) |
./pkg/obcs/obcs_output.F |
118 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBSs,4,myIter,myThid) |
./pkg/obcs/obcs_output.F |
121 |
OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBSw,5,myIter,myThid) |
./pkg/obcs/obcs_output.F |
129 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBEu,1,myIter,myThid) |
./pkg/obcs/obcs_output.F |
130 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBEv,2,myIter,myThid) |
./pkg/obcs/obcs_output.F |
131 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBEt,3,myIter,myThid) |
./pkg/obcs/obcs_output.F |
132 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBEs,4,myIter,myThid) |
./pkg/obcs/obcs_output.F |
135 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBEw,5,myIter,myThid) |
./pkg/obcs/obcs_output.F |
143 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBWu,1,myIter,myThid) |
./pkg/obcs/obcs_output.F |
144 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBWv,2,myIter,myThid) |
./pkg/obcs/obcs_output.F |
145 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBWt,3,myIter,myThid) |
./pkg/obcs/obcs_output.F |
146 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBWs,4,myIter,myThid) |
./pkg/obcs/obcs_output.F |
149 |
OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBWw,5,myIter,myThid) |
./pkg/obcs/obcs_output.F |
33 |
OBCS_OUTPUT |
INTEGER myThid |
./pkg/obcs/obcs_prescribe_exchanges.F |
30 |
OBCS_PRESCRIBE_EXCHANGES |
INTEGER myThid |
./pkg/obcs/obcs_prescribe_exchanges.F |
43 |
OBCS_PRESCRIBE_EXCHANGES |
CALL EXCH_UV_XYZ_RL( gU, gV, .TRUE., myThid ) |
./pkg/obcs/obcs_prescribe_exchanges.F |
6 |
OBCS_PRESCRIBE_EXCHANGES |
SUBROUTINE OBCS_PRESCRIBE_EXCHANGES( myThid ) |
./pkg/obcs/obcs_prescribe_read.F |
185 |
OBCS_PRESCRIBE_READ |
& myCurrentTime, myCurrentIter, myThid ) |
./pkg/obcs/obcs_read_pickup.F |
100 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,VS_STORE_3, 7,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
101 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,VS_STORE_4, 8,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
102 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,TS_STORE_1, 9,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
103 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,TS_STORE_2,10,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
104 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,TS_STORE_3,11,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
105 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,TS_STORE_4,12,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
106 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,SS_STORE_1,13,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
107 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,SS_STORE_2,14,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
108 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,SS_STORE_3,15,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
109 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,SS_STORE_4,16,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
110 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_US , 17,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
111 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_VS , 18,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
112 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_TS , 19,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
113 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_SS , 20,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
116 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,WS_STORE_1,21,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
117 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,WS_STORE_2,22,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
118 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,WS_STORE_3,23,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
119 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,WS_STORE_4,24,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
11 |
OBCS_READ_PICKUP |
SUBROUTINE OBCS_READ_PICKUP( myIter, myThid ) |
./pkg/obcs/obcs_read_pickup.F |
120 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_WS , 25,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
121 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, OBSw , 26,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
131 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,UE_STORE_1, 1,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
132 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,UE_STORE_2, 2,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
133 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,UE_STORE_3, 3,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
134 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,UE_STORE_4, 4,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
135 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,VE_STORE_1, 5,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
136 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,VE_STORE_2, 6,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
137 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,VE_STORE_3, 7,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
138 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,VE_STORE_4, 8,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
139 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,TE_STORE_1, 9,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
140 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,TE_STORE_2,10,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
141 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,TE_STORE_3,11,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
142 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,TE_STORE_4,12,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
143 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,SE_STORE_1,13,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
144 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,SE_STORE_2,14,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
145 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,SE_STORE_3,15,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
146 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,SE_STORE_4,16,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
147 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_UE , 17,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
148 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_VE , 18,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
149 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_TE , 19,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
150 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_SE , 20,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
153 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,WE_STORE_1,21,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
154 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,WE_STORE_2,22,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
155 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,WE_STORE_3,23,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
156 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,WE_STORE_4,24,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
157 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_WE , 25,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
158 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, OBEw , 26,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
167 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,UW_STORE_1, 1,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
168 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,UW_STORE_2, 2,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
169 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,UW_STORE_3, 3,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
170 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,UW_STORE_4, 4,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
171 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,VW_STORE_1, 5,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
172 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,VW_STORE_2, 6,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
173 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,VW_STORE_3, 7,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
174 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,VW_STORE_4, 8,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
175 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,TW_STORE_1, 9,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
176 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,TW_STORE_2,10,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
177 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,TW_STORE_3,11,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
178 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,TW_STORE_4,12,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
179 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,SW_STORE_1,13,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
180 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,SW_STORE_2,14,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
181 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,SW_STORE_3,15,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
182 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,SW_STORE_4,16,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
183 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_UW , 17,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
184 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_VW , 18,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
185 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_TW , 19,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
186 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_SW , 20,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
189 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,WW_STORE_1,21,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
190 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,WW_STORE_2,22,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
191 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,WW_STORE_3,23,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
192 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr,WW_STORE_4,24,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
193 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, CVEL_WW , 25,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
194 |
OBCS_READ_PICKUP |
CALL READ_REC_YZ_RL(fn,prec,Nr, OBWw , 26,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
32 |
OBCS_READ_PICKUP |
INTEGER myThid |
./pkg/obcs/obcs_read_pickup.F |
58 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,UN_STORE_1, 1,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
59 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,UN_STORE_2, 2,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
60 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,UN_STORE_3, 3,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
61 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,UN_STORE_4, 4,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
62 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,VN_STORE_1, 5,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
63 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,VN_STORE_2, 6,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
64 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,VN_STORE_3, 7,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
65 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,VN_STORE_4, 8,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
66 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,TN_STORE_1, 9,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
67 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,TN_STORE_2,10,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
68 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,TN_STORE_3,11,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
69 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,TN_STORE_4,12,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
70 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,SN_STORE_1,13,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
71 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,SN_STORE_2,14,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
72 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,SN_STORE_3,15,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
73 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,SN_STORE_4,16,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
74 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_UN , 17,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
75 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_VN , 18,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
76 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_TN , 19,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
77 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_SN , 20,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
80 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,WN_STORE_1,21,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
81 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,WN_STORE_2,22,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
82 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,WN_STORE_3,23,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
83 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,WN_STORE_4,24,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
84 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, CVEL_WN , 25,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
85 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr, OBNw , 26,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
94 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,US_STORE_1, 1,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
95 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,US_STORE_2, 2,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
96 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,US_STORE_3, 3,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
97 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,US_STORE_4, 4,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
98 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,VS_STORE_1, 5,myIter,myThid) |
./pkg/obcs/obcs_read_pickup.F |
99 |
OBCS_READ_PICKUP |
CALL READ_REC_XZ_RL(fn,prec,Nr,VS_STORE_2, 6,myIter,myThid) |
./pkg/obcs/obcs_readparms.F |
160 |
OBCS_READPARMS |
_BEGIN_MASTER(myThid) |
./pkg/obcs/obcs_readparms.F |
260 |
OBCS_READPARMS |
& SQUEEZE_RIGHT , myThid ) |
./pkg/obcs/obcs_readparms.F |
264 |
OBCS_READPARMS |
I myThid ) |
./pkg/obcs/obcs_readparms.F |
310 |
OBCS_READPARMS |
& SQUEEZE_RIGHT , myThid ) |
./pkg/obcs/obcs_readparms.F |
329 |
OBCS_READPARMS |
& SQUEEZE_RIGHT, myThid ) |
./pkg/obcs/obcs_readparms.F |
334 |
OBCS_READPARMS |
& SQUEEZE_RIGHT, myThid ) |
./pkg/obcs/obcs_readparms.F |
339 |
OBCS_READPARMS |
& SQUEEZE_RIGHT, myThid ) |
./pkg/obcs/obcs_readparms.F |
344 |
OBCS_READPARMS |
& SQUEEZE_RIGHT, myThid ) |
./pkg/obcs/obcs_readparms.F |
349 |
OBCS_READPARMS |
& SQUEEZE_RIGHT, myThid ) |
./pkg/obcs/obcs_readparms.F |
352 |
OBCS_READPARMS |
_END_MASTER(myThid) |
./pkg/obcs/obcs_readparms.F |
361 |
OBCS_READPARMS |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/obcs/obcs_readparms.F |
362 |
OBCS_READPARMS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/obcs/obcs_readparms.F |
40 |
OBCS_READPARMS |
INTEGER myThid |
./pkg/obcs/obcs_readparms.F |
439 |
OBCS_READPARMS |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/obcs/obcs_readparms.F |
440 |
OBCS_READPARMS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/obcs/obcs_readparms.F |
447 |
OBCS_READPARMS |
CALL EXCH_3D_RS( buf, 1, myThid ) |
./pkg/obcs/obcs_readparms.F |
448 |
OBCS_READPARMS |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/obcs/obcs_readparms.F |
449 |
OBCS_READPARMS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/obcs/obcs_readparms.F |
457 |
OBCS_READPARMS |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/obcs/obcs_readparms.F |
458 |
OBCS_READPARMS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/obcs/obcs_readparms.F |
465 |
OBCS_READPARMS |
CALL EXCH_3D_RS( buf, 1, myThid ) |
./pkg/obcs/obcs_readparms.F |
466 |
OBCS_READPARMS |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/obcs/obcs_readparms.F |
467 |
OBCS_READPARMS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/obcs/obcs_readparms.F |
9 |
OBCS_READPARMS |
SUBROUTINE OBCS_READPARMS( myThid ) |
./pkg/obcs/obcs_sponge.F |
19 |
OBCS_SPONGE_U |
I myTime, myThid ) |
./pkg/obcs/obcs_sponge.F |
203 |
OBCS_SPONGE_V |
I myTime, myThid ) |
./pkg/obcs/obcs_sponge.F |
228 |
OBCS_SPONGE_V |
INTEGER myThid |
./pkg/obcs/obcs_sponge.F |
388 |
OBCS_SPONGE_T |
I myTime, myThid ) |
./pkg/obcs/obcs_sponge.F |
417 |
OBCS_SPONGE_T |
INTEGER myThid |
./pkg/obcs/obcs_sponge.F |
429 |
OBCS_SPONGE_T |
act1 = bi - myBxLo(myThid) |
./pkg/obcs/obcs_sponge.F |
430 |
OBCS_SPONGE_T |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
./pkg/obcs/obcs_sponge.F |
431 |
OBCS_SPONGE_T |
act2 = bj - myByLo(myThid) |
./pkg/obcs/obcs_sponge.F |
432 |
OBCS_SPONGE_T |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
./pkg/obcs/obcs_sponge.F |
433 |
OBCS_SPONGE_T |
act3 = myThid - 1 |
./pkg/obcs/obcs_sponge.F |
44 |
OBCS_SPONGE_U |
INTEGER myThid |
./pkg/obcs/obcs_sponge.F |
619 |
OBCS_SPONGE_S |
I myTime, myThid ) |
./pkg/obcs/obcs_sponge.F |
648 |
OBCS_SPONGE_S |
INTEGER myThid |
./pkg/obcs/obcs_sponge.F |
660 |
OBCS_SPONGE_S |
act1 = bi - myBxLo(myThid) |
./pkg/obcs/obcs_sponge.F |
661 |
OBCS_SPONGE_S |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
./pkg/obcs/obcs_sponge.F |
662 |
OBCS_SPONGE_S |
act2 = bj - myByLo(myThid) |
./pkg/obcs/obcs_sponge.F |
663 |
OBCS_SPONGE_S |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
./pkg/obcs/obcs_sponge.F |
664 |
OBCS_SPONGE_S |
act3 = myThid - 1 |
./pkg/obcs/obcs_write_pickup.F |
100 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,US_STORE_2, 2,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
101 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,US_STORE_3, 3,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
102 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,US_STORE_4, 4,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
103 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,VS_STORE_1, 5,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
104 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,VS_STORE_2, 6,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
105 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,VS_STORE_3, 7,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
106 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,VS_STORE_4, 8,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
107 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,TS_STORE_1, 9,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
108 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,TS_STORE_2,10,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
109 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,TS_STORE_3,11,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
110 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,TS_STORE_4,12,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
111 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,SS_STORE_1,13,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
112 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,SS_STORE_2,14,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
113 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,SS_STORE_3,15,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
114 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,SS_STORE_4,16,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
115 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_US , 17,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
116 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_VS , 18,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
117 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_TS , 19,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
118 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_SS , 20,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
121 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,WS_STORE_1,21,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
122 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,WS_STORE_2,22,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
123 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,WS_STORE_3,23,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
124 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,WS_STORE_4,24,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
125 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_WS , 25,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
126 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, OBSw , 26,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
12 |
OBCS_WRITE_PICKUP |
& suff, myTime, myIter, myThid ) |
./pkg/obcs/obcs_write_pickup.F |
136 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,UE_STORE_1, 1,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
137 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,UE_STORE_2, 2,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
138 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,UE_STORE_3, 3,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
139 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,UE_STORE_4, 4,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
140 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,VE_STORE_1, 5,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
141 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,VE_STORE_2, 6,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
142 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,VE_STORE_3, 7,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
143 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,VE_STORE_4, 8,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
144 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,TE_STORE_1, 9,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
145 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,TE_STORE_2,10,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
146 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,TE_STORE_3,11,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
147 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,TE_STORE_4,12,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
148 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,SE_STORE_1,13,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
149 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,SE_STORE_2,14,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
150 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,SE_STORE_3,15,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
151 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,SE_STORE_4,16,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
152 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_UE , 17,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
153 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_VE , 18,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
154 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_TE , 19,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
155 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_SE , 20,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
158 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,WE_STORE_1,21,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
159 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,WE_STORE_2,22,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
160 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,WE_STORE_3,23,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
161 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,WE_STORE_4,24,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
162 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_WE , 25,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
163 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, OBEw , 26,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
172 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,UW_STORE_1, 1,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
173 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,UW_STORE_2, 2,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
174 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,UW_STORE_3, 3,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
175 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,UW_STORE_4, 4,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
176 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,VW_STORE_1, 5,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
177 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,VW_STORE_2, 6,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
178 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,VW_STORE_3, 7,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
179 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,VW_STORE_4, 8,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
180 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,TW_STORE_1, 9,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
181 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,TW_STORE_2,10,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
182 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,TW_STORE_3,11,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
183 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,TW_STORE_4,12,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
184 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,SW_STORE_1,13,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
185 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,SW_STORE_2,14,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
186 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,SW_STORE_3,15,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
187 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,SW_STORE_4,16,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
188 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_UW , 17,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
189 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_VW , 18,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
190 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_TW , 19,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
191 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_SW , 20,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
194 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,WW_STORE_1,21,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
195 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,WW_STORE_2,22,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
196 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,WW_STORE_3,23,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
197 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,WW_STORE_4,24,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
198 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, CVEL_WW , 25,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
199 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_YZ_RL(fn,prec,Nr, OBWw , 26,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
36 |
OBCS_WRITE_PICKUP |
INTEGER myThid |
./pkg/obcs/obcs_write_pickup.F |
63 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,UN_STORE_1, 1,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
64 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,UN_STORE_2, 2,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
65 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,UN_STORE_3, 3,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
66 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,UN_STORE_4, 4,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
67 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,VN_STORE_1, 5,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
68 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,VN_STORE_2, 6,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
69 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,VN_STORE_3, 7,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
70 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,VN_STORE_4, 8,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
71 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,TN_STORE_1, 9,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
72 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,TN_STORE_2,10,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
73 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,TN_STORE_3,11,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
74 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,TN_STORE_4,12,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
75 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,SN_STORE_1,13,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
76 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,SN_STORE_2,14,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
77 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,SN_STORE_3,15,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
78 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,SN_STORE_4,16,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
79 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_UN , 17,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
80 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_VN , 18,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
81 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_TN , 19,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
82 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_SN , 20,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
85 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,WN_STORE_1,21,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
86 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,WN_STORE_2,22,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
87 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,WN_STORE_3,23,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
88 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,WN_STORE_4,24,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
89 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, CVEL_WN , 25,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
90 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr, OBNw , 26,myIter,myThid) |
./pkg/obcs/obcs_write_pickup.F |
99 |
OBCS_WRITE_PICKUP |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,US_STORE_1, 1,myIter,myThid) |
./pkg/obcs/orlanski_east.F |
85 |
ORLANSKI_EAST |
INTEGER myThid |
./pkg/obcs/orlanski_east.F |
9 |
ORLANSKI_EAST |
I myThid ) |
./model/src/cg2d_nsa.F |
132 |
CG2D_NSA |
act1 = myThid - 1 |
./model/src/cg2d_nsa.F |
155 |
CG2D_NSA |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/cg2d_nsa.F |
156 |
CG2D_NSA |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/cg2d_nsa.F |
176 |
CG2D_NSA |
_GLOBAL_MAX_RL( rhsMaxGlobal, myThid ) |
./model/src/cg2d_nsa.F |
192 |
CG2D_NSA |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/cg2d_nsa.F |
193 |
CG2D_NSA |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/cg2d_nsa.F |
207 |
CG2D_NSA |
CALL EXCH_XY_RL( cg2d_x, myThid ) |
./model/src/cg2d_nsa.F |
21 |
CG2D_NSA |
I myThid ) |
./model/src/cg2d_nsa.F |
222 |
CG2D_NSA |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/cg2d_nsa.F |
223 |
CG2D_NSA |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/cg2d_nsa.F |
256 |
CG2D_NSA |
CALL EXCH_XY_RL ( cg2d_r, myThid ) |
./model/src/cg2d_nsa.F |
257 |
CG2D_NSA |
_GLOBAL_SUM_RL( sumRHS, myThid ) |
./model/src/cg2d_nsa.F |
258 |
CG2D_NSA |
_GLOBAL_SUM_RL( err_sq, myThid ) |
./model/src/cg2d_nsa.F |
268 |
CG2D_NSA |
_BEGIN_MASTER( myThid ) |
./model/src/cg2d_nsa.F |
271 |
CG2D_NSA |
_END_MASTER( myThid ) |
./model/src/cg2d_nsa.F |
314 |
CG2D_NSA |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/cg2d_nsa.F |
315 |
CG2D_NSA |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/cg2d_nsa.F |
334 |
CG2D_NSA |
_GLOBAL_SUM_RL(eta_qrN, myThid) |
./model/src/cg2d_nsa.F |
353 |
CG2D_NSA |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/cg2d_nsa.F |
354 |
CG2D_NSA |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/cg2d_nsa.F |
367 |
CG2D_NSA |
CALL EXCH_XY_RL ( cg2d_s, myThid ) |
./model/src/cg2d_nsa.F |
378 |
CG2D_NSA |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/cg2d_nsa.F |
379 |
CG2D_NSA |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/cg2d_nsa.F |
400 |
CG2D_NSA |
_GLOBAL_SUM_RL(alpha_aux,myThid) |
./model/src/cg2d_nsa.F |
418 |
CG2D_NSA |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/cg2d_nsa.F |
419 |
CG2D_NSA |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/cg2d_nsa.F |
430 |
CG2D_NSA |
_GLOBAL_SUM_RL( err_sq , myThid ) |
./model/src/cg2d_nsa.F |
440 |
CG2D_NSA |
CALL EXCH_XY_RL ( cg2d_r, myThid ) |
./model/src/cg2d_nsa.F |
453 |
CG2D_NSA |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/cg2d_nsa.F |
454 |
CG2D_NSA |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/cg2d_nsa.F |
79 |
CG2D_NSA |
INTEGER myThid |
./pkg/obcs/orlanski_init.F |
25 |
ORLANSKI_INIT |
INTEGER bi, bj, myThid |
./pkg/obcs/orlanski_init.F |
6 |
ORLANSKI_INIT |
SUBROUTINE ORLANSKI_INIT(bi, bj, myThid ) |
./pkg/obcs/orlanski_north.F |
76 |
ORLANSKI_NORTH |
INTEGER myThid |
./pkg/obcs/orlanski_north.F |
8 |
ORLANSKI_NORTH |
I myThid ) |
./pkg/obcs/orlanski_south.F |
76 |
ORLANSKI_SOUTH |
INTEGER myThid |
./pkg/obcs/orlanski_south.F |
8 |
ORLANSKI_SOUTH |
I myThid ) |
./pkg/obcs/orlanski_west.F |
87 |
ORLANSKI_WEST |
INTEGER myThid |
./pkg/obcs/orlanski_west.F |
9 |
ORLANSKI_WEST |
I myThid ) |
./pkg/ocn_compon_interf/cpl_exch_configs.F |
100 |
CPL_EXCH_CONFIGS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ocn_compon_interf/cpl_exch_configs.F |
10 |
CPL_EXCH_CONFIGS |
SUBROUTINE CPL_EXCH_CONFIGS( myThid ) |
./pkg/ocn_compon_interf/cpl_exch_configs.F |
45 |
CPL_EXCH_CONFIGS |
INTEGER myThid |
./pkg/ocn_compon_interf/cpl_exch_configs.F |
59 |
CPL_EXCH_CONFIGS |
CALL OCN_EXPORT_OCNCONFIG( myThid ) |
./pkg/ocn_compon_interf/cpl_exch_configs.F |
64 |
CPL_EXCH_CONFIGS |
CALL OCN_IMPORT_ATMCONFIG( myThid ) |
./pkg/ocn_compon_interf/cpl_exch_configs.F |
70 |
CPL_EXCH_CONFIGS |
& 1, myThid ) |
./pkg/ocn_compon_interf/cpl_exch_configs.F |
81 |
CPL_EXCH_CONFIGS |
DO bj=myByLo(myTHid),myByHi(myThid) |
./pkg/ocn_compon_interf/cpl_exch_configs.F |
82 |
CPL_EXCH_CONFIGS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/ocn_compon_interf/cpl_exch_configs.F |
94 |
CPL_EXCH_CONFIGS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ocn_compon_interf/cpl_exch_configs.F |
97 |
CPL_EXCH_CONFIGS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ocn_compon_interf/cpl_export_my_data.F |
11 |
CPL_EXPORT_MY_DATA |
I myTime, myIter, myThid ) |
./pkg/ocn_compon_interf/cpl_export_my_data.F |
36 |
CPL_EXPORT_MY_DATA |
INTEGER myThid |
./pkg/ocn_compon_interf/cpl_export_my_data.F |
44 |
CPL_EXPORT_MY_DATA |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/ocn_compon_interf/cpl_export_my_data.F |
45 |
CPL_EXPORT_MY_DATA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/ocn_compon_interf/cpl_export_my_data.F |
47 |
CPL_EXPORT_MY_DATA |
I myTime, myIter, bi,bj, myThid ) |
./pkg/ocn_compon_interf/cpl_export_my_data.F |
54 |
CPL_EXPORT_MY_DATA |
CALL OCN_EXPORT_FIELDS ( myThid ) |
./pkg/ocn_compon_interf/cpl_import_external_data.F |
10 |
CPL_IMPORT_EXTERNAL_DATA |
I myTime, myIter, myThid ) |
./pkg/ocn_compon_interf/cpl_import_external_data.F |
38 |
CPL_IMPORT_EXTERNAL_DATA |
INTEGER myThid |
./pkg/ocn_compon_interf/cpl_import_external_data.F |
47 |
CPL_IMPORT_EXTERNAL_DATA |
CALL OCN_IMPORT_FIELDS ( myThid ) |
./pkg/ocn_compon_interf/cpl_import_external_data.F |
55 |
CPL_IMPORT_EXTERNAL_DATA |
CALL OCN_CPL_DIAGS( myTime, myIter, myThid ) |
./model/src/cg2d_sr.F |
118 |
CG2D_SR |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/cg2d_sr.F |
119 |
CG2D_SR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/cg2d_sr.F |
131 |
CG2D_SR |
_GLOBAL_MAX_RL( rhsMax, myThid ) |
./model/src/cg2d_sr.F |
134 |
CG2D_SR |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/cg2d_sr.F |
135 |
CG2D_SR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/cg2d_sr.F |
148 |
CG2D_SR |
CALL EXCH_XY_RL( cg2d_x, myThid ) |
./model/src/cg2d_sr.F |
153 |
CG2D_SR |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/cg2d_sr.F |
154 |
CG2D_SR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/cg2d_sr.F |
182 |
CG2D_SR |
CALL EXCH_S3D_RL( cg2d_r, 1, myThid ) |
./model/src/cg2d_sr.F |
184 |
CG2D_SR |
CALL GLOBAL_SUM_TILE_RL( sumRHStile, sumRHS, myThid ) |
./model/src/cg2d_sr.F |
185 |
CG2D_SR |
CALL GLOBAL_SUM_TILE_RL( errTile, err, myThid ) |
./model/src/cg2d_sr.F |
192 |
CG2D_SR |
_BEGIN_MASTER( myThid ) |
./model/src/cg2d_sr.F |
195 |
CG2D_SR |
_END_MASTER( myThid ) |
./model/src/cg2d_sr.F |
205 |
CG2D_SR |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/cg2d_sr.F |
206 |
CG2D_SR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/cg2d_sr.F |
227 |
CG2D_SR |
CALL EXCH_S3D_RL( cg2d_s, 1, myThid ) |
./model/src/cg2d_sr.F |
228 |
CG2D_SR |
CALL GLOBAL_SUM_TILE_RL( eta_qrNtile,eta_qrN,myThid ) |
./model/src/cg2d_sr.F |
22 |
CG2D_SR |
I myThid ) |
./model/src/cg2d_sr.F |
235 |
CG2D_SR |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/cg2d_sr.F |
236 |
CG2D_SR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/cg2d_sr.F |
256 |
CG2D_SR |
CALL GLOBAL_SUM_TILE_RL( alphaTile, alpha, myThid ) |
./model/src/cg2d_sr.F |
262 |
CG2D_SR |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/cg2d_sr.F |
263 |
CG2D_SR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/cg2d_sr.F |
274 |
CG2D_SR |
CALL EXCH_S3D_RL( cg2d_r,1, myThid ) |
./model/src/cg2d_sr.F |
282 |
CG2D_SR |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/cg2d_sr.F |
283 |
CG2D_SR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/cg2d_sr.F |
300 |
CG2D_SR |
CALL EXCH_S3D_RL( cg2d_y, 1, myThid ) |
./model/src/cg2d_sr.F |
309 |
CG2D_SR |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/cg2d_sr.F |
310 |
CG2D_SR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/cg2d_sr.F |
339 |
CG2D_SR |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/cg2d_sr.F |
340 |
CG2D_SR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/cg2d_sr.F |
348 |
CG2D_SR |
CALL BAR2( myThid) |
./model/src/cg2d_sr.F |
349 |
CG2D_SR |
CALL GLOBAL_VEC_SUM_R8(3,3,sumPhi,myThid) |
./model/src/cg2d_sr.F |
361 |
CG2D_SR |
_BEGIN_MASTER( myThid ) |
./model/src/cg2d_sr.F |
365 |
CG2D_SR |
_END_MASTER( myThid ) |
./model/src/cg2d_sr.F |
375 |
CG2D_SR |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/cg2d_sr.F |
376 |
CG2D_SR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/cg2d_sr.F |
392 |
CG2D_SR |
CALL EXCH_S3D_RL( cg2d_r, 1, myThid ) |
./model/src/cg2d_sr.F |
399 |
CG2D_SR |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/cg2d_sr.F |
400 |
CG2D_SR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/cg2d_sr.F |
76 |
CG2D_SR |
INTEGER myThid |
./pkg/ocn_compon_interf/cpl_ini_vars.F |
100 |
CPL_INI_VARS |
CALL TIMEAVE_RESET( FWtave , 1, bi, bj, myThid ) |
./pkg/ocn_compon_interf/cpl_ini_vars.F |
101 |
CPL_INI_VARS |
CALL TIMEAVE_RESET( SFxtave, 1, bi, bj, myThid ) |
./pkg/ocn_compon_interf/cpl_ini_vars.F |
102 |
CPL_INI_VARS |
CALL TIMEAVE_RESET( SICtave, 1, bi, bj, myThid ) |
./pkg/ocn_compon_interf/cpl_ini_vars.F |
103 |
CPL_INI_VARS |
CALL TIMEAVE_RESET( MXLtave, 1, bi, bj, myThid ) |
./pkg/ocn_compon_interf/cpl_ini_vars.F |
104 |
CPL_INI_VARS |
CALL TIMEAVE_RESET( SSTtave, 1, bi, bj, myThid ) |
./pkg/ocn_compon_interf/cpl_ini_vars.F |
105 |
CPL_INI_VARS |
CALL TIMEAVE_RESET( SSStave, 1, bi, bj, myThid ) |
./pkg/ocn_compon_interf/cpl_ini_vars.F |
106 |
CPL_INI_VARS |
CALL TIMEAVE_RESET( vSqtave, 1, bi, bj, myThid ) |
./pkg/ocn_compon_interf/cpl_ini_vars.F |
107 |
CPL_INI_VARS |
CALL TIMEAVE_RESET( aCO2tave, 1, bi, bj, myThid ) |
./pkg/ocn_compon_interf/cpl_ini_vars.F |
108 |
CPL_INI_VARS |
CALL TIMEAVE_RESET( sWSpdtave,1, bi, bj, myThid ) |
./pkg/ocn_compon_interf/cpl_ini_vars.F |
109 |
CPL_INI_VARS |
CALL TIMEAVE_RESET( iceftave, 1, bi, bj, myThid ) |
./pkg/ocn_compon_interf/cpl_ini_vars.F |
10 |
CPL_INI_VARS |
SUBROUTINE CPL_INI_VARS( myThid ) |
./pkg/ocn_compon_interf/cpl_ini_vars.F |
110 |
CPL_INI_VARS |
CALL TIMEAVE_RESET( fCO2tave, 1, bi, bj, myThid ) |
./pkg/ocn_compon_interf/cpl_ini_vars.F |
39 |
CPL_INI_VARS |
INTEGER myThid |
./pkg/ocn_compon_interf/cpl_ini_vars.F |
48 |
CPL_INI_VARS |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/ocn_compon_interf/cpl_ini_vars.F |
49 |
CPL_INI_VARS |
DO bi=myBxLo(myThid),myByLo(myThid) |
./pkg/ocn_compon_interf/cpl_ini_vars.F |
82 |
CPL_INI_VARS |
CALL OCN_CPL_READ_PICKUP( nIter0, myThid ) |
./pkg/ocn_compon_interf/cpl_ini_vars.F |
88 |
CPL_INI_VARS |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/ocn_compon_interf/cpl_ini_vars.F |
89 |
CPL_INI_VARS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/ocn_compon_interf/cpl_ini_vars.F |
90 |
CPL_INI_VARS |
CALL TIMEAVE_RESET( SLPtave, 1, bi, bj, myThid ) |
./pkg/ocn_compon_interf/cpl_ini_vars.F |
91 |
CPL_INI_VARS |
CALL TIMEAVE_RESET( HFtave , 1, bi, bj, myThid ) |
./pkg/ocn_compon_interf/cpl_ini_vars.F |
92 |
CPL_INI_VARS |
CALL TIMEAVE_RESET( QSWtave, 1, bi, bj, myThid ) |
./pkg/ocn_compon_interf/cpl_ini_vars.F |
98 |
CPL_INI_VARS |
CALL TIMEAVE_RESET( TXtave , 1, bi, bj, myThid ) |
./pkg/ocn_compon_interf/cpl_ini_vars.F |
99 |
CPL_INI_VARS |
CALL TIMEAVE_RESET( TYtave , 1, bi, bj, myThid ) |
./pkg/ocn_compon_interf/cpl_init_fixed.F |
100 |
CPL_INIT_FIXED |
CALL MNC_CW_ADD_VNAME('sWSpdtave','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/ocn_compon_interf/cpl_init_fixed.F |
102 |
CPL_INIT_FIXED |
& 'surface wind speed', myThid) |
./pkg/ocn_compon_interf/cpl_init_fixed.F |
103 |
CPL_INIT_FIXED |
CALL MNC_CW_ADD_VATTR_TEXT('sWSpdtave','units','m/s',myThid) |
./pkg/ocn_compon_interf/cpl_init_fixed.F |
105 |
CPL_INIT_FIXED |
CALL MNC_CW_ADD_VNAME('iceftave','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/ocn_compon_interf/cpl_init_fixed.F |
107 |
CPL_INIT_FIXED |
& 'ocean seaice fraction', myThid) |
./pkg/ocn_compon_interf/cpl_init_fixed.F |
108 |
CPL_INIT_FIXED |
CALL MNC_CW_ADD_VATTR_TEXT('iceftave','units','non-dim',myThid) |
./pkg/ocn_compon_interf/cpl_init_fixed.F |
110 |
CPL_INIT_FIXED |
CALL MNC_CW_ADD_VNAME('fCO2tave','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/ocn_compon_interf/cpl_init_fixed.F |
112 |
CPL_INIT_FIXED |
& 'ocean CO2 flux -> atm', myThid) |
./pkg/ocn_compon_interf/cpl_init_fixed.F |
113 |
CPL_INIT_FIXED |
CALL MNC_CW_ADD_VATTR_TEXT('fCO2tave','units','mol/m2/s',myThid) |
./pkg/ocn_compon_interf/cpl_init_fixed.F |
12 |
CPL_INIT_FIXED |
SUBROUTINE CPL_INIT_FIXED( myThid ) |
./pkg/ocn_compon_interf/cpl_init_fixed.F |
26 |
CPL_INIT_FIXED |
INTEGER myThid |
./pkg/ocn_compon_interf/cpl_init_fixed.F |
32 |
CPL_INIT_FIXED |
CALL MNC_CW_ADD_VNAME('SLPtave','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/ocn_compon_interf/cpl_init_fixed.F |
34 |
CPL_INIT_FIXED |
& 'Atmospheric Sea-Level pressure', myThid) |
./pkg/ocn_compon_interf/cpl_init_fixed.F |
35 |
CPL_INIT_FIXED |
CALL MNC_CW_ADD_VATTR_TEXT('SLPtave','units','N/m2', myThid) |
./pkg/ocn_compon_interf/cpl_init_fixed.F |
37 |
CPL_INIT_FIXED |
CALL MNC_CW_ADD_VNAME('HFtave', 'Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/ocn_compon_interf/cpl_init_fixed.F |
39 |
CPL_INIT_FIXED |
& 'Net surface heat-flux', myThid) |
./pkg/ocn_compon_interf/cpl_init_fixed.F |
40 |
CPL_INIT_FIXED |
CALL MNC_CW_ADD_VATTR_TEXT('HFtave','units','W/m2', myThid) |
./pkg/ocn_compon_interf/cpl_init_fixed.F |
42 |
CPL_INIT_FIXED |
CALL MNC_CW_ADD_VNAME('QSWtave','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/ocn_compon_interf/cpl_init_fixed.F |
44 |
CPL_INIT_FIXED |
& '', myThid) |
./pkg/ocn_compon_interf/cpl_init_fixed.F |
45 |
CPL_INIT_FIXED |
CALL MNC_CW_ADD_VATTR_TEXT('QSWtave','units','W/m2', myThid) |
./pkg/ocn_compon_interf/cpl_init_fixed.F |
47 |
CPL_INIT_FIXED |
CALL MNC_CW_ADD_VNAME('TXtave', 'Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/ocn_compon_interf/cpl_init_fixed.F |
49 |
CPL_INIT_FIXED |
& 'surface stress in X', myThid) |
./pkg/ocn_compon_interf/cpl_init_fixed.F |
50 |
CPL_INIT_FIXED |
CALL MNC_CW_ADD_VATTR_TEXT('TXtave','units','N/m2', myThid) |
./pkg/ocn_compon_interf/cpl_init_fixed.F |
52 |
CPL_INIT_FIXED |
CALL MNC_CW_ADD_VNAME('TYtave', 'Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/ocn_compon_interf/cpl_init_fixed.F |
54 |
CPL_INIT_FIXED |
& 'surface stress in Y', myThid) |
./pkg/ocn_compon_interf/cpl_init_fixed.F |
55 |
CPL_INIT_FIXED |
CALL MNC_CW_ADD_VATTR_TEXT('TYtave','units','N/m2', myThid) |
./pkg/ocn_compon_interf/cpl_init_fixed.F |
57 |
CPL_INIT_FIXED |
CALL MNC_CW_ADD_VNAME('FWtave', 'Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/ocn_compon_interf/cpl_init_fixed.F |
59 |
CPL_INIT_FIXED |
& 'Net fresh water flux', myThid) |
./pkg/ocn_compon_interf/cpl_init_fixed.F |
61 |
CPL_INIT_FIXED |
& 'equals E-P-R', myThid) |
./pkg/ocn_compon_interf/cpl_init_fixed.F |
62 |
CPL_INIT_FIXED |
CALL MNC_CW_ADD_VATTR_TEXT('FWtave','units','kg/m^2/s', myThid) |
./pkg/ocn_compon_interf/cpl_init_fixed.F |
64 |
CPL_INIT_FIXED |
CALL MNC_CW_ADD_VNAME('SFxtave','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/ocn_compon_interf/cpl_init_fixed.F |
66 |
CPL_INIT_FIXED |
& 'salt flux from sea-ice', myThid) |
./pkg/ocn_compon_interf/cpl_init_fixed.F |
68 |
CPL_INIT_FIXED |
& myThid) |
./pkg/ocn_compon_interf/cpl_init_fixed.F |
70 |
CPL_INIT_FIXED |
CALL MNC_CW_ADD_VNAME('SICtave','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/ocn_compon_interf/cpl_init_fixed.F |
72 |
CPL_INIT_FIXED |
& 'sea-ice mass', myThid) |
./pkg/ocn_compon_interf/cpl_init_fixed.F |
73 |
CPL_INIT_FIXED |
CALL MNC_CW_ADD_VATTR_TEXT('SICtave','units','kg/m^2',myThid) |
./pkg/ocn_compon_interf/cpl_init_fixed.F |
75 |
CPL_INIT_FIXED |
CALL MNC_CW_ADD_VNAME('MXLtave','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/ocn_compon_interf/cpl_init_fixed.F |
77 |
CPL_INIT_FIXED |
& 'Ocean mixed-layer depth', myThid) |
./pkg/ocn_compon_interf/cpl_init_fixed.F |
78 |
CPL_INIT_FIXED |
CALL MNC_CW_ADD_VATTR_TEXT('MXLtave','units','m', myThid) |
./pkg/ocn_compon_interf/cpl_init_fixed.F |
80 |
CPL_INIT_FIXED |
CALL MNC_CW_ADD_VNAME('SSTtave','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/ocn_compon_interf/cpl_init_fixed.F |
82 |
CPL_INIT_FIXED |
& 'ocean surface temperature', myThid) |
./pkg/ocn_compon_interf/cpl_init_fixed.F |
83 |
CPL_INIT_FIXED |
CALL MNC_CW_ADD_VATTR_TEXT('SSTtave','units','degC', myThid) |
./pkg/ocn_compon_interf/cpl_init_fixed.F |
85 |
CPL_INIT_FIXED |
CALL MNC_CW_ADD_VNAME('SSStave','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/ocn_compon_interf/cpl_init_fixed.F |
87 |
CPL_INIT_FIXED |
& 'ocean surface salinity', myThid) |
./pkg/ocn_compon_interf/cpl_init_fixed.F |
88 |
CPL_INIT_FIXED |
CALL MNC_CW_ADD_VATTR_TEXT('SSStave','units','psu', myThid) |
./pkg/ocn_compon_interf/cpl_init_fixed.F |
90 |
CPL_INIT_FIXED |
CALL MNC_CW_ADD_VNAME('vSqtave','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/ocn_compon_interf/cpl_init_fixed.F |
92 |
CPL_INIT_FIXED |
& 'ocean surface velocity square', myThid) |
./pkg/ocn_compon_interf/cpl_init_fixed.F |
93 |
CPL_INIT_FIXED |
CALL MNC_CW_ADD_VATTR_TEXT('vSqtave','units','m^2/s^2',myThid) |
./pkg/ocn_compon_interf/cpl_init_fixed.F |
95 |
CPL_INIT_FIXED |
CALL MNC_CW_ADD_VNAME('aCO2tave','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/ocn_compon_interf/cpl_init_fixed.F |
97 |
CPL_INIT_FIXED |
& 'atm CO2 level', myThid) |
./pkg/ocn_compon_interf/cpl_init_fixed.F |
98 |
CPL_INIT_FIXED |
CALL MNC_CW_ADD_VATTR_TEXT('aCO2tave','units','parts',myThid) |
./pkg/ocn_compon_interf/cpl_output.F |
100 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, FWtave , 6, myIter, myThid ) |
./pkg/ocn_compon_interf/cpl_output.F |
101 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, SFxtave , 7, myIter, myThid ) |
./pkg/ocn_compon_interf/cpl_output.F |
102 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, SICtave , 8, myIter, myThid ) |
./pkg/ocn_compon_interf/cpl_output.F |
103 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, MXLtave , 9, myIter, myThid ) |
./pkg/ocn_compon_interf/cpl_output.F |
104 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, SSTtave , 10, myIter, myThid ) |
./pkg/ocn_compon_interf/cpl_output.F |
105 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, SSStave , 11, myIter, myThid ) |
./pkg/ocn_compon_interf/cpl_output.F |
106 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, vSqtave , 12, myIter, myThid ) |
./pkg/ocn_compon_interf/cpl_output.F |
108 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, aCO2tave , 13, myIter, myThid ) |
./pkg/ocn_compon_interf/cpl_output.F |
109 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, sWSpdtave, 14, myIter, myThid ) |
./pkg/ocn_compon_interf/cpl_output.F |
10 |
CPL_OUTPUT |
SUBROUTINE CPL_OUTPUT( myTime, myIter, myThid ) |
./pkg/ocn_compon_interf/cpl_output.F |
110 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, iceftave , 15, myIter, myThid ) |
./pkg/ocn_compon_interf/cpl_output.F |
111 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, fCO2tave , 16, myIter, myThid ) |
./pkg/ocn_compon_interf/cpl_output.F |
122 |
CPL_OUTPUT |
CALL MNC_CW_SET_UDIM('cpl_tave', -1, myThid) |
./pkg/ocn_compon_interf/cpl_output.F |
123 |
CPL_OUTPUT |
CALL MNC_CW_RL_W_S('D','cpl_tave',0,0,'T',myTime,myThid) |
./pkg/ocn_compon_interf/cpl_output.F |
124 |
CPL_OUTPUT |
CALL MNC_CW_SET_UDIM('cpl_tave', 0, myThid) |
./pkg/ocn_compon_interf/cpl_output.F |
125 |
CPL_OUTPUT |
CALL MNC_CW_I_W_S('I','cpl_tave',0,0,'iter',myIter,myThid) |
./pkg/ocn_compon_interf/cpl_output.F |
127 |
CPL_OUTPUT |
& 'SLPtave',SLPtave,myThid) |
./pkg/ocn_compon_interf/cpl_output.F |
129 |
CPL_OUTPUT |
& 'HFtave',HFtave,myThid) |
./pkg/ocn_compon_interf/cpl_output.F |
131 |
CPL_OUTPUT |
& 'QSWtave',QSWtave,myThid) |
./pkg/ocn_compon_interf/cpl_output.F |
133 |
CPL_OUTPUT |
& 'TXtave',TXtave,myThid) |
./pkg/ocn_compon_interf/cpl_output.F |
135 |
CPL_OUTPUT |
& 'TYtave',TYtave,myThid) |
./pkg/ocn_compon_interf/cpl_output.F |
137 |
CPL_OUTPUT |
& 'FWtave',FWtave,myThid) |
./pkg/ocn_compon_interf/cpl_output.F |
139 |
CPL_OUTPUT |
& 'SFxtave',SFxtave,myThid) |
./pkg/ocn_compon_interf/cpl_output.F |
141 |
CPL_OUTPUT |
& 'SICtave',SICtave,myThid) |
./pkg/ocn_compon_interf/cpl_output.F |
143 |
CPL_OUTPUT |
& 'MXLtave',MXLtave,myThid) |
./pkg/ocn_compon_interf/cpl_output.F |
145 |
CPL_OUTPUT |
& 'SSTtave',SSTtave,myThid) |
./pkg/ocn_compon_interf/cpl_output.F |
147 |
CPL_OUTPUT |
& 'SSStave',SSStave,myThid) |
./pkg/ocn_compon_interf/cpl_output.F |
149 |
CPL_OUTPUT |
& 'vSqtave',vSqtave,myThid) |
./pkg/ocn_compon_interf/cpl_output.F |
152 |
CPL_OUTPUT |
& 'aCO2tave',aCO2tave,myThid) |
./pkg/ocn_compon_interf/cpl_output.F |
154 |
CPL_OUTPUT |
& 'sWSpdtave',sWSpdtave,myThid) |
./pkg/ocn_compon_interf/cpl_output.F |
156 |
CPL_OUTPUT |
& 'iceftave',iceftave,myThid) |
./pkg/ocn_compon_interf/cpl_output.F |
158 |
CPL_OUTPUT |
& 'fCO2tave',fCO2tave,myThid) |
./pkg/ocn_compon_interf/cpl_output.F |
164 |
CPL_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/ocn_compon_interf/cpl_output.F |
165 |
CPL_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/ocn_compon_interf/cpl_output.F |
166 |
CPL_OUTPUT |
CALL TIMEAVE_RESET( SLPtave, 1, bi, bj, myThid ) |
./pkg/ocn_compon_interf/cpl_output.F |
167 |
CPL_OUTPUT |
CALL TIMEAVE_RESET( HFtave , 1, bi, bj, myThid ) |
./pkg/ocn_compon_interf/cpl_output.F |
168 |
CPL_OUTPUT |
CALL TIMEAVE_RESET( QSWtave, 1, bi, bj, myThid ) |
./pkg/ocn_compon_interf/cpl_output.F |
174 |
CPL_OUTPUT |
CALL TIMEAVE_RESET( TXtave , 1, bi, bj, myThid ) |
./pkg/ocn_compon_interf/cpl_output.F |
175 |
CPL_OUTPUT |
CALL TIMEAVE_RESET( TYtave , 1, bi, bj, myThid ) |
./pkg/ocn_compon_interf/cpl_output.F |
176 |
CPL_OUTPUT |
CALL TIMEAVE_RESET( FWtave , 1, bi, bj, myThid ) |
./pkg/ocn_compon_interf/cpl_output.F |
177 |
CPL_OUTPUT |
CALL TIMEAVE_RESET( SFxtave, 1, bi, bj, myThid ) |
./pkg/ocn_compon_interf/cpl_output.F |
178 |
CPL_OUTPUT |
CALL TIMEAVE_RESET( SICtave, 1, bi, bj, myThid ) |
./pkg/ocn_compon_interf/cpl_output.F |
179 |
CPL_OUTPUT |
CALL TIMEAVE_RESET( MXLtave, 1, bi, bj, myThid ) |
./pkg/ocn_compon_interf/cpl_output.F |
180 |
CPL_OUTPUT |
CALL TIMEAVE_RESET( SSTtave, 1, bi, bj, myThid ) |
./pkg/ocn_compon_interf/cpl_output.F |
181 |
CPL_OUTPUT |
CALL TIMEAVE_RESET( SSStave, 1, bi, bj, myThid ) |
./pkg/ocn_compon_interf/cpl_output.F |
182 |
CPL_OUTPUT |
CALL TIMEAVE_RESET( vSqtave, 1, bi, bj, myThid ) |
./pkg/ocn_compon_interf/cpl_output.F |
184 |
CPL_OUTPUT |
CALL TIMEAVE_RESET( aCO2tave , 1, bi, bj, myThid ) |
./pkg/ocn_compon_interf/cpl_output.F |
185 |
CPL_OUTPUT |
CALL TIMEAVE_RESET( sWSpdtave, 1, bi, bj, myThid ) |
./pkg/ocn_compon_interf/cpl_output.F |
186 |
CPL_OUTPUT |
CALL TIMEAVE_RESET( iceftave , 1, bi, bj, myThid ) |
./pkg/ocn_compon_interf/cpl_output.F |
187 |
CPL_OUTPUT |
CALL TIMEAVE_RESET( fCO2tave , 1, bi, bj, myThid ) |
./pkg/ocn_compon_interf/cpl_output.F |
39 |
CPL_OUTPUT |
INTEGER myThid |
./pkg/ocn_compon_interf/cpl_output.F |
65 |
CPL_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/ocn_compon_interf/cpl_output.F |
66 |
CPL_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/ocn_compon_interf/cpl_output.F |
67 |
CPL_OUTPUT |
CALL TIMEAVE_NORMALIZE(SLPtave,CPL_timeAve,1,bi,bj,myThid) |
./pkg/ocn_compon_interf/cpl_output.F |
68 |
CPL_OUTPUT |
CALL TIMEAVE_NORMALIZE(HFtave ,CPL_timeAve,1,bi,bj,myThid) |
./pkg/ocn_compon_interf/cpl_output.F |
69 |
CPL_OUTPUT |
CALL TIMEAVE_NORMALIZE(QSWtave,CPL_timeAve,1,bi,bj,myThid) |
./pkg/ocn_compon_interf/cpl_output.F |
75 |
CPL_OUTPUT |
CALL TIMEAVE_NORMALIZE(TXtave ,CPL_timeAve,1,bi,bj,myThid) |
./pkg/ocn_compon_interf/cpl_output.F |
76 |
CPL_OUTPUT |
CALL TIMEAVE_NORMALIZE(TYtave ,CPL_timeAve,1,bi,bj,myThid) |
./pkg/ocn_compon_interf/cpl_output.F |
77 |
CPL_OUTPUT |
CALL TIMEAVE_NORMALIZE(FWtave ,CPL_timeAve,1,bi,bj,myThid) |
./pkg/ocn_compon_interf/cpl_output.F |
78 |
CPL_OUTPUT |
CALL TIMEAVE_NORMALIZE(SFxtave,CPL_timeAve,1,bi,bj,myThid) |
./pkg/ocn_compon_interf/cpl_output.F |
79 |
CPL_OUTPUT |
CALL TIMEAVE_NORMALIZE(SICtave,CPL_timeAve,1,bi,bj,myThid) |
./pkg/ocn_compon_interf/cpl_output.F |
80 |
CPL_OUTPUT |
CALL TIMEAVE_NORMALIZE(MXLtave,CPL_timeAve,1,bi,bj,myThid) |
./pkg/ocn_compon_interf/cpl_output.F |
81 |
CPL_OUTPUT |
CALL TIMEAVE_NORMALIZE(SSTtave,CPL_timeAve,1,bi,bj,myThid) |
./pkg/ocn_compon_interf/cpl_output.F |
82 |
CPL_OUTPUT |
CALL TIMEAVE_NORMALIZE(SSStave,CPL_timeAve,1,bi,bj,myThid) |
./pkg/ocn_compon_interf/cpl_output.F |
83 |
CPL_OUTPUT |
CALL TIMEAVE_NORMALIZE(vSqtave,CPL_timeAve,1,bi,bj,myThid) |
./pkg/ocn_compon_interf/cpl_output.F |
85 |
CPL_OUTPUT |
CALL TIMEAVE_NORMALIZE(aCO2tave, CPL_timeAve,1,bi,bj,myThid) |
./pkg/ocn_compon_interf/cpl_output.F |
86 |
CPL_OUTPUT |
CALL TIMEAVE_NORMALIZE(sWSpdtave,CPL_timeAve,1,bi,bj,myThid) |
./pkg/ocn_compon_interf/cpl_output.F |
87 |
CPL_OUTPUT |
CALL TIMEAVE_NORMALIZE(iceftave, CPL_timeAve,1,bi,bj,myThid) |
./pkg/ocn_compon_interf/cpl_output.F |
88 |
CPL_OUTPUT |
CALL TIMEAVE_NORMALIZE(fCO2tave, CPL_timeAve,1,bi,bj,myThid) |
./pkg/ocn_compon_interf/cpl_output.F |
95 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, SLPtave , 1, myIter, myThid ) |
./pkg/ocn_compon_interf/cpl_output.F |
96 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, HFtave , 2, myIter, myThid ) |
./pkg/ocn_compon_interf/cpl_output.F |
97 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, QSWtave , 3, myIter, myThid ) |
./pkg/ocn_compon_interf/cpl_output.F |
98 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, TXtave , 4, myIter, myThid ) |
./pkg/ocn_compon_interf/cpl_output.F |
99 |
CPL_OUTPUT |
CALL WRITE_REC_XY_RL( fn, TYtave , 5, myIter, myThid ) |
./pkg/ocn_compon_interf/cpl_readparms.F |
10 |
CPL_READPARMS |
SUBROUTINE CPL_READPARMS( myThid ) |
./pkg/ocn_compon_interf/cpl_readparms.F |
134 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/ocn_compon_interf/cpl_readparms.F |
137 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/ocn_compon_interf/cpl_readparms.F |
147 |
CPL_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
./pkg/ocn_compon_interf/cpl_readparms.F |
151 |
CPL_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
./pkg/ocn_compon_interf/cpl_readparms.F |
156 |
CPL_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
./pkg/ocn_compon_interf/cpl_readparms.F |
167 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/ocn_compon_interf/cpl_readparms.F |
170 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/ocn_compon_interf/cpl_readparms.F |
178 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/ocn_compon_interf/cpl_readparms.F |
248 |
CPL_READPARMS |
_END_MASTER(myThid) |
./pkg/ocn_compon_interf/cpl_readparms.F |
40 |
CPL_READPARMS |
INTEGER myThid |
./pkg/ocn_compon_interf/cpl_readparms.F |
80 |
CPL_READPARMS |
_BEGIN_MASTER(myThid) |
./pkg/ocn_compon_interf/cpl_readparms.F |
87 |
CPL_READPARMS |
O iUnit, myThid ) |
./pkg/ocn_compon_interf/cpl_write_pickup.F |
10 |
CPL_WRITE_PICKUP |
I suff, myTime, myIter, myThid ) |
./pkg/ocn_compon_interf/cpl_write_pickup.F |
44 |
CPL_WRITE_PICKUP |
INTEGER myThid |
./pkg/ocn_compon_interf/cpl_write_pickup.F |
59 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, atmSLPr , 1, myIter, myThid ) |
./pkg/ocn_compon_interf/cpl_write_pickup.F |
60 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, HeatFlux , 2, myIter, myThid ) |
./pkg/ocn_compon_interf/cpl_write_pickup.F |
61 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, qShortWave, 3, myIter, myThid ) |
./pkg/ocn_compon_interf/cpl_write_pickup.F |
67 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, tauX , 4, myIter, myThid ) |
./pkg/ocn_compon_interf/cpl_write_pickup.F |
68 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, tauY , 5, myIter, myThid ) |
./pkg/ocn_compon_interf/cpl_write_pickup.F |
69 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, FWFlux , 6, myIter, myThid ) |
./pkg/ocn_compon_interf/cpl_write_pickup.F |
70 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, iceSaltFlx, 7, myIter, myThid ) |
./pkg/ocn_compon_interf/cpl_write_pickup.F |
71 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, seaIceMass, 8, myIter, myThid ) |
./pkg/ocn_compon_interf/cpl_write_pickup.F |
83 |
CPL_WRITE_PICKUP |
& fluxCO2cpl, rec_ind+1,myIter,myThid) |
./pkg/ocn_compon_interf/ocn_apply_import.F |
11 |
OCN_APPLY_IMPORT |
I apply2AllFields, myTime, myIter, myThid ) |
./pkg/ocn_compon_interf/ocn_apply_import.F |
187 |
OCN_APPLY_IMPORT |
& _EXCH_XY_RS( pLoad, myThid ) |
./pkg/ocn_compon_interf/ocn_apply_import.F |
189 |
OCN_APPLY_IMPORT |
IF ( useImportSIce) _EXCH_XY_RS( sIceLoad, myThid ) |
./pkg/ocn_compon_interf/ocn_apply_import.F |
191 |
OCN_APPLY_IMPORT |
_EXCH_XY_RS( phi0surf, myThid ) |
./pkg/ocn_compon_interf/ocn_apply_import.F |
195 |
OCN_APPLY_IMPORT |
& _EXCH_XY_RS( pLoad, myThid ) |
./pkg/ocn_compon_interf/ocn_apply_import.F |
198 |
OCN_APPLY_IMPORT |
IF ( useImportFW ) _EXCH_XY_RS(EmPmR, myThid ) |
./pkg/ocn_compon_interf/ocn_apply_import.F |
200 |
OCN_APPLY_IMPORT |
IF (useImportTau ) CALL EXCH_UV_XY_RS(fu,fv,.TRUE.,myThid) |
./pkg/ocn_compon_interf/ocn_apply_import.F |
201 |
OCN_APPLY_IMPORT |
IF (useImportFW ) _EXCH_XY_RS(saltFlux, myThid ) |
./pkg/ocn_compon_interf/ocn_apply_import.F |
202 |
OCN_APPLY_IMPORT |
IF (useImportHFlx) _EXCH_XY_RS(Qnet , myThid ) |
./pkg/ocn_compon_interf/ocn_apply_import.F |
204 |
OCN_APPLY_IMPORT |
IF (useImportHFlx) _EXCH_XY_RS(Qsw , myThid ) |
./pkg/ocn_compon_interf/ocn_apply_import.F |
207 |
OCN_APPLY_IMPORT |
IF ( useImportFice ) _EXCH_XY_RL(fice , myThid ) |
./pkg/ocn_compon_interf/ocn_apply_import.F |
208 |
OCN_APPLY_IMPORT |
IF ( useImportCO2 ) _EXCH_XY_RL(AtmospCO2 , myThid ) |
./pkg/ocn_compon_interf/ocn_apply_import.F |
209 |
OCN_APPLY_IMPORT |
IF ( useImportWSpd ) _EXCH_XY_RL(wind , myThid ) |
./pkg/ocn_compon_interf/ocn_apply_import.F |
47 |
OCN_APPLY_IMPORT |
INTEGER myThid |
./pkg/ocn_compon_interf/ocn_apply_import.F |
55 |
OCN_APPLY_IMPORT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/ocn_compon_interf/ocn_apply_import.F |
56 |
OCN_APPLY_IMPORT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
10 |
OCN_CPL_DIAGS |
SUBROUTINE OCN_CPL_DIAGS( myTime, myIter, myThid ) |
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
37 |
OCN_CPL_DIAGS |
INTEGER myThid |
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
55 |
OCN_CPL_DIAGS |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
56 |
OCN_CPL_DIAGS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
103 |
OCN_CPL_READ_PICKUP |
_EXCH_XY_RL( fluxCO2cpl, myThid ) |
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
10 |
OCN_CPL_READ_PICKUP |
SUBROUTINE OCN_CPL_READ_PICKUP( myIter, myThid ) |
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
40 |
OCN_CPL_READ_PICKUP |
INTEGER myThid |
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
60 |
OCN_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1,atmSLPr , 1,myIter,myThid ) |
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
61 |
OCN_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1,HeatFlux , 2,myIter,myThid ) |
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
62 |
OCN_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1,qShortWave, 3,myIter,myThid ) |
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
63 |
OCN_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1,tauX , 4,myIter,myThid ) |
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
64 |
OCN_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1,tauY , 5,myIter,myThid ) |
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
65 |
OCN_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1,FWFlux , 6,myIter,myThid ) |
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
66 |
OCN_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1,iceSaltFlx, 7,myIter,myThid ) |
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
67 |
OCN_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1,seaIceMass, 8,myIter,myThid ) |
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
79 |
OCN_CPL_READ_PICKUP |
& fluxCO2cpl, rec_ind, myIter, myThid ) |
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
91 |
OCN_CPL_READ_PICKUP |
_EXCH_XY_RL( atmSLPr , myThid ) |
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
92 |
OCN_CPL_READ_PICKUP |
_EXCH_XY_RL( HeatFlux , myThid ) |
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
93 |
OCN_CPL_READ_PICKUP |
_EXCH_XY_RL( qShortWave, myThid ) |
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
94 |
OCN_CPL_READ_PICKUP |
CALL EXCH_UV_XY_RL( tauX, tauY, .TRUE., myThid ) |
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
95 |
OCN_CPL_READ_PICKUP |
_EXCH_XY_RL( FWFlux , myThid ) |
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
96 |
OCN_CPL_READ_PICKUP |
_EXCH_XY_RL( iceSaltFlx, myThid ) |
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
97 |
OCN_CPL_READ_PICKUP |
_EXCH_XY_RL( seaIceMass, myThid ) |
./model/src/cg3d.F |
135 |
CG3D |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/cg3d.F |
136 |
CG3D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/cg3d.F |
148 |
CG3D |
_GLOBAL_MAX_RL( rhsMax, myThid ) |
./model/src/cg3d.F |
151 |
CG3D |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/cg3d.F |
152 |
CG3D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/cg3d.F |
166 |
CG3D |
_EXCH_XYZ_RL( cg3d_x, myThid ) |
./model/src/cg3d.F |
171 |
CG3D |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/cg3d.F |
172 |
CG3D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/cg3d.F |
22 |
CG3D |
I myIter, myThid ) |
./model/src/cg3d.F |
239 |
CG3D |
CALL EXCH_S3D_RL( cg3d_r, Nr, myThid ) |
./model/src/cg3d.F |
241 |
CG3D |
CALL GLOBAL_SUM_TILE_RL( sumRHStile, sumRHS, myThid ) |
./model/src/cg3d.F |
242 |
CG3D |
CALL GLOBAL_SUM_TILE_RL( errTile, err, myThid ) |
./model/src/cg3d.F |
245 |
CG3D |
I 'cg3d_r_I', 'I10', 1, Nr, cg3d_r, myIter, myThid ) |
./model/src/cg3d.F |
249 |
CG3D |
_BEGIN_MASTER( myThid ) |
./model/src/cg3d.F |
252 |
CG3D |
_END_MASTER( myThid ) |
./model/src/cg3d.F |
275 |
CG3D |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/cg3d.F |
276 |
CG3D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/cg3d.F |
336 |
CG3D |
CALL GLOBAL_SUM_TILE_RL( eta_qrNtile,eta_qrN,myThid ) |
./model/src/cg3d.F |
346 |
CG3D |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/cg3d.F |
347 |
CG3D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/cg3d.F |
362 |
CG3D |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/cg3d.F |
363 |
CG3D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/cg3d.F |
479 |
CG3D |
CALL GLOBAL_SUM_TILE_RL( alphaTile, alpha, myThid ) |
./model/src/cg3d.F |
491 |
CG3D |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/cg3d.F |
492 |
CG3D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/cg3d.F |
512 |
CG3D |
CALL GLOBAL_SUM_TILE_RL( errTile, err, myThid ) |
./model/src/cg3d.F |
519 |
CG3D |
_BEGIN_MASTER( myThid ) |
./model/src/cg3d.F |
523 |
CG3D |
& SQUEEZE_RIGHT, myThid ) |
./model/src/cg3d.F |
524 |
CG3D |
_END_MASTER( myThid ) |
./model/src/cg3d.F |
528 |
CG3D |
CALL EXCH_S3D_RL( cg3d_r, Nr, myThid ) |
./model/src/cg3d.F |
535 |
CG3D |
I 'cg3d_r_F', 'I10', 1, Nr, cg3d_r, myIter, myThid ) |
./model/src/cg3d.F |
539 |
CG3D |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/cg3d.F |
540 |
CG3D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/cg3d.F |
74 |
CG3D |
INTEGER myThid |
./pkg/ocn_compon_interf/ocn_export_fields.F |
11 |
OCN_EXPORT_FIELDS |
SUBROUTINE OCN_EXPORT_FIELDS( myThid ) |
./pkg/ocn_compon_interf/ocn_export_fields.F |
34 |
OCN_EXPORT_FIELDS |
INTEGER myThid |
./pkg/ocn_compon_interf/ocn_export_fields.F |
47 |
OCN_EXPORT_FIELDS |
_BEGIN_MASTER( myThid ) |
./pkg/ocn_compon_interf/ocn_export_fields.F |
71 |
OCN_EXPORT_FIELDS |
_END_MASTER( myThid ) |
./pkg/ocn_compon_interf/ocn_export_ocnconfig.F |
10 |
OCN_EXPORT_OCNCONFIG |
SUBROUTINE OCN_EXPORT_OCNCONFIG( myThid ) |
./pkg/ocn_compon_interf/ocn_export_ocnconfig.F |
34 |
OCN_EXPORT_OCNCONFIG |
INTEGER myThid |
./pkg/ocn_compon_interf/ocn_export_ocnconfig.F |
40 |
OCN_EXPORT_OCNCONFIG |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/ocn_compon_interf/ocn_export_ocnconfig.F |
41 |
OCN_EXPORT_OCNCONFIG |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/ocn_compon_interf/ocn_export_ocnconfig.F |
53 |
OCN_EXPORT_OCNCONFIG |
_BEGIN_MASTER( myThid ) |
./pkg/ocn_compon_interf/ocn_export_ocnconfig.F |
57 |
OCN_EXPORT_OCNCONFIG |
_END_MASTER( myThid ) |
./pkg/ocn_compon_interf/ocn_import_atmconfig.F |
10 |
OCN_IMPORT_ATMCONFIG |
SUBROUTINE OCN_IMPORT_ATMCONFIG( myThid ) |
./pkg/ocn_compon_interf/ocn_import_atmconfig.F |
33 |
OCN_IMPORT_ATMCONFIG |
INTEGER myThid |
./pkg/ocn_compon_interf/ocn_import_atmconfig.F |
39 |
OCN_IMPORT_ATMCONFIG |
_BEGIN_MASTER( myThid ) |
./pkg/ocn_compon_interf/ocn_import_atmconfig.F |
43 |
OCN_IMPORT_ATMCONFIG |
_END_MASTER( myThid ) |
./pkg/ocn_compon_interf/ocn_import_fields.F |
104 |
OCN_IMPORT_FIELDS |
_END_MASTER( myThid ) |
./pkg/ocn_compon_interf/ocn_import_fields.F |
11 |
OCN_IMPORT_FIELDS |
SUBROUTINE OCN_IMPORT_FIELDS( myThid ) |
./pkg/ocn_compon_interf/ocn_import_fields.F |
34 |
OCN_IMPORT_FIELDS |
INTEGER myThid |
./pkg/ocn_compon_interf/ocn_import_fields.F |
45 |
OCN_IMPORT_FIELDS |
_BEGIN_MASTER( myThid ) |
./pkg/ocn_compon_interf/ocn_store_my_data.F |
41 |
OCN_STORE_MY_DATA |
INTEGER myThid |
./pkg/ocn_compon_interf/ocn_store_my_data.F |
8 |
OCN_STORE_MY_DATA |
I myTime, myIter, bi,bj, myThid ) |
./model/src/check_pickup.F |
100 |
CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/check_pickup.F |
113 |
CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/check_pickup.F |
123 |
CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/check_pickup.F |
129 |
CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/check_pickup.F |
136 |
CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/check_pickup.F |
143 |
CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/check_pickup.F |
14 |
CHECK_PICKUP |
I myIter, myThid ) |
./model/src/check_pickup.F |
155 |
CHECK_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/check_pickup.F |
165 |
CHECK_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/check_pickup.F |
197 |
CHECK_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/check_pickup.F |
207 |
CHECK_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/check_pickup.F |
212 |
CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/check_pickup.F |
220 |
CHECK_PICKUP |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/check_pickup.F |
224 |
CHECK_PICKUP |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/check_pickup.F |
230 |
CHECK_PICKUP |
_END_MASTER( myThid ) |
./model/src/check_pickup.F |
41 |
CHECK_PICKUP |
INTEGER myThid |
./model/src/check_pickup.F |
58 |
CHECK_PICKUP |
_BEGIN_MASTER( myThid ) |
./model/src/check_pickup.F |
73 |
CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/check_pickup.F |
91 |
CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/offline/offline_fields_load.F |
100 |
OFFLINE_FIELDS_LOAD |
CALL LEF_ZERO3( gmkz1 ,myThid ) |
./pkg/offline/offline_fields_load.F |
101 |
OFFLINE_FIELDS_LOAD |
CALL LEF_ZERO2( hflx1 ,myThid ) |
./pkg/offline/offline_fields_load.F |
102 |
OFFLINE_FIELDS_LOAD |
CALL LEF_ZERO2( sflx1 ,myThid ) |
./pkg/offline/offline_fields_load.F |
103 |
OFFLINE_FIELDS_LOAD |
CALL LEF_ZERO2( icem1 ,myThid ) |
./pkg/offline/offline_fields_load.F |
104 |
OFFLINE_FIELDS_LOAD |
CALL LEF_ZERO3( kdfs1 ,myThid ) |
./pkg/offline/offline_fields_load.F |
105 |
OFFLINE_FIELDS_LOAD |
CALL LEF_ZERO3( kght1 ,myThid ) |
./pkg/offline/offline_fields_load.F |
133 |
OFFLINE_FIELDS_LOAD |
_BEGIN_MASTER(myThid) |
./pkg/offline/offline_fields_load.F |
137 |
OFFLINE_FIELDS_LOAD |
_END_MASTER(myThid) |
./pkg/offline/offline_fields_load.F |
149 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, uvel0, 1, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
153 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, uvel1, 1, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
161 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, vvel0, 1, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
164 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, vvel1, 1, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
172 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, wvel0, 1, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
175 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, wvel1, 1, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
183 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, tave0, 1, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
186 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, tave1, 1, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
194 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, save0, 1, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
197 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, save1, 1, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
205 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, conv0, 1, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
208 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, conv1, 1, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
217 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, gmkx0, 1, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
220 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, gmkx1, 1, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
228 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, gmky0, 1, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
231 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, gmky1, 1, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
239 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, gmkz0, 1, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
242 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, gmkz1, 1, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
251 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, 1, hflx0, 1, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
254 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, 1, hflx1, 1, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
262 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, 1, sflx0, 1, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
265 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, 1, sflx1, 1, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
273 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, 1, icem0, 1, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
276 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, 1, icem1, 1, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
285 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, kdfs0, 1, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
288 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, kdfs1, 1, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
298 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, kght0, 1, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
301 |
OFFLINE_FIELDS_LOAD |
CALL READ_REC_3D_RS( fn, prec, Nr, kght1, 1, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
307 |
OFFLINE_FIELDS_LOAD |
CALL EXCH_UV_XYZ_RS( uvel0, vvel0, .TRUE., myThid ) |
./pkg/offline/offline_fields_load.F |
308 |
OFFLINE_FIELDS_LOAD |
CALL EXCH_UV_XYZ_RS( uvel1, vvel1, .TRUE., myThid ) |
./pkg/offline/offline_fields_load.F |
309 |
OFFLINE_FIELDS_LOAD |
_EXCH_XYZ_RS(wvel0, myThid ) |
./pkg/offline/offline_fields_load.F |
310 |
OFFLINE_FIELDS_LOAD |
_EXCH_XYZ_RS(wvel1, myThid ) |
./pkg/offline/offline_fields_load.F |
311 |
OFFLINE_FIELDS_LOAD |
_EXCH_XYZ_RS(tave0 , myThid ) |
./pkg/offline/offline_fields_load.F |
312 |
OFFLINE_FIELDS_LOAD |
_EXCH_XYZ_RS(tave1 , myThid ) |
./pkg/offline/offline_fields_load.F |
313 |
OFFLINE_FIELDS_LOAD |
_EXCH_XYZ_RS(save0, myThid ) |
./pkg/offline/offline_fields_load.F |
314 |
OFFLINE_FIELDS_LOAD |
_EXCH_XYZ_RS(save1, myThid ) |
./pkg/offline/offline_fields_load.F |
315 |
OFFLINE_FIELDS_LOAD |
_EXCH_XYZ_RS(conv0, myThid ) |
./pkg/offline/offline_fields_load.F |
316 |
OFFLINE_FIELDS_LOAD |
_EXCH_XYZ_RS(conv1, myThid ) |
./pkg/offline/offline_fields_load.F |
317 |
OFFLINE_FIELDS_LOAD |
CALL EXCH_UV_AGRID_3D_RS( gmkx0, gmky0, .FALSE., Nr, myThid ) |
./pkg/offline/offline_fields_load.F |
318 |
OFFLINE_FIELDS_LOAD |
CALL EXCH_UV_AGRID_3D_RS( gmkx1, gmky1, .FALSE., Nr, myThid ) |
./pkg/offline/offline_fields_load.F |
319 |
OFFLINE_FIELDS_LOAD |
_EXCH_XYZ_RS(gmkz0, myThid ) |
./pkg/offline/offline_fields_load.F |
320 |
OFFLINE_FIELDS_LOAD |
_EXCH_XYZ_RS(gmkz1, myThid ) |
./pkg/offline/offline_fields_load.F |
321 |
OFFLINE_FIELDS_LOAD |
_EXCH_XY_RS(hflx0 , myThid ) |
./pkg/offline/offline_fields_load.F |
322 |
OFFLINE_FIELDS_LOAD |
_EXCH_XY_RS(hflx1 , myThid ) |
./pkg/offline/offline_fields_load.F |
323 |
OFFLINE_FIELDS_LOAD |
_EXCH_XY_RS(sflx0, myThid ) |
./pkg/offline/offline_fields_load.F |
324 |
OFFLINE_FIELDS_LOAD |
_EXCH_XY_RS(sflx1, myThid ) |
./pkg/offline/offline_fields_load.F |
325 |
OFFLINE_FIELDS_LOAD |
_EXCH_XY_RS(icem0, myThid ) |
./pkg/offline/offline_fields_load.F |
326 |
OFFLINE_FIELDS_LOAD |
_EXCH_XY_RS(icem1, myThid ) |
./pkg/offline/offline_fields_load.F |
327 |
OFFLINE_FIELDS_LOAD |
_EXCH_XYZ_RS(kdfs0 , myThid ) |
./pkg/offline/offline_fields_load.F |
328 |
OFFLINE_FIELDS_LOAD |
_EXCH_XYZ_RS(kdfs1 , myThid ) |
./pkg/offline/offline_fields_load.F |
329 |
OFFLINE_FIELDS_LOAD |
_EXCH_XYZ_RS(kght0, myThid ) |
./pkg/offline/offline_fields_load.F |
330 |
OFFLINE_FIELDS_LOAD |
_EXCH_XYZ_RS(kght1, myThid ) |
./pkg/offline/offline_fields_load.F |
335 |
OFFLINE_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/offline/offline_fields_load.F |
336 |
OFFLINE_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/offline/offline_fields_load.F |
417 |
LEF_ZERO3 |
SUBROUTINE LEF_ZERO3( arr ,myThid ) |
./pkg/offline/offline_fields_load.F |
430 |
LEF_ZERO3 |
INTEGER myThid |
./pkg/offline/offline_fields_load.F |
436 |
LEF_ZERO3 |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/offline/offline_fields_load.F |
437 |
LEF_ZERO3 |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/offline/offline_fields_load.F |
453 |
LEF_ZERO2 |
SUBROUTINE LEF_ZERO2( arr ,myThid ) |
./pkg/offline/offline_fields_load.F |
466 |
LEF_ZERO2 |
INTEGER myThid |
./pkg/offline/offline_fields_load.F |
471 |
LEF_ZERO2 |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/offline/offline_fields_load.F |
472 |
LEF_ZERO2 |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/offline/offline_fields_load.F |
52 |
OFFLINE_FIELDS_LOAD |
INTEGER myThid |
./pkg/offline/offline_fields_load.F |
78 |
OFFLINE_FIELDS_LOAD |
CALL LEF_ZERO3( uvel0 ,myThid ) |
./pkg/offline/offline_fields_load.F |
79 |
OFFLINE_FIELDS_LOAD |
CALL LEF_ZERO3( vvel0 ,myThid ) |
./pkg/offline/offline_fields_load.F |
80 |
OFFLINE_FIELDS_LOAD |
CALL LEF_ZERO3( wvel0 ,myThid ) |
./pkg/offline/offline_fields_load.F |
81 |
OFFLINE_FIELDS_LOAD |
CALL LEF_ZERO3( tave0 ,myThid ) |
./pkg/offline/offline_fields_load.F |
82 |
OFFLINE_FIELDS_LOAD |
CALL LEF_ZERO3( save0 ,myThid ) |
./pkg/offline/offline_fields_load.F |
83 |
OFFLINE_FIELDS_LOAD |
CALL LEF_ZERO3( conv0 ,myThid ) |
./pkg/offline/offline_fields_load.F |
84 |
OFFLINE_FIELDS_LOAD |
CALL LEF_ZERO3( gmkx0 ,myThid ) |
./pkg/offline/offline_fields_load.F |
85 |
OFFLINE_FIELDS_LOAD |
CALL LEF_ZERO3( gmky0 ,myThid ) |
./pkg/offline/offline_fields_load.F |
86 |
OFFLINE_FIELDS_LOAD |
CALL LEF_ZERO3( gmkz0 ,myThid ) |
./pkg/offline/offline_fields_load.F |
87 |
OFFLINE_FIELDS_LOAD |
CALL LEF_ZERO2( hflx0 ,myThid ) |
./pkg/offline/offline_fields_load.F |
88 |
OFFLINE_FIELDS_LOAD |
CALL LEF_ZERO2( sflx0 ,myThid ) |
./pkg/offline/offline_fields_load.F |
89 |
OFFLINE_FIELDS_LOAD |
CALL LEF_ZERO2( icem0 ,myThid ) |
./pkg/offline/offline_fields_load.F |
8 |
OFFLINE_FIELDS_LOAD |
SUBROUTINE OFFLINE_FIELDS_LOAD( myTime, myIter, myThid ) |
./pkg/offline/offline_fields_load.F |
90 |
OFFLINE_FIELDS_LOAD |
CALL LEF_ZERO3( kdfs0 ,myThid ) |
./pkg/offline/offline_fields_load.F |
91 |
OFFLINE_FIELDS_LOAD |
CALL LEF_ZERO3( kght0 ,myThid ) |
./pkg/offline/offline_fields_load.F |
92 |
OFFLINE_FIELDS_LOAD |
CALL LEF_ZERO3( uvel1 ,myThid ) |
./pkg/offline/offline_fields_load.F |
93 |
OFFLINE_FIELDS_LOAD |
CALL LEF_ZERO3( vvel1 ,myThid ) |
./pkg/offline/offline_fields_load.F |
94 |
OFFLINE_FIELDS_LOAD |
CALL LEF_ZERO3( wvel1 ,myThid ) |
./pkg/offline/offline_fields_load.F |
95 |
OFFLINE_FIELDS_LOAD |
CALL LEF_ZERO3( tave1 ,myThid ) |
./pkg/offline/offline_fields_load.F |
96 |
OFFLINE_FIELDS_LOAD |
CALL LEF_ZERO3( save1 ,myThid ) |
./pkg/offline/offline_fields_load.F |
97 |
OFFLINE_FIELDS_LOAD |
CALL LEF_ZERO3( conv1 ,myThid ) |
./pkg/offline/offline_fields_load.F |
98 |
OFFLINE_FIELDS_LOAD |
CALL LEF_ZERO3( gmkx1 ,myThid ) |
./pkg/offline/offline_fields_load.F |
99 |
OFFLINE_FIELDS_LOAD |
CALL LEF_ZERO3( gmky1 ,myThid ) |
./pkg/offline/offline_init_varia.F |
23 |
OFFLINE_INIT_VARIA |
INTEGER myThid |
./pkg/offline/offline_init_varia.F |
30 |
OFFLINE_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/offline/offline_init_varia.F |
31 |
OFFLINE_INIT_VARIA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/offline/offline_init_varia.F |
8 |
OFFLINE_INIT_VARIA |
SUBROUTINE OFFLINE_INIT_VARIA( myThid ) |
./pkg/offline/offline_readparms.F |
108 |
OFFLINE_READPARMS |
& SQUEEZE_RIGHT, myThid ) |
./pkg/offline/offline_readparms.F |
112 |
OFFLINE_READPARMS |
_END_MASTER(myThid) |
./pkg/offline/offline_readparms.F |
24 |
OFFLINE_READPARMS |
INTEGER myThid |
./pkg/offline/offline_readparms.F |
50 |
OFFLINE_READPARMS |
_BEGIN_MASTER(myThid) |
./pkg/offline/offline_readparms.F |
54 |
OFFLINE_READPARMS |
& SQUEEZE_RIGHT, myThid ) |
./pkg/offline/offline_readparms.F |
60 |
OFFLINE_READPARMS |
I myThid ) |
./pkg/offline/offline_readparms.F |
6 |
OFFLINE_READPARMS |
SUBROUTINE OFFLINE_READPARMS( myThid ) |
./pkg/offline/offline_readparms.F |
87 |
OFFLINE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/offline/offline_readparms.F |
90 |
OFFLINE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/opps/opps_calc.F |
135 |
OPPS_CALC |
Dd(k)=state1(Pd(k,2),Pd(k,1),i,j,k,bi,bj,myThid) |
./pkg/opps/opps_calc.F |
14 |
OPPS_CALC |
I I, J, bi, bj, myTime, myIter, myThid ) |
./pkg/opps/opps_calc.F |
175 |
OPPS_CALC |
D1=state1( Pd(k2,2), Pd(k2,1),i,j,k2+1,bi,bj,myThid) |
./pkg/opps/opps_calc.F |
177 |
OPPS_CALC |
& i,j,k2+1,bi,bj,myThid) |
./pkg/opps/opps_calc.F |
232 |
OPPS_CALC |
Dd(k2+1)=state1(Pd(k2+1,2),Pd(k2+1,1),i,j,k2+1,bi,bj,myThid) |
./pkg/opps/opps_calc.F |
465 |
OPPS_CALC |
INTEGER I,J,kRef,bi,bj,myThid |
./pkg/opps/opps_calc.F |
80 |
OPPS_CALC |
INTEGER myThid, myIter |
./pkg/opps/opps_check.F |
20 |
OPPS_CHECK |
INTEGER myThid |
./pkg/opps/opps_check.F |
5 |
OPPS_CHECK |
SUBROUTINE OPPS_CHECK( myThid ) |
./pkg/opps/opps_init.F |
24 |
OPPS_INIT |
INTEGER myThid |
./pkg/opps/opps_init.F |
37 |
OPPS_INIT |
do bj = myByLo(myThid), myByHi(myThid) |
./pkg/opps/opps_init.F |
38 |
OPPS_INIT |
do bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/opps/opps_init.F |
6 |
OPPS_INIT |
SUBROUTINE OPPS_INIT( myThid ) |
./model/src/config_check.F |
105 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
108 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
10 |
CONFIG_CHECK |
SUBROUTINE CONFIG_CHECK( myThid ) |
./model/src/config_check.F |
116 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
119 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
128 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
131 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
140 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
143 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
152 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
155 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
164 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
167 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
176 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
179 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
188 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
191 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
199 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
202 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
210 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
213 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
224 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
227 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
230 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
236 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
239 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
242 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
252 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
255 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
265 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
268 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
284 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
293 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
303 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
312 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
321 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
32 |
CONFIG_CHECK |
INTEGER myThid |
./model/src/config_check.F |
330 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
337 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
340 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
347 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
350 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
357 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
360 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
367 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
370 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
377 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
380 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
388 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
394 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
400 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
406 |
CONFIG_CHECK |
& SQUEEZE_RIGHT, myThid ) |
./model/src/config_check.F |
419 |
CONFIG_CHECK |
& SQUEEZE_RIGHT, myThid ) |
./model/src/config_check.F |
423 |
CONFIG_CHECK |
& SQUEEZE_RIGHT, myThid ) |
./model/src/config_check.F |
431 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
434 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
443 |
CONFIG_CHECK |
& SQUEEZE_RIGHT, myThid ) |
./model/src/config_check.F |
447 |
CONFIG_CHECK |
& SQUEEZE_RIGHT, myThid ) |
./model/src/config_check.F |
455 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
458 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
467 |
CONFIG_CHECK |
& SQUEEZE_RIGHT, myThid ) |
./model/src/config_check.F |
471 |
CONFIG_CHECK |
& SQUEEZE_RIGHT, myThid ) |
./model/src/config_check.F |
478 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
481 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
487 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
490 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
497 |
CONFIG_CHECK |
& SQUEEZE_RIGHT, myThid ) |
./model/src/config_check.F |
49 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
501 |
CONFIG_CHECK |
& SQUEEZE_RIGHT, myThid ) |
./model/src/config_check.F |
508 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
511 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
519 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
522 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
529 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
52 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
537 |
CONFIG_CHECK |
& SQUEEZE_RIGHT, myThid ) |
./model/src/config_check.F |
541 |
CONFIG_CHECK |
& SQUEEZE_RIGHT, myThid ) |
./model/src/config_check.F |
548 |
CONFIG_CHECK |
& SQUEEZE_RIGHT, myThid ) |
./model/src/config_check.F |
552 |
CONFIG_CHECK |
& SQUEEZE_RIGHT, myThid ) |
./model/src/config_check.F |
558 |
CONFIG_CHECK |
& SQUEEZE_RIGHT, myThid ) |
./model/src/config_check.F |
562 |
CONFIG_CHECK |
& SQUEEZE_RIGHT, myThid ) |
./model/src/config_check.F |
570 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
577 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
590 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
594 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
600 |
CONFIG_CHECK |
& SQUEEZE_RIGHT, myThid ) |
./model/src/config_check.F |
607 |
CONFIG_CHECK |
& SQUEEZE_RIGHT, myThid ) |
./model/src/config_check.F |
613 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
61 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
621 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
624 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
630 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
633 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
643 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
650 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
657 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
666 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
66 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
674 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
682 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
689 |
CONFIG_CHECK |
& SQUEEZE_RIGHT, myThid ) |
./model/src/config_check.F |
692 |
CONFIG_CHECK |
& SQUEEZE_RIGHT, myThid ) |
./model/src/config_check.F |
696 |
CONFIG_CHECK |
& SQUEEZE_RIGHT, myThid ) |
./model/src/config_check.F |
699 |
CONFIG_CHECK |
& SQUEEZE_RIGHT, myThid ) |
./model/src/config_check.F |
75 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
78 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
87 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
90 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
96 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
99 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/opps/opps_interface.F |
11 |
OPPS_INTERFACE |
I myTime, myIter, myThid ) |
./pkg/opps/opps_interface.F |
145 |
OPPS_INTERFACE |
I I,J,bi,bj,myTime,myIter,myThid) |
./pkg/opps/opps_interface.F |
164 |
OPPS_INTERFACE |
& SQUEEZE_RIGHT , myThid ) |
./pkg/opps/opps_interface.F |
167 |
OPPS_INTERFACE |
& SQUEEZE_RIGHT , myThid ) |
./pkg/opps/opps_interface.F |
55 |
OPPS_INTERFACE |
INTEGER myThid |
./pkg/opps/opps_output.F |
102 |
OPPS_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/opps/opps_output.F |
103 |
OPPS_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/opps/opps_output.F |
104 |
OPPS_OUTPUT |
CALL TIMEAVE_RESET( OPPSconvCountTave, Nr, bi, bj, myThid ) |
./pkg/opps/opps_output.F |
112 |
OPPS_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/opps/opps_output.F |
113 |
OPPS_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/opps/opps_output.F |
115 |
OPPS_OUTPUT |
& Nr, DDTT, bi, bj, myThid ) |
./pkg/opps/opps_output.F |
128 |
OPPS_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/opps/opps_output.F |
129 |
OPPS_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/opps/opps_output.F |
131 |
OPPS_OUTPUT |
& OPPS_timeAve, Nr, bi, bj, myThid ) |
./pkg/opps/opps_output.F |
138 |
OPPS_OUTPUT |
& myIter,myThid) |
./pkg/opps/opps_output.F |
141 |
OPPS_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/opps/opps_output.F |
142 |
OPPS_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/opps/opps_output.F |
143 |
OPPS_OUTPUT |
CALL TIMEAVE_RESET( OPPSconvCountTave, Nr, bi, bj, myThid ) |
./pkg/opps/opps_output.F |
57 |
OPPS_OUTPUT |
INTEGER myThid |
./pkg/opps/opps_output.F |
9 |
OPPS_OUTPUT |
SUBROUTINE OPPS_OUTPUT( myTime, myIter, myThid ) |
./pkg/opps/opps_readparms.F |
10 |
OPPS_READPARMS |
SUBROUTINE OPPS_READPARMS( myThid ) |
./pkg/opps/opps_readparms.F |
24 |
OPPS_READPARMS |
INTEGER myThid |
./pkg/opps/opps_readparms.F |
71 |
OPPS_READPARMS |
_BEGIN_MASTER(myThid) |
./pkg/opps/opps_readparms.F |
78 |
OPPS_READPARMS |
I myThid ) |
./pkg/opps/opps_readparms.F |
87 |
OPPS_READPARMS |
_END_MASTER(myThid) |
./pkg/pp81/pp81_calc.F |
11 |
PP81_CALC |
I bi, bj, myTime, myThid ) |
./pkg/pp81/pp81_calc.F |
49 |
PP81_CALC |
INTEGER myThid |
./pkg/pp81/pp81_calc.F |
71 |
PP81_CALC |
I myTime, myThid ) |
./pkg/pp81/pp81_calc_diff.F |
39 |
PP81_CALC_DIFF |
INTEGER myThid |
./pkg/pp81/pp81_calc_diff.F |
9 |
PP81_CALC_DIFF |
I myThid) |
./pkg/pp81/pp81_calc_visc.F |
34 |
PP81_CALC_VISC |
INTEGER myThid |
./pkg/pp81/pp81_calc_visc.F |
8 |
PP81_CALC_VISC |
I myThid) |
./pkg/pp81/pp81_check.F |
20 |
PP81_CHECK |
INTEGER myThid |
./pkg/pp81/pp81_check.F |
5 |
PP81_CHECK |
SUBROUTINE PP81_CHECK( myThid ) |
./model/src/config_summary.F |
12 |
CONFIG_SUMMARY |
SUBROUTINE CONFIG_SUMMARY( myThid ) |
./model/src/config_summary.F |
199 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
271 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
277 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
278 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE(endList, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
345 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
351 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
352 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE(endList, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
368 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
36 |
CONFIG_SUMMARY |
INTEGER myThid |
./model/src/config_summary.F |
374 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
376 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
379 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
382 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
385 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
391 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE(endList, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
457 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
460 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
462 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
479 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
482 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
484 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
592 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
595 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
597 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
60 |
CONFIG_SUMMARY |
_BEGIN_MASTER(myThid) |
./model/src/config_summary.F |
69 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
71 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
74 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
751 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
753 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
756 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
758 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
760 |
CONFIG_SUMMARY |
_END_MASTER(myThid) |
./model/src/config_summary.F |
77 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
80 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
82 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/pp81/pp81_init_varia.F |
24 |
PP81_INIT_VARIA |
INTEGER myThid |
./pkg/pp81/pp81_init_varia.F |
37 |
PP81_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/pp81/pp81_init_varia.F |
38 |
PP81_INIT_VARIA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/pp81/pp81_init_varia.F |
6 |
PP81_INIT_VARIA |
SUBROUTINE PP81_INIT_VARIA( myThid ) |
./pkg/pp81/pp81_output.F |
102 |
PP81_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/pp81/pp81_output.F |
103 |
PP81_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/pp81/pp81_output.F |
104 |
PP81_OUTPUT |
CALL TIMEAVE_RESET( PPviscArtave, Nr, bi, bj, myThid ) |
./pkg/pp81/pp81_output.F |
105 |
PP81_OUTPUT |
CALL TIMEAVE_RESET( PPdiffKrtave, Nr, bi, bj, myThid ) |
./pkg/pp81/pp81_output.F |
113 |
PP81_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/pp81/pp81_output.F |
114 |
PP81_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/pp81/pp81_output.F |
116 |
PP81_OUTPUT |
& Nr, DDTT, bi, bj, myThid ) |
./pkg/pp81/pp81_output.F |
118 |
PP81_OUTPUT |
& Nr, DDTT, bi, bj, myThid ) |
./pkg/pp81/pp81_output.F |
131 |
PP81_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/pp81/pp81_output.F |
132 |
PP81_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/pp81/pp81_output.F |
134 |
PP81_OUTPUT |
& PP_timeAve, Nr, bi, bj, myThid ) |
./pkg/pp81/pp81_output.F |
136 |
PP81_OUTPUT |
& PP_timeAve, Nr, bi, bj, myThid ) |
./pkg/pp81/pp81_output.F |
143 |
PP81_OUTPUT |
& PPviscArTave, myIter, myThid ) |
./pkg/pp81/pp81_output.F |
145 |
PP81_OUTPUT |
& PPdiffKrTave, myIter, myThid ) |
./pkg/pp81/pp81_output.F |
148 |
PP81_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/pp81/pp81_output.F |
149 |
PP81_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/pp81/pp81_output.F |
150 |
PP81_OUTPUT |
CALL TIMEAVE_RESET( PPviscArtave, Nr, bi, bj, myThid ) |
./pkg/pp81/pp81_output.F |
151 |
PP81_OUTPUT |
CALL TIMEAVE_RESET( PPdiffKrtave, Nr, bi, bj, myThid ) |
./pkg/pp81/pp81_output.F |
57 |
PP81_OUTPUT |
INTEGER myThid |
./pkg/pp81/pp81_output.F |
86 |
PP81_OUTPUT |
& myIter,myThid) |
./pkg/pp81/pp81_output.F |
88 |
PP81_OUTPUT |
& myIter,myThid) |
./pkg/pp81/pp81_output.F |
9 |
PP81_OUTPUT |
SUBROUTINE PP81_OUTPUT( myTime, myIter, myThid ) |
./pkg/pp81/pp81_readparms.F |
10 |
PP81_READPARMS |
SUBROUTINE PP81_READPARMS( myThid ) |
./pkg/pp81/pp81_readparms.F |
24 |
PP81_READPARMS |
INTEGER myThid |
./pkg/pp81/pp81_readparms.F |
68 |
PP81_READPARMS |
_BEGIN_MASTER(myThid) |
./pkg/pp81/pp81_readparms.F |
75 |
PP81_READPARMS |
I myThid ) |
./pkg/pp81/pp81_readparms.F |
84 |
PP81_READPARMS |
_END_MASTER(myThid) |
./pkg/pp81/pp81_ri_number.F |
102 |
PP81_RI_NUMBER |
I K, bi, bj, myThid ) |
./pkg/pp81/pp81_ri_number.F |
13 |
PP81_RI_NUMBER |
I myTime, myThid ) |
./pkg/pp81/pp81_ri_number.F |
48 |
PP81_RI_NUMBER |
INTEGER myThid |
./pkg/pp81/pp81_ri_number.F |
97 |
PP81_RI_NUMBER |
I Km1, bi, bj, myThid ) |
./pkg/profiles/cost_profiles.F |
113 |
COST_PROFILES |
& ProfDepthNo(num_file,bi,bj),prof_data1D,bi,bj,myThid) |
./pkg/profiles/cost_profiles.F |
118 |
COST_PROFILES |
& prof_weights1D,bi,bj,myThid) |
./pkg/profiles/cost_profiles.F |
12 |
COST_PROFILES |
SUBROUTINE COST_PROFILES( myiter, mytime, myThid ) |
./pkg/profiles/cost_profiles.F |
91 |
COST_PROFILES |
& num_var,num_file,mytime,bi,bj,myThid) |
./pkg/profiles/cost_profiles.F |
95 |
COST_PROFILES |
& num_var,num_file,mytime,bi,bj,myThid) |
./model/src/convective_adjustment.F |
11 |
CONVECTIVE_ADJUSTMENT |
I bi, bj, myTime, myIter, myThid ) |
./model/src/convective_adjustment.F |
148 |
CONVECTIVE_ADJUSTMENT |
I K-1, bi, bj, myThid ) |
./model/src/convective_adjustment.F |
162 |
CONVECTIVE_ADJUSTMENT |
I K, bi, bj, myThid ) |
./model/src/convective_adjustment.F |
180 |
CONVECTIVE_ADJUSTMENT |
I myThid) |
./model/src/convective_adjustment.F |
186 |
CONVECTIVE_ADJUSTMENT |
I myThid) |
./model/src/convective_adjustment.F |
192 |
CONVECTIVE_ADJUSTMENT |
I myThid) |
./model/src/convective_adjustment.F |
198 |
CONVECTIVE_ADJUSTMENT |
I bi,bj,k,weightA,weightB,myThid) |
./model/src/convective_adjustment.F |
208 |
CONVECTIVE_ADJUSTMENT |
I Nr, deltaTclock, bi, bj, myThid) |
./model/src/convective_adjustment.F |
215 |
CONVECTIVE_ADJUSTMENT |
I 0, Nr, 2, bi, bj, myThid ) |
./model/src/convective_adjustment.F |
46 |
CONVECTIVE_ADJUSTMENT |
INTEGER myThid |
./model/src/convective_adjustment.F |
95 |
CONVECTIVE_ADJUSTMENT |
act1 = bi - myBxLo(myThid) |
./model/src/convective_adjustment.F |
96 |
CONVECTIVE_ADJUSTMENT |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
./model/src/convective_adjustment.F |
97 |
CONVECTIVE_ADJUSTMENT |
act2 = bj - myByLo(myThid) |
./model/src/convective_adjustment.F |
98 |
CONVECTIVE_ADJUSTMENT |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
./model/src/convective_adjustment.F |
99 |
CONVECTIVE_ADJUSTMENT |
act3 = myThid - 1 |
./pkg/profiles/profiles_init_fixed.F |
13 |
PROFILES_INIT_FIXED |
SUBROUTINE PROFILES_INIT_FIXED( myThid ) |
./pkg/profiles/profiles_init_fixed.F |
32 |
PROFILES_INIT_FIXED |
integer k,l,m,q,bi,bj,iG,jG, myThid,num_file,length_for_tile |
./pkg/profiles/profiles_init_fixed.F |
505 |
PROFILES_INIT_FIXED |
& bi,bj,myThid) |
./pkg/profiles/profiles_init_fixed.F |
508 |
PROFILES_INIT_FIXED |
& ProfDepthNo(num_file,bi,bj),bi,bj, myThid) |
./pkg/profiles/profiles_init_fixed.F |
526 |
PROFILES_INIT_FIXED |
& bi,bj,myThid) |
./pkg/profiles/profiles_init_fixed.F |
529 |
PROFILES_INIT_FIXED |
& ProfDepthNo(num_file,bi,bj),bi,bj, myThid) |
./pkg/profiles/profiles_init_fixed.F |
645 |
PROFILES_INIT_FIXED |
_GLOBAL_SUM_RL( stopProfiles , myThid ) |
./pkg/profiles/profiles_init_fixed.F |
650 |
PROFILES_INIT_FIXED |
_GLOBAL_SUM_RL( stopGenericGrid , myThid ) |
./pkg/profiles/profiles_init_ncfile.F |
14 |
PROFILES_INIT_NCFILE |
& Zlength,bi,bj,myThid) |
./pkg/profiles/profiles_init_ncfile.F |
29 |
PROFILES_INIT_NCFILE |
integer myThid,bi,bj,err,vecid(2), length, Zlength |
./pkg/profiles/profiles_inloop.F |
13 |
PROFILES_INLOOP |
SUBROUTINE PROFILES_INLOOP(mytime,myThid ) |
./pkg/profiles/profiles_inloop.F |
37 |
PROFILES_INLOOP |
integer myThid |
./pkg/profiles/profiles_inloop.F |
88 |
PROFILES_INLOOP |
& num_var,num_file,mytime,bi,bj,myThid) |
./pkg/profiles/profiles_inloop.F |
92 |
PROFILES_INLOOP |
& num_var,num_file,mytime,bi,bj,myThid) |
./pkg/profiles/profiles_interp.F |
22 |
PROFILES_INTERP |
I myThid |
./pkg/profiles/profiles_interp_gg.F |
23 |
PROFILES_INTERP_GG |
I myThid |
./pkg/profiles/profiles_interp_mean.F |
22 |
PROFILES_INTERP_MEAN |
I myThid |
./pkg/profiles/profiles_interp_mean_gg.F |
23 |
PROFILES_INTERP_MEAN_GG |
I myThid |
./pkg/profiles/profiles_readparms.F |
48 |
PROFILES_READPARMS |
_BEGIN_MASTER( myThid ) |
./pkg/profiles/profiles_readparms.F |
97 |
PROFILES_READPARMS |
I myThid ) |
./model/src/convective_adjustment_ini.F |
11 |
CONVECTIVE_ADJUSTMENT_INI |
I bi, bj, myTime, myIter, myThid ) |
./model/src/convective_adjustment_ini.F |
148 |
CONVECTIVE_ADJUSTMENT_INI |
I K-1, bi, bj, myThid ) |
./model/src/convective_adjustment_ini.F |
162 |
CONVECTIVE_ADJUSTMENT_INI |
I K, bi, bj, myThid ) |
./model/src/convective_adjustment_ini.F |
178 |
CONVECTIVE_ADJUSTMENT_INI |
I myThid) |
./model/src/convective_adjustment_ini.F |
184 |
CONVECTIVE_ADJUSTMENT_INI |
I myThid) |
./model/src/convective_adjustment_ini.F |
190 |
CONVECTIVE_ADJUSTMENT_INI |
I myThid) |
./model/src/convective_adjustment_ini.F |
196 |
CONVECTIVE_ADJUSTMENT_INI |
I bi,bj,k,weightA,weightB,myThid) |
./model/src/convective_adjustment_ini.F |
50 |
CONVECTIVE_ADJUSTMENT_INI |
INTEGER myThid |
./model/src/convective_adjustment_ini.F |
95 |
CONVECTIVE_ADJUSTMENT_INI |
act1 = bi - myBxLo(myThid) |
./model/src/convective_adjustment_ini.F |
96 |
CONVECTIVE_ADJUSTMENT_INI |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
./model/src/convective_adjustment_ini.F |
97 |
CONVECTIVE_ADJUSTMENT_INI |
act2 = bj - myByLo(myThid) |
./model/src/convective_adjustment_ini.F |
98 |
CONVECTIVE_ADJUSTMENT_INI |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
./model/src/convective_adjustment_ini.F |
99 |
CONVECTIVE_ADJUSTMENT_INI |
act3 = myThid - 1 |
./pkg/profiles/profiles_readvector.F |
13 |
PROFILES_READVECTOR |
& vec_loc_length, vec_loc , bi,bj, myThid) |
./pkg/profiles/profiles_readvector.F |
28 |
PROFILES_READVECTOR |
integer irec, fNb, myThid,err,varid1,tmpprofno |
./model/src/convective_weights.F |
12 |
CONVECTIVE_WEIGHTS |
I myThid) |
./model/src/convective_weights.F |
46 |
CONVECTIVE_WEIGHTS |
INTEGER myThid |
./pkg/ptracers/ptracers_advection.F |
105 |
PTRACERS_ADVECTION |
I bi,bj,myTime,myIter,myThid) |
./pkg/ptracers/ptracers_advection.F |
11 |
PTRACERS_ADVECTION |
SUBROUTINE PTRACERS_ADVECTION( bi,bj,myTime,myIter,myThid ) |
./pkg/ptracers/ptracers_advection.F |
123 |
PTRACERS_ADVECTION |
I bi,bj,myTime,myIter,myThid) |
./pkg/ptracers/ptracers_advection.F |
45 |
PTRACERS_ADVECTION |
INTEGER myThid |
./pkg/ptracers/ptracers_advection.F |
67 |
PTRACERS_ADVECTION |
act1 = bi - myBxLo(myThid) |
./pkg/ptracers/ptracers_advection.F |
68 |
PTRACERS_ADVECTION |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
./pkg/ptracers/ptracers_advection.F |
69 |
PTRACERS_ADVECTION |
act2 = bj - myByLo(myThid) |
./pkg/ptracers/ptracers_advection.F |
70 |
PTRACERS_ADVECTION |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
./pkg/ptracers/ptracers_advection.F |
71 |
PTRACERS_ADVECTION |
act3 = myThid - 1 |
./pkg/ptracers/ptracers_advection.F |
89 |
PTRACERS_ADVECTION |
IF (debugMode) CALL DEBUG_CALL('GAD_SOM_ADVECT',myThid) |
./pkg/ptracers/ptracers_calc_diff.F |
106 |
PTRACERS_CALC_DIFF |
I myThid) |
./pkg/ptracers/ptracers_calc_diff.F |
115 |
PTRACERS_CALC_DIFF |
I trIdentity,myThid) |
./pkg/ptracers/ptracers_calc_diff.F |
124 |
PTRACERS_CALC_DIFF |
I myThid) |
./pkg/ptracers/ptracers_calc_diff.F |
133 |
PTRACERS_CALC_DIFF |
I myThid) |
./pkg/ptracers/ptracers_calc_diff.F |
13 |
PTRACERS_CALC_DIFF |
I myThid) |
./pkg/ptracers/ptracers_calc_diff.F |
142 |
PTRACERS_CALC_DIFF |
I myThid) |
./pkg/ptracers/ptracers_calc_diff.F |
53 |
PTRACERS_CALC_DIFF |
INTEGER myThid |
./pkg/ptracers/ptracers_check_pickup.F |
104 |
PTRACERS_CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/ptracers/ptracers_check_pickup.F |
117 |
PTRACERS_CHECK_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ptracers/ptracers_check_pickup.F |
127 |
PTRACERS_CHECK_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ptracers/ptracers_check_pickup.F |
132 |
PTRACERS_CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/ptracers/ptracers_check_pickup.F |
137 |
PTRACERS_CHECK_PICKUP |
_END_MASTER( myThid ) |
./pkg/ptracers/ptracers_check_pickup.F |
13 |
PTRACERS_CHECK_PICKUP |
I myIter, myThid ) |
./pkg/ptracers/ptracers_check_pickup.F |
39 |
PTRACERS_CHECK_PICKUP |
INTEGER myThid |
./pkg/ptracers/ptracers_check_pickup.F |
57 |
PTRACERS_CHECK_PICKUP |
_BEGIN_MASTER( myThid ) |
./pkg/ptracers/ptracers_check_pickup.F |
79 |
PTRACERS_CHECK_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ptracers/ptracers_check_pickup.F |
97 |
PTRACERS_CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/ptracers/ptracers_convect.F |
10 |
PTRACERS_CONVECT |
SUBROUTINE PTRACERS_CONVECT( bi,bj,k,weightA,weightB,myThid ) |
./pkg/ptracers/ptracers_convect.F |
31 |
PTRACERS_CONVECT |
INTEGER myThid |
./pkg/ptracers/ptracers_convect.F |
49 |
PTRACERS_CONVECT |
I myThid) |
./pkg/ptracers/ptracers_cycle.F |
10 |
PTRACERS_CYCLE |
SUBROUTINE PTRACERS_CYCLE(bi,bj,myTime,myIter,myThid) |
./pkg/ptracers/ptracers_cycle.F |
31 |
PTRACERS_CYCLE |
INTEGER myThid |
./pkg/ptracers/ptracers_cycle.F |
51 |
PTRACERS_CYCLE |
I myTime,myIter,myThid ) |
./pkg/ptracers/ptracers_debug.F |
11 |
PTRACERS_DEBUG |
I myThid ) |
./pkg/ptracers/ptracers_debug.F |
26 |
PTRACERS_DEBUG |
INTEGER myThid |
./pkg/ptracers/ptracers_debug.F |
45 |
PTRACERS_DEBUG |
& pTracer(1-Olx,1-Oly,1,1,1,iTracer),strng,myThid) |
./pkg/ptracers/ptracers_debug.F |
48 |
PTRACERS_DEBUG |
& gPtr(1-Olx,1-Oly,1,1,1,iTracer),strng,myThid) |
./pkg/ptracers/ptracers_debug.F |
51 |
PTRACERS_DEBUG |
& gpTrNm1(1-Olx,1-Oly,1,1,1,iTracer),strng,myThid) |
./pkg/ptracers/ptracers_diagnostics_init.F |
105 |
PTRACERS_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/ptracers/ptracers_diagnostics_init.F |
114 |
PTRACERS_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/ptracers/ptracers_diagnostics_init.F |
122 |
PTRACERS_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/ptracers/ptracers_diagnostics_init.F |
128 |
PTRACERS_DIAGNOSTICS_INIT |
diagSufx = GAD_DIAG_SUFX( tracerId, myThid ) |
./pkg/ptracers/ptracers_diagnostics_init.F |
136 |
PTRACERS_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/ptracers/ptracers_diagnostics_init.F |
143 |
PTRACERS_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/ptracers/ptracers_diagnostics_init.F |
150 |
PTRACERS_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/ptracers/ptracers_diagnostics_init.F |
158 |
PTRACERS_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/ptracers/ptracers_diagnostics_init.F |
165 |
PTRACERS_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/ptracers/ptracers_diagnostics_init.F |
172 |
PTRACERS_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/ptracers/ptracers_diagnostics_init.F |
179 |
PTRACERS_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/ptracers/ptracers_diagnostics_init.F |
189 |
PTRACERS_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/ptracers/ptracers_diagnostics_init.F |
199 |
PTRACERS_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/ptracers/ptracers_diagnostics_init.F |
210 |
PTRACERS_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/ptracers/ptracers_diagnostics_init.F |
27 |
PTRACERS_DIAGNOSTICS_INIT |
INTEGER myThid |
./pkg/ptracers/ptracers_diagnostics_init.F |
96 |
PTRACERS_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/ptracers/ptracers_diagnostics_init.F |
9 |
PTRACERS_DIAGNOSTICS_INIT |
SUBROUTINE PTRACERS_DIAGNOSTICS_INIT( myThid ) |
./pkg/ptracers/ptracers_diagnostics_state.F |
103 |
PTRACERS_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL( dummy, diagName, 0,Nr,0,1,1,myThid ) |
./pkg/ptracers/ptracers_diagnostics_state.F |
108 |
PTRACERS_DIAGNOSTICS_STATE |
IF ( DIAGNOSTICS_IS_ON(diagName,myThid) ) THEN |
./pkg/ptracers/ptracers_diagnostics_state.F |
109 |
PTRACERS_DIAGNOSTICS_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/ptracers/ptracers_diagnostics_state.F |
10 |
PTRACERS_DIAGNOSTICS_STATE |
SUBROUTINE PTRACERS_DIAGNOSTICS_STATE(myTime, myIter, myThid) |
./pkg/ptracers/ptracers_diagnostics_state.F |
110 |
PTRACERS_DIAGNOSTICS_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/ptracers/ptracers_diagnostics_state.F |
136 |
PTRACERS_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL( dummy, diagName, 0,Nr,0,1,1,myThid ) |
./pkg/ptracers/ptracers_diagnostics_state.F |
141 |
PTRACERS_DIAGNOSTICS_STATE |
IF ( DIAGNOSTICS_IS_ON(diagName,myThid) ) THEN |
./pkg/ptracers/ptracers_diagnostics_state.F |
142 |
PTRACERS_DIAGNOSTICS_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/ptracers/ptracers_diagnostics_state.F |
143 |
PTRACERS_DIAGNOSTICS_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/ptracers/ptracers_diagnostics_state.F |
168 |
PTRACERS_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL( dummy, diagName, 0,Nr,0,1,1,myThid ) |
./pkg/ptracers/ptracers_diagnostics_state.F |
32 |
PTRACERS_DIAGNOSTICS_STATE |
INTEGER myThid |
./pkg/ptracers/ptracers_diagnostics_state.F |
71 |
PTRACERS_DIAGNOSTICS_STATE |
& 0,Nr,0,1,1,myThid ) |
./pkg/ptracers/ptracers_diagnostics_state.F |
75 |
PTRACERS_DIAGNOSTICS_STATE |
IF ( DIAGNOSTICS_IS_ON(diagName,myThid) ) THEN |
./pkg/ptracers/ptracers_diagnostics_state.F |
76 |
PTRACERS_DIAGNOSTICS_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/ptracers/ptracers_diagnostics_state.F |
77 |
PTRACERS_DIAGNOSTICS_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/ptracers/ptracers_dwnslp_apply.F |
12 |
PTRACERS_DWNSLP_APPLY |
I bi, bj, myTime, myIter, myThid ) |
./pkg/ptracers/ptracers_dwnslp_apply.F |
37 |
PTRACERS_DWNSLP_APPLY |
INTEGER myThid |
./pkg/ptracers/ptracers_dwnslp_apply.F |
61 |
PTRACERS_DWNSLP_APPLY |
I myTime, myIter, myThid ) |
./pkg/ptracers/ptracers_dwnslp_apply.F |
69 |
PTRACERS_DWNSLP_APPLY |
I myTime, myIter, myThid ) |
./eesupp/src/all_proc_die.F |
10 |
ALL_PROC_DIE |
SUBROUTINE ALL_PROC_DIE( myThid ) |
./eesupp/src/all_proc_die.F |
33 |
ALL_PROC_DIE |
INTEGER myThid |
./eesupp/src/all_proc_die.F |
50 |
ALL_PROC_DIE |
CALL PRINT_ERROR( msgBuf, myThid ) |
./eesupp/src/all_proc_die.F |
72 |
ALL_PROC_DIE |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/convectively_mixtracer.F |
12 |
CONVECTIVELY_MIXTRACER |
I myThid) |
./model/src/convectively_mixtracer.F |
35 |
CONVECTIVELY_MIXTRACER |
INTEGER myThid |
./pkg/ptracers/ptracers_dyn_state_mod.F |
21 |
PTRACERS_INIT_FIXED_DYNAMIC |
& myThid ) |
./pkg/ptracers/ptracers_dyn_state_mod.F |
29 |
PTRACERS_INIT_FIXED_DYNAMIC |
INTEGER myThid |
./pkg/ptracers/ptracers_fields_blocking_exchanges.F |
11 |
PTRACERS_FIELDS_BLOCKING_EXCH |
SUBROUTINE PTRACERS_FIELDS_BLOCKING_EXCH( myThid ) |
./pkg/ptracers/ptracers_fields_blocking_exchanges.F |
28 |
PTRACERS_FIELDS_BLOCKING_EXCH |
INTEGER myThid |
./pkg/ptracers/ptracers_fields_blocking_exchanges.F |
49 |
PTRACERS_FIELDS_BLOCKING_EXCH |
& Nr, myThid ) |
./pkg/ptracers/ptracers_fields_blocking_exchanges.F |
53 |
PTRACERS_FIELDS_BLOCKING_EXCH |
& Nr, myThid ) |
./pkg/ptracers/ptracers_fields_blocking_exchanges.F |
59 |
PTRACERS_FIELDS_BLOCKING_EXCH |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/ptracers/ptracers_fields_blocking_exchanges.F |
60 |
PTRACERS_FIELDS_BLOCKING_EXCH |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/ptracers/ptracers_fields_blocking_exchanges.F |
62 |
PTRACERS_FIELDS_BLOCKING_EXCH |
I Nr, bi, bj, myThid ) |
./pkg/ptracers/ptracers_forcing.F |
13 |
PTRACERS_FORCING |
I myIter,myTime,myThid ) |
./pkg/ptracers/ptracers_forcing.F |
40 |
PTRACERS_FORCING |
INTEGER myThid |
./pkg/ptracers/ptracers_forcing.F |
69 |
PTRACERS_FORCING |
I myTime,myIter, myThid) |
./pkg/ptracers/ptracers_forcing.F |
86 |
PTRACERS_FORCING |
I myTime, myThid ) |
./pkg/ptracers/ptracers_forcing_surf.F |
103 |
PTRACERS_FORCING_SURF |
CALL DIAGNOSTICS_FILL(add2EmP,'Add2EmP ',0,1,2,bi,bj,myThid) |
./pkg/ptracers/ptracers_forcing_surf.F |
13 |
PTRACERS_FORCING_SURF |
I myTime,myIter,myThid ) |
./pkg/ptracers/ptracers_forcing_surf.F |
43 |
PTRACERS_FORCING_SURF |
INTEGER myThid |
./pkg/ptracers/ptracers_gterm_blocking_exchanges.F |
10 |
PTRACERS_GTERM_BLOCKING_EXCH |
SUBROUTINE PTRACERS_GTERM_BLOCKING_EXCH( myThid ) |
./pkg/ptracers/ptracers_gterm_blocking_exchanges.F |
25 |
PTRACERS_GTERM_BLOCKING_EXCH |
INTEGER myThid |
./pkg/ptracers/ptracers_gterm_blocking_exchanges.F |
42 |
PTRACERS_GTERM_BLOCKING_EXCH |
& Nr, myThid ) |
./pkg/ptracers/ptracers_implicit.F |
121 |
PTRACERS_IMPLICIT |
I bi, bj, myTime, myIter, myThid ) |
./pkg/ptracers/ptracers_implicit.F |
12 |
PTRACERS_IMPLICIT |
I bi, bj, myTime, myIter, myThid ) |
./pkg/ptracers/ptracers_implicit.F |
132 |
PTRACERS_IMPLICIT |
I myThid ) |
./pkg/ptracers/ptracers_implicit.F |
141 |
PTRACERS_IMPLICIT |
I myThid ) |
./pkg/ptracers/ptracers_implicit.F |
50 |
PTRACERS_IMPLICIT |
INTEGER myThid |
./pkg/ptracers/ptracers_implicit.F |
76 |
PTRACERS_IMPLICIT |
act1 = bi - myBxLo(myThid) |
./pkg/ptracers/ptracers_implicit.F |
77 |
PTRACERS_IMPLICIT |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
./pkg/ptracers/ptracers_implicit.F |
78 |
PTRACERS_IMPLICIT |
act2 = bj - myByLo(myThid) |
./pkg/ptracers/ptracers_implicit.F |
79 |
PTRACERS_IMPLICIT |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
./pkg/ptracers/ptracers_implicit.F |
80 |
PTRACERS_IMPLICIT |
act3 = myThid - 1 |
./pkg/ptracers/ptracers_implicit.F |
97 |
PTRACERS_IMPLICIT |
I myThid) |
./pkg/ptracers/ptracers_init_fixed.F |
100 |
PTRACERS_INIT_FIXED |
& myThid ) |
./pkg/ptracers/ptracers_init_fixed.F |
111 |
PTRACERS_INIT_FIXED |
& SQUEEZE_RIGHT, myThid ) |
./pkg/ptracers/ptracers_init_fixed.F |
113 |
PTRACERS_INIT_FIXED |
_END_MASTER( myThid ) |
./pkg/ptracers/ptracers_init_fixed.F |
121 |
PTRACERS_INIT_FIXED |
CALL PTRACERS_MNC_INIT( myThid ) |
./pkg/ptracers/ptracers_init_fixed.F |
127 |
PTRACERS_INIT_FIXED |
CALL PTRACERS_DIAGNOSTICS_INIT( myThid ) |
./pkg/ptracers/ptracers_init_fixed.F |
12 |
PTRACERS_INIT_FIXED |
SUBROUTINE PTRACERS_INIT_FIXED( myThid ) |
./pkg/ptracers/ptracers_init_fixed.F |
29 |
PTRACERS_INIT_FIXED |
INTEGER myThid |
./pkg/ptracers/ptracers_init_fixed.F |
40 |
PTRACERS_INIT_FIXED |
_BEGIN_MASTER( myThid ) |
./pkg/ptracers/ptracers_init_fixed.F |
76 |
PTRACERS_INIT_FIXED |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/ptracers/ptracers_init_fixed.F |
85 |
PTRACERS_INIT_FIXED |
& SQUEEZE_RIGHT, myThid ) |
./pkg/ptracers/ptracers_init_varia.F |
101 |
PTRACERS_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/ptracers/ptracers_init_varia.F |
102 |
PTRACERS_INIT_VARIA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/ptracers/ptracers_init_varia.F |
120 |
PTRACERS_INIT_VARIA |
CALL PTRACERS_READ_PICKUP( nIter0, myThid ) |
./pkg/ptracers/ptracers_init_varia.F |
12 |
PTRACERS_INIT_VARIA |
SUBROUTINE PTRACERS_INIT_VARIA( myThid ) |
./pkg/ptracers/ptracers_init_varia.F |
31 |
PTRACERS_INIT_VARIA |
INTEGER myThid |
./pkg/ptracers/ptracers_init_varia.F |
47 |
PTRACERS_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/ptracers/ptracers_init_varia.F |
48 |
PTRACERS_INIT_VARIA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/ptracers/ptracers_init_varia.F |
93 |
PTRACERS_INIT_VARIA |
& pTracer(1-Olx,1-Oly,1,1,1,iTracer),0,myThid) |
./pkg/ptracers/ptracers_init_varia.F |
94 |
PTRACERS_INIT_VARIA |
_EXCH_XYZ_RL(pTracer(1-Olx,1-Oly,1,1,1,iTracer),myThid) |
./pkg/ptracers/ptracers_integrate.F |
109 |
PTRACERS_INTEGRATE |
act1 = bi - myBxLo(myThid) |
./pkg/ptracers/ptracers_integrate.F |
110 |
PTRACERS_INTEGRATE |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
./pkg/ptracers/ptracers_integrate.F |
111 |
PTRACERS_INTEGRATE |
act2 = bj - myByLo(myThid) |
./pkg/ptracers/ptracers_integrate.F |
112 |
PTRACERS_INTEGRATE |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
./pkg/ptracers/ptracers_integrate.F |
113 |
PTRACERS_INTEGRATE |
act3 = myThid - 1 |
./pkg/ptracers/ptracers_integrate.F |
155 |
PTRACERS_INTEGRATE |
I myTime, myIter, myThid ) |
./pkg/ptracers/ptracers_integrate.F |
163 |
PTRACERS_INTEGRATE |
I myIter,myTime,myThid) |
./pkg/ptracers/ptracers_integrate.F |
16 |
PTRACERS_INTEGRATE |
I myTime,myIter,myThid ) |
./pkg/ptracers/ptracers_integrate.F |
185 |
PTRACERS_INTEGRATE |
I PTRACERS_startAB(iTracer), iterNb, myThid ) |
./pkg/ptracers/ptracers_integrate.F |
197 |
PTRACERS_INTEGRATE |
I myIter,myTime,myThid) |
./pkg/ptracers/ptracers_integrate.F |
205 |
PTRACERS_INTEGRATE |
I myThid ) |
./pkg/ptracers/ptracers_integrate.F |
210 |
PTRACERS_INTEGRATE |
I myThid ) |
./pkg/ptracers/ptracers_integrate.F |
221 |
PTRACERS_INTEGRATE |
I myIter,myThid ) |
./pkg/ptracers/ptracers_integrate.F |
72 |
PTRACERS_INTEGRATE |
INTEGER myThid |
./model/src/correction_step.F |
11 |
CORRECTION_STEP |
I myTime, myThid ) |
./model/src/correction_step.F |
46 |
CORRECTION_STEP |
INTEGER myThid |
./pkg/ptracers/ptracers_mnc_init.F |
11 |
PTRACERS_MNC_INIT |
SUBROUTINE PTRACERS_MNC_INIT( myThid ) |
./pkg/ptracers/ptracers_mnc_init.F |
25 |
PTRACERS_MNC_INIT |
INTEGER myThid |
./pkg/ptracers/ptracers_mnc_init.F |
56 |
PTRACERS_MNC_INIT |
& PTRACERS_names(ii),'Cen_xy_Hn__C__t',4,5,myThid) |
./pkg/ptracers/ptracers_mnc_init.F |
58 |
PTRACERS_MNC_INIT |
CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/ptracers/ptracers_mnc_init.F |
64 |
PTRACERS_MNC_INIT |
& 'long_name',PTRACERS_long_names(ii),myThid) |
./pkg/ptracers/ptracers_mnc_init.F |
71 |
PTRACERS_MNC_INIT |
& PTRACERS_units(ii),myThid) |
./pkg/ptracers/ptracers_monitor.F |
105 |
PTRACERS_MONITOR |
CALL MON_SET_PREF('trctime',myThid) |
./pkg/ptracers/ptracers_monitor.F |
106 |
PTRACERS_MONITOR |
CALL MON_OUT_I( '_tsnumber', myIter,mon_string_none,myThid) |
./pkg/ptracers/ptracers_monitor.F |
107 |
PTRACERS_MONITOR |
CALL MON_OUT_RL('_secondsf', myTime,mon_string_none,myThid) |
./pkg/ptracers/ptracers_monitor.F |
110 |
PTRACERS_MONITOR |
CALL MON_SET_PREF('trcstat_',myThid) |
./pkg/ptracers/ptracers_monitor.F |
116 |
PTRACERS_MONITOR |
& hFacC, maskInC, rA ,drF, dummyRL, myThid ) |
./pkg/ptracers/ptracers_monitor.F |
11 |
PTRACERS_MONITOR |
I myIter, myTime, myThid ) |
./pkg/ptracers/ptracers_monitor.F |
120 |
PTRACERS_MONITOR |
IF ( MASTER_CPU_IO(myThid) ) THEN |
./pkg/ptracers/ptracers_monitor.F |
35 |
PTRACERS_MONITOR |
INTEGER myThid |
./pkg/ptracers/ptracers_monitor.F |
61 |
PTRACERS_MONITOR |
IF ( MASTER_CPU_IO(myThid) ) THEN |
./pkg/ptracers/ptracers_monitor.F |
75 |
PTRACERS_MONITOR |
& 'T', '-_-_--__-__t', 0,0, myThid) |
./pkg/ptracers/ptracers_monitor.F |
76 |
PTRACERS_MONITOR |
CALL MNC_CW_SET_UDIM(mon_fname, -1, myThid) |
./pkg/ptracers/ptracers_monitor.F |
78 |
PTRACERS_MONITOR |
& 'D',mon_fname,1,1,'T', myTime, myThid) |
./pkg/ptracers/ptracers_monitor.F |
79 |
PTRACERS_MONITOR |
CALL MNC_CW_SET_UDIM(mon_fname, 0, myThid) |
./pkg/ptracers/ptracers_output.F |
11 |
PTRACERS_OUTPUT |
I myTime, myIter, myThid ) |
./pkg/ptracers/ptracers_output.F |
30 |
PTRACERS_OUTPUT |
INTEGER myThid |
./pkg/ptracers/ptracers_output.F |
38 |
PTRACERS_OUTPUT |
CALL PTRACERS_WRITE_STATE( myIter, myTime, myThid ) |
./pkg/ptracers/ptracers_output.F |
42 |
PTRACERS_OUTPUT |
CALL PTRACERS_WRITE_TIMEAVE( myTime, myIter, myThid ) |
./pkg/ptracers/ptracers_output.F |
47 |
PTRACERS_OUTPUT |
CALL PTRACERS_MONITOR( myIter, myTime, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
114 |
PTRACERS_READ_PICKUP |
I Nr, myIter, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
115 |
PTRACERS_READ_PICKUP |
_BEGIN_MASTER( myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
11 |
PTRACERS_READ_PICKUP |
SUBROUTINE PTRACERS_READ_PICKUP( myIter, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
120 |
PTRACERS_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
123 |
PTRACERS_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
126 |
PTRACERS_READ_PICKUP |
_END_MASTER( myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
135 |
PTRACERS_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
139 |
PTRACERS_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
144 |
PTRACERS_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
149 |
PTRACERS_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
154 |
PTRACERS_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
157 |
PTRACERS_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
171 |
PTRACERS_READ_PICKUP |
I iRec, myIter, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
173 |
PTRACERS_READ_PICKUP |
& Nr, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
189 |
PTRACERS_READ_PICKUP |
I iRec, myIter, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
191 |
PTRACERS_READ_PICKUP |
& Nr, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
204 |
PTRACERS_READ_PICKUP |
I iRec, myIter, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
208 |
PTRACERS_READ_PICKUP |
I iRec, myIter, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
210 |
PTRACERS_READ_PICKUP |
& Nr, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
212 |
PTRACERS_READ_PICKUP |
& Nr, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
223 |
PTRACERS_READ_PICKUP |
& nj, prec, Nr, myIter, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
225 |
PTRACERS_READ_PICKUP |
& Nr, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
233 |
PTRACERS_READ_PICKUP |
& nj, prec, Nr, myIter, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
235 |
PTRACERS_READ_PICKUP |
& Nr, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
247 |
PTRACERS_READ_PICKUP |
I myIter, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
251 |
PTRACERS_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
257 |
PTRACERS_READ_PICKUP |
I myIter, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
275 |
PTRACERS_READ_PICKUP |
& SQUEEZE_RIGHT, myThid) |
./pkg/ptracers/ptracers_read_pickup.F |
277 |
PTRACERS_READ_PICKUP |
& SQUEEZE_RIGHT, myThid) |
./pkg/ptracers/ptracers_read_pickup.F |
284 |
PTRACERS_READ_PICKUP |
I iRec, myIter, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
287 |
PTRACERS_READ_PICKUP |
& Nr, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
32 |
PTRACERS_READ_PICKUP |
INTEGER myThid |
./pkg/ptracers/ptracers_read_pickup.F |
70 |
PTRACERS_READ_PICKUP |
CALL MNC_FILE_CLOSE_ALL_MATCHING(fn, myThid) |
./pkg/ptracers/ptracers_read_pickup.F |
71 |
PTRACERS_READ_PICKUP |
CALL MNC_CW_SET_UDIM(fn, 1, myThid) |
./pkg/ptracers/ptracers_read_pickup.F |
72 |
PTRACERS_READ_PICKUP |
CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, -1, myThid) |
./pkg/ptracers/ptracers_read_pickup.F |
75 |
PTRACERS_READ_PICKUP |
& gpTrNm1(1-OLx,1-OLy,1,1,1,iTracer),myThid) |
./pkg/ptracers/ptracers_read_pickup.F |
77 |
PTRACERS_READ_PICKUP |
& Nr, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
79 |
PTRACERS_READ_PICKUP |
CALL MNC_CW_SET_UDIM(fn, 2, myThid) |
./pkg/ptracers/ptracers_read_pickup.F |
82 |
PTRACERS_READ_PICKUP |
& pTracer(1-OLx,1-OLy,1,1,1,iTracer),myThid) |
./pkg/ptracers/ptracers_read_pickup.F |
84 |
PTRACERS_READ_PICKUP |
& Nr, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
94 |
PTRACERS_READ_PICKUP |
& SQUEEZE_RIGHT, myThid) |
./pkg/ptracers/ptracers_readparms.F |
11 |
PTRACERS_READPARMS |
SUBROUTINE PTRACERS_READPARMS( myThid ) |
./pkg/ptracers/ptracers_readparms.F |
152 |
PTRACERS_READPARMS |
& SQUEEZE_RIGHT , myThid ) |
./pkg/ptracers/ptracers_readparms.F |
156 |
PTRACERS_READPARMS |
I myThid ) |
./pkg/ptracers/ptracers_readparms.F |
161 |
PTRACERS_READPARMS |
& SQUEEZE_RIGHT , myThid ) |
./pkg/ptracers/ptracers_readparms.F |
187 |
PTRACERS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ptracers/ptracers_readparms.F |
196 |
PTRACERS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ptracers/ptracers_readparms.F |
199 |
PTRACERS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ptracers/ptracers_readparms.F |
208 |
PTRACERS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ptracers/ptracers_readparms.F |
211 |
PTRACERS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ptracers/ptracers_readparms.F |
219 |
PTRACERS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/ptracers/ptracers_readparms.F |
222 |
PTRACERS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/ptracers/ptracers_readparms.F |
230 |
PTRACERS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ptracers/ptracers_readparms.F |
233 |
PTRACERS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ptracers/ptracers_readparms.F |
239 |
PTRACERS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ptracers/ptracers_readparms.F |
242 |
PTRACERS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ptracers/ptracers_readparms.F |
248 |
PTRACERS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ptracers/ptracers_readparms.F |
251 |
PTRACERS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ptracers/ptracers_readparms.F |
294 |
PTRACERS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT , myThid ) |
./pkg/ptracers/ptracers_readparms.F |
296 |
PTRACERS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT , myThid ) |
./pkg/ptracers/ptracers_readparms.F |
298 |
PTRACERS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT , myThid ) |
./pkg/ptracers/ptracers_readparms.F |
31 |
PTRACERS_READPARMS |
INTEGER myThid |
./pkg/ptracers/ptracers_readparms.F |
334 |
PTRACERS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/ptracers/ptracers_readparms.F |
336 |
PTRACERS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/ptracers/ptracers_readparms.F |
367 |
PTRACERS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/ptracers/ptracers_readparms.F |
369 |
PTRACERS_READPARMS |
_END_MASTER(myThid) |
./pkg/ptracers/ptracers_readparms.F |
84 |
PTRACERS_READPARMS |
_BEGIN_MASTER(myThid) |
./pkg/ptracers/ptracers_readparms.F |
96 |
PTRACERS_READPARMS |
I PTRACERS_num, myThid ) |
./pkg/ptracers/ptracers_set_iolabel.F |
29 |
PTRACERS_SET_IOLABEL |
I nbLbl, myThid ) |
./pkg/ptracers/ptracers_set_iolabel.F |
52 |
PTRACERS_SET_IOLABEL |
INTEGER myThid |
./pkg/ptracers/ptracers_timeave.F |
10 |
PTRACERS_TIMEAVE |
I myTime, myIter, bi, bj, myThid ) |
./pkg/ptracers/ptracers_timeave.F |
42 |
PTRACERS_TIMEAVE |
INTEGER myThid |
./pkg/ptracers/ptracers_timeave.F |
62 |
PTRACERS_TIMEAVE |
& 1 , bi, bj, myThid ) |
./pkg/ptracers/ptracers_timeave.F |
64 |
PTRACERS_TIMEAVE |
& Nr, bi, bj, myThid ) |
./pkg/ptracers/ptracers_timeave.F |
84 |
PTRACERS_TIMEAVE |
& Nr, DDTT, bi, bj, myThid ) |
./pkg/ptracers/ptracers_timeave.F |
96 |
PTRACERS_TIMEAVE |
& 1, deltaTclock, bi, bj, myThid ) |
./pkg/ptracers/ptracers_turnoff_io.F |
38 |
PTRACERS_TURNOFF_IO |
INTEGER myThid |
./pkg/ptracers/ptracers_turnoff_io.F |
46 |
PTRACERS_TURNOFF_IO |
_BEGIN_MASTER( myThid ) |
./pkg/ptracers/ptracers_turnoff_io.F |
54 |
PTRACERS_TURNOFF_IO |
_END_MASTER( myThid ) |
./pkg/ptracers/ptracers_turnoff_io.F |
9 |
PTRACERS_TURNOFF_IO |
SUBROUTINE PTRACERS_TURNOFF_IO( seqFlag, myThid ) |
./pkg/ptracers/ptracers_write_pickup.F |
100 |
PTRACERS_WRITE_PICKUP |
CALL MNC_CW_I_W_S('I',fn,0,0,'iter', myIter, myThid) |
./pkg/ptracers/ptracers_write_pickup.F |
103 |
PTRACERS_WRITE_PICKUP |
& pTracer(1-OLx,1-OLy,1,1,1,iTracer),myThid) |
./pkg/ptracers/ptracers_write_pickup.F |
113 |
PTRACERS_WRITE_PICKUP |
& SQUEEZE_RIGHT, myThid) |
./pkg/ptracers/ptracers_write_pickup.F |
12 |
PTRACERS_WRITE_PICKUP |
& suff, myTime, myIter, myThid ) |
./pkg/ptracers/ptracers_write_pickup.F |
138 |
PTRACERS_WRITE_PICKUP |
& -j, myIter, myThid ) |
./pkg/ptracers/ptracers_write_pickup.F |
149 |
PTRACERS_WRITE_PICKUP |
& -j, myIter, myThid ) |
./pkg/ptracers/ptracers_write_pickup.F |
161 |
PTRACERS_WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ptracers/ptracers_write_pickup.F |
164 |
PTRACERS_WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ptracers/ptracers_write_pickup.F |
174 |
PTRACERS_WRITE_PICKUP |
& j, myIter, myThid ) |
./pkg/ptracers/ptracers_write_pickup.F |
192 |
PTRACERS_WRITE_PICKUP |
& SQUEEZE_RIGHT, myThid) |
./pkg/ptracers/ptracers_write_pickup.F |
194 |
PTRACERS_WRITE_PICKUP |
& SQUEEZE_RIGHT, myThid) |
./pkg/ptracers/ptracers_write_pickup.F |
201 |
PTRACERS_WRITE_PICKUP |
I iRec, myIter, myThid ) |
./pkg/ptracers/ptracers_write_pickup.F |
39 |
PTRACERS_WRITE_PICKUP |
INTEGER myThid |
./pkg/ptracers/ptracers_write_pickup.F |
80 |
PTRACERS_WRITE_PICKUP |
CALL MNC_FILE_CLOSE_ALL_MATCHING(fn, myThid) |
./pkg/ptracers/ptracers_write_pickup.F |
82 |
PTRACERS_WRITE_PICKUP |
CALL MNC_CW_SET_UDIM(fn, 1, myThid) |
./pkg/ptracers/ptracers_write_pickup.F |
84 |
PTRACERS_WRITE_PICKUP |
CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, -1, myThid) |
./pkg/ptracers/ptracers_write_pickup.F |
86 |
PTRACERS_WRITE_PICKUP |
CALL MNC_CW_SET_CITER(fn, 2, -1, -1, -1, myThid) |
./pkg/ptracers/ptracers_write_pickup.F |
89 |
PTRACERS_WRITE_PICKUP |
CALL MNC_CW_SET_UDIM(fn, 1, myThid) |
./pkg/ptracers/ptracers_write_pickup.F |
92 |
PTRACERS_WRITE_PICKUP |
CALL MNC_CW_RL_W_S('D',fn,0,0,'T', myTime, myThid) |
./pkg/ptracers/ptracers_write_pickup.F |
93 |
PTRACERS_WRITE_PICKUP |
CALL MNC_CW_I_W_S('I',fn,0,0,'iter', myIter, myThid) |
./pkg/ptracers/ptracers_write_pickup.F |
96 |
PTRACERS_WRITE_PICKUP |
& gpTrNm1(1-OLx,1-OLy,1,1,1,iTracer),myThid) |
./pkg/ptracers/ptracers_write_pickup.F |
98 |
PTRACERS_WRITE_PICKUP |
CALL MNC_CW_SET_UDIM(fn, 2, myThid) |
./pkg/ptracers/ptracers_write_pickup.F |
99 |
PTRACERS_WRITE_PICKUP |
CALL MNC_CW_RL_W_S('D',fn,0,0,'T', myTime, myThid) |
./pkg/ptracers/ptracers_write_state.F |
113 |
PTRACERS_WRITE_STATE |
& pTracer(1-Olx,1-Oly,1,1,1,iTracer),iRec,myIter,myThid) |
./pkg/ptracers/ptracers_write_state.F |
11 |
PTRACERS_WRITE_STATE |
I myIter, myTime, myThid ) |
./pkg/ptracers/ptracers_write_state.F |
31 |
PTRACERS_WRITE_STATE |
INTEGER myThid |
./pkg/ptracers/ptracers_write_state.F |
69 |
PTRACERS_WRITE_STATE |
CALL MNC_CW_SET_UDIM('ptracers', -1, myThid) |
./pkg/ptracers/ptracers_write_state.F |
70 |
PTRACERS_WRITE_STATE |
CALL MNC_CW_RL_W_S('D','ptracers',0,0,'T',myTime,myThid) |
./pkg/ptracers/ptracers_write_state.F |
71 |
PTRACERS_WRITE_STATE |
CALL MNC_CW_SET_UDIM('ptracers', 0, myThid) |
./pkg/ptracers/ptracers_write_state.F |
72 |
PTRACERS_WRITE_STATE |
CALL MNC_CW_I_W_S('I','ptracers',0,0,'iter',myIter,myThid) |
./pkg/ptracers/ptracers_write_state.F |
75 |
PTRACERS_WRITE_STATE |
& pTracer(1-OLx,1-OLy,1,1,1,iTracer),myThid) |
./model/src/cycle_tracer.F |
12 |
CYCLE_TRACER |
I myTime, myIter, myThid ) |
./model/src/cycle_tracer.F |
39 |
CYCLE_TRACER |
INTEGER myIter, myThid |
./pkg/ptracers/ptracers_write_timeave.F |
100 |
PTRACERS_WRITE_TIMEAVE |
& ptracertave(1-OLx,1-OLy,1,1,1,iTr),myThid) |
./pkg/ptracers/ptracers_write_timeave.F |
107 |
PTRACERS_WRITE_TIMEAVE |
& ptracerFluxtave(1-OLx,1-OLy,1,1,iTr),myThid) |
./pkg/ptracers/ptracers_write_timeave.F |
10 |
PTRACERS_WRITE_TIMEAVE |
SUBROUTINE PTRACERS_WRITE_TIMEAVE( myTime, myIter, myThid ) |
./pkg/ptracers/ptracers_write_timeave.F |
115 |
PTRACERS_WRITE_TIMEAVE |
beginIOErrCount = IO_ERRCOUNT(myThid) |
./pkg/ptracers/ptracers_write_timeave.F |
122 |
PTRACERS_WRITE_TIMEAVE |
& myIter, myThid ) |
./pkg/ptracers/ptracers_write_timeave.F |
127 |
PTRACERS_WRITE_TIMEAVE |
& myIter, myThid ) |
./pkg/ptracers/ptracers_write_timeave.F |
131 |
PTRACERS_WRITE_TIMEAVE |
endIOErrCount = IO_ERRCOUNT(myThid) |
./pkg/ptracers/ptracers_write_timeave.F |
137 |
PTRACERS_WRITE_TIMEAVE |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ptracers/ptracers_write_timeave.F |
139 |
PTRACERS_WRITE_TIMEAVE |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ptracers/ptracers_write_timeave.F |
141 |
PTRACERS_WRITE_TIMEAVE |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ptracers/ptracers_write_timeave.F |
144 |
PTRACERS_WRITE_TIMEAVE |
_BEGIN_MASTER( myThid ) |
./pkg/ptracers/ptracers_write_timeave.F |
148 |
PTRACERS_WRITE_TIMEAVE |
& SQUEEZE_RIGHT, myThid ) |
./pkg/ptracers/ptracers_write_timeave.F |
151 |
PTRACERS_WRITE_TIMEAVE |
& SQUEEZE_RIGHT, myThid ) |
./pkg/ptracers/ptracers_write_timeave.F |
152 |
PTRACERS_WRITE_TIMEAVE |
_END_MASTER( myThid ) |
./pkg/ptracers/ptracers_write_timeave.F |
157 |
PTRACERS_WRITE_TIMEAVE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/ptracers/ptracers_write_timeave.F |
158 |
PTRACERS_WRITE_TIMEAVE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/ptracers/ptracers_write_timeave.F |
165 |
PTRACERS_WRITE_TIMEAVE |
CALL PTRACERS_TIMEAVE( myTime, nIter0, bi, bj, myThid ) |
./pkg/ptracers/ptracers_write_timeave.F |
37 |
PTRACERS_WRITE_TIMEAVE |
INTEGER myThid |
./pkg/ptracers/ptracers_write_timeave.F |
63 |
PTRACERS_WRITE_TIMEAVE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/ptracers/ptracers_write_timeave.F |
64 |
PTRACERS_WRITE_TIMEAVE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/ptracers/ptracers_write_timeave.F |
69 |
PTRACERS_WRITE_TIMEAVE |
& ptracer_full, 1, bi, bj, myThid ) |
./pkg/ptracers/ptracers_write_timeave.F |
72 |
PTRACERS_WRITE_TIMEAVE |
& ptracer_half, Nr, bi, bj, myThid ) |
./pkg/ptracers/ptracers_write_timeave.F |
86 |
PTRACERS_WRITE_TIMEAVE |
CALL MNC_CW_SET_UDIM('ptr_tave', -1, myThid) |
./pkg/ptracers/ptracers_write_timeave.F |
87 |
PTRACERS_WRITE_TIMEAVE |
CALL MNC_CW_RL_W_S('D','ptr_tave',0,0,'T',myTime,myThid) |
./pkg/ptracers/ptracers_write_timeave.F |
88 |
PTRACERS_WRITE_TIMEAVE |
CALL MNC_CW_SET_UDIM('ptr_tave', 0, myThid) |
./pkg/ptracers/ptracers_write_timeave.F |
89 |
PTRACERS_WRITE_TIMEAVE |
CALL MNC_CW_I_W_S('I','ptr_tave',0,0,'iter',myIter,myThid) |
./pkg/ptracers/ptracers_write_timeave.F |
91 |
PTRACERS_WRITE_TIMEAVE |
CALL MNC_CW_SET_UDIM('ptr_flux_tave', -1, myThid) |
./pkg/ptracers/ptracers_write_timeave.F |
93 |
PTRACERS_WRITE_TIMEAVE |
& myThid) |
./pkg/ptracers/ptracers_write_timeave.F |
94 |
PTRACERS_WRITE_TIMEAVE |
CALL MNC_CW_SET_UDIM('ptr_flux_tave', 0, myThid) |
./pkg/ptracers/ptracers_write_timeave.F |
96 |
PTRACERS_WRITE_TIMEAVE |
& myThid) |
./pkg/ptracers/ptracers_zonal_filt_apply.F |
14 |
PTRACERS_ZONAL_FILT_APPLY |
I myThid ) |
./pkg/ptracers/ptracers_zonal_filt_apply.F |
36 |
PTRACERS_ZONAL_FILT_APPLY |
INTEGER myThid |
./pkg/ptracers/ptracers_zonal_filt_apply.F |
46 |
PTRACERS_ZONAL_FILT_APPLY |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/ptracers/ptracers_zonal_filt_apply.F |
47 |
PTRACERS_ZONAL_FILT_APPLY |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/ptracers/ptracers_zonal_filt_apply.F |
52 |
PTRACERS_ZONAL_FILT_APPLY |
I 1, sNy, Nr, bi, bj, 1, myThid ) |
./pkg/rbcs/rbcs_add_tendency.F |
12 |
RBCS_ADD_TENDENCY |
I myTime, myThid ) |
./pkg/rbcs/rbcs_add_tendency.F |
41 |
RBCS_ADD_TENDENCY |
INTEGER myThid |
./pkg/rbcs/rbcs_fields_load.F |
153 |
RBCS_FIELDS_LOAD |
_BEGIN_MASTER(myThid) |
./pkg/rbcs/rbcs_fields_load.F |
157 |
RBCS_FIELDS_LOAD |
_END_MASTER(myThid) |
./pkg/rbcs/rbcs_fields_load.F |
163 |
RBCS_FIELDS_LOAD |
CALL READ_REC_XYZ_RS(fullName, rbct0, 1, myIter, myThid) |
./pkg/rbcs/rbcs_fields_load.F |
165 |
RBCS_FIELDS_LOAD |
CALL READ_REC_XYZ_RS(fullName, rbct1, 1, myIter, myThid) |
./pkg/rbcs/rbcs_fields_load.F |
167 |
RBCS_FIELDS_LOAD |
CALL READ_REC_XYZ_RS(relaxTFile,rbct0,intime0,myIter,myThid) |
./pkg/rbcs/rbcs_fields_load.F |
168 |
RBCS_FIELDS_LOAD |
CALL READ_REC_XYZ_RS(relaxTFile,rbct1,intime1,myIter,myThid) |
./pkg/rbcs/rbcs_fields_load.F |
175 |
RBCS_FIELDS_LOAD |
CALL READ_REC_XYZ_RS(fullName, rbcs0, 1, myIter, myThid) |
./pkg/rbcs/rbcs_fields_load.F |
177 |
RBCS_FIELDS_LOAD |
CALL READ_REC_XYZ_RS(fullName, rbcs1, 1, myIter, myThid) |
./pkg/rbcs/rbcs_fields_load.F |
179 |
RBCS_FIELDS_LOAD |
CALL READ_REC_XYZ_RS(relaxSFile,rbcs0,intime0,myIter,myThid) |
./pkg/rbcs/rbcs_fields_load.F |
180 |
RBCS_FIELDS_LOAD |
CALL READ_REC_XYZ_RS(relaxSFile,rbcs1,intime1,myIter,myThid) |
./pkg/rbcs/rbcs_fields_load.F |
195 |
RBCS_FIELDS_LOAD |
& 1, myIter, myThid ) |
./pkg/rbcs/rbcs_fields_load.F |
200 |
RBCS_FIELDS_LOAD |
& 1, myIter, myThid ) |
./pkg/rbcs/rbcs_fields_load.F |
204 |
RBCS_FIELDS_LOAD |
& intime0, myIter, myThid ) |
./pkg/rbcs/rbcs_fields_load.F |
207 |
RBCS_FIELDS_LOAD |
& intime1, myIter, myThid ) |
./pkg/rbcs/rbcs_fields_load.F |
215 |
RBCS_FIELDS_LOAD |
CALL EXCH_XYZ_RS( rbct0 , myThid ) |
./pkg/rbcs/rbcs_fields_load.F |
216 |
RBCS_FIELDS_LOAD |
CALL EXCH_XYZ_RS( rbct1 , myThid ) |
./pkg/rbcs/rbcs_fields_load.F |
219 |
RBCS_FIELDS_LOAD |
CALL EXCH_XYZ_RS( rbcs0 , myThid ) |
./pkg/rbcs/rbcs_fields_load.F |
220 |
RBCS_FIELDS_LOAD |
CALL EXCH_XYZ_RS( rbcs1 , myThid ) |
./pkg/rbcs/rbcs_fields_load.F |
226 |
RBCS_FIELDS_LOAD |
CALL EXCH_XYZ_RS( rbcptr0(1-Olx,1-Oly,1,1,1,iTracer),myThid ) |
./pkg/rbcs/rbcs_fields_load.F |
227 |
RBCS_FIELDS_LOAD |
CALL EXCH_XYZ_RS( rbcptr1(1-Olx,1-Oly,1,1,1,iTracer),myThid ) |
./pkg/rbcs/rbcs_fields_load.F |
236 |
RBCS_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/rbcs/rbcs_fields_load.F |
237 |
RBCS_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/rbcs/rbcs_fields_load.F |
255 |
RBCS_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/rbcs/rbcs_fields_load.F |
256 |
RBCS_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/rbcs/rbcs_fields_load.F |
273 |
RBCS_FIELDS_LOAD |
CALL TIMER_STOP ('RBCS_FIELDS_LOAD [I/O]', myThid) |
./pkg/rbcs/rbcs_fields_load.F |
43 |
RBCS_FIELDS_LOAD |
INTEGER myThid |
./pkg/rbcs/rbcs_fields_load.F |
71 |
RBCS_FIELDS_LOAD |
CALL TIMER_START('RBCS_FIELDS_LOAD [I/O]', myThid) |
./pkg/rbcs/rbcs_fields_load.F |
75 |
RBCS_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/rbcs/rbcs_fields_load.F |
76 |
RBCS_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/rbcs/rbcs_fields_load.F |
8 |
RBCS_FIELDS_LOAD |
SUBROUTINE RBCS_FIELDS_LOAD( myTime, myIter, myThid ) |
./pkg/rbcs/rbcs_fields_load.F |
91 |
RBCS_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/rbcs/rbcs_fields_load.F |
92 |
RBCS_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/diags_oceanic_surf_flux.F |
103 |
DIAGS_OCEANIC_SURF_FLUX |
& 'surForcT',0, 1,0,1,1,myThid ) |
./model/src/diags_oceanic_surf_flux.F |
108 |
DIAGS_OCEANIC_SURF_FLUX |
& 'surForcS',0, 1,0,1,1,myThid ) |
./model/src/diags_oceanic_surf_flux.F |
10 |
DIAGS_OCEANIC_SURF_FLUX |
SUBROUTINE DIAGS_OCEANIC_SURF_FLUX( myTime, myIter, myThid ) |
./model/src/diags_oceanic_surf_flux.F |
111 |
DIAGS_OCEANIC_SURF_FLUX |
IF ( DIAGNOSTICS_IS_ON('TFLUX ',myThid) ) THEN |
./model/src/diags_oceanic_surf_flux.F |
112 |
DIAGS_OCEANIC_SURF_FLUX |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/diags_oceanic_surf_flux.F |
113 |
DIAGS_OCEANIC_SURF_FLUX |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/diags_oceanic_surf_flux.F |
137 |
DIAGS_OCEANIC_SURF_FLUX |
CALL DIAGNOSTICS_FILL( tmp1k,'TFLUX ',0,1,0,1,1,myThid ) |
./model/src/diags_oceanic_surf_flux.F |
141 |
DIAGS_OCEANIC_SURF_FLUX |
IF ( DIAGNOSTICS_IS_ON('SFLUX ',myThid) ) THEN |
./model/src/diags_oceanic_surf_flux.F |
142 |
DIAGS_OCEANIC_SURF_FLUX |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/diags_oceanic_surf_flux.F |
143 |
DIAGS_OCEANIC_SURF_FLUX |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/diags_oceanic_surf_flux.F |
165 |
DIAGS_OCEANIC_SURF_FLUX |
CALL DIAGNOSTICS_FILL( tmp1k,'SFLUX ',0,1,0,1,1,myThid ) |
./model/src/diags_oceanic_surf_flux.F |
38 |
DIAGS_OCEANIC_SURF_FLUX |
INTEGER myThid |
./model/src/diags_oceanic_surf_flux.F |
61 |
DIAGS_OCEANIC_SURF_FLUX |
& 'oceTAUX ',0, 1,0,1,1,myThid ) |
./model/src/diags_oceanic_surf_flux.F |
65 |
DIAGS_OCEANIC_SURF_FLUX |
& 'oceTAUY ',0, 1,0,1,1,myThid ) |
./model/src/diags_oceanic_surf_flux.F |
68 |
DIAGS_OCEANIC_SURF_FLUX |
CALL DIAGNOSTICS_FILL_RS( pLoad, 'atmPload',0,1,0,1,1,myThid ) |
./model/src/diags_oceanic_surf_flux.F |
71 |
DIAGS_OCEANIC_SURF_FLUX |
CALL DIAGNOSTICS_FILL_RS( sIceLoad,'sIceLoad',0,1,0,1,1,myThid ) |
./model/src/diags_oceanic_surf_flux.F |
76 |
DIAGS_OCEANIC_SURF_FLUX |
& 'oceFWflx',0, 1,0,1,1,myThid ) |
./model/src/diags_oceanic_surf_flux.F |
81 |
DIAGS_OCEANIC_SURF_FLUX |
& 'oceSflux',0, 1,0,1,1,myThid ) |
./model/src/diags_oceanic_surf_flux.F |
86 |
DIAGS_OCEANIC_SURF_FLUX |
& 'oceQnet ',0, 1,0,1,1,myThid ) |
./model/src/diags_oceanic_surf_flux.F |
92 |
DIAGS_OCEANIC_SURF_FLUX |
& 'oceQsw ',0, 1,0,1,1,myThid ) |
./model/src/diags_oceanic_surf_flux.F |
98 |
DIAGS_OCEANIC_SURF_FLUX |
& 'oceFreez',0, 1,0,1,1,myThid ) |
./pkg/rbcs/rbcs_init_fixed.F |
26 |
RBCS_INIT_FIXED |
INTEGER myThid |
./pkg/rbcs/rbcs_init_fixed.F |
39 |
RBCS_INIT_FIXED |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/rbcs/rbcs_init_fixed.F |
40 |
RBCS_INIT_FIXED |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/rbcs/rbcs_init_fixed.F |
61 |
RBCS_INIT_FIXED |
& RBC_mask(1-Olx,1-Oly,1,1,1,irbc), 0, myThid) |
./pkg/rbcs/rbcs_init_fixed.F |
62 |
RBCS_INIT_FIXED |
CALL EXCH_XYZ_RS( RBC_mask(1-Olx,1-Oly,1,1,1,irbc), myThid ) |
./pkg/rbcs/rbcs_init_fixed.F |
65 |
RBCS_INIT_FIXED |
_BEGIN_MASTER( myThid ) |
./pkg/rbcs/rbcs_init_fixed.F |
67 |
RBCS_INIT_FIXED |
& 'Boundary Relaxing' ,1, myThid ) |
./pkg/rbcs/rbcs_init_fixed.F |
68 |
RBCS_INIT_FIXED |
_END_MASTER(myThid) |
./pkg/rbcs/rbcs_init_fixed.F |
7 |
RBCS_INIT_FIXED |
SUBROUTINE RBCS_INIT_FIXED( myThid ) |
./pkg/rbcs/rbcs_init_varia.F |
25 |
RBCS_INIT_VARIA |
INTEGER myThid |
./pkg/rbcs/rbcs_init_varia.F |
37 |
RBCS_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/rbcs/rbcs_init_varia.F |
38 |
RBCS_INIT_VARIA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/rbcs/rbcs_init_varia.F |
57 |
RBCS_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/rbcs/rbcs_init_varia.F |
58 |
RBCS_INIT_VARIA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/rbcs/rbcs_init_varia.F |
7 |
RBCS_INIT_VARIA |
SUBROUTINE RBCS_INIT_VARIA( myThid ) |
./pkg/rbcs/rbcs_readparms.F |
109 |
RBCS_READPARMS |
I myThid ) |
./pkg/rbcs/rbcs_readparms.F |
10 |
RBCS_READPARMS |
SUBROUTINE RBCS_READPARMS( myThid ) |
./pkg/rbcs/rbcs_readparms.F |
125 |
RBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/rbcs/rbcs_readparms.F |
128 |
RBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/rbcs/rbcs_readparms.F |
136 |
RBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/rbcs/rbcs_readparms.F |
139 |
RBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/rbcs/rbcs_readparms.F |
143 |
RBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/rbcs/rbcs_readparms.F |
146 |
RBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/rbcs/rbcs_readparms.F |
153 |
RBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/rbcs/rbcs_readparms.F |
159 |
RBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/rbcs/rbcs_readparms.F |
168 |
RBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/rbcs/rbcs_readparms.F |
177 |
RBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/rbcs/rbcs_readparms.F |
180 |
RBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/rbcs/rbcs_readparms.F |
186 |
RBCS_READPARMS |
_END_MASTER(myThid) |
./pkg/rbcs/rbcs_readparms.F |
27 |
RBCS_READPARMS |
INTEGER myThid |
./pkg/rbcs/rbcs_readparms.F |
73 |
RBCS_READPARMS |
_BEGIN_MASTER(myThid) |
./pkg/regrid/regrid_check.F |
11 |
REGRID_CHECK |
SUBROUTINE REGRID_CHECK( myThid ) |
./pkg/regrid/regrid_check.F |
26 |
REGRID_CHECK |
INTEGER myThid |
./pkg/regrid/regrid_check.F |
40 |
REGRID_CHECK |
_BEGIN_MASTER(myThid) |
./pkg/regrid/regrid_check.F |
48 |
REGRID_CHECK |
_END_MASTER(myThid) |
./pkg/regrid/regrid_init_fixed.F |
11 |
REGRID_INIT_FIXED |
SUBROUTINE REGRID_INIT_FIXED( myThid ) |
./pkg/regrid/regrid_init_fixed.F |
25 |
REGRID_INIT_FIXED |
INTEGER myThid |
./pkg/regrid/regrid_init_fixed.F |
32 |
REGRID_INIT_FIXED |
CALL REGRID_MNC_INIT( myThid ) |
./pkg/regrid/regrid_init_varia.F |
11 |
REGRID_INIT_VARIA |
SUBROUTINE REGRID_INIT_VARIA( myThid ) |
./pkg/regrid/regrid_init_varia.F |
158 |
REGRID_INIT_VARIA |
& SQUEEZE_RIGHT,myThid) |
./pkg/regrid/regrid_init_varia.F |
184 |
REGRID_INIT_VARIA |
& SQUEEZE_RIGHT,myThid) |
./pkg/regrid/regrid_init_varia.F |
195 |
REGRID_INIT_VARIA |
& SQUEEZE_RIGHT,myThid) |
./pkg/regrid/regrid_init_varia.F |
197 |
REGRID_INIT_VARIA |
_END_MASTER( myThid ) |
./pkg/regrid/regrid_init_varia.F |
33 |
REGRID_INIT_VARIA |
INTEGER myThid |
./pkg/regrid/regrid_init_varia.F |
67 |
REGRID_INIT_VARIA |
_BEGIN_MASTER( myThid ) |
./pkg/regrid/regrid_init_varia.F |
72 |
REGRID_INIT_VARIA |
& SQUEEZE_RIGHT,myThid) |
./pkg/regrid/regrid_init_varia.F |
76 |
REGRID_INIT_VARIA |
& SQUEEZE_RIGHT,myThid) |
./pkg/regrid/regrid_init_varia.F |
80 |
REGRID_INIT_VARIA |
& SQUEEZE_RIGHT,myThid) |
./pkg/regrid/regrid_init_varia.F |
84 |
REGRID_INIT_VARIA |
CALL MDSFINDUNIT(iUnit, myThid) |
./pkg/regrid/regrid_init_varia.F |
86 |
REGRID_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/regrid/regrid_init_varia.F |
87 |
REGRID_INIT_VARIA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/regrid/regrid_mnc_init.F |
11 |
REGRID_MNC_INIT |
SUBROUTINE REGRID_MNC_INIT( myThid ) |
./pkg/regrid/regrid_mnc_init.F |
28 |
REGRID_MNC_INIT |
INTEGER myThid |
./model/src/diags_phi_hyd.F |
12 |
DIAGS_PHI_HYD |
I myTime, myIter, myThid) |
./model/src/diags_phi_hyd.F |
46 |
DIAGS_PHI_HYD |
INTEGER myIter, myThid |
./pkg/regrid/regrid_readparms.F |
11 |
REGRID_READPARMS |
SUBROUTINE REGRID_READPARMS( myThid ) |
./pkg/regrid/regrid_readparms.F |
26 |
REGRID_READPARMS |
INTEGER myThid |
./pkg/regrid/regrid_readparms.F |
40 |
REGRID_READPARMS |
_BEGIN_MASTER(myThid) |
./pkg/regrid/regrid_readparms.F |
62 |
REGRID_READPARMS |
I myThid ) |
./pkg/regrid/regrid_readparms.F |
81 |
REGRID_READPARMS |
_END_MASTER(myThid) |
./pkg/runclock/runclock_check.F |
20 |
RUNCLOCK_CHECK |
INTEGER myThid |
./pkg/runclock/runclock_check.F |
36 |
RUNCLOCK_CHECK |
_BEGIN_MASTER(myThid) |
./pkg/runclock/runclock_check.F |
39 |
RUNCLOCK_CHECK |
_END_MASTER(myThid) |
./pkg/runclock/runclock_check.F |
6 |
RUNCLOCK_CHECK |
SUBROUTINE RUNCLOCK_CHECK( myThid ) |
./pkg/runclock/runclock_continue.F |
101 |
NO PROCEDURE |
_END_MASTER(myThid) |
./pkg/runclock/runclock_continue.F |
28 |
NO PROCEDURE |
INTEGER myThid |
./pkg/runclock/runclock_continue.F |
42 |
NO PROCEDURE |
_BEGIN_MASTER(myThid) |
./pkg/runclock/runclock_continue.F |
45 |
NO PROCEDURE |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/runclock/runclock_continue.F |
47 |
NO PROCEDURE |
_END_MASTER(myThid) |
./pkg/runclock/runclock_continue.F |
55 |
NO PROCEDURE |
CALL GLOBAL_MAX_R8(tins,myThid) |
./pkg/runclock/runclock_continue.F |
69 |
NO PROCEDURE |
CALL GLOBAL_MAX_R8(ETmax,myThid) |
./pkg/runclock/runclock_continue.F |
74 |
NO PROCEDURE |
_BEGIN_MASTER(myThid) |
./pkg/runclock/runclock_continue.F |
93 |
NO PROCEDURE |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/runclock/runclock_continue.F |
97 |
NO PROCEDURE |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/runclock/runclock_continue.F |
9 |
NO PROCEDURE |
FUNCTION RUNCLOCK_CONTINUE( myThid ) |
./pkg/runclock/runclock_init.F |
27 |
RUNCLOCK_INIT |
INTEGER myThid |
./pkg/runclock/runclock_init.F |
38 |
RUNCLOCK_INIT |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/runclock/runclock_init.F |
48 |
RUNCLOCK_INIT |
CALL GLOBAL_MAX_R8(RC_start_tins,myThid) |
./pkg/runclock/runclock_init.F |
9 |
RUNCLOCK_INIT |
SUBROUTINE RUNCLOCK_INIT( myThid ) |
./pkg/runclock/runclock_readparms.F |
19 |
RUNCLOCK_READPARMS |
INTEGER myThid |
./pkg/runclock/runclock_readparms.F |
37 |
RUNCLOCK_READPARMS |
_BEGIN_MASTER(myThid) |
./pkg/runclock/runclock_readparms.F |
46 |
RUNCLOCK_READPARMS |
I myThid ) |
./pkg/runclock/runclock_readparms.F |
65 |
RUNCLOCK_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/runclock/runclock_readparms.F |
69 |
RUNCLOCK_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/runclock/runclock_readparms.F |
6 |
RUNCLOCK_READPARMS |
SUBROUTINE RUNCLOCK_READPARMS( myThid ) |
./pkg/runclock/runclock_readparms.F |
73 |
RUNCLOCK_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/runclock/runclock_readparms.F |
77 |
RUNCLOCK_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/runclock/runclock_readparms.F |
81 |
RUNCLOCK_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/runclock/runclock_readparms.F |
98 |
RUNCLOCK_READPARMS |
_END_MASTER(myThid) |
./model/src/diags_phi_rlow.F |
12 |
DIAGS_PHI_RLOW |
I myTime, myIter, myThid) |
./model/src/diags_phi_rlow.F |
54 |
DIAGS_PHI_RLOW |
INTEGER myIter, myThid |
./pkg/rw/read_fld_xy_rl.F |
18 |
READ_FLD_XY_RL |
INTEGER myThid |
./pkg/rw/read_fld_xy_rl.F |
52 |
READ_FLD_XY_RL |
I iRec, myThid ) |
./pkg/rw/read_fld_xy_rl.F |
6 |
READ_FLD_XY_RL |
SUBROUTINE READ_FLD_XY_RL( pref,suff,field,myIter,myThid) |
./pkg/rw/read_fld_xy_rs.F |
18 |
READ_FLD_XY_RS |
INTEGER myThid |
./pkg/rw/read_fld_xy_rs.F |
52 |
READ_FLD_XY_RS |
I iRec, myThid ) |
./pkg/rw/read_fld_xy_rs.F |
6 |
READ_FLD_XY_RS |
SUBROUTINE READ_FLD_XY_RS( pref,suff,field,myIter,myThid) |
./pkg/rw/read_fld_xyz_rl.F |
18 |
READ_FLD_XYZ_RL |
INTEGER myThid |
./pkg/rw/read_fld_xyz_rl.F |
52 |
READ_FLD_XYZ_RL |
I iRec, myThid ) |
./pkg/rw/read_fld_xyz_rl.F |
6 |
READ_FLD_XYZ_RL |
SUBROUTINE READ_FLD_XYZ_RL( pref,suff,field,myIter,myThid) |
./pkg/rw/read_fld_xyz_rs.F |
18 |
READ_FLD_XYZ_RS |
INTEGER myThid |
./pkg/rw/read_fld_xyz_rs.F |
52 |
READ_FLD_XYZ_RS |
I iRec, myThid ) |
./pkg/rw/read_fld_xyz_rs.F |
6 |
READ_FLD_XYZ_RS |
SUBROUTINE READ_FLD_XYZ_RS( pref,suff,field,myIter,myThid) |
./pkg/rw/read_glvec_rl.F |
12 |
READ_GLVEC_RL |
I sizArr, iRec, myThid ) |
./pkg/rw/read_glvec_rl.F |
32 |
READ_GLVEC_RL |
INTEGER myThid |
./pkg/rw/read_glvec_rl.F |
67 |
READ_GLVEC_RL |
I bi, bj, iRec, myThid ) |
./pkg/rw/read_glvec_rs.F |
12 |
READ_GLVEC_RS |
I sizArr, iRec, myThid ) |
./pkg/rw/read_glvec_rs.F |
32 |
READ_GLVEC_RS |
INTEGER myThid |
./pkg/rw/read_glvec_rs.F |
67 |
READ_GLVEC_RS |
I bi, bj, iRec, myThid ) |
./pkg/rw/read_mflds.F |
129 |
READ_MFLDS_SET |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/rw/read_mflds.F |
134 |
READ_MFLDS_SET |
_BEGIN_MASTER( myThid ) |
./pkg/rw/read_mflds.F |
160 |
READ_MFLDS_SET |
I useCurrentDir, myThid ) |
./pkg/rw/read_mflds.F |
176 |
READ_MFLDS_SET |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/rw/read_mflds.F |
179 |
READ_MFLDS_SET |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/rw/read_mflds.F |
191 |
READ_MFLDS_SET |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/rw/read_mflds.F |
196 |
READ_MFLDS_SET |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/rw/read_mflds.F |
19 |
READ_MFLDS_INIT |
I myThid ) |
./pkg/rw/read_mflds.F |
201 |
READ_MFLDS_SET |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/rw/read_mflds.F |
203 |
READ_MFLDS_SET |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/rw/read_mflds.F |
206 |
READ_MFLDS_SET |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/rw/read_mflds.F |
210 |
READ_MFLDS_SET |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/rw/read_mflds.F |
214 |
READ_MFLDS_SET |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/rw/read_mflds.F |
217 |
READ_MFLDS_SET |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/rw/read_mflds.F |
220 |
READ_MFLDS_SET |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/rw/read_mflds.F |
224 |
READ_MFLDS_SET |
_END_MASTER( myThid ) |
./pkg/rw/read_mflds.F |
241 |
READ_MFLDS_3D_RL |
I fPrec, nNz, myIter, myThid ) |
./pkg/rw/read_mflds.F |
271 |
READ_MFLDS_3D_RL |
INTEGER myThid |
./pkg/rw/read_mflds.F |
293 |
READ_MFLDS_3D_RL |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/rw/read_mflds.F |
307 |
READ_MFLDS_3D_RL |
_BEGIN_MASTER( myThid ) |
./pkg/rw/read_mflds.F |
311 |
READ_MFLDS_3D_RL |
_END_MASTER( myThid ) |
./pkg/rw/read_mflds.F |
317 |
READ_MFLDS_3D_RL |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/rw/read_mflds.F |
326 |
READ_MFLDS_3D_RL |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/rw/read_mflds.F |
32 |
READ_MFLDS_INIT |
INTEGER myThid |
./pkg/rw/read_mflds.F |
335 |
READ_MFLDS_3D_RL |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/rw/read_mflds.F |
349 |
READ_MFLDS_3D_RL |
I nj, myThid ) |
./pkg/rw/read_mflds.F |
365 |
READ_MFLDS_LEV_RL |
I fPrec, kSiz, kLo, kHi, myIter, myThid ) |
./pkg/rw/read_mflds.F |
398 |
READ_MFLDS_LEV_RL |
INTEGER myThid |
./pkg/rw/read_mflds.F |
420 |
READ_MFLDS_LEV_RL |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/rw/read_mflds.F |
434 |
READ_MFLDS_LEV_RL |
_BEGIN_MASTER( myThid ) |
./pkg/rw/read_mflds.F |
438 |
READ_MFLDS_LEV_RL |
_END_MASTER( myThid ) |
./pkg/rw/read_mflds.F |
444 |
READ_MFLDS_LEV_RL |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/rw/read_mflds.F |
453 |
READ_MFLDS_LEV_RL |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/rw/read_mflds.F |
462 |
READ_MFLDS_LEV_RL |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/rw/read_mflds.F |
476 |
READ_MFLDS_LEV_RL |
I nj, myThid ) |
./pkg/rw/read_mflds.F |
491 |
READ_MFLDS_CHECK |
I myIter, myThid ) |
./pkg/rw/read_mflds.F |
518 |
READ_MFLDS_CHECK |
INTEGER myThid |
./pkg/rw/read_mflds.F |
536 |
READ_MFLDS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/rw/read_mflds.F |
557 |
READ_MFLDS_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/rw/read_mflds.F |
560 |
READ_MFLDS_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/rw/read_mflds.F |
564 |
READ_MFLDS_CHECK |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/rw/read_mflds.F |
568 |
READ_MFLDS_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/rw/read_mflds.F |
573 |
READ_MFLDS_CHECK |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/rw/read_mflds.F |
580 |
READ_MFLDS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/rw/read_mflds.F |
597 |
READ_MFLDS_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/rw/read_mflds.F |
607 |
READ_MFLDS_CHECK |
_BEGIN_MASTER( myThid ) |
./pkg/rw/read_mflds.F |
610 |
READ_MFLDS_CHECK |
_END_MASTER( myThid ) |
./pkg/rw/read_mflds.F |
64 |
READ_MFLDS_SET |
I fileDim3, myIter, myThid ) |
./pkg/rw/read_mflds.F |
94 |
READ_MFLDS_SET |
INTEGER myThid |
./pkg/rw/read_rec.F |
100 |
READ_REC_XY_RL |
INTEGER myThid |
./pkg/rw/read_rec.F |
130 |
READ_REC_XY_RL |
I iRec, myThid ) |
./pkg/rw/read_rec.F |
139 |
READ_REC_XYZ_RS |
SUBROUTINE READ_REC_XYZ_RS( fName,field,iRec,myIter,myThid ) |
./pkg/rw/read_rec.F |
159 |
READ_REC_XYZ_RS |
INTEGER myThid |
./pkg/rw/read_rec.F |
190 |
READ_REC_XYZ_RS |
I iRec, myThid ) |
./pkg/rw/read_rec.F |
199 |
READ_REC_XYZ_RL |
SUBROUTINE READ_REC_XYZ_RL( fName,field,iRec,myIter,myThid ) |
./pkg/rw/read_rec.F |
219 |
READ_REC_XYZ_RL |
INTEGER myThid |
./pkg/rw/read_rec.F |
24 |
READ_REC_XY_RS |
SUBROUTINE READ_REC_XY_RS( fName,field,iRec,myIter,myThid ) |
./pkg/rw/read_rec.F |
250 |
READ_REC_XYZ_RL |
I iRec, myThid ) |
./pkg/rw/read_rec.F |
262 |
READ_REC_3D_RS |
I iRec, myIter, myThid ) |
./pkg/rw/read_rec.F |
285 |
READ_REC_3D_RS |
INTEGER myThid |
./pkg/rw/read_rec.F |
314 |
READ_REC_3D_RS |
I iRec, myThid ) |
./pkg/rw/read_rec.F |
326 |
READ_REC_3D_RL |
I iRec, myIter, myThid ) |
./pkg/rw/read_rec.F |
349 |
READ_REC_3D_RL |
INTEGER myThid |
./pkg/rw/read_rec.F |
378 |
READ_REC_3D_RL |
I iRec, myThid ) |
./pkg/rw/read_rec.F |
390 |
READ_REC_LEV_RS |
I iRec, myIter, myThid ) |
./pkg/rw/read_rec.F |
414 |
READ_REC_LEV_RS |
INTEGER myThid |
./pkg/rw/read_rec.F |
41 |
READ_REC_XY_RS |
INTEGER myThid |
./pkg/rw/read_rec.F |
443 |
READ_REC_LEV_RS |
I iRec, myThid ) |
./pkg/rw/read_rec.F |
455 |
READ_REC_LEV_RL |
I iRec, myIter, myThid ) |
./pkg/rw/read_rec.F |
479 |
READ_REC_LEV_RL |
INTEGER myThid |
./pkg/rw/read_rec.F |
508 |
READ_REC_LEV_RL |
I iRec, myThid ) |
./pkg/rw/read_rec.F |
520 |
READ_REC_XZ_RS |
I iRec, myIter, myThid ) |
./pkg/rw/read_rec.F |
541 |
READ_REC_XZ_RS |
INTEGER myThid |
./pkg/rw/read_rec.F |
569 |
READ_REC_XZ_RS |
I iRec, myThid ) |
./pkg/rw/read_rec.F |
581 |
READ_REC_XZ_RL |
I iRec, myIter, myThid ) |
./pkg/rw/read_rec.F |
603 |
READ_REC_XZ_RL |
INTEGER myThid |
./pkg/rw/read_rec.F |
631 |
READ_REC_XZ_RL |
I iRec, myThid ) |
./pkg/rw/read_rec.F |
643 |
READ_REC_YZ_RS |
I iRec, myIter, myThid ) |
./pkg/rw/read_rec.F |
665 |
READ_REC_YZ_RS |
INTEGER myThid |
./pkg/rw/read_rec.F |
694 |
READ_REC_YZ_RS |
I iRec, myThid ) |
./pkg/rw/read_rec.F |
706 |
READ_REC_YZ_RL |
I iRec, myIter, myThid ) |
./pkg/rw/read_rec.F |
71 |
READ_REC_XY_RS |
I iRec, myThid ) |
./pkg/rw/read_rec.F |
728 |
READ_REC_YZ_RL |
INTEGER myThid |
./pkg/rw/read_rec.F |
757 |
READ_REC_YZ_RL |
I iRec, myThid ) |
./pkg/rw/read_rec.F |
80 |
READ_REC_XY_RL |
SUBROUTINE READ_REC_XY_RL( fName,field,iRec,myIter,myThid ) |
./model/src/diags_rho.F |
122 |
DIAGS_RHO_G |
INTEGER myIter, myThid |
./model/src/diags_rho.F |
141 |
DIAGS_RHO_G |
& 0, Nr, 0, 1, 1, myThid ) |
./model/src/diags_rho.F |
144 |
DIAGS_RHO_G |
& 'RHOANOSQ', 0, Nr, 0, 1, 1, myThid ) |
./model/src/diags_rho.F |
146 |
DIAGS_RHO_G |
IF ( DIAGNOSTICS_IS_ON('URHOMASS',myThid) ) THEN |
./model/src/diags_rho.F |
147 |
DIAGS_RHO_G |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/diags_rho.F |
148 |
DIAGS_RHO_G |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/diags_rho.F |
157 |
DIAGS_RHO_G |
CALL DIAGNOSTICS_FILL(tmpFld,'URHOMASS',k,1,2,bi,bj,myThid) |
./model/src/diags_rho.F |
163 |
DIAGS_RHO_G |
IF ( DIAGNOSTICS_IS_ON('VRHOMASS',myThid) ) THEN |
./model/src/diags_rho.F |
164 |
DIAGS_RHO_G |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/diags_rho.F |
165 |
DIAGS_RHO_G |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/diags_rho.F |
174 |
DIAGS_RHO_G |
CALL DIAGNOSTICS_FILL(tmpFld,'VRHOMASS',k,1,2,bi,bj,myThid) |
./model/src/diags_rho.F |
19 |
DIAGS_RHO_L |
I myTime, myIter, myThid ) |
./model/src/diags_rho.F |
52 |
DIAGS_RHO_L |
INTEGER myIter, myThid |
./model/src/diags_rho.F |
79 |
DIAGS_RHO_L |
CALL DIAGNOSTICS_FILL(tmpFld,'WRHOMASS',k,1,2,bi,bj,myThid) |
./model/src/diags_rho.F |
92 |
DIAGS_RHO_G |
I myTime, myIter, myThid ) |
./pkg/rw/write_fld_3d_rl.F |
20 |
WRITE_FLD_3D_RL |
INTEGER myThid |
./pkg/rw/write_fld_3d_rl.F |
57 |
WRITE_FLD_3D_RL |
I iRec, myIter, myThid ) |
./pkg/rw/write_fld_3d_rl.F |
7 |
WRITE_FLD_3D_RL |
I pref, suff, nNz, field, myIter, myThid ) |
./pkg/rw/write_fld_3d_rs.F |
20 |
WRITE_FLD_3D_RS |
INTEGER myThid |
./pkg/rw/write_fld_3d_rs.F |
57 |
WRITE_FLD_3D_RS |
I iRec, myIter, myThid ) |
./pkg/rw/write_fld_3d_rs.F |
7 |
WRITE_FLD_3D_RS |
I pref, suff, nNz, field, myIter, myThid ) |
./pkg/rw/write_fld_s3d_rl.F |
103 |
WRITE_FLD_S3D_RL |
I iRec, myIter, myThid ) |
./pkg/rw/write_fld_s3d_rl.F |
10 |
WRITE_FLD_S3D_RL |
I pref, suff, Ovl, nNz, field, myIter, myThid ) |
./pkg/rw/write_fld_s3d_rl.F |
41 |
WRITE_FLD_S3D_RL |
INTEGER myThid |
./pkg/rw/write_fld_s3d_rl.F |
65 |
WRITE_FLD_S3D_RL |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/rw/write_fld_s3d_rl.F |
71 |
WRITE_FLD_S3D_RL |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/rw/write_fld_s3d_rl.F |
87 |
WRITE_FLD_S3D_RL |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/rw/write_fld_s3d_rl.F |
88 |
WRITE_FLD_S3D_RL |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/rw/write_fld_s3d_rs.F |
103 |
WRITE_FLD_S3D_RS |
I iRec, myIter, myThid ) |
./pkg/rw/write_fld_s3d_rs.F |
10 |
WRITE_FLD_S3D_RS |
I pref, suff, Ovl, nNz, field, myIter, myThid ) |
./pkg/rw/write_fld_s3d_rs.F |
41 |
WRITE_FLD_S3D_RS |
INTEGER myThid |
./pkg/rw/write_fld_s3d_rs.F |
65 |
WRITE_FLD_S3D_RS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/rw/write_fld_s3d_rs.F |
71 |
WRITE_FLD_S3D_RS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/rw/write_fld_s3d_rs.F |
87 |
WRITE_FLD_S3D_RS |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/rw/write_fld_s3d_rs.F |
88 |
WRITE_FLD_S3D_RS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/rw/write_fld_xy_rl.F |
18 |
WRITE_FLD_XY_RL |
INTEGER myThid |
./pkg/rw/write_fld_xy_rl.F |
55 |
WRITE_FLD_XY_RL |
I iRec, myIter, myThid ) |
./pkg/rw/write_fld_xy_rl.F |
6 |
WRITE_FLD_XY_RL |
SUBROUTINE WRITE_FLD_XY_RL( pref,suff,field,myIter,myThid ) |
./pkg/rw/write_fld_xy_rs.F |
18 |
WRITE_FLD_XY_RS |
INTEGER myThid |
./pkg/rw/write_fld_xy_rs.F |
55 |
WRITE_FLD_XY_RS |
I iRec, myIter, myThid ) |
./pkg/rw/write_fld_xy_rs.F |
6 |
WRITE_FLD_XY_RS |
SUBROUTINE WRITE_FLD_XY_RS( pref,suff,field,myIter,myThid ) |
./pkg/rw/write_fld_xyz_rl.F |
18 |
WRITE_FLD_XYZ_RL |
INTEGER myThid |
./pkg/rw/write_fld_xyz_rl.F |
55 |
WRITE_FLD_XYZ_RL |
I iRec, myIter, myThid ) |
./pkg/rw/write_fld_xyz_rl.F |
6 |
WRITE_FLD_XYZ_RL |
SUBROUTINE WRITE_FLD_XYZ_RL( pref,suff,field,myIter,myThid ) |
./pkg/rw/write_fld_xyz_rs.F |
18 |
WRITE_FLD_XYZ_RS |
INTEGER myThid |
./pkg/rw/write_fld_xyz_rs.F |
55 |
WRITE_FLD_XYZ_RS |
I iRec, myIter, myThid ) |
./pkg/rw/write_fld_xyz_rs.F |
6 |
WRITE_FLD_XYZ_RS |
SUBROUTINE WRITE_FLD_XYZ_RS( pref,suff,field,myIter,myThid ) |
./pkg/rw/write_glvec_rl.F |
10 |
WRITE_GLVEC_RL |
I pref, suff, array, sizArr, myIter, myThid ) |
./pkg/rw/write_glvec_rl.F |
30 |
WRITE_GLVEC_RL |
INTEGER myThid |
./pkg/rw/write_glvec_rl.F |
66 |
WRITE_GLVEC_RL |
I bi, bj, iRec, myIter, myThid ) |
./pkg/rw/write_glvec_rs.F |
10 |
WRITE_GLVEC_RS |
I pref, suff, array, sizArr, myIter, myThid ) |
./pkg/rw/write_glvec_rs.F |
30 |
WRITE_GLVEC_RS |
INTEGER myThid |
./pkg/rw/write_glvec_rs.F |
66 |
WRITE_GLVEC_RS |
I bi, bj, iRec, myIter, myThid ) |
./model/src/do_atmospheric_phys.F |
10 |
DO_ATMOSPHERIC_PHYS |
SUBROUTINE DO_ATMOSPHERIC_PHYS(myTime, myIter, myThid) |
./model/src/do_atmospheric_phys.F |
35 |
DO_ATMOSPHERIC_PHYS |
INTEGER myThid |
./model/src/do_atmospheric_phys.F |
43 |
DO_ATMOSPHERIC_PHYS |
IF (debugMode) CALL DEBUG_ENTER('DO_ATMOSPHERIC_PHYS',myThid) |
./model/src/do_atmospheric_phys.F |
48 |
DO_ATMOSPHERIC_PHYS |
CALL TIMER_START('FIZHI [DO_ATMOSPHERIC_PHYS]',myThid) |
./model/src/do_atmospheric_phys.F |
49 |
DO_ATMOSPHERIC_PHYS |
CALL UPDATE_OCEAN_EXPORTS ( myTime, myIter, myThid ) |
./model/src/do_atmospheric_phys.F |
50 |
DO_ATMOSPHERIC_PHYS |
CALL UPDATE_EARTH_EXPORTS ( myTime, myIter, myThid ) |
./model/src/do_atmospheric_phys.F |
51 |
DO_ATMOSPHERIC_PHYS |
CALL UPDATE_CHEMISTRY_EXPORTS ( myTime, myIter, myThid ) |
./model/src/do_atmospheric_phys.F |
52 |
DO_ATMOSPHERIC_PHYS |
CALL FIZHI_WRAPPER ( myTime, myIter, myThid ) |
./model/src/do_atmospheric_phys.F |
53 |
DO_ATMOSPHERIC_PHYS |
CALL STEP_FIZHI_FG ( myTime, myIter, myThid, dTtracerLev(1) ) |
./model/src/do_atmospheric_phys.F |
54 |
DO_ATMOSPHERIC_PHYS |
CALL FIZHI_UPDATE_TIME ( myIter, myThid, deltaTclock ) |
./model/src/do_atmospheric_phys.F |
55 |
DO_ATMOSPHERIC_PHYS |
CALL TIMER_STOP ('FIZHI [DO_ATMOSPHERIC_PHYS]',myThid) |
./model/src/do_atmospheric_phys.F |
63 |
DO_ATMOSPHERIC_PHYS |
IF (debugMode) CALL DEBUG_CALL('AIM_DO_PHYSICS',myThid) |
./model/src/do_atmospheric_phys.F |
65 |
DO_ATMOSPHERIC_PHYS |
CALL TIMER_START('AIM_DO_PHYSICS [DO_ATMOSPHERIC_PHYS]',myThid) |
./model/src/do_atmospheric_phys.F |
66 |
DO_ATMOSPHERIC_PHYS |
CALL AIM_DO_PHYSICS( myTime, myIter, myThid ) |
./model/src/do_atmospheric_phys.F |
67 |
DO_ATMOSPHERIC_PHYS |
CALL TIMER_STOP( 'AIM_DO_PHYSICS [DO_ATMOSPHERIC_PHYS]',myThid) |
./model/src/do_atmospheric_phys.F |
69 |
DO_ATMOSPHERIC_PHYS |
CALL AIM_AIM2DYN_EXCHANGES( myTime, myIter, myThid ) |
./model/src/do_atmospheric_phys.F |
74 |
DO_ATMOSPHERIC_PHYS |
IF (debugMode) CALL DEBUG_LEAVE('DO_ATMOSPHERIC_PHYS',myThid) |
./pkg/rw/write_local_rl.F |
56 |
WRITE_LOCAL_RL |
INTEGER myThid |
./pkg/rw/write_local_rl.F |
81 |
WRITE_LOCAL_RL |
myThid = MAX(myThArg,1) |
./pkg/rw/write_local_rl.F |
86 |
WRITE_LOCAL_RL |
I iRec, myIter, myThid ) |
./pkg/rw/write_local_rs.F |
56 |
WRITE_LOCAL_RS |
INTEGER myThid |
./pkg/rw/write_local_rs.F |
81 |
WRITE_LOCAL_RS |
myThid = MAX(myThArg,1) |
./pkg/rw/write_local_rs.F |
86 |
WRITE_LOCAL_RS |
I iRec, myIter, myThid ) |
./pkg/rw/write_rec.F |
104 |
WRITE_REC_XY_RS |
INTEGER myThid |
./pkg/rw/write_rec.F |
139 |
WRITE_REC_XY_RS |
I iRec, myIter, myThid ) |
./pkg/rw/write_rec.F |
148 |
WRITE_REC_XY_RL |
SUBROUTINE WRITE_REC_XY_RL( fName,field,iRec,myIter,myThid ) |
./pkg/rw/write_rec.F |
168 |
WRITE_REC_XY_RL |
INTEGER myThid |
./pkg/rw/write_rec.F |
203 |
WRITE_REC_XY_RL |
I iRec, myIter, myThid ) |
./pkg/rw/write_rec.F |
212 |
WRITE_REC_XYZ_RS |
SUBROUTINE WRITE_REC_XYZ_RS( fName,field,iRec,myIter,myThid ) |
./pkg/rw/write_rec.F |
232 |
WRITE_REC_XYZ_RS |
INTEGER myThid |
./pkg/rw/write_rec.F |
267 |
WRITE_REC_XYZ_RS |
I iRec, myIter, myThid ) |
./pkg/rw/write_rec.F |
276 |
WRITE_REC_XYZ_RL |
SUBROUTINE WRITE_REC_XYZ_RL( fName,field,iRec,myIter,myThid ) |
./pkg/rw/write_rec.F |
296 |
WRITE_REC_XYZ_RL |
INTEGER myThid |
./pkg/rw/write_rec.F |
331 |
WRITE_REC_XYZ_RL |
I iRec, myIter, myThid ) |
./pkg/rw/write_rec.F |
342 |
WRITE_REC_3D_RS |
I iRec, myIter, myThid ) |
./pkg/rw/write_rec.F |
365 |
WRITE_REC_3D_RS |
INTEGER myThid |
./pkg/rw/write_rec.F |
397 |
WRITE_REC_3D_RS |
I iRec, myIter, myThid ) |
./pkg/rw/write_rec.F |
408 |
WRITE_REC_3D_RL |
I iRec, myIter, myThid ) |
./pkg/rw/write_rec.F |
431 |
WRITE_REC_3D_RL |
INTEGER myThid |
./pkg/rw/write_rec.F |
463 |
WRITE_REC_3D_RL |
I iRec, myIter, myThid ) |
./pkg/rw/write_rec.F |
474 |
WRITE_REC_LEV_RS |
I iRec, myIter, myThid ) |
./pkg/rw/write_rec.F |
498 |
WRITE_REC_LEV_RS |
INTEGER myThid |
./pkg/rw/write_rec.F |
530 |
WRITE_REC_LEV_RS |
I iRec, myIter, myThid ) |
./pkg/rw/write_rec.F |
541 |
WRITE_REC_LEV_RL |
I iRec, myIter, myThid ) |
./pkg/rw/write_rec.F |
565 |
WRITE_REC_LEV_RL |
INTEGER myThid |
./pkg/rw/write_rec.F |
597 |
WRITE_REC_LEV_RL |
I iRec, myIter, myThid ) |
./pkg/rw/write_rec.F |
609 |
WRITE_REC_XZ_RS |
I iRec, myIter, myThid ) |
./pkg/rw/write_rec.F |
630 |
WRITE_REC_XZ_RS |
INTEGER myThid |
./pkg/rw/write_rec.F |
662 |
WRITE_REC_XZ_RS |
I iRec, myIter, myThid ) |
./pkg/rw/write_rec.F |
674 |
WRITE_REC_XZ_RL |
I iRec, myIter, myThid ) |
./pkg/rw/write_rec.F |
696 |
WRITE_REC_XZ_RL |
INTEGER myThid |
./pkg/rw/write_rec.F |
728 |
WRITE_REC_XZ_RL |
I iRec, myIter, myThid ) |
./pkg/rw/write_rec.F |
740 |
WRITE_REC_YZ_RS |
I iRec, myIter, myThid ) |
./pkg/rw/write_rec.F |
762 |
WRITE_REC_YZ_RS |
INTEGER myThid |
./pkg/rw/write_rec.F |
795 |
WRITE_REC_YZ_RS |
I iRec, myIter, myThid ) |
./pkg/rw/write_rec.F |
807 |
WRITE_REC_YZ_RL |
I iRec, myIter, myThid ) |
./pkg/rw/write_rec.F |
829 |
WRITE_REC_YZ_RL |
INTEGER myThid |
./pkg/rw/write_rec.F |
84 |
WRITE_REC_XY_RS |
SUBROUTINE WRITE_REC_XY_RS( fName,field,iRec,myIter,myThid ) |
./pkg/rw/write_rec.F |
862 |
WRITE_REC_YZ_RL |
I iRec, myIter, myThid ) |
./pkg/salt_plume/salt_plume_calc_depth.F |
11 |
SALT_PLUME_CALC_DEPTH |
I bi, bj, myTime, myIter, myThid ) |
./pkg/salt_plume/salt_plume_calc_depth.F |
137 |
SALT_PLUME_CALC_DEPTH |
& CALL SALT_PLUME_DIAGNOSTICS_FILL(bi,bj,myThid) |
./pkg/salt_plume/salt_plume_calc_depth.F |
44 |
SALT_PLUME_CALC_DEPTH |
INTEGER myThid |
./pkg/salt_plume/salt_plume_calc_depth.F |
81 |
SALT_PLUME_CALC_DEPTH |
I K, bi, bj, myThid ) |
./model/src/do_fields_blocking_exchanges.F |
106 |
DO_FIELDS_BLOCKING_EXCHANGES |
& CALL GGL90_EXCHANGES(myThid) |
./model/src/do_fields_blocking_exchanges.F |
10 |
DO_FIELDS_BLOCKING_EXCHANGES |
SUBROUTINE DO_FIELDS_BLOCKING_EXCHANGES(myThid) |
./model/src/do_fields_blocking_exchanges.F |
43 |
DO_FIELDS_BLOCKING_EXCHANGES |
INTEGER myThid |
./model/src/do_fields_blocking_exchanges.F |
56 |
DO_FIELDS_BLOCKING_EXCHANGES |
CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid) |
./model/src/do_fields_blocking_exchanges.F |
58 |
DO_FIELDS_BLOCKING_EXCHANGES |
& _EXCH_XYZ_RL( wVel , myThid ) |
./model/src/do_fields_blocking_exchanges.F |
63 |
DO_FIELDS_BLOCKING_EXCHANGES |
_EXCH_XYZ_RL( theta, myThid ) |
./model/src/do_fields_blocking_exchanges.F |
64 |
DO_FIELDS_BLOCKING_EXCHANGES |
_EXCH_XYZ_RL( salt , myThid ) |
./model/src/do_fields_blocking_exchanges.F |
68 |
DO_FIELDS_BLOCKING_EXCHANGES |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/do_fields_blocking_exchanges.F |
69 |
DO_FIELDS_BLOCKING_EXCHANGES |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/do_fields_blocking_exchanges.F |
71 |
DO_FIELDS_BLOCKING_EXCHANGES |
I Nr, bi, bj, myThid ) |
./model/src/do_fields_blocking_exchanges.F |
73 |
DO_FIELDS_BLOCKING_EXCHANGES |
I Nr, bi, bj, myThid ) |
./model/src/do_fields_blocking_exchanges.F |
81 |
DO_FIELDS_BLOCKING_EXCHANGES |
& CALL GAD_SOM_EXCHANGES( myThid ) |
./model/src/do_fields_blocking_exchanges.F |
85 |
DO_FIELDS_BLOCKING_EXCHANGES |
CALL EXCH_UV_DGRID_3D_RL( uVelD,vVelD, .TRUE., Nr, myThid ) |
./model/src/do_fields_blocking_exchanges.F |
88 |
DO_FIELDS_BLOCKING_EXCHANGES |
& _EXCH_XYZ_RL( totPhiHyd , myThid ) |
./model/src/do_fields_blocking_exchanges.F |
99 |
DO_FIELDS_BLOCKING_EXCHANGES |
& CALL PTRACERS_FIELDS_BLOCKING_EXCH(myThid) |
./pkg/salt_plume/salt_plume_check.F |
20 |
SALT_PLUME_CHECK |
INTEGER myThid |
./pkg/salt_plume/salt_plume_check.F |
29 |
SALT_PLUME_CHECK |
_BEGIN_MASTER(myThid) |
./pkg/salt_plume/salt_plume_check.F |
33 |
SALT_PLUME_CHECK |
& SQUEEZE_RIGHT , myThid ) |
./pkg/salt_plume/salt_plume_check.F |
35 |
SALT_PLUME_CHECK |
_END_MASTER(myThid) |
./pkg/salt_plume/salt_plume_check.F |
9 |
SALT_PLUME_CHECK |
SUBROUTINE SALT_PLUME_CHECK( myThid ) |
./pkg/salt_plume/salt_plume_diagnostics_fill.F |
10 |
SALT_PLUME_DIAGNOSTICS_FILL |
I bi, bj, myThid ) |
./pkg/salt_plume/salt_plume_diagnostics_fill.F |
24 |
SALT_PLUME_DIAGNOSTICS_FILL |
INTEGER myThid |
./pkg/salt_plume/salt_plume_diagnostics_fill.F |
38 |
SALT_PLUME_DIAGNOSTICS_FILL |
& 'oceSPDep',0, 1,0,1,1,myThid ) |
./pkg/salt_plume/salt_plume_diagnostics_fill.F |
43 |
SALT_PLUME_DIAGNOSTICS_FILL |
& 'oceSPflx',0, 1,0,1,1,myThid ) |
./pkg/salt_plume/salt_plume_diagnostics_init.F |
20 |
SALT_PLUME_DIAGNOSTICS_INIT |
INTEGER myThid |
./pkg/salt_plume/salt_plume_diagnostics_init.F |
45 |
SALT_PLUME_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/salt_plume/salt_plume_diagnostics_init.F |
54 |
SALT_PLUME_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/salt_plume/salt_plume_diagnostics_init.F |
61 |
SALT_PLUME_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/salt_plume/salt_plume_diagnostics_init.F |
9 |
SALT_PLUME_DIAGNOSTICS_INIT |
SUBROUTINE SALT_PLUME_DIAGNOSTICS_INIT( myThid ) |
./pkg/salt_plume/salt_plume_forcing_surf.F |
11 |
SALT_PLUME_FORCING_SURF |
I myTime,myIter,myThid ) |
./pkg/salt_plume/salt_plume_forcing_surf.F |
41 |
SALT_PLUME_FORCING_SURF |
INTEGER myThid |
./pkg/salt_plume/salt_plume_frac.F |
12 |
SALT_PLUME_FRAC |
I myTime, myIter, myThid ) |
./pkg/salt_plume/salt_plume_frac.F |
51 |
SALT_PLUME_FRAC |
INTEGER myThid |
./pkg/salt_plume/salt_plume_init_fixed.F |
22 |
SALT_PLUME_INIT_FIXED |
INTEGER myThid |
./pkg/salt_plume/salt_plume_init_fixed.F |
29 |
SALT_PLUME_INIT_FIXED |
CALL SALT_PLUME_MNC_INIT( myThid ) |
./pkg/salt_plume/salt_plume_init_fixed.F |
35 |
SALT_PLUME_INIT_FIXED |
CALL SALT_PLUME_DIAGNOSTICS_INIT( myThid ) |
./pkg/salt_plume/salt_plume_init_fixed.F |
9 |
SALT_PLUME_INIT_FIXED |
SUBROUTINE SALT_PLUME_INIT_FIXED( myThid ) |
./pkg/salt_plume/salt_plume_init_varia.F |
22 |
SALT_PLUME_INIT_VARIA |
INTEGER myThid |
./pkg/salt_plume/salt_plume_init_varia.F |
30 |
SALT_PLUME_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/salt_plume/salt_plume_init_varia.F |
31 |
SALT_PLUME_INIT_VARIA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/salt_plume/salt_plume_init_varia.F |
9 |
SALT_PLUME_INIT_VARIA |
SUBROUTINE SALT_PLUME_INIT_VARIA( myThid ) |
./pkg/salt_plume/salt_plume_mnc_init.F |
22 |
SALT_PLUME_MNC_INIT |
INTEGER myThid |
./pkg/salt_plume/salt_plume_mnc_init.F |
31 |
SALT_PLUME_MNC_INIT |
& myThid) |
./pkg/salt_plume/salt_plume_mnc_init.F |
33 |
SALT_PLUME_MNC_INIT |
& 'psu.kg/m^2/s', myThid) |
./pkg/salt_plume/salt_plume_mnc_init.F |
35 |
SALT_PLUME_MNC_INIT |
& 'Net downward salt flux rejected during freezing', myThid) |
./pkg/salt_plume/salt_plume_mnc_init.F |
9 |
SALT_PLUME_MNC_INIT |
SUBROUTINE SALT_PLUME_MNC_INIT( myThid ) |
./pkg/salt_plume/salt_plume_readparms.F |
23 |
SALT_PLUME_READPARMS |
INTEGER myThid |
./pkg/salt_plume/salt_plume_readparms.F |
39 |
SALT_PLUME_READPARMS |
_BEGIN_MASTER(myThid) |
./pkg/salt_plume/salt_plume_readparms.F |
55 |
SALT_PLUME_READPARMS |
I myThid ) |
./pkg/salt_plume/salt_plume_readparms.F |
73 |
SALT_PLUME_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/salt_plume/salt_plume_readparms.F |
75 |
SALT_PLUME_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/salt_plume/salt_plume_readparms.F |
80 |
SALT_PLUME_READPARMS |
_END_MASTER(myThid) |
./pkg/salt_plume/salt_plume_readparms.F |
9 |
SALT_PLUME_READPARMS |
SUBROUTINE SALT_PLUME_READPARMS( myThid ) |
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
11 |
SALT_PLUME_TENDENCY_APPLY_S |
& bi,bj,kLev,myTime,myThid) |
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
30 |
SALT_PLUME_TENDENCY_APPLY_S |
integer iMin, iMax, jMin, jMax, kLev, bi, bj, myThid |
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
54 |
SALT_PLUME_TENDENCY_APPLY_S |
I myTime, 1, myThid ) |
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
73 |
SALT_PLUME_TENDENCY_APPLY_S |
& plumefrac,'PLUMEKB ',kLev,1,2,bi,bj,myThid ) |
./model/src/do_gterm_blocking_exchanges.F |
10 |
DO_GTERM_BLOCKING_EXCHANGES |
SUBROUTINE DO_GTERM_BLOCKING_EXCHANGES(myThid) |
./model/src/do_gterm_blocking_exchanges.F |
31 |
DO_GTERM_BLOCKING_EXCHANGES |
INTEGER myThid |
./model/src/do_gterm_blocking_exchanges.F |
47 |
DO_GTERM_BLOCKING_EXCHANGES |
CALL EXCH_UV_XYZ_RL(guNm1,gvNm1,.TRUE.,myThid) |
./model/src/do_gterm_blocking_exchanges.F |
50 |
DO_GTERM_BLOCKING_EXCHANGES |
_EXCH_XYZ_RL( gtNm1 , myThid ) |
./model/src/do_gterm_blocking_exchanges.F |
51 |
DO_GTERM_BLOCKING_EXCHANGES |
_EXCH_XYZ_RL( gsNm1 , myThid ) |
./model/src/do_gterm_blocking_exchanges.F |
60 |
DO_GTERM_BLOCKING_EXCHANGES |
CALL PTRACERS_GTERM_BLOCKING_EXCH(myThid) |
./pkg/sbo/sbo_calc.F |
10 |
SBO_CALC |
SUBROUTINE SBO_CALC( myTime, myIter, myThid ) |
./pkg/sbo/sbo_calc.F |
131 |
SBO_CALC |
INTEGER myIter, myThid |
./pkg/sbo/sbo_calc.F |
185 |
SBO_CALC |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/sbo/sbo_calc.F |
186 |
SBO_CALC |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/sbo/sbo_calc.F |
197 |
SBO_CALC |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/sbo/sbo_calc.F |
198 |
SBO_CALC |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/sbo/sbo_calc.F |
207 |
SBO_CALC |
I kn0, bi, bj, myThid ) |
./pkg/sbo/sbo_calc.F |
311 |
SBO_CALC |
_GLOBAL_SUM_RL( mass , myThid ) |
./pkg/sbo/sbo_calc.F |
312 |
SBO_CALC |
_GLOBAL_SUM_RL( xcom , myThid ) |
./pkg/sbo/sbo_calc.F |
313 |
SBO_CALC |
_GLOBAL_SUM_RL( ycom , myThid ) |
./pkg/sbo/sbo_calc.F |
314 |
SBO_CALC |
_GLOBAL_SUM_RL( zcom , myThid ) |
./pkg/sbo/sbo_calc.F |
315 |
SBO_CALC |
_GLOBAL_SUM_RL( xoamc , myThid ) |
./pkg/sbo/sbo_calc.F |
316 |
SBO_CALC |
_GLOBAL_SUM_RL( yoamc , myThid ) |
./pkg/sbo/sbo_calc.F |
317 |
SBO_CALC |
_GLOBAL_SUM_RL( zoamc , myThid ) |
./pkg/sbo/sbo_calc.F |
318 |
SBO_CALC |
_GLOBAL_SUM_RL( xoamp , myThid ) |
./pkg/sbo/sbo_calc.F |
319 |
SBO_CALC |
_GLOBAL_SUM_RL( yoamp , myThid ) |
./pkg/sbo/sbo_calc.F |
320 |
SBO_CALC |
_GLOBAL_SUM_RL( zoamp , myThid ) |
./pkg/sbo/sbo_calc.F |
322 |
SBO_CALC |
_GLOBAL_SUM_RL( sbobp, myThid ) |
./pkg/sbo/sbo_calc.F |
323 |
SBO_CALC |
_GLOBAL_SUM_RL( sboarea, myThid ) |
./pkg/sbo/sbo_calc.F |
324 |
SBO_CALC |
_GLOBAL_SUM_RL( sboempmrwet, myThid ) |
./pkg/sbo/sbo_calc.F |
325 |
SBO_CALC |
_GLOBAL_SUM_RL( sboqnetwet, myThid ) |
./pkg/sbo/sbo_check.F |
21 |
SBO_CHECK |
INTEGER myThid |
./pkg/sbo/sbo_check.F |
31 |
SBO_CHECK |
& SQUEEZE_RIGHT , myThid ) |
./pkg/sbo/sbo_check.F |
6 |
SBO_CHECK |
SUBROUTINE SBO_CHECK( myThid ) |
./pkg/sbo/sbo_output.F |
104 |
SBO_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/sbo/sbo_output.F |
105 |
SBO_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/sbo/sbo_output.F |
106 |
SBO_OUTPUT |
CALL TIMEAVE_RESET( OBPtave, 1, bi, bj, myThid ) |
./pkg/sbo/sbo_output.F |
120 |
SBO_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/sbo/sbo_output.F |
121 |
SBO_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/sbo/sbo_output.F |
122 |
SBO_OUTPUT |
CALL TIMEAVE_CUMULATE( OBPtave, obp, 1, DDTT, bi,bj,myThid ) |
./pkg/sbo/sbo_output.F |
134 |
SBO_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/sbo/sbo_output.F |
135 |
SBO_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/sbo/sbo_output.F |
136 |
SBO_OUTPUT |
CALL TIMEAVE_NORMALIZE(OBPtave,sbo_timeAve,1,bi,bj,myThid) |
./pkg/sbo/sbo_output.F |
142 |
SBO_OUTPUT |
& OBPtave, myIter, myThid ) |
./pkg/sbo/sbo_output.F |
145 |
SBO_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/sbo/sbo_output.F |
146 |
SBO_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/sbo/sbo_output.F |
147 |
SBO_OUTPUT |
CALL TIMEAVE_RESET( OBPtave, 1, bi, bj, myThid ) |
./pkg/sbo/sbo_output.F |
154 |
SBO_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/sbo/sbo_output.F |
155 |
SBO_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/sbo/sbo_output.F |
156 |
SBO_OUTPUT |
CALL TIMEAVE_CUMULATE( OBPtave, obp, 1, DDTT,bi,bj,myThid ) |
./pkg/sbo/sbo_output.F |
25 |
SBO_OUTPUT |
INTEGER myThid |
./pkg/sbo/sbo_output.F |
6 |
SBO_OUTPUT |
SUBROUTINE SBO_OUTPUT( myTime, myIter, myThid ) |
./pkg/sbo/sbo_output.F |
91 |
SBO_OUTPUT |
I 0, 0, irecord, myIter, myThid ) |
./pkg/sbo/sbo_readparms.F |
21 |
SBO_READPARMS |
INTEGER myThid |
./pkg/sbo/sbo_readparms.F |
38 |
SBO_READPARMS |
_BEGIN_MASTER(myThid) |
./pkg/sbo/sbo_readparms.F |
42 |
SBO_READPARMS |
& SQUEEZE_RIGHT, myThid ) |
./pkg/sbo/sbo_readparms.F |
47 |
SBO_READPARMS |
I myThid ) |
./pkg/sbo/sbo_readparms.F |
6 |
SBO_READPARMS |
SUBROUTINE SBO_READPARMS( myThid ) |
./pkg/sbo/sbo_readparms.F |
77 |
SBO_READPARMS |
& SQUEEZE_RIGHT, myThid ) |
./pkg/sbo/sbo_readparms.F |
79 |
SBO_READPARMS |
_END_MASTER(myThid) |
./eesupp/src/bar2.F |
107 |
BAR2 |
BAR2_barrierCount(1,myThid) = BAR2_barrierCount(1,myThid)+1 |
./eesupp/src/bar2.F |
123 |
BAR2 |
IF ( myThid .NE. 1 ) THEN |
./eesupp/src/bar2.F |
125 |
BAR2 |
BAR2_level(1,myThid) = BAR2_level(1,myThid)+1 |
./eesupp/src/bar2.F |
126 |
BAR2 |
myLevel = BAR2_level(1,myThid) |
./eesupp/src/bar2.F |
150 |
BAR2 |
BAR2_barrierCount(1,myThid) = BAR2_barrierCount(1,myThid)+1 |
./eesupp/src/bar2.F |
151 |
BAR2 |
BAR2_spinsCount(1,myThid) = BAR2_spinsCount(1,myThid)+spinCount |
./eesupp/src/bar2.F |
152 |
BAR2 |
BAR2_spinsMax (1,myThid) = MAX(BAR2_spinsMax(1,myThid),spinCount) |
./eesupp/src/bar2.F |
153 |
BAR2 |
BAR2_spinsMin (1,myThid) = MIN(BAR2_spinsMin(1,myThid),spinCount) |
./eesupp/src/bar2.F |
32 |
BAR2_INIT |
INTEGER myThid |
./eesupp/src/bar2.F |
42 |
BAR2_INIT |
BAR2_level(I,myThid) = 0 |
./eesupp/src/bar2.F |
43 |
BAR2_INIT |
BAR2_barrierCount(I,myThid) = 0 |
./eesupp/src/bar2.F |
44 |
BAR2_INIT |
BAR2_spinsCount(I,myThid) = 0 |
./eesupp/src/bar2.F |
45 |
BAR2_INIT |
BAR2_spinsCount(I,myThid) = 0 |
./eesupp/src/bar2.F |
46 |
BAR2_INIT |
BAR2_spinsMax (I,myThid) = 0 |
./eesupp/src/bar2.F |
47 |
BAR2_INIT |
BAR2_spinsMin (I,myThid) = 1000000000 |
./eesupp/src/bar2.F |
60 |
BAR2 |
SUBROUTINE BAR2( myThid ) |
./eesupp/src/bar2.F |
89 |
BAR2 |
INTEGER myThid |
./eesupp/src/bar2.F |
9 |
BAR2_INIT |
SUBROUTINE BAR2_INIT( myThid ) |
./model/src/do_oceanic_phys.F |
121 |
DO_OCEANIC_PHYS |
IF (debugMode) CALL DEBUG_ENTER('DO_OCEANIC_PHYS',myThid) |
./model/src/do_oceanic_phys.F |
127 |
DO_OCEANIC_PHYS |
IF ( DIAGNOSTICS_IS_ON('WRHOMASS',myThid) ) |
./model/src/do_oceanic_phys.F |
129 |
DO_OCEANIC_PHYS |
IF ( DIAGNOSTICS_IS_ON('DRHODR ',myThid) ) |
./model/src/do_oceanic_phys.F |
131 |
DO_OCEANIC_PHYS |
IF ( DIAGNOSTICS_IS_ON('MXLDEPTH',myThid) ) |
./model/src/do_oceanic_phys.F |
137 |
DO_OCEANIC_PHYS |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/do_oceanic_phys.F |
138 |
DO_OCEANIC_PHYS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/do_oceanic_phys.F |
155 |
DO_OCEANIC_PHYS |
IF (debugMode) CALL DEBUG_CALL('OBCS_CALC',myThid) |
./model/src/do_oceanic_phys.F |
158 |
DO_OCEANIC_PHYS |
I uVel, vVel, wVel, theta, salt, myThid ) |
./model/src/do_oceanic_phys.F |
164 |
DO_OCEANIC_PHYS |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/do_oceanic_phys.F |
165 |
DO_OCEANIC_PHYS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/do_oceanic_phys.F |
22 |
DO_OCEANIC_PHYS |
SUBROUTINE DO_OCEANIC_PHYS(myTime, myIter, myThid) |
./model/src/do_oceanic_phys.F |
237 |
DO_OCEANIC_PHYS |
IF (debugMode) CALL DEBUG_CALL('SEAICE_MODEL',myThid) |
./model/src/do_oceanic_phys.F |
239 |
DO_OCEANIC_PHYS |
CALL TIMER_START('SEAICE_MODEL [DO_OCEANIC_PHYS]', myThid) |
./model/src/do_oceanic_phys.F |
240 |
DO_OCEANIC_PHYS |
CALL SEAICE_MODEL( myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
241 |
DO_OCEANIC_PHYS |
CALL TIMER_STOP ('SEAICE_MODEL [DO_OCEANIC_PHYS]', myThid) |
./model/src/do_oceanic_phys.F |
243 |
DO_OCEANIC_PHYS |
CALL SEAICE_COST_SENSI ( myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
262 |
DO_OCEANIC_PHYS |
IF (debugMode) CALL DEBUG_CALL('THSICE_MAIN',myThid) |
./model/src/do_oceanic_phys.F |
266 |
DO_OCEANIC_PHYS |
CALL TIMER_START('THSICE_MAIN [DO_OCEANIC_PHYS]', myThid) |
./model/src/do_oceanic_phys.F |
267 |
DO_OCEANIC_PHYS |
CALL THSICE_MAIN( myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
268 |
DO_OCEANIC_PHYS |
CALL TIMER_STOP( 'THSICE_MAIN [DO_OCEANIC_PHYS]', myThid) |
./model/src/do_oceanic_phys.F |
279 |
DO_OCEANIC_PHYS |
IF (debugMode) CALL DEBUG_CALL('SHELFICE_THERMODYNAMICS',myThid) |
./model/src/do_oceanic_phys.F |
284 |
DO_OCEANIC_PHYS |
& myThid) |
./model/src/do_oceanic_phys.F |
285 |
DO_OCEANIC_PHYS |
CALL SHELFICE_THERMODYNAMICS( myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
287 |
DO_OCEANIC_PHYS |
& myThid) |
./model/src/do_oceanic_phys.F |
294 |
DO_OCEANIC_PHYS |
IF (debugMode) CALL DEBUG_CALL('ICEFRONT_THERMODYNAMICS',myThid) |
./model/src/do_oceanic_phys.F |
299 |
DO_OCEANIC_PHYS |
& myThid) |
./model/src/do_oceanic_phys.F |
300 |
DO_OCEANIC_PHYS |
CALL ICEFRONT_THERMODYNAMICS( myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
302 |
DO_OCEANIC_PHYS |
& myThid) |
./model/src/do_oceanic_phys.F |
312 |
DO_OCEANIC_PHYS |
CALL FREEZE_SURFACE( myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
319 |
DO_OCEANIC_PHYS |
CALL OCN_APPLY_IMPORT( .TRUE., myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
327 |
DO_OCEANIC_PHYS |
& 'EmPmR', myTime, myThid ) |
./model/src/do_oceanic_phys.F |
330 |
DO_OCEANIC_PHYS |
& 'Qnet ', myTime, myThid ) |
./model/src/do_oceanic_phys.F |
337 |
DO_OCEANIC_PHYS |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/do_oceanic_phys.F |
342 |
DO_OCEANIC_PHYS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/do_oceanic_phys.F |
345 |
DO_OCEANIC_PHYS |
act1 = bi - myBxLo(myThid) |
./model/src/do_oceanic_phys.F |
346 |
DO_OCEANIC_PHYS |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
./model/src/do_oceanic_phys.F |
347 |
DO_OCEANIC_PHYS |
act2 = bj - myByLo(myThid) |
./model/src/do_oceanic_phys.F |
348 |
DO_OCEANIC_PHYS |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
./model/src/do_oceanic_phys.F |
349 |
DO_OCEANIC_PHYS |
act3 = myThid - 1 |
./model/src/do_oceanic_phys.F |
444 |
DO_OCEANIC_PHYS |
IF (debugMode) CALL DEBUG_MSG('ENTERING UPWARD K LOOP',myThid) |
./model/src/do_oceanic_phys.F |
461 |
DO_OCEANIC_PHYS |
IF (debugMode) CALL DEBUG_CALL('FIND_RHO_2D',myThid) |
./model/src/do_oceanic_phys.F |
475 |
DO_OCEANIC_PHYS |
I k, bi, bj, myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
483 |
DO_OCEANIC_PHYS |
I k, bi, bj, myThid ) |
./model/src/do_oceanic_phys.F |
516 |
DO_OCEANIC_PHYS |
I k-1, bi, bj, myThid ) |
./model/src/do_oceanic_phys.F |
519 |
DO_OCEANIC_PHYS |
IF (debugMode) CALL DEBUG_CALL('GRAD_SIGMA',myThid) |
./model/src/do_oceanic_phys.F |
531 |
DO_OCEANIC_PHYS |
I myThid ) |
./model/src/do_oceanic_phys.F |
536 |
DO_OCEANIC_PHYS |
CALL ZERO_ADJ_LOC( Nr, sigmaX, myThid) |
./model/src/do_oceanic_phys.F |
537 |
DO_OCEANIC_PHYS |
CALL ZERO_ADJ_LOC( Nr, sigmaY, myThid) |
./model/src/do_oceanic_phys.F |
538 |
DO_OCEANIC_PHYS |
CALL ZERO_ADJ_LOC( Nr, sigmaR, myThid) |
./model/src/do_oceanic_phys.F |
547 |
DO_OCEANIC_PHYS |
IF (debugMode) CALL DEBUG_CALL('CALC_IVDC',myThid) |
./model/src/do_oceanic_phys.F |
552 |
DO_OCEANIC_PHYS |
I myTime, myIter, myThid) |
./model/src/do_oceanic_phys.F |
560 |
DO_OCEANIC_PHYS |
I myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
577 |
DO_OCEANIC_PHYS |
I bi, bj, myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
584 |
DO_OCEANIC_PHYS |
I bi, bj, myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
591 |
DO_OCEANIC_PHYS |
& 2, bi, bj, myThid) |
./model/src/do_oceanic_phys.F |
598 |
DO_OCEANIC_PHYS |
IF (debugMode) CALL DEBUG_CALL('EXTERNAL_FORCING_SURF',myThid) |
./model/src/do_oceanic_phys.F |
620 |
DO_OCEANIC_PHYS |
I myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
653 |
DO_OCEANIC_PHYS |
IF (debugMode) CALL DEBUG_CALL('KPP_CALC',myThid) |
./model/src/do_oceanic_phys.F |
655 |
DO_OCEANIC_PHYS |
CALL TIMER_START('KPP_CALC [DO_OCEANIC_PHYS]', myThid) |
./model/src/do_oceanic_phys.F |
657 |
DO_OCEANIC_PHYS |
I bi, bj, myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
658 |
DO_OCEANIC_PHYS |
CALL TIMER_STOP ('KPP_CALC [DO_OCEANIC_PHYS]', myThid) |
./model/src/do_oceanic_phys.F |
662 |
DO_OCEANIC_PHYS |
I bi, bj, myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
672 |
DO_OCEANIC_PHYS |
IF (debugMode) CALL DEBUG_CALL('PP81_CALC',myThid) |
./model/src/do_oceanic_phys.F |
675 |
DO_OCEANIC_PHYS |
I bi, bj, myTime, myThid ) |
./model/src/do_oceanic_phys.F |
683 |
DO_OCEANIC_PHYS |
IF (debugMode) CALL DEBUG_CALL('MY82_CALC',myThid) |
./model/src/do_oceanic_phys.F |
686 |
DO_OCEANIC_PHYS |
I bi, bj, myTime, myThid ) |
./model/src/do_oceanic_phys.F |
698 |
DO_OCEANIC_PHYS |
IF (debugMode) CALL DEBUG_CALL('GGL90_CALC',myThid) |
./model/src/do_oceanic_phys.F |
700 |
DO_OCEANIC_PHYS |
CALL TIMER_START('GGL90_CALC [DO_OCEANIC_PHYS]', myThid) |
./model/src/do_oceanic_phys.F |
702 |
DO_OCEANIC_PHYS |
I bi, bj, myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
703 |
DO_OCEANIC_PHYS |
CALL TIMER_STOP ('GGL90_CALC [DO_OCEANIC_PHYS]', myThid) |
./model/src/do_oceanic_phys.F |
709 |
DO_OCEANIC_PHYS |
CALL TIMEAVE_SURF_FLUX( bi, bj, myTime, myIter, myThid) |
./model/src/do_oceanic_phys.F |
713 |
DO_OCEANIC_PHYS |
I Nr, deltaTclock, bi, bj, myThid) |
./model/src/do_oceanic_phys.F |
736 |
DO_OCEANIC_PHYS |
IF (debugMode) CALL DEBUG_CALL('GMREDI_CALC_TENSOR',myThid) |
./model/src/do_oceanic_phys.F |
741 |
DO_OCEANIC_PHYS |
I bi, bj, myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
747 |
DO_OCEANIC_PHYS |
I bi, bj, myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
758 |
DO_OCEANIC_PHYS |
I myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
762 |
DO_OCEANIC_PHYS |
I myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
770 |
DO_OCEANIC_PHYS |
I bi, bj, myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
785 |
DO_OCEANIC_PHYS |
CALL KPP_DO_EXCH( myThid ) |
./model/src/do_oceanic_phys.F |
793 |
DO_OCEANIC_PHYS |
I myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
794 |
DO_OCEANIC_PHYS |
CALL DIAGS_OCEANIC_SURF_FLUX( myTime, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
798 |
DO_OCEANIC_PHYS |
& 0, Nr, 0, 1, 1, myThid ) |
./model/src/do_oceanic_phys.F |
803 |
DO_OCEANIC_PHYS |
IF (debugMode) CALL DEBUG_LEAVE('DO_OCEANIC_PHYS',myThid) |
./model/src/do_oceanic_phys.F |
89 |
DO_OCEANIC_PHYS |
INTEGER myThid |
./pkg/seaice/advect.F |
100 |
ADVECT |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/advect.F |
101 |
ADVECT |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/advect.F |
127 |
ADVECT |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/advect.F |
128 |
ADVECT |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/advect.F |
151 |
ADVECT |
CALL EXCH_XY_RL( fld, myThid ) |
./pkg/seaice/advect.F |
157 |
ADVECT |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/advect.F |
158 |
ADVECT |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/advect.F |
173 |
ADVECT |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/advect.F |
174 |
ADVECT |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/advect.F |
185 |
ADVECT |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/advect.F |
186 |
ADVECT |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/advect.F |
196 |
ADVECT |
CALL DIFFUS(tmpFld,DIFFA,iceMsk,DELTT, myThid) |
./pkg/seaice/advect.F |
198 |
ADVECT |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/advect.F |
199 |
ADVECT |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/advect.F |
33 |
ADVECT |
INTEGER myThid |
./pkg/seaice/advect.F |
49 |
ADVECT |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/advect.F |
50 |
ADVECT |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/advect.F |
73 |
ADVECT |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/advect.F |
74 |
ADVECT |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/advect.F |
7 |
ADVECT |
SUBROUTINE ADVECT( UI,VI,fld,fldNm1,iceMsk,myThid ) |
./pkg/seaice/cost_ice_test.F |
109 |
COST_ICE_TEST |
do bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/cost_ice_test.F |
110 |
COST_ICE_TEST |
do bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/cost_ice_test.F |
143 |
COST_ICE_TEST |
do bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/cost_ice_test.F |
144 |
COST_ICE_TEST |
do bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/cost_ice_test.F |
159 |
COST_ICE_TEST |
do bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/cost_ice_test.F |
160 |
COST_ICE_TEST |
do bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/cost_ice_test.F |
174 |
COST_ICE_TEST |
do bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/cost_ice_test.F |
175 |
COST_ICE_TEST |
do bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/cost_ice_test.F |
196 |
COST_ICE_TEST |
do bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/cost_ice_test.F |
197 |
COST_ICE_TEST |
do bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/cost_ice_test.F |
212 |
COST_ICE_TEST |
& SQUEEZE_RIGHT , myThid ) |
./pkg/seaice/cost_ice_test.F |
96 |
COST_ICE_TEST |
do bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/cost_ice_test.F |
97 |
COST_ICE_TEST |
do bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/diffus.F |
109 |
DIFFUS |
_EXCH_XY_RL(iceFld, myThid) |
./pkg/seaice/diffus.F |
111 |
DIFFUS |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/diffus.F |
112 |
DIFFUS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/diffus.F |
28 |
DIFFUS |
INTEGER myThid |
./pkg/seaice/diffus.F |
42 |
DIFFUS |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/diffus.F |
43 |
DIFFUS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/diffus.F |
7 |
DIFFUS |
SUBROUTINE DIFFUS( fld, DIFFA, iceMsk, DELTT, myThid ) |
./pkg/seaice/dynsolver.F |
113 |
DYNSOLVER |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/dynsolver.F |
114 |
DYNSOLVER |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/dynsolver.F |
156 |
DYNSOLVER |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/dynsolver.F |
157 |
DYNSOLVER |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/dynsolver.F |
246 |
DYNSOLVER |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/dynsolver.F |
247 |
DYNSOLVER |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/dynsolver.F |
259 |
DYNSOLVER |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/dynsolver.F |
260 |
DYNSOLVER |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/dynsolver.F |
307 |
DYNSOLVER |
_EXCH_XY_RL(ETA, myThid) |
./pkg/seaice/dynsolver.F |
308 |
DYNSOLVER |
_EXCH_XY_RL(ZETA, myThid) |
./pkg/seaice/dynsolver.F |
309 |
DYNSOLVER |
_EXCH_XY_RL(PRESS, myThid) |
./pkg/seaice/dynsolver.F |
311 |
DYNSOLVER |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/dynsolver.F |
312 |
DYNSOLVER |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/dynsolver.F |
360 |
DYNSOLVER |
CALL LSR( 1, myThid ) |
./pkg/seaice/dynsolver.F |
365 |
DYNSOLVER |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/dynsolver.F |
366 |
DYNSOLVER |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/dynsolver.F |
378 |
DYNSOLVER |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/dynsolver.F |
379 |
DYNSOLVER |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/dynsolver.F |
39 |
DYNSOLVER |
INTEGER myThid |
./pkg/seaice/dynsolver.F |
426 |
DYNSOLVER |
_EXCH_XY_RL(ETA, myThid) |
./pkg/seaice/dynsolver.F |
427 |
DYNSOLVER |
_EXCH_XY_RL(ZETA, myThid) |
./pkg/seaice/dynsolver.F |
428 |
DYNSOLVER |
_EXCH_XY_RL(PRESS, myThid) |
./pkg/seaice/dynsolver.F |
430 |
DYNSOLVER |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/dynsolver.F |
431 |
DYNSOLVER |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/dynsolver.F |
477 |
DYNSOLVER |
CALL LSR( 2, myThid ) |
./pkg/seaice/dynsolver.F |
486 |
DYNSOLVER |
CALL DIAGNOSTICS_FILL(zeta ,'SIzeta ',0,1 ,0,1,1,myThid) |
./pkg/seaice/dynsolver.F |
487 |
DYNSOLVER |
CALL DIAGNOSTICS_FILL(eta ,'SIeta ',0,1 ,0,1,1,myThid) |
./pkg/seaice/dynsolver.F |
488 |
DYNSOLVER |
CALL DIAGNOSTICS_FILL(press ,'SIpress ',0,1 ,0,1,1,myThid) |
./pkg/seaice/dynsolver.F |
493 |
DYNSOLVER |
CALL OSTRES ( COR_ICE, myThid ) |
./pkg/seaice/dynsolver.F |
505 |
DYNSOLVER |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/dynsolver.F |
506 |
DYNSOLVER |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/dynsolver.F |
527 |
DYNSOLVER |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/dynsolver.F |
528 |
DYNSOLVER |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/dynsolver.F |
75 |
DYNSOLVER |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/dynsolver.F |
76 |
DYNSOLVER |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/dynsolver.F |
7 |
DYNSOLVER |
SUBROUTINE DYNSOLVER( myTime, myIter, myThid ) |
./pkg/seaice/dynsolver.F |
96 |
DYNSOLVER |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/dynsolver.F |
97 |
DYNSOLVER |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/lsr.F |
113 |
LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/lsr.F |
114 |
LSR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/lsr.F |
11 |
LSR |
SUBROUTINE LSR( ilcall, myThid ) |
./pkg/seaice/lsr.F |
140 |
LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/lsr.F |
141 |
LSR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/lsr.F |
277 |
LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/lsr.F |
278 |
LSR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/lsr.F |
334 |
LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/lsr.F |
335 |
LSR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/lsr.F |
345 |
LSR |
_GLOBAL_MAX_RL( S1, myThid ) |
./pkg/seaice/lsr.F |
354 |
LSR |
_EXCH_XY_RL( UICE, myThid ) |
./pkg/seaice/lsr.F |
361 |
LSR |
_BEGIN_MASTER( myThid ) |
./pkg/seaice/lsr.F |
363 |
LSR |
_END_MASTER( myThid ) |
./pkg/seaice/lsr.F |
367 |
LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/lsr.F |
368 |
LSR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/lsr.F |
39 |
LSR |
INTEGER myThid |
./pkg/seaice/lsr.F |
512 |
LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/lsr.F |
513 |
LSR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/lsr.F |
582 |
LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/lsr.F |
583 |
LSR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/lsr.F |
593 |
LSR |
_GLOBAL_MAX_RL( S2, myThid ) |
./pkg/seaice/lsr.F |
603 |
LSR |
_EXCH_XY_RL( VICE, myThid ) |
./pkg/seaice/lsr.F |
610 |
LSR |
_BEGIN_MASTER( myThid ) |
./pkg/seaice/lsr.F |
612 |
LSR |
_END_MASTER( myThid ) |
./pkg/seaice/lsr.F |
617 |
LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/lsr.F |
618 |
LSR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/lsr.F |
627 |
LSR |
CALL EXCH_UV_XY_RL( UICE, VICE,.TRUE.,myThid) |
./pkg/seaice/ostres.F |
26 |
OSTRES |
INTEGER myThid |
./pkg/seaice/ostres.F |
46 |
OSTRES |
CALL EXCH_UV_XY_RL(WINDX, WINDY, .TRUE., myThid) |
./pkg/seaice/ostres.F |
51 |
OSTRES |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/ostres.F |
52 |
OSTRES |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/ostres.F |
63 |
OSTRES |
CALL EXCH_UV_XY_RS(fu, fv, .TRUE., myThid) |
./pkg/seaice/ostres.F |
68 |
OSTRES |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/ostres.F |
69 |
OSTRES |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/ostres.F |
7 |
OSTRES |
SUBROUTINE OSTRES( COR_ICE, myThid ) |
./pkg/seaice/ostres.F |
96 |
OSTRES |
CALL EXCH_UV_XY_RS(fu, fv, .TRUE., myThid) |
./model/src/do_stagger_fields_exchanges.F |
32 |
DO_STAGGER_FIELDS_EXCHANGES |
INTEGER myThid |
./model/src/do_stagger_fields_exchanges.F |
36 |
DO_STAGGER_FIELDS_EXCHANGES |
CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid) |
./model/src/do_stagger_fields_exchanges.F |
38 |
DO_STAGGER_FIELDS_EXCHANGES |
& _EXCH_XYZ_RL( wVel , myThid ) |
./model/src/do_stagger_fields_exchanges.F |
42 |
DO_STAGGER_FIELDS_EXCHANGES |
_EXCH_XYZ_RL( gT , myThid ) |
./model/src/do_stagger_fields_exchanges.F |
43 |
DO_STAGGER_FIELDS_EXCHANGES |
_EXCH_XYZ_RL( gS , myThid ) |
./model/src/do_stagger_fields_exchanges.F |
9 |
DO_STAGGER_FIELDS_EXCHANGES |
SUBROUTINE DO_STAGGER_FIELDS_EXCHANGES(myTime, myIter, myThid) |
./pkg/seaice/seaice_ad_dump.F |
100 |
SEAICE_AD_DUMP |
& 1, aduice, 1, myIter, myThid ) |
./pkg/seaice/seaice_ad_dump.F |
103 |
SEAICE_AD_DUMP |
& 1, advice, 1, myIter, myThid ) |
./pkg/seaice/seaice_ad_dump.F |
110 |
SEAICE_AD_DUMP |
CALL MNC_CW_SET_UDIM('adseaice', -1, myThid) |
./pkg/seaice/seaice_ad_dump.F |
111 |
SEAICE_AD_DUMP |
CALL MNC_CW_RL_W_S('D','adseaice',0,0,'T',myTime,myThid) |
./pkg/seaice/seaice_ad_dump.F |
112 |
SEAICE_AD_DUMP |
CALL MNC_CW_SET_UDIM('adseaice', 0, myThid) |
./pkg/seaice/seaice_ad_dump.F |
113 |
SEAICE_AD_DUMP |
CALL MNC_CW_I_W_S('I','adseaice',0,0,'iter',myIter,myThid) |
./pkg/seaice/seaice_ad_dump.F |
115 |
SEAICE_AD_DUMP |
& myThid) |
./pkg/seaice/seaice_ad_dump.F |
118 |
SEAICE_AD_DUMP |
& adarea, myThid) |
./pkg/seaice/seaice_ad_dump.F |
11 |
SEAICE_AD_DUMP |
subroutine SEAICE_AD_DUMP( mytime, myiter, myThid ) |
./pkg/seaice/seaice_ad_dump.F |
120 |
SEAICE_AD_DUMP |
& adheff, myThid) |
./pkg/seaice/seaice_ad_dump.F |
122 |
SEAICE_AD_DUMP |
& adhsnow, myThid) |
./pkg/seaice/seaice_ad_dump.F |
126 |
SEAICE_AD_DUMP |
& aduice, myThid) |
./pkg/seaice/seaice_ad_dump.F |
128 |
SEAICE_AD_DUMP |
& advice, myThid) |
./pkg/seaice/seaice_ad_dump.F |
137 |
SEAICE_AD_DUMP |
CALL TIMER_STOP( 'I/O (WRITE) [ADJOINT LOOP]', myThid ) |
./pkg/seaice/seaice_ad_dump.F |
53 |
SEAICE_AD_DUMP |
integer myThid |
./pkg/seaice/seaice_ad_dump.F |
74 |
SEAICE_AD_DUMP |
call TIMER_START('I/O (WRITE) [ADJOINT LOOP]', myThid ) |
./pkg/seaice/seaice_ad_dump.F |
85 |
SEAICE_AD_DUMP |
beginIOErrCount = IO_ERRCOUNT(myThid) |
./pkg/seaice/seaice_ad_dump.F |
89 |
SEAICE_AD_DUMP |
& 1, adarea, 1, myIter, myThid ) |
./pkg/seaice/seaice_ad_dump.F |
92 |
SEAICE_AD_DUMP |
& 1, adheff, 1, myIter, myThid ) |
./pkg/seaice/seaice_ad_dump.F |
95 |
SEAICE_AD_DUMP |
& 1, adhsnow, 1, myIter, myThid ) |
./pkg/seaice/seaice_advdiff.F |
112 |
SEAICE_ADVDIFF |
CALL EXCH_UV_XY_RL(uc,vc,.TRUE.,myThid) |
./pkg/seaice/seaice_advdiff.F |
11 |
SEAICE_ADVDIFF |
I myTime, myIter, myThid ) |
./pkg/seaice/seaice_advdiff.F |
149 |
SEAICE_ADVDIFF |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_advdiff.F |
150 |
SEAICE_ADVDIFF |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_advdiff.F |
193 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_advdiff.F |
200 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_advdiff.F |
219 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_advdiff.F |
226 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_advdiff.F |
245 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_advdiff.F |
252 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_advdiff.F |
272 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_advdiff.F |
279 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_advdiff.F |
300 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_advdiff.F |
307 |
SEAICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_advdiff.F |
333 |
SEAICE_ADVDIFF |
CALL ADVECT( uc, vc, hEff, hEffNm1, HEFFM, myThid ) |
./pkg/seaice/seaice_advdiff.F |
336 |
SEAICE_ADVDIFF |
CALL ADVECT( uc, vc, area, areaNm1, HEFFM, myThid ) |
./pkg/seaice/seaice_advdiff.F |
339 |
SEAICE_ADVDIFF |
CALL ADVECT( uc, vc, HSNOW, fldNm1, HEFFM, myThid ) |
./pkg/seaice/seaice_advdiff.F |
344 |
SEAICE_ADVDIFF |
CALL ADVECT( uc, vc, HSALT, fldNm1, HEFFM, myThid ) |
./pkg/seaice/seaice_advdiff.F |
350 |
SEAICE_ADVDIFF |
CALL ADVECT( uc, vc, iceAge, fldNm1, HEFFM, myThid ) |
./pkg/seaice/seaice_advdiff.F |
364 |
SEAICE_ADVDIFF |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_advdiff.F |
365 |
SEAICE_ADVDIFF |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_advdiff.F |
381 |
SEAICE_ADVDIFF |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_advdiff.F |
382 |
SEAICE_ADVDIFF |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_advdiff.F |
48 |
SEAICE_ADVDIFF |
INTEGER myThid |
./pkg/seaice/seaice_advdiff.F |
89 |
SEAICE_ADVDIFF |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_advdiff.F |
90 |
SEAICE_ADVDIFF |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_advection.F |
146 |
SEAICE_ADVECTION |
act1 = bi - myBxLo(myThid) |
./pkg/seaice/seaice_advection.F |
147 |
SEAICE_ADVECTION |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
./pkg/seaice/seaice_advection.F |
148 |
SEAICE_ADVECTION |
act2 = bj - myByLo(myThid) |
./pkg/seaice/seaice_advection.F |
149 |
SEAICE_ADVECTION |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
./pkg/seaice/seaice_advection.F |
150 |
SEAICE_ADVECTION |
act3 = myThid - 1 |
./pkg/seaice/seaice_advection.F |
167 |
SEAICE_ADVECTION |
diagSufx = SEAICE_DIAG_SUFX( tracerIdentity, myThid ) |
./pkg/seaice/seaice_advection.F |
19 |
SEAICE_ADVECTION |
I bi, bj, myTime, myIter, myThid) |
./pkg/seaice/seaice_advection.F |
258 |
SEAICE_ADVECTION |
& withSigns, maskLocW,maskLocS, bi,bj, myThid ) |
./pkg/seaice/seaice_advection.F |
329 |
SEAICE_ADVECTION |
& localTij, bi,bj, myThid ) |
./pkg/seaice/seaice_advection.F |
344 |
SEAICE_ADVECTION |
O af, myThid ) |
./pkg/seaice/seaice_advection.F |
354 |
SEAICE_ADVECTION |
O af, myThid ) |
./pkg/seaice/seaice_advection.F |
358 |
SEAICE_ADVECTION |
O af, myThid ) |
./pkg/seaice/seaice_advection.F |
362 |
SEAICE_ADVECTION |
O af, myThid ) |
./pkg/seaice/seaice_advection.F |
367 |
SEAICE_ADVECTION |
O af, myThid ) |
./pkg/seaice/seaice_advection.F |
381 |
SEAICE_ADVECTION |
& localTij, bi,bj, myThid ) |
./pkg/seaice/seaice_advection.F |
528 |
SEAICE_ADVECTION |
& localTij, bi,bj, myThid ) |
./pkg/seaice/seaice_advection.F |
543 |
SEAICE_ADVECTION |
O af, myThid ) |
./pkg/seaice/seaice_advection.F |
553 |
SEAICE_ADVECTION |
O af, myThid ) |
./pkg/seaice/seaice_advection.F |
557 |
SEAICE_ADVECTION |
O af, myThid ) |
./pkg/seaice/seaice_advection.F |
561 |
SEAICE_ADVECTION |
O af, myThid ) |
./pkg/seaice/seaice_advection.F |
566 |
SEAICE_ADVECTION |
O af, myThid ) |
./pkg/seaice/seaice_advection.F |
580 |
SEAICE_ADVECTION |
& localTij, bi,bj, myThid ) |
./pkg/seaice/seaice_advection.F |
717 |
SEAICE_ADVECTION |
CALL DIAGNOSTICS_FILL(afx,diagName, k,1, 2,bi,bj, myThid) |
./pkg/seaice/seaice_advection.F |
719 |
SEAICE_ADVECTION |
CALL DIAGNOSTICS_FILL(afy,diagName, k,1, 2,bi,bj, myThid) |
./pkg/seaice/seaice_advection.F |
730 |
SEAICE_ADVECTION |
& afx,afy, k, standardMessageUnit,bi,bj,myThid ) |
./pkg/seaice/seaice_advection.F |
89 |
SEAICE_ADVECTION |
INTEGER myThid |
./pkg/seaice/seaice_budget_ocean.F |
11 |
SEAICE_BUDGET_OCEAN |
I bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_budget_ocean.F |
48 |
SEAICE_BUDGET_OCEAN |
INTEGER bi, bj, myIter, myThid |
./pkg/seaice/seaice_budget_ocean_if.F |
11 |
SEAICE_BUDGET_OCEAN_IF |
I bi, bj, myThid ) |
./pkg/seaice/seaice_budget_ocean_if.F |
49 |
SEAICE_BUDGET_OCEAN_IF |
INTEGER bi, bj, myThid |
./pkg/seaice/seaice_calc_strainrates.F |
10 |
SEAICE_CALC_STRAINRATES |
I iStep, myTime, myIter, myThid ) |
./pkg/seaice/seaice_calc_strainrates.F |
141 |
SEAICE_CALC_STRAINRATES |
CALL ZERO_ADJ( 1, e11Loc, myThid) |
./pkg/seaice/seaice_calc_strainrates.F |
142 |
SEAICE_CALC_STRAINRATES |
CALL ZERO_ADJ( 1, e12Loc, myThid) |
./pkg/seaice/seaice_calc_strainrates.F |
143 |
SEAICE_CALC_STRAINRATES |
CALL ZERO_ADJ( 1, e22Loc, myThid) |
./pkg/seaice/seaice_calc_strainrates.F |
39 |
SEAICE_CALC_STRAINRATES |
INTEGER myThid |
./pkg/seaice/seaice_calc_strainrates.F |
70 |
SEAICE_CALC_STRAINRATES |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_calc_strainrates.F |
71 |
SEAICE_CALC_STRAINRATES |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_calc_viscosities.F |
10 |
SEAICE_CALC_VISCOSITIES |
I iStep, myTime, myIter, myThid ) |
./pkg/seaice/seaice_calc_viscosities.F |
40 |
SEAICE_CALC_VISCOSITIES |
INTEGER myThid |
./pkg/seaice/seaice_calc_viscosities.F |
74 |
SEAICE_CALC_VISCOSITIES |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_calc_viscosities.F |
75 |
SEAICE_CALC_VISCOSITIES |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/do_statevars_diags.F |
107 |
DO_STATEVARS_DIAGS |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/do_statevars_diags.F |
108 |
DO_STATEVARS_DIAGS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/do_statevars_diags.F |
109 |
DO_STATEVARS_DIAGS |
CALL LAND_DIAGNOSTICS_STATE( myTime,myIter, bi,bj, myThid ) |
./model/src/do_statevars_diags.F |
117 |
DO_STATEVARS_DIAGS |
CALL MYPACKAGE_DIAGNOSTICS_STATE( myTime, myIter, myThid ) |
./model/src/do_statevars_diags.F |
11 |
DO_STATEVARS_DIAGS |
SUBROUTINE DO_STATEVARS_DIAGS( myTime, seqFlag, myIter, myThid ) |
./model/src/do_statevars_diags.F |
43 |
DO_STATEVARS_DIAGS |
INTEGER myThid |
./model/src/do_statevars_diags.F |
74 |
DO_STATEVARS_DIAGS |
CALL DIAGNOSTICS_FILL_STATE(selectVars, myThid) |
./model/src/do_statevars_diags.F |
78 |
DO_STATEVARS_DIAGS |
CALL GAD_DIAGNOSTICS_STATE( myTime, myIter, myThid ) |
./model/src/do_statevars_diags.F |
85 |
DO_STATEVARS_DIAGS |
CALL PTRACERS_DIAGNOSTICS_STATE( myTime, myIter, myThid ) |
./model/src/do_statevars_diags.F |
91 |
DO_STATEVARS_DIAGS |
CALL SEAICE_DIAGNOSTICS_STATE( myTime, myIter, myThid ) |
./model/src/do_statevars_diags.F |
97 |
DO_STATEVARS_DIAGS |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/do_statevars_diags.F |
98 |
DO_STATEVARS_DIAGS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/do_statevars_diags.F |
99 |
DO_STATEVARS_DIAGS |
CALL THSICE_DIAGNOSTICS_STATE( myTime,myIter,bi,bj,myThid ) |
./pkg/seaice/seaice_check.F |
101 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
104 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
108 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
113 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
118 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
123 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
128 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
151 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
155 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
160 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
165 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
170 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
175 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
186 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
190 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
196 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
199 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
208 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
211 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
220 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
229 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
232 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
239 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
242 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
250 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
256 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
262 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
268 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
274 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
27 |
SEAICE_CHECK |
INTEGER myThid |
./pkg/seaice/seaice_check.F |
280 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
286 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
295 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/seaice/seaice_check.F |
304 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
308 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
315 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/seaice/seaice_check.F |
318 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/seaice/seaice_check.F |
326 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/seaice/seaice_check.F |
329 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/seaice/seaice_check.F |
338 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/seaice/seaice_check.F |
341 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/seaice/seaice_check.F |
352 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/seaice/seaice_check.F |
355 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/seaice/seaice_check.F |
35 |
SEAICE_CHECK |
_BEGIN_MASTER(myThid) |
./pkg/seaice/seaice_check.F |
363 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
366 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
375 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
378 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
381 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
391 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
396 |
SEAICE_CHECK |
_END_MASTER(myThid) |
./pkg/seaice/seaice_check.F |
40 |
SEAICE_CHECK |
& SQUEEZE_RIGHT , myThid ) |
./pkg/seaice/seaice_check.F |
46 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
6 |
SEAICE_CHECK |
SUBROUTINE SEAICE_CHECK( myThid ) |
./pkg/seaice/seaice_check.F |
96 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check_pickup.F |
112 |
SEAICE_CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/seaice/seaice_check_pickup.F |
125 |
SEAICE_CHECK_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check_pickup.F |
12 |
SEAICE_CHECK_PICKUP |
I myIter, myThid ) |
./pkg/seaice/seaice_check_pickup.F |
131 |
SEAICE_CHECK_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check_pickup.F |
142 |
SEAICE_CHECK_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check_pickup.F |
147 |
SEAICE_CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/seaice/seaice_check_pickup.F |
40 |
SEAICE_CHECK_PICKUP |
INTEGER myThid |
./pkg/seaice/seaice_check_pickup.F |
80 |
SEAICE_CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/seaice/seaice_check_pickup.F |
88 |
SEAICE_CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/seaice/seaice_check_pickup.F |
90 |
SEAICE_CHECK_PICKUP |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_check_pickup.F |
91 |
SEAICE_CHECK_PICKUP |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_cost_accumulate_mean.F |
31 |
SEAICE_COST_ACCUMULATE_MEAN |
INTEGER myThid |
./pkg/seaice/seaice_cost_accumulate_mean.F |
40 |
SEAICE_COST_ACCUMULATE_MEAN |
jtlo = myByLo(myThid) |
./pkg/seaice/seaice_cost_accumulate_mean.F |
41 |
SEAICE_COST_ACCUMULATE_MEAN |
jthi = myByHi(myThid) |
./pkg/seaice/seaice_cost_accumulate_mean.F |
42 |
SEAICE_COST_ACCUMULATE_MEAN |
itlo = myBxLo(myThid) |
./pkg/seaice/seaice_cost_accumulate_mean.F |
43 |
SEAICE_COST_ACCUMULATE_MEAN |
ithi = myBxHi(myThid) |
./pkg/seaice/seaice_cost_accumulate_mean.F |
7 |
SEAICE_COST_ACCUMULATE_MEAN |
& myTime, myIter, myThid ) |
./pkg/seaice/seaice_cost_export.F |
24 |
SEAICE_COST_EXPORT |
integer myThid |
./pkg/seaice/seaice_cost_export.F |
44 |
SEAICE_COST_EXPORT |
do bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_cost_export.F |
45 |
SEAICE_COST_EXPORT |
do bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_cost_export.F |
6 |
SEAICE_COST_EXPORT |
subroutine SEAICE_COST_EXPORT( myThid ) |
./pkg/seaice/seaice_cost_final.F |
115 |
SEAICE_COST_FINAL |
_GLOBAL_SUM_RL( f_ice , myThid ) |
./pkg/seaice/seaice_cost_final.F |
116 |
SEAICE_COST_FINAL |
_GLOBAL_SUM_RL( f_smrarea , myThid ) |
./pkg/seaice/seaice_cost_final.F |
117 |
SEAICE_COST_FINAL |
_GLOBAL_SUM_RL( f_smrsst , myThid ) |
./pkg/seaice/seaice_cost_final.F |
118 |
SEAICE_COST_FINAL |
_GLOBAL_SUM_RL( f_smrsss , myThid ) |
./pkg/seaice/seaice_cost_final.F |
120 |
SEAICE_COST_FINAL |
_GLOBAL_SUM_RL( no_ice , myThid ) |
./pkg/seaice/seaice_cost_final.F |
121 |
SEAICE_COST_FINAL |
_GLOBAL_SUM_RL( no_smrarea , myThid ) |
./pkg/seaice/seaice_cost_final.F |
122 |
SEAICE_COST_FINAL |
_GLOBAL_SUM_RL( no_smrsst , myThid ) |
./pkg/seaice/seaice_cost_final.F |
123 |
SEAICE_COST_FINAL |
_GLOBAL_SUM_RL( no_smrsss , myThid ) |
./pkg/seaice/seaice_cost_final.F |
135 |
SEAICE_COST_FINAL |
IF ( MASTER_CPU_THREAD(myThid) ) THEN |
./pkg/seaice/seaice_cost_final.F |
82 |
SEAICE_COST_FINAL |
call SEAICE_COST_EXPORT( myThid ) |
./pkg/seaice/seaice_cost_init_fixed.F |
62 |
SEAICE_COST_INIT_FIXED |
_BEGIN_MASTER( myThid ) |
./model/src/do_statevars_tave.F |
11 |
DO_STATEVARS_TAVE |
SUBROUTINE DO_STATEVARS_TAVE( myTime, myIter, myThid ) |
./model/src/do_statevars_tave.F |
41 |
DO_STATEVARS_TAVE |
INTEGER myThid |
./model/src/do_statevars_tave.F |
51 |
DO_STATEVARS_TAVE |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/do_statevars_tave.F |
52 |
DO_STATEVARS_TAVE |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/do_statevars_tave.F |
55 |
DO_STATEVARS_TAVE |
CALL TIMEAVE_STATVARS( myTime, myIter, bi, bj, myThid ) |
./model/src/do_statevars_tave.F |
59 |
DO_STATEVARS_TAVE |
CALL PTRACERS_TIMEAVE( myTime, myIter, bi, bj, myThid ) |
./pkg/seaice/seaice_cost_sensi.F |
23 |
SEAICE_COST_SENSI |
integer myThid |
./pkg/seaice/seaice_cost_sensi.F |
28 |
SEAICE_COST_SENSI |
CALL COST_ICE_TEST ( myTime, myIter, myThid ) |
./pkg/seaice/seaice_cost_sensi.F |
31 |
SEAICE_COST_SENSI |
& myTime, myIter, myThid) |
./pkg/seaice/seaice_cost_sensi.F |
6 |
SEAICE_COST_SENSI |
subroutine SEAICE_COST_SENSI( myTime, myIter, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
106 |
SEAICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
113 |
SEAICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
120 |
SEAICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
127 |
SEAICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, numArea, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
138 |
SEAICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
147 |
SEAICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
154 |
SEAICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
15 |
SEAICE_DIAGNOSTICS_INIT |
SUBROUTINE SEAICE_DIAGNOSTICS_INIT( myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
161 |
SEAICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
168 |
SEAICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
175 |
SEAICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
185 |
SEAICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
192 |
SEAICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
199 |
SEAICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
206 |
SEAICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
213 |
SEAICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
221 |
SEAICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
229 |
SEAICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
241 |
SEAICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
253 |
SEAICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
260 |
SEAICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
267 |
SEAICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
274 |
SEAICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
281 |
SEAICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
288 |
SEAICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
303 |
SEAICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
310 |
SEAICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
318 |
SEAICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
326 |
SEAICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
333 |
SEAICE_DIAGNOSTICS_INIT |
diagSufx = SEAICE_DIAG_SUFX( GAD_HEFF, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
341 |
SEAICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
348 |
SEAICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
34 |
SEAICE_DIAGNOSTICS_INIT |
INTEGER myThid |
./pkg/seaice/seaice_diagnostics_init.F |
356 |
SEAICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
363 |
SEAICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
368 |
SEAICE_DIAGNOSTICS_INIT |
diagSufx = SEAICE_DIAG_SUFX( GAD_AREA, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
376 |
SEAICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
383 |
SEAICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
391 |
SEAICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
398 |
SEAICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
403 |
SEAICE_DIAGNOSTICS_INIT |
diagSufx = SEAICE_DIAG_SUFX( GAD_SNOW, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
411 |
SEAICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
418 |
SEAICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
426 |
SEAICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
433 |
SEAICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
438 |
SEAICE_DIAGNOSTICS_INIT |
diagSufx = SEAICE_DIAG_SUFX( GAD_SALT, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
446 |
SEAICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
453 |
SEAICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
461 |
SEAICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
468 |
SEAICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
480 |
SEAICE_DIAGNOSTICS_INIT |
CHARACTER*4 FUNCTION SEAICE_DIAG_SUFX( tracerId, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
498 |
SEAICE_DIAGNOSTICS_INIT |
INTEGER myThid |
./pkg/seaice/seaice_diagnostics_init.F |
67 |
SEAICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
75 |
SEAICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
87 |
SEAICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/seaice/seaice_diagnostics_init.F |
99 |
SEAICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/seaice/seaice_diagnostics_state.F |
100 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(IceAge ,'SIage ',0,1 ,0,1,1,myThid) |
./pkg/seaice/seaice_diagnostics_state.F |
103 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(zeta ,'SIzeta ',0,1 ,0,1,1,myThid) |
./pkg/seaice/seaice_diagnostics_state.F |
104 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(eta ,'SIeta ',0,1 ,0,1,1,myThid) |
./pkg/seaice/seaice_diagnostics_state.F |
105 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(press ,'SIpress ',0,1 ,0,1,1,myThid) |
./pkg/seaice/seaice_diagnostics_state.F |
107 |
SEAICE_DIAGNOSTICS_STATE |
IF ( DIAGNOSTICS_IS_ON('SIsigI ',myThid) .OR. |
./pkg/seaice/seaice_diagnostics_state.F |
108 |
SEAICE_DIAGNOSTICS_STATE |
& DIAGNOSTICS_IS_ON('SIsigII ',myThid) ) THEN |
./pkg/seaice/seaice_diagnostics_state.F |
10 |
SEAICE_DIAGNOSTICS_STATE |
I myTime, myIter, myThid ) |
./pkg/seaice/seaice_diagnostics_state.F |
114 |
SEAICE_DIAGNOSTICS_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/seaice/seaice_diagnostics_state.F |
115 |
SEAICE_DIAGNOSTICS_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/seaice/seaice_diagnostics_state.F |
133 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(sigI ,'SIsigI ',0,1,2,bi,bj,myThid) |
./pkg/seaice/seaice_diagnostics_state.F |
134 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(sigII,'SIsigII ',0,1,2,bi,bj,myThid) |
./pkg/seaice/seaice_diagnostics_state.F |
145 |
SEAICE_DIAGNOSTICS_STATE |
I 0, myTime, myIter, myThid ) |
./pkg/seaice/seaice_diagnostics_state.F |
148 |
SEAICE_DIAGNOSTICS_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/seaice/seaice_diagnostics_state.F |
149 |
SEAICE_DIAGNOSTICS_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/seaice/seaice_diagnostics_state.F |
168 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(sigI ,'SIsigI ',0,1,2,bi,bj,myThid) |
./pkg/seaice/seaice_diagnostics_state.F |
169 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(sigII,'SIsigII ',0,1,2,bi,bj,myThid) |
./pkg/seaice/seaice_diagnostics_state.F |
178 |
SEAICE_DIAGNOSTICS_STATE |
IF ( DIAGNOSTICS_IS_ON('SIuheff ',myThid) ) THEN |
./pkg/seaice/seaice_diagnostics_state.F |
179 |
SEAICE_DIAGNOSTICS_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/seaice/seaice_diagnostics_state.F |
180 |
SEAICE_DIAGNOSTICS_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/seaice/seaice_diagnostics_state.F |
195 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(press,'SIuheff ',0,1,0,1,1,myThid) |
./pkg/seaice/seaice_diagnostics_state.F |
197 |
SEAICE_DIAGNOSTICS_STATE |
IF ( DIAGNOSTICS_IS_ON('SIvheff ',myThid) ) THEN |
./pkg/seaice/seaice_diagnostics_state.F |
198 |
SEAICE_DIAGNOSTICS_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/seaice/seaice_diagnostics_state.F |
199 |
SEAICE_DIAGNOSTICS_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/seaice/seaice_diagnostics_state.F |
214 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(press,'SIvheff ',0,1,0,1,1,myThid) |
./pkg/seaice/seaice_diagnostics_state.F |
41 |
SEAICE_DIAGNOSTICS_STATE |
INTEGER myThid |
./pkg/seaice/seaice_diagnostics_state.F |
61 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL( AREA, 'SIarea ', 0, 1, 0, 1,1, myThid ) |
./pkg/seaice/seaice_diagnostics_state.F |
62 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL( HEFF, 'SIheff ', 0, 1, 0, 1,1, myThid ) |
./pkg/seaice/seaice_diagnostics_state.F |
63 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL( UICE, 'SIuice ', 0, 1, 0, 1,1, myThid ) |
./pkg/seaice/seaice_diagnostics_state.F |
64 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL( VICE, 'SIvice ', 0, 1, 0, 1,1, myThid ) |
./pkg/seaice/seaice_diagnostics_state.F |
66 |
SEAICE_DIAGNOSTICS_STATE |
IF ( DIAGNOSTICS_IS_ON('SItices ',myThid) ) THEN |
./pkg/seaice/seaice_diagnostics_state.F |
67 |
SEAICE_DIAGNOSTICS_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/seaice/seaice_diagnostics_state.F |
68 |
SEAICE_DIAGNOSTICS_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/seaice/seaice_diagnostics_state.F |
91 |
SEAICE_DIAGNOSTICS_STATE |
I 0, 1, 0, 1, 1, myThid ) |
./pkg/seaice/seaice_diagnostics_state.F |
94 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(HSNOW ,'SIhsnow ',0,1 ,0,1,1,myThid) |
./pkg/seaice/seaice_diagnostics_state.F |
97 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(HSALT ,'SIhsalt ',0,1 ,0,1,1,myThid) |
./pkg/seaice/seaice_diffusion.F |
106 |
SEAICE_DIFFUSION |
CALL DIAGNOSTICS_FILL(fZon,diagName, k,1, 2,bi,bj, myThid) |
./pkg/seaice/seaice_diffusion.F |
108 |
SEAICE_DIFFUSION |
CALL DIAGNOSTICS_FILL(fMer,diagName, k,1, 2,bi,bj, myThid) |
./pkg/seaice/seaice_diffusion.F |
13 |
SEAICE_DIFFUSION |
I bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_diffusion.F |
51 |
SEAICE_DIFFUSION |
INTEGER myThid |
./pkg/seaice/seaice_diffusion.F |
70 |
SEAICE_DIFFUSION |
diagSufx = SEAICE_DIAG_SUFX( tracerIdentity, myThid ) |
./pkg/seaice/seaice_diffusion.F |
82 |
SEAICE_DIFFUSION |
CALL GAD_DIFF_X(bi,bj,k,xA,diff1,iceFld,fZon,myThid) |
./pkg/seaice/seaice_diffusion.F |
84 |
SEAICE_DIFFUSION |
CALL GAD_DIFF_Y(bi,bj,k,yA,diff1,iceFld,fMer,myThid) |
./pkg/seaice/seaice_dynsolver.F |
113 |
SEAICE_DYNSOLVER |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_dynsolver.F |
114 |
SEAICE_DYNSOLVER |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_dynsolver.F |
137 |
SEAICE_DYNSOLVER |
CALL EXCH_UV_XY_RL( seaiceMaskU, seaiceMaskV, .FALSE., myThid ) |
./pkg/seaice/seaice_dynsolver.F |
143 |
SEAICE_DYNSOLVER |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_dynsolver.F |
144 |
SEAICE_DYNSOLVER |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_dynsolver.F |
168 |
SEAICE_DYNSOLVER |
I myTime, myIter, myThid ) |
./pkg/seaice/seaice_dynsolver.F |
170 |
SEAICE_DYNSOLVER |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_dynsolver.F |
171 |
SEAICE_DYNSOLVER |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_dynsolver.F |
225 |
SEAICE_DYNSOLVER |
CALL SEAICE_FREEDRIFT( myTime, myIter, myThid ) |
./pkg/seaice/seaice_dynsolver.F |
240 |
SEAICE_DYNSOLVER |
CALL SEAICE_EVP( myTime, myIter, myThid ) |
./pkg/seaice/seaice_dynsolver.F |
250 |
SEAICE_DYNSOLVER |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_dynsolver.F |
251 |
SEAICE_DYNSOLVER |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_dynsolver.F |
283 |
SEAICE_DYNSOLVER |
CALL SEAICE_LSR( ipseudo, myTime, myIter, myThid ) |
./pkg/seaice/seaice_dynsolver.F |
308 |
SEAICE_DYNSOLVER |
CALL SEAICE_OCEAN_STRESS ( myTime, myIter, myThid ) |
./pkg/seaice/seaice_dynsolver.F |
320 |
SEAICE_DYNSOLVER |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_dynsolver.F |
321 |
SEAICE_DYNSOLVER |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_dynsolver.F |
40 |
SEAICE_DYNSOLVER |
INTEGER myThid |
./pkg/seaice/seaice_dynsolver.F |
60 |
SEAICE_DYNSOLVER |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_dynsolver.F |
61 |
SEAICE_DYNSOLVER |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_dynsolver.F |
7 |
SEAICE_DYNSOLVER |
SUBROUTINE SEAICE_DYNSOLVER( myTime, myIter, myThid ) |
./pkg/seaice/seaice_dynsolver.F |
97 |
SEAICE_DYNSOLVER |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_dynsolver.F |
98 |
SEAICE_DYNSOLVER |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_evp.F |
122 |
SEAICE_EVP |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_evp.F |
123 |
SEAICE_EVP |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_evp.F |
142 |
SEAICE_EVP |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_evp.F |
143 |
SEAICE_EVP |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_evp.F |
178 |
SEAICE_EVP |
I iEVPstep, myTime, myIter, myThid ) |
./pkg/seaice/seaice_evp.F |
186 |
SEAICE_EVP |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_evp.F |
187 |
SEAICE_EVP |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_evp.F |
38 |
SEAICE_EVP |
INTEGER myThid |
./pkg/seaice/seaice_evp.F |
417 |
SEAICE_EVP |
CALL ZERO_ADJ( 1, stressDivergenceX, myThid) |
./pkg/seaice/seaice_evp.F |
418 |
SEAICE_EVP |
CALL ZERO_ADJ( 1, stressDivergenceY, myThid) |
./pkg/seaice/seaice_evp.F |
425 |
SEAICE_EVP |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_evp.F |
426 |
SEAICE_EVP |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_evp.F |
526 |
SEAICE_EVP |
CALL EXCH_UV_XY_RL(uIceC,vIceC,.TRUE.,myThid) |
./pkg/seaice/seaice_evp.F |
533 |
SEAICE_EVP |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_evp.F |
534 |
SEAICE_EVP |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_evp.F |
7 |
SEAICE_EVP |
SUBROUTINE SEAICE_EVP( myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
101 |
DO_THE_MODEL_IO |
& CALL OBCS_OUTPUT( myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
107 |
DO_THE_MODEL_IO |
& CALL GMREDI_OUTPUT( myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
113 |
DO_THE_MODEL_IO |
& CALL KPP_OUTPUT( myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
119 |
DO_THE_MODEL_IO |
& CALL PP81_OUTPUT( myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
125 |
DO_THE_MODEL_IO |
& CALL MY82_OUTPUT( myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
131 |
DO_THE_MODEL_IO |
& CALL OPPS_OUTPUT( myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
137 |
DO_THE_MODEL_IO |
& CALL GGL90_OUTPUT( myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
143 |
DO_THE_MODEL_IO |
CALL SBO_CALC( myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
144 |
DO_THE_MODEL_IO |
CALL SBO_OUTPUT( myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
14 |
DO_THE_MODEL_IO |
I myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
150 |
DO_THE_MODEL_IO |
CALL SEAICE_OUTPUT( myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
156 |
DO_THE_MODEL_IO |
CALL SHELFICE_OUTPUT( myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
163 |
DO_THE_MODEL_IO |
& CALL BULKF_OUTPUT( myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
169 |
DO_THE_MODEL_IO |
& CALL THSICE_OUTPUT( myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
175 |
DO_THE_MODEL_IO |
& CALL PTRACERS_OUTPUT( myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
181 |
DO_THE_MODEL_IO |
& CALL MATRIX_OUTPUT( myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
187 |
DO_THE_MODEL_IO |
& CALL GCHEM_OUTPUT( myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
198 |
DO_THE_MODEL_IO |
& CALL CPL_OUTPUT( myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
204 |
DO_THE_MODEL_IO |
CALL LAYERS_CALC( myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
205 |
DO_THE_MODEL_IO |
CALL LAYERS_OUTPUT( myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
212 |
DO_THE_MODEL_IO |
& CALL DIAGNOSTICS_WRITE( modelEnd, myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
45 |
DO_THE_MODEL_IO |
INTEGER myThid |
./model/src/do_the_model_io.F |
60 |
DO_THE_MODEL_IO |
& Nr, myIter, myThid ) |
./model/src/do_the_model_io.F |
62 |
DO_THE_MODEL_IO |
& Nr, myIter, myThid ) |
./model/src/do_the_model_io.F |
64 |
DO_THE_MODEL_IO |
& Nr, myIter, myThid ) |
./model/src/do_the_model_io.F |
66 |
DO_THE_MODEL_IO |
& myIter, myThid ) |
./model/src/do_the_model_io.F |
73 |
DO_THE_MODEL_IO |
CALL WRITE_STATE( myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
79 |
DO_THE_MODEL_IO |
CALL TIMEAVE_STATV_WRITE( myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
85 |
DO_THE_MODEL_IO |
& CALL FIZHI_WRITE_STATE( myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
91 |
DO_THE_MODEL_IO |
& CALL AIM_WRITE_TAVE( myTime, myIter, myThid ) |
./model/src/do_the_model_io.F |
96 |
DO_THE_MODEL_IO |
& CALL LAND_OUTPUT( myTime, myIter, myThid ) |
./pkg/seaice/seaice_freedrift.F |
159 |
SEAICE_FREEDRIFT |
CALL EXCH_UV_AGRID_3D_RL(uice_cntr,vice_cntr,.TRUE.,1,myThid) |
./pkg/seaice/seaice_freedrift.F |
161 |
SEAICE_FREEDRIFT |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_freedrift.F |
162 |
SEAICE_FREEDRIFT |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_freedrift.F |
174 |
SEAICE_FREEDRIFT |
CALL EXCH_UV_XY_RL( uice_fd, vice_fd, .TRUE., myThid ) |
./pkg/seaice/seaice_freedrift.F |
177 |
SEAICE_FREEDRIFT |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_freedrift.F |
178 |
SEAICE_FREEDRIFT |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_freedrift.F |
33 |
SEAICE_FREEDRIFT |
INTEGER myThid |
./pkg/seaice/seaice_freedrift.F |
56 |
SEAICE_FREEDRIFT |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_freedrift.F |
57 |
SEAICE_FREEDRIFT |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_freedrift.F |
69 |
SEAICE_FREEDRIFT |
CALL EXCH_UV_XY_RL( TAUX, TAUY, .TRUE., myThid ) |
./pkg/seaice/seaice_freedrift.F |
72 |
SEAICE_FREEDRIFT |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_freedrift.F |
73 |
SEAICE_FREEDRIFT |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_freedrift.F |
7 |
SEAICE_FREEDRIFT |
SUBROUTINE SEAICE_FREEDRIFT( myTime, myIter, myThid ) |
./pkg/seaice/seaice_get_dynforcing.F |
10 |
SEAICE_GET_DYNFORCING |
I myTime, myIter, myThid ) |
./pkg/seaice/seaice_get_dynforcing.F |
226 |
SEAICE_GET_DYNFORCING |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_get_dynforcing.F |
227 |
SEAICE_GET_DYNFORCING |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_get_dynforcing.F |
48 |
SEAICE_GET_DYNFORCING |
INTEGER myThid |
./pkg/seaice/seaice_get_dynforcing.F |
80 |
SEAICE_GET_DYNFORCING |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_get_dynforcing.F |
81 |
SEAICE_GET_DYNFORCING |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_growth.F |
1092 |
SEAICE_GROWTH |
IF ( DIAGNOSTICS_IS_ON('SIfice ',myThid) ) THEN |
./pkg/seaice/seaice_growth.F |
1093 |
SEAICE_GROWTH |
CALL DIAGNOSTICS_FILL(DIAGarray,'SIfice ',0,1,3,bi,bj,myThid) |
./pkg/seaice/seaice_growth.F |
1274 |
SEAICE_GROWTH |
IF ( DIAGNOSTICS_IS_ON('SIthdgrh',myThid) ) THEN |
./pkg/seaice/seaice_growth.F |
1281 |
SEAICE_GROWTH |
CALL DIAGNOSTICS_FILL(tmparr1,'SIthdgrh',0,1,3,bi,bj,myThid) |
./pkg/seaice/seaice_growth.F |
1304 |
SEAICE_GROWTH |
IF ( DIAGNOSTICS_IS_ON('SIsnwice',myThid) ) THEN |
./pkg/seaice/seaice_growth.F |
1310 |
SEAICE_GROWTH |
CALL DIAGNOSTICS_FILL(tmparr1,'SIsnwice',0,1,3,bi,bj,myThid) |
./pkg/seaice/seaice_growth.F |
1396 |
SEAICE_GROWTH |
IF ( DIAGNOSTICS_IS_ON('SIqneto ',myThid) ) THEN |
./pkg/seaice/seaice_growth.F |
1402 |
SEAICE_GROWTH |
CALL DIAGNOSTICS_FILL(DIAGarray,'SIqneto ',0,1,3,bi,bj,myThid) |
./pkg/seaice/seaice_growth.F |
1404 |
SEAICE_GROWTH |
IF ( DIAGNOSTICS_IS_ON('SIqneti ',myThid) ) THEN |
./pkg/seaice/seaice_growth.F |
1410 |
SEAICE_GROWTH |
CALL DIAGNOSTICS_FILL(DIAGarray,'SIqneti ',0,1,3,bi,bj,myThid) |
./pkg/seaice/seaice_growth.F |
1468 |
SEAICE_GROWTH |
CALL PLOT_FIELD_XYRL( QSW,'Current QSW ', myIter, myThid ) |
./pkg/seaice/seaice_growth.F |
1469 |
SEAICE_GROWTH |
CALL PLOT_FIELD_XYRL( QNET,'Current QNET ', myIter, myThid ) |
./pkg/seaice/seaice_growth.F |
1470 |
SEAICE_GROWTH |
CALL PLOT_FIELD_XYRL( EmPmR,'Current EmPmR ', myIter, myThid ) |
./pkg/seaice/seaice_growth.F |
235 |
SEAICE_GROWTH |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_growth.F |
236 |
SEAICE_GROWTH |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_growth.F |
239 |
SEAICE_GROWTH |
act1 = bi - myBxLo(myThid) |
./pkg/seaice/seaice_growth.F |
240 |
SEAICE_GROWTH |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
./pkg/seaice/seaice_growth.F |
241 |
SEAICE_GROWTH |
act2 = bj - myByLo(myThid) |
./pkg/seaice/seaice_growth.F |
242 |
SEAICE_GROWTH |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
./pkg/seaice/seaice_growth.F |
243 |
SEAICE_GROWTH |
act3 = myThid - 1 |
./pkg/seaice/seaice_growth.F |
46 |
SEAICE_GROWTH |
INTEGER myIter, myThid |
./pkg/seaice/seaice_growth.F |
486 |
SEAICE_GROWTH |
CALL ZERO_ADJ_1D( sNx*sNy, heffActual, myThid) |
./pkg/seaice/seaice_growth.F |
487 |
SEAICE_GROWTH |
CALL ZERO_ADJ_1D( sNx*sNy, hsnowActual, myThid) |
./pkg/seaice/seaice_growth.F |
524 |
SEAICE_GROWTH |
I bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_growth.F |
586 |
SEAICE_GROWTH |
I bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_growth.F |
605 |
SEAICE_GROWTH |
I bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_growth.F |
611 |
SEAICE_GROWTH |
IF ( DIAGNOSTICS_IS_ON('SIatmQnt',myThid) ) THEN |
./pkg/seaice/seaice_growth.F |
626 |
SEAICE_GROWTH |
CALL DIAGNOSTICS_FILL(DIAGarray,'SIatmQnt',0,1,3,bi,bj,myThid) |
./pkg/seaice/seaice_growth.F |
628 |
SEAICE_GROWTH |
IF ( DIAGNOSTICS_IS_ON('SIfwSubl',myThid) ) THEN |
./pkg/seaice/seaice_growth.F |
635 |
SEAICE_GROWTH |
CALL DIAGNOSTICS_FILL(DIAGarray,'SIfwSubl',0,1,3,bi,bj,myThid) |
./pkg/seaice/seaice_growth.F |
637 |
SEAICE_GROWTH |
IF ( DIAGNOSTICS_IS_ON('SIatmFW ',myThid) ) THEN |
./pkg/seaice/seaice_growth.F |
653 |
SEAICE_GROWTH |
CALL DIAGNOSTICS_FILL(DIAGarray,'SIatmFW ',0,1,3,bi,bj,myThid) |
./pkg/seaice/seaice_growth.F |
730 |
SEAICE_GROWTH |
CALL ZERO_ADJ_1D( sNx*sNy, r_QbyOCN, myThid) |
./pkg/seaice/seaice_growth.F |
758 |
SEAICE_GROWTH |
IF ( DIAGNOSTICS_IS_ON('SIyneg ',myThid) ) THEN |
./pkg/seaice/seaice_growth.F |
760 |
SEAICE_GROWTH |
& 'SIyneg ',0,1,1,bi,bj,myThid) |
./pkg/seaice/seaice_growth.F |
889 |
SEAICE_GROWTH |
IF ( DIAGNOSTICS_IS_ON('SIsnPrcp',myThid) ) THEN |
./pkg/seaice/seaice_growth.F |
896 |
SEAICE_GROWTH |
CALL DIAGNOSTICS_FILL(DIAGarray,'SIsnPrcp',0,1,3,bi,bj,myThid) |
./pkg/seaice/seaice_growth.F |
9 |
SEAICE_GROWTH |
SUBROUTINE SEAICE_GROWTH( myTime, myIter, myThid ) |
./pkg/seaice/seaice_growth_if.F |
214 |
SEAICE_GROWTH_IF |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_growth_if.F |
215 |
SEAICE_GROWTH_IF |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_growth_if.F |
218 |
SEAICE_GROWTH_IF |
act1 = bi - myBxLo(myThid) |
./pkg/seaice/seaice_growth_if.F |
219 |
SEAICE_GROWTH_IF |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
./pkg/seaice/seaice_growth_if.F |
220 |
SEAICE_GROWTH_IF |
act2 = bj - myByLo(myThid) |
./pkg/seaice/seaice_growth_if.F |
221 |
SEAICE_GROWTH_IF |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
./pkg/seaice/seaice_growth_if.F |
222 |
SEAICE_GROWTH_IF |
act3 = myThid - 1 |
./pkg/seaice/seaice_growth_if.F |
40 |
SEAICE_GROWTH_IF |
INTEGER myIter, myThid |
./pkg/seaice/seaice_growth_if.F |
561 |
SEAICE_GROWTH_IF |
I bi, bj, myThid ) |
./pkg/seaice/seaice_growth_if.F |
7 |
SEAICE_GROWTH_IF |
SUBROUTINE SEAICE_GROWTH_IF( myTime, myIter, myThid ) |
./pkg/seaice/seaice_init_fixed.F |
107 |
SEAICE_INIT_FIXED |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_init_fixed.F |
108 |
SEAICE_INIT_FIXED |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_init_fixed.F |
166 |
SEAICE_INIT_FIXED |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_init_fixed.F |
167 |
SEAICE_INIT_FIXED |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_init_fixed.F |
196 |
SEAICE_INIT_FIXED |
CALL SEAICE_DIAGNOSTICS_INIT( myThid ) |
./pkg/seaice/seaice_init_fixed.F |
27 |
SEAICE_INIT_FIXED |
INTEGER myThid |
./pkg/seaice/seaice_init_fixed.F |
58 |
SEAICE_INIT_FIXED |
CALL SEAICE_MNC_INIT( myThid ) |
./pkg/seaice/seaice_init_fixed.F |
72 |
SEAICE_INIT_FIXED |
I dummyTime,dummyIter,myThid) |
./pkg/seaice/seaice_init_fixed.F |
78 |
SEAICE_INIT_FIXED |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_init_fixed.F |
79 |
SEAICE_INIT_FIXED |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_init_fixed.F |
7 |
SEAICE_INIT_FIXED |
SUBROUTINE SEAICE_INIT_FIXED( myThid ) |
./pkg/seaice/seaice_init_varia.F |
153 |
SEAICE_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/seaice/seaice_init_varia.F |
154 |
SEAICE_INIT_VARIA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/seaice/seaice_init_varia.F |
155 |
SEAICE_INIT_VARIA |
CALL TIMEAVE_RESET( FUtave , 1, bi, bj, myThid ) |
./pkg/seaice/seaice_init_varia.F |
156 |
SEAICE_INIT_VARIA |
CALL TIMEAVE_RESET( FVtave , 1, bi, bj, myThid ) |
./pkg/seaice/seaice_init_varia.F |
157 |
SEAICE_INIT_VARIA |
CALL TIMEAVE_RESET( EmPmRtave, 1, bi, bj, myThid ) |
./pkg/seaice/seaice_init_varia.F |
158 |
SEAICE_INIT_VARIA |
CALL TIMEAVE_RESET( QNETtave , 1, bi, bj, myThid ) |
./pkg/seaice/seaice_init_varia.F |
159 |
SEAICE_INIT_VARIA |
CALL TIMEAVE_RESET( QSWtave , 1, bi, bj, myThid ) |
./pkg/seaice/seaice_init_varia.F |
160 |
SEAICE_INIT_VARIA |
CALL TIMEAVE_RESET( UICEtave , 1, bi, bj, myThid ) |
./pkg/seaice/seaice_init_varia.F |
161 |
SEAICE_INIT_VARIA |
CALL TIMEAVE_RESET( VICEtave , 1, bi, bj, myThid ) |
./pkg/seaice/seaice_init_varia.F |
162 |
SEAICE_INIT_VARIA |
CALL TIMEAVE_RESET( HEFFtave , 1, bi, bj, myThid ) |
./pkg/seaice/seaice_init_varia.F |
163 |
SEAICE_INIT_VARIA |
CALL TIMEAVE_RESET( AREAtave , 1, bi, bj, myThid ) |
./pkg/seaice/seaice_init_varia.F |
172 |
SEAICE_INIT_VARIA |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_init_varia.F |
173 |
SEAICE_INIT_VARIA |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_init_varia.F |
191 |
SEAICE_INIT_VARIA |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_init_varia.F |
192 |
SEAICE_INIT_VARIA |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_init_varia.F |
280 |
SEAICE_INIT_VARIA |
CALL EXCH_UV_XY_RL(seaiceMaskU,seaiceMaskV,.FALSE.,myThid) |
./pkg/seaice/seaice_init_varia.F |
282 |
SEAICE_INIT_VARIA |
_EXCH_XY_RL(UVM, myThid) |
./pkg/seaice/seaice_init_varia.F |
289 |
SEAICE_INIT_VARIA |
& myIter, myThid ) |
./pkg/seaice/seaice_init_varia.F |
292 |
SEAICE_INIT_VARIA |
& myIter, myThid ) |
./pkg/seaice/seaice_init_varia.F |
294 |
SEAICE_INIT_VARIA |
& myIter, myThid ) |
./pkg/seaice/seaice_init_varia.F |
297 |
SEAICE_INIT_VARIA |
& myIter, myThid ) |
./pkg/seaice/seaice_init_varia.F |
305 |
SEAICE_INIT_VARIA |
CALL SEAICE_READ_PICKUP ( myThid ) |
./pkg/seaice/seaice_init_varia.F |
309 |
SEAICE_INIT_VARIA |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_init_varia.F |
310 |
SEAICE_INIT_VARIA |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_init_varia.F |
324 |
SEAICE_INIT_VARIA |
CALL READ_FLD_XY_RL( HeffFile, ' ', HEFF, 0, myThid ) |
./pkg/seaice/seaice_init_varia.F |
325 |
SEAICE_INIT_VARIA |
_EXCH_XY_RL(HEFF,myThid) |
./pkg/seaice/seaice_init_varia.F |
326 |
SEAICE_INIT_VARIA |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_init_varia.F |
327 |
SEAICE_INIT_VARIA |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_init_varia.F |
337 |
SEAICE_INIT_VARIA |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_init_varia.F |
338 |
SEAICE_INIT_VARIA |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_init_varia.F |
349 |
SEAICE_INIT_VARIA |
CALL READ_FLD_XY_RL( AreaFile, ' ', AREA, 0, myThid ) |
./pkg/seaice/seaice_init_varia.F |
350 |
SEAICE_INIT_VARIA |
_EXCH_XY_RL(AREA,myThid) |
./pkg/seaice/seaice_init_varia.F |
351 |
SEAICE_INIT_VARIA |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_init_varia.F |
352 |
SEAICE_INIT_VARIA |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_init_varia.F |
365 |
SEAICE_INIT_VARIA |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_init_varia.F |
366 |
SEAICE_INIT_VARIA |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_init_varia.F |
36 |
SEAICE_INIT_VARIA |
INTEGER myThid |
./pkg/seaice/seaice_init_varia.F |
377 |
SEAICE_INIT_VARIA |
CALL READ_FLD_XY_RL( HsnowFile, ' ', HSNOW, 0, myThid ) |
./pkg/seaice/seaice_init_varia.F |
378 |
SEAICE_INIT_VARIA |
_EXCH_XY_RL(HSNOW,myThid) |
./pkg/seaice/seaice_init_varia.F |
379 |
SEAICE_INIT_VARIA |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_init_varia.F |
380 |
SEAICE_INIT_VARIA |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_init_varia.F |
391 |
SEAICE_INIT_VARIA |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_init_varia.F |
392 |
SEAICE_INIT_VARIA |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_init_varia.F |
404 |
SEAICE_INIT_VARIA |
CALL READ_FLD_XY_RL( HsaltFile, ' ', HSALT, 0, myThid ) |
./pkg/seaice/seaice_init_varia.F |
405 |
SEAICE_INIT_VARIA |
_EXCH_XY_RL(HSALT,myThid) |
./pkg/seaice/seaice_init_varia.F |
412 |
SEAICE_INIT_VARIA |
CALL READ_FLD_XY_RL( IceAgeFile, ' ', ICEAGE, 0, myThid ) |
./pkg/seaice/seaice_init_varia.F |
413 |
SEAICE_INIT_VARIA |
_EXCH_XY_RL(ICEAGE,myThid) |
./pkg/seaice/seaice_init_varia.F |
422 |
SEAICE_INIT_VARIA |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_init_varia.F |
423 |
SEAICE_INIT_VARIA |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_init_varia.F |
425 |
SEAICE_INIT_VARIA |
I 1, bi, bj, myThid ) |
./pkg/seaice/seaice_init_varia.F |
427 |
SEAICE_INIT_VARIA |
I 1, bi, bj, myThid ) |
./pkg/seaice/seaice_init_varia.F |
429 |
SEAICE_INIT_VARIA |
I 1, bi, bj, myThid ) |
./pkg/seaice/seaice_init_varia.F |
432 |
SEAICE_INIT_VARIA |
I 1, bi, bj, myThid ) |
./pkg/seaice/seaice_init_varia.F |
436 |
SEAICE_INIT_VARIA |
I 1, bi, bj, myThid ) |
./pkg/seaice/seaice_init_varia.F |
445 |
SEAICE_INIT_VARIA |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_init_varia.F |
446 |
SEAICE_INIT_VARIA |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_init_varia.F |
65 |
SEAICE_INIT_VARIA |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_init_varia.F |
66 |
SEAICE_INIT_VARIA |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_init_varia.F |
7 |
SEAICE_INIT_VARIA |
SUBROUTINE SEAICE_INIT_VARIA( myThid ) |
./pkg/seaice/seaice_lsr.F |
148 |
SEAICE_LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_lsr.F |
149 |
SEAICE_LSR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_lsr.F |
168 |
SEAICE_LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_lsr.F |
169 |
SEAICE_LSR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_lsr.F |
183 |
SEAICE_LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_lsr.F |
184 |
SEAICE_LSR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_lsr.F |
208 |
SEAICE_LSR |
I ilcall, myTime, myIter, myThid ) |
./pkg/seaice/seaice_lsr.F |
213 |
SEAICE_LSR |
I ilcall, myTime, myIter, myThid ) |
./pkg/seaice/seaice_lsr.F |
215 |
SEAICE_LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_lsr.F |
216 |
SEAICE_LSR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_lsr.F |
290 |
SEAICE_LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_lsr.F |
291 |
SEAICE_LSR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_lsr.F |
364 |
SEAICE_LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_lsr.F |
365 |
SEAICE_LSR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_lsr.F |
42 |
SEAICE_LSR |
INTEGER myThid |
./pkg/seaice/seaice_lsr.F |
492 |
SEAICE_LSR |
& myThid) |
./pkg/seaice/seaice_lsr.F |
508 |
SEAICE_LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_lsr.F |
509 |
SEAICE_LSR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_lsr.F |
580 |
SEAICE_LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_lsr.F |
581 |
SEAICE_LSR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_lsr.F |
591 |
SEAICE_LSR |
_GLOBAL_MAX_RL( S1, myThid ) |
./pkg/seaice/seaice_lsr.F |
602 |
SEAICE_LSR |
CALL EXCH_UV_XY_RL( uIce, vIce,.TRUE.,myThid) |
./pkg/seaice/seaice_lsr.F |
610 |
SEAICE_LSR |
_BEGIN_MASTER( myThid ) |
./pkg/seaice/seaice_lsr.F |
613 |
SEAICE_LSR |
_END_MASTER( myThid ) |
./pkg/seaice/seaice_lsr.F |
615 |
SEAICE_LSR |
& myThid) |
./pkg/seaice/seaice_lsr.F |
622 |
SEAICE_LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_lsr.F |
623 |
SEAICE_LSR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_lsr.F |
750 |
SEAICE_LSR |
& myThid) |
./pkg/seaice/seaice_lsr.F |
767 |
SEAICE_LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_lsr.F |
768 |
SEAICE_LSR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_lsr.F |
7 |
SEAICE_LSR |
SUBROUTINE SEAICE_LSR( ilcall, myTime, myIter, myThid ) |
./pkg/seaice/seaice_lsr.F |
827 |
SEAICE_LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_lsr.F |
828 |
SEAICE_LSR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_lsr.F |
838 |
SEAICE_LSR |
_GLOBAL_MAX_RL( S2, myThid ) |
./pkg/seaice/seaice_lsr.F |
847 |
SEAICE_LSR |
CALL EXCH_UV_XY_RL( uIce, vIce,.TRUE.,myThid) |
./pkg/seaice/seaice_lsr.F |
855 |
SEAICE_LSR |
_BEGIN_MASTER( myThid ) |
./pkg/seaice/seaice_lsr.F |
858 |
SEAICE_LSR |
_END_MASTER( myThid ) |
./pkg/seaice/seaice_lsr.F |
860 |
SEAICE_LSR |
& myThid) |
./pkg/seaice/seaice_lsr.F |
867 |
SEAICE_LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_lsr.F |
868 |
SEAICE_LSR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_lsr.F |
886 |
SEAICE_LSR |
I 3, myTime, myIter, myThid ) |
./pkg/seaice/seaice_lsr.F |
888 |
SEAICE_LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_lsr.F |
889 |
SEAICE_LSR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_lsr.F |
941 |
SEAICE_LSR |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_lsr.F |
942 |
SEAICE_LSR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_lsr.F |
961 |
SEAICE_LSR |
_GLOBAL_SUM_RL( resnorm, myThid ) |
./pkg/seaice/seaice_lsr.F |
962 |
SEAICE_LSR |
_GLOBAL_SUM_RL( EKnorm, myThid ) |
./pkg/seaice/seaice_lsr.F |
963 |
SEAICE_LSR |
_GLOBAL_SUM_RL( counter, myThid ) |
./pkg/seaice/seaice_map_thsice.F |
10 |
SEAICE_MAP_THSICE |
SUBROUTINE SEAICE_MAP_THSICE( myTime, myIter, myThid ) |
./pkg/seaice/seaice_map_thsice.F |
34 |
SEAICE_MAP_THSICE |
INTEGER myThid |
./pkg/seaice/seaice_map_thsice.F |
43 |
SEAICE_MAP_THSICE |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_map_thsice.F |
44 |
SEAICE_MAP_THSICE |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_mnc_init.F |
100 |
SEAICE_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('si_VICE','units','m/s', myThid) |
./pkg/seaice/seaice_mnc_init.F |
102 |
SEAICE_MNC_INIT |
& 'Ice V velocity', myThid) |
./pkg/seaice/seaice_mnc_init.F |
104 |
SEAICE_MNC_INIT |
CALL MNC_CW_ADD_VNAME('si_HEFF','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/seaice/seaice_mnc_init.F |
105 |
SEAICE_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('si_HEFF','units','m', myThid) |
./pkg/seaice/seaice_mnc_init.F |
107 |
SEAICE_MNC_INIT |
& 'Effective ice thickness',myThid) |
./pkg/seaice/seaice_mnc_init.F |
109 |
SEAICE_MNC_INIT |
CALL MNC_CW_ADD_VNAME('si_AREA','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/seaice/seaice_mnc_init.F |
110 |
SEAICE_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('si_AREA','units','m^2/m^2',myThid) |
./pkg/seaice/seaice_mnc_init.F |
112 |
SEAICE_MNC_INIT |
& 'Fractional ice-covered area',myThid) |
./pkg/seaice/seaice_mnc_init.F |
115 |
SEAICE_MNC_INIT |
CALL MNC_CW_ADD_VNAME('si_UICEtave','U_xy_Hn__-__t',3,4,myThid) |
./pkg/seaice/seaice_mnc_init.F |
116 |
SEAICE_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('si_UICEtave','units','m/s', myThid) |
./pkg/seaice/seaice_mnc_init.F |
118 |
SEAICE_MNC_INIT |
& 'Time-averaged ', myThid) |
./pkg/seaice/seaice_mnc_init.F |
11 |
SEAICE_MNC_INIT |
SUBROUTINE SEAICE_MNC_INIT( myThid ) |
./pkg/seaice/seaice_mnc_init.F |
120 |
SEAICE_MNC_INIT |
CALL MNC_CW_ADD_VNAME('si_VICEtave','V_xy_Hn__-__t',3,4,myThid) |
./pkg/seaice/seaice_mnc_init.F |
121 |
SEAICE_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('si_VICEtave','units','m/s', myThid) |
./pkg/seaice/seaice_mnc_init.F |
123 |
SEAICE_MNC_INIT |
& 'Time-averaged ', myThid) |
./pkg/seaice/seaice_mnc_init.F |
125 |
SEAICE_MNC_INIT |
CALL MNC_CW_ADD_VNAME('si_FUtave','U_xy_Hn__-__t',3,4,myThid) |
./pkg/seaice/seaice_mnc_init.F |
126 |
SEAICE_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('si_FUtave','units','N/m^2', myThid) |
./pkg/seaice/seaice_mnc_init.F |
128 |
SEAICE_MNC_INIT |
& 'Time-averaged zonal surface wind stress', myThid) |
./pkg/seaice/seaice_mnc_init.F |
130 |
SEAICE_MNC_INIT |
CALL MNC_CW_ADD_VNAME('si_FVtave','V_xy_Hn__-__t',3,4,myThid) |
./pkg/seaice/seaice_mnc_init.F |
131 |
SEAICE_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('si_FVtave','units','N/m^2',myThid) |
./pkg/seaice/seaice_mnc_init.F |
133 |
SEAICE_MNC_INIT |
& 'Time-averaged Meridional surface wind stress', myThid) |
./pkg/seaice/seaice_mnc_init.F |
136 |
SEAICE_MNC_INIT |
& 'si_EmPmRtave','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/seaice/seaice_mnc_init.F |
138 |
SEAICE_MNC_INIT |
& 'si_EmPmRtave','units','kg/m^2/s',myThid) |
./pkg/seaice/seaice_mnc_init.F |
140 |
SEAICE_MNC_INIT |
& 'Time-averaged net upward freshwater flux', myThid) |
./pkg/seaice/seaice_mnc_init.F |
143 |
SEAICE_MNC_INIT |
& 'si_QNETtave','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/seaice/seaice_mnc_init.F |
145 |
SEAICE_MNC_INIT |
& 'si_QNETtave','units','W/m^2', myThid) |
./pkg/seaice/seaice_mnc_init.F |
147 |
SEAICE_MNC_INIT |
& 'Time-averaged net upward surface heat flux', myThid) |
./pkg/seaice/seaice_mnc_init.F |
150 |
SEAICE_MNC_INIT |
& 'si_QSWtave','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/seaice/seaice_mnc_init.F |
152 |
SEAICE_MNC_INIT |
& 'si_QSWtave','units','W/m^2',myThid) |
./pkg/seaice/seaice_mnc_init.F |
154 |
SEAICE_MNC_INIT |
& 'Time-averaged net upward shortwave radiation',myThid) |
./pkg/seaice/seaice_mnc_init.F |
157 |
SEAICE_MNC_INIT |
& 'si_HEFFtave','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/seaice/seaice_mnc_init.F |
159 |
SEAICE_MNC_INIT |
& 'si_HEFFtave','units','m', myThid) |
./pkg/seaice/seaice_mnc_init.F |
161 |
SEAICE_MNC_INIT |
& 'Time-averaged effective ice thickness',myThid) |
./pkg/seaice/seaice_mnc_init.F |
164 |
SEAICE_MNC_INIT |
& 'si_AREAtave','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/seaice/seaice_mnc_init.F |
166 |
SEAICE_MNC_INIT |
& 'si_AREAtave','units','m^2/m^2',myThid) |
./pkg/seaice/seaice_mnc_init.F |
168 |
SEAICE_MNC_INIT |
& 'Time-averaged fractional ice-covered area',myThid) |
./pkg/seaice/seaice_mnc_init.F |
26 |
SEAICE_MNC_INIT |
INTEGER myThid |
./pkg/seaice/seaice_mnc_init.F |
34 |
SEAICE_MNC_INIT |
CALL MNC_CW_ADD_VNAME('si_sigma1','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/seaice/seaice_mnc_init.F |
35 |
SEAICE_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('si_sigma1','units','N/m^2', myThid) |
./pkg/seaice/seaice_mnc_init.F |
37 |
SEAICE_MNC_INIT |
& 'divergence of stress tensor', myThid) |
./pkg/seaice/seaice_mnc_init.F |
38 |
SEAICE_MNC_INIT |
CALL MNC_CW_ADD_VNAME('si_sigma2','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/seaice/seaice_mnc_init.F |
39 |
SEAICE_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('si_sigma2','units','N/m^2', myThid) |
./pkg/seaice/seaice_mnc_init.F |
41 |
SEAICE_MNC_INIT |
& 'tension of stress tensor', myThid) |
./pkg/seaice/seaice_mnc_init.F |
42 |
SEAICE_MNC_INIT |
CALL MNC_CW_ADD_VNAME('si_sigma12','Cor_xy_Hn__-__t',3,4,myThid) |
./pkg/seaice/seaice_mnc_init.F |
43 |
SEAICE_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('si_sigma12','units','N/m^2', myThid) |
./pkg/seaice/seaice_mnc_init.F |
45 |
SEAICE_MNC_INIT |
& 'shear of stress tensor', myThid) |
./pkg/seaice/seaice_mnc_init.F |
49 |
SEAICE_MNC_INIT |
CALL MNC_CW_ADD_VNAME('si_UWIND','U_xy_Hn__-__t',3,4,myThid) |
./pkg/seaice/seaice_mnc_init.F |
50 |
SEAICE_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('si_UWIND','units','m/s', myThid) |
./pkg/seaice/seaice_mnc_init.F |
52 |
SEAICE_MNC_INIT |
& 'Surface (10m) zonal wind velocity', myThid) |
./pkg/seaice/seaice_mnc_init.F |
54 |
SEAICE_MNC_INIT |
CALL MNC_CW_ADD_VNAME('si_VWIND','V_xy_Hn__-__t',3,4,myThid) |
./pkg/seaice/seaice_mnc_init.F |
55 |
SEAICE_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('si_VWIND','units','m/s', myThid) |
./pkg/seaice/seaice_mnc_init.F |
57 |
SEAICE_MNC_INIT |
& 'Surface (10m) meridional wind velocity', myThid) |
./pkg/seaice/seaice_mnc_init.F |
59 |
SEAICE_MNC_INIT |
CALL MNC_CW_ADD_VNAME('si_EVAP','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/seaice/seaice_mnc_init.F |
60 |
SEAICE_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('si_EVAP','units','m/s', myThid) |
./pkg/seaice/seaice_mnc_init.F |
62 |
SEAICE_MNC_INIT |
& 'Evaporation', myThid) |
./pkg/seaice/seaice_mnc_init.F |
64 |
SEAICE_MNC_INIT |
CALL MNC_CW_ADD_VNAME('si_PRECIP','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/seaice/seaice_mnc_init.F |
65 |
SEAICE_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('si_PRECIP','units','m/s', myThid) |
./pkg/seaice/seaice_mnc_init.F |
67 |
SEAICE_MNC_INIT |
& 'Precipitation', myThid) |
./pkg/seaice/seaice_mnc_init.F |
69 |
SEAICE_MNC_INIT |
CALL MNC_CW_ADD_VNAME('si_RUNOFF','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/seaice/seaice_mnc_init.F |
70 |
SEAICE_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('si_RUNOFF','units','m/s', myThid) |
./pkg/seaice/seaice_mnc_init.F |
72 |
SEAICE_MNC_INIT |
& 'River and glacier runoff', myThid) |
./pkg/seaice/seaice_mnc_init.F |
74 |
SEAICE_MNC_INIT |
CALL MNC_CW_ADD_VNAME('si_ATEMP','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/seaice/seaice_mnc_init.F |
75 |
SEAICE_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('si_ATEMP','units','deg K', myThid) |
./pkg/seaice/seaice_mnc_init.F |
77 |
SEAICE_MNC_INIT |
& 'Surface (2m) air temperature', myThid) |
./pkg/seaice/seaice_mnc_init.F |
79 |
SEAICE_MNC_INIT |
CALL MNC_CW_ADD_VNAME('si_AQH','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/seaice/seaice_mnc_init.F |
80 |
SEAICE_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('si_AQH','units','kg/kg', myThid) |
./pkg/seaice/seaice_mnc_init.F |
82 |
SEAICE_MNC_INIT |
& 'Surface (2m) specific humidity', myThid) |
./pkg/seaice/seaice_mnc_init.F |
84 |
SEAICE_MNC_INIT |
CALL MNC_CW_ADD_VNAME('si_SWDOWN','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/seaice/seaice_mnc_init.F |
85 |
SEAICE_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('si_SWDOWN','units','W/m^2', myThid) |
./pkg/seaice/seaice_mnc_init.F |
87 |
SEAICE_MNC_INIT |
& 'Downward shortwave radiation', myThid) |
./pkg/seaice/seaice_mnc_init.F |
89 |
SEAICE_MNC_INIT |
CALL MNC_CW_ADD_VNAME('si_LWDOWN','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/seaice/seaice_mnc_init.F |
90 |
SEAICE_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('si_LWDOWN','units','W/m^2', myThid) |
./pkg/seaice/seaice_mnc_init.F |
92 |
SEAICE_MNC_INIT |
& 'Downward longwave radiation', myThid) |
./pkg/seaice/seaice_mnc_init.F |
94 |
SEAICE_MNC_INIT |
CALL MNC_CW_ADD_VNAME('si_UICE','U_xy_Hn__-__t',3,4,myThid) |
./pkg/seaice/seaice_mnc_init.F |
95 |
SEAICE_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('si_UICE','units','m/s', myThid) |
./pkg/seaice/seaice_mnc_init.F |
97 |
SEAICE_MNC_INIT |
& 'Ice U velocity', myThid) |
./pkg/seaice/seaice_mnc_init.F |
99 |
SEAICE_MNC_INIT |
CALL MNC_CW_ADD_VNAME('si_VICE','V_xy_Hn__-__t',3,4,myThid) |
./pkg/seaice/seaice_model.F |
10 |
SEAICE_MODEL |
SUBROUTINE SEAICE_MODEL( myTime, myIter, myThid ) |
./pkg/seaice/seaice_model.F |
112 |
SEAICE_MODEL |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_model.F |
113 |
SEAICE_MODEL |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_model.F |
159 |
SEAICE_MODEL |
IF (debugMode) CALL DEBUG_CALL( 'SEAICE_DYNSOLVER', myThid ) |
./pkg/seaice/seaice_model.F |
162 |
SEAICE_MODEL |
CALL TIMER_START('SEAICE_DYNSOLVER [SEAICE_MODEL]',myThid) |
./pkg/seaice/seaice_model.F |
163 |
SEAICE_MODEL |
CALL SEAICE_DYNSOLVER ( myTime, myIter, myThid ) |
./pkg/seaice/seaice_model.F |
164 |
SEAICE_MODEL |
CALL TIMER_STOP ('SEAICE_DYNSOLVER [SEAICE_MODEL]',myThid) |
./pkg/seaice/seaice_model.F |
166 |
SEAICE_MODEL |
CALL TIMER_START('DYNSOLVER [SEAICE_MODEL]',myThid) |
./pkg/seaice/seaice_model.F |
167 |
SEAICE_MODEL |
CALL DYNSOLVER ( myTime, myIter, myThid ) |
./pkg/seaice/seaice_model.F |
168 |
SEAICE_MODEL |
CALL TIMER_STOP ('DYNSOLVER [SEAICE_MODEL]',myThid) |
./pkg/seaice/seaice_model.F |
174 |
SEAICE_MODEL |
IF ( useOBCS ) CALL OBCS_APPLY_UVICE( uice, vice, myThid ) |
./pkg/seaice/seaice_model.F |
190 |
SEAICE_MODEL |
IF (debugMode) CALL DEBUG_CALL( 'SEAICE_ADVDIFF', myThid ) |
./pkg/seaice/seaice_model.F |
192 |
SEAICE_MODEL |
CALL SEAICE_ADVDIFF( myTime, myIter, myThid ) |
./pkg/seaice/seaice_model.F |
215 |
SEAICE_MODEL |
IF (debugMode) CALL DEBUG_CALL( 'SEAICE_GROWTH', myThid ) |
./pkg/seaice/seaice_model.F |
218 |
SEAICE_MODEL |
CALL SEAICE_GROWTH( myTime, myIter, myThid ) |
./pkg/seaice/seaice_model.F |
220 |
SEAICE_MODEL |
CALL SEAICE_GROWTH_IF( myTime, myIter, myThid ) |
./pkg/seaice/seaice_model.F |
227 |
SEAICE_MODEL |
IF ( useOBCS ) CALL OBCS_APPLY_SEAICE( myThid ) |
./pkg/seaice/seaice_model.F |
232 |
SEAICE_MODEL |
_EXCH_XY_RL( HEFF, myThid ) |
./pkg/seaice/seaice_model.F |
233 |
SEAICE_MODEL |
_EXCH_XY_RL( AREA, myThid ) |
./pkg/seaice/seaice_model.F |
234 |
SEAICE_MODEL |
_EXCH_XY_RL( HSNOW, myThid ) |
./pkg/seaice/seaice_model.F |
236 |
SEAICE_MODEL |
_EXCH_XY_RL( HSALT, myThid ) |
./pkg/seaice/seaice_model.F |
239 |
SEAICE_MODEL |
_EXCH_XY_RL( IceAge,myThid ) |
./pkg/seaice/seaice_model.F |
241 |
SEAICE_MODEL |
_EXCH_XY_RS(EmPmR, myThid ) |
./pkg/seaice/seaice_model.F |
242 |
SEAICE_MODEL |
_EXCH_XY_RS(saltFlux, myThid ) |
./pkg/seaice/seaice_model.F |
243 |
SEAICE_MODEL |
_EXCH_XY_RS(Qnet , myThid ) |
./pkg/seaice/seaice_model.F |
245 |
SEAICE_MODEL |
_EXCH_XY_RS(Qsw , myThid ) |
./pkg/seaice/seaice_model.F |
249 |
SEAICE_MODEL |
& _EXCH_XY_RL(saltPlumeFlux, myThid ) |
./pkg/seaice/seaice_model.F |
253 |
SEAICE_MODEL |
& _EXCH_XY_RS( sIceLoad, myThid ) |
./pkg/seaice/seaice_model.F |
259 |
SEAICE_MODEL |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_model.F |
260 |
SEAICE_MODEL |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_model.F |
262 |
SEAICE_MODEL |
I 1, bi, bj, myThid ) |
./pkg/seaice/seaice_model.F |
264 |
SEAICE_MODEL |
I 1, bi, bj, myThid ) |
./pkg/seaice/seaice_model.F |
266 |
SEAICE_MODEL |
I 1, bi, bj, myThid ) |
./pkg/seaice/seaice_model.F |
269 |
SEAICE_MODEL |
I 1, bi, bj, myThid ) |
./pkg/seaice/seaice_model.F |
273 |
SEAICE_MODEL |
I 1, bi, bj, myThid ) |
./pkg/seaice/seaice_model.F |
285 |
SEAICE_MODEL |
CALL DIAGNOSTICS_FILL(UWIND ,'SIuwind ',0,1 ,0,1,1,myThid) |
./pkg/seaice/seaice_model.F |
286 |
SEAICE_MODEL |
CALL DIAGNOSTICS_FILL(VWIND ,'SIvwind ',0,1 ,0,1,1,myThid) |
./pkg/seaice/seaice_model.F |
288 |
SEAICE_MODEL |
CALL DIAGNOSTICS_FILL_RS(FU ,'SIfu ',0,1 ,0,1,1,myThid) |
./pkg/seaice/seaice_model.F |
289 |
SEAICE_MODEL |
CALL DIAGNOSTICS_FILL_RS(FV ,'SIfv ',0,1 ,0,1,1,myThid) |
./pkg/seaice/seaice_model.F |
290 |
SEAICE_MODEL |
CALL DIAGNOSTICS_FILL_RS(EmPmR,'SIempmr ',0,1 ,0,1,1,myThid) |
./pkg/seaice/seaice_model.F |
291 |
SEAICE_MODEL |
CALL DIAGNOSTICS_FILL_RS(Qnet ,'SIqnet ',0,1 ,0,1,1,myThid) |
./pkg/seaice/seaice_model.F |
292 |
SEAICE_MODEL |
CALL DIAGNOSTICS_FILL_RS(Qsw ,'SIqsw ',0,1 ,0,1,1,myThid) |
./pkg/seaice/seaice_model.F |
306 |
SEAICE_MODEL |
CALL EXF_ADJOINT_SNAPSHOTS( 3, myTime, myIter, myThid ) |
./pkg/seaice/seaice_model.F |
312 |
SEAICE_MODEL |
IF (debugMode) CALL DEBUG_LEAVE( 'SEAICE_MODEL', myThid ) |
./pkg/seaice/seaice_model.F |
54 |
SEAICE_MODEL |
INTEGER myThid |
./pkg/seaice/seaice_model.F |
65 |
SEAICE_MODEL |
IF (debugMode) CALL DEBUG_ENTER( 'SEAICE_MODEL', myThid ) |
./pkg/seaice/seaice_model.F |
69 |
SEAICE_MODEL |
CALL EXCH_UV_AGRID_3D_RL( uwind, vwind, .TRUE., 1, myThid ) |
./pkg/seaice/seaice_model.F |
74 |
SEAICE_MODEL |
CALL SEAICE_MAP_THSICE( myTime, myIter, myThid ) |
./pkg/seaice/seaice_model.F |
89 |
SEAICE_MODEL |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_model.F |
90 |
SEAICE_MODEL |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/do_write_pickup.F |
106 |
DO_WRITE_PICKUP |
& SQUEEZE_RIGHT, myThid ) |
./model/src/do_write_pickup.F |
112 |
DO_WRITE_PICKUP |
_END_MASTER(myThid) |
./model/src/do_write_pickup.F |
118 |
DO_WRITE_PICKUP |
& SQUEEZE_RIGHT, myThid ) |
./model/src/do_write_pickup.F |
13 |
DO_WRITE_PICKUP |
I myTime, myIter, myThid ) |
./model/src/do_write_pickup.F |
45 |
DO_WRITE_PICKUP |
INTEGER myThid |
./model/src/do_write_pickup.F |
72 |
DO_WRITE_PICKUP |
I myTime, myIter, myThid ) |
./model/src/do_write_pickup.F |
75 |
DO_WRITE_PICKUP |
I myTime, myIter, myThid ) |
./model/src/do_write_pickup.F |
85 |
DO_WRITE_PICKUP |
I permPickup, myTime, myIter, myThid ) |
./model/src/do_write_pickup.F |
90 |
DO_WRITE_PICKUP |
I permPickup, myTime, myIter, myThid ) |
./model/src/do_write_pickup.F |
93 |
DO_WRITE_PICKUP |
_BEGIN_MASTER(myThid) |
./pkg/seaice/seaice_monitor.F |
103 |
SEAICE_MONITOR |
& UVM, UVM, rAz, drF, dummyRL, myThid ) |
./pkg/seaice/seaice_monitor.F |
108 |
SEAICE_MONITOR |
& maskInS, maskInS, rAs, drF, dummyRL, myThid ) |
./pkg/seaice/seaice_monitor.F |
112 |
SEAICE_MONITOR |
& UVM, UVM, rAz, drF, dummyRL, myThid ) |
./pkg/seaice/seaice_monitor.F |
116 |
SEAICE_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
./pkg/seaice/seaice_monitor.F |
118 |
SEAICE_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
./pkg/seaice/seaice_monitor.F |
120 |
SEAICE_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
./pkg/seaice/seaice_monitor.F |
123 |
SEAICE_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
./pkg/seaice/seaice_monitor.F |
127 |
SEAICE_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
./pkg/seaice/seaice_monitor.F |
12 |
SEAICE_MONITOR |
I myTime, myIter, myThid ) |
./pkg/seaice/seaice_monitor.F |
130 |
SEAICE_MONITOR |
IF ( MASTER_CPU_IO(myThid) ) THEN |
./pkg/seaice/seaice_monitor.F |
32 |
SEAICE_MONITOR |
INTEGER myThid |
./pkg/seaice/seaice_monitor.F |
52 |
SEAICE_MONITOR |
IF ( MASTER_CPU_IO(myThid) ) THEN |
./pkg/seaice/seaice_monitor.F |
69 |
SEAICE_MONITOR |
& 'T', '-_-_--__-__t', 0,0, myThid) |
./pkg/seaice/seaice_monitor.F |
70 |
SEAICE_MONITOR |
CALL MNC_CW_SET_UDIM(mon_fname, -1, myThid) |
./pkg/seaice/seaice_monitor.F |
72 |
SEAICE_MONITOR |
& 'D',mon_fname,1,1,'T', myTime, myThid) |
./pkg/seaice/seaice_monitor.F |
73 |
SEAICE_MONITOR |
CALL MNC_CW_SET_UDIM(mon_fname, 0, myThid) |
./pkg/seaice/seaice_monitor.F |
92 |
SEAICE_MONITOR |
CALL MON_SET_PREF('seaice',myThid) |
./pkg/seaice/seaice_monitor.F |
93 |
SEAICE_MONITOR |
CALL MON_OUT_I ('_tsnumber', myIter,mon_string_none,myThid) |
./pkg/seaice/seaice_monitor.F |
94 |
SEAICE_MONITOR |
CALL MON_OUT_RL('_time_sec', myTime,mon_string_none,myThid) |
./pkg/seaice/seaice_monitor.F |
99 |
SEAICE_MONITOR |
& maskInW, maskInW, rAw, drF, dummyRL, myThid ) |
./pkg/seaice/seaice_obcs_output.F |
13 |
SEAICE_OBCS_OUTPUT |
SUBROUTINE SEAICE_OBCS_OUTPUT( myTime, myIter, myThid ) |
./pkg/seaice/seaice_obcs_output.F |
38 |
SEAICE_OBCS_OUTPUT |
INTEGER myThid |
./pkg/seaice/seaice_obcs_output.F |
66 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec, 1,OBNa, 1,myIter,myThid) |
./pkg/seaice/seaice_obcs_output.F |
67 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec, 1,OBNh, 2,myIter,myThid) |
./pkg/seaice/seaice_obcs_output.F |
68 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec, 1,OBNsl, 3,myIter,myThid) |
./pkg/seaice/seaice_obcs_output.F |
69 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec, 1,OBNsn, 4,myIter,myThid) |
./pkg/seaice/seaice_obcs_output.F |
70 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec, 1,OBNuice, 5,myIter,myThid) |
./pkg/seaice/seaice_obcs_output.F |
71 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec, 1,OBNvice, 6,myIter,myThid) |
./pkg/seaice/seaice_obcs_output.F |
75 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec, 1,OBSa, 1,myIter,myThid) |
./pkg/seaice/seaice_obcs_output.F |
76 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec, 1,OBSh, 2,myIter,myThid) |
./pkg/seaice/seaice_obcs_output.F |
77 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec, 1,OBSsl, 3,myIter,myThid) |
./pkg/seaice/seaice_obcs_output.F |
78 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec, 1,OBSsn, 4,myIter,myThid) |
./pkg/seaice/seaice_obcs_output.F |
79 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec, 1,OBSuice, 5,myIter,myThid) |
./pkg/seaice/seaice_obcs_output.F |
80 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_XZ_RL(fn,prec, 1,OBSvice, 6,myIter,myThid) |
./pkg/seaice/seaice_obcs_output.F |
84 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec, 1,OBEa, 1,myIter,myThid) |
./pkg/seaice/seaice_obcs_output.F |
85 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec, 1,OBEh, 2,myIter,myThid) |
./pkg/seaice/seaice_obcs_output.F |
86 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec, 1,OBEsl, 3,myIter,myThid) |
./pkg/seaice/seaice_obcs_output.F |
87 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec, 1,OBEsn, 4,myIter,myThid) |
./pkg/seaice/seaice_obcs_output.F |
88 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec, 1,OBEuice, 5,myIter,myThid) |
./pkg/seaice/seaice_obcs_output.F |
89 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec, 1,OBEvice, 6,myIter,myThid) |
./pkg/seaice/seaice_obcs_output.F |
93 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec, 1,OBWa, 1,myIter,myThid) |
./pkg/seaice/seaice_obcs_output.F |
94 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec, 1,OBWh, 2,myIter,myThid) |
./pkg/seaice/seaice_obcs_output.F |
95 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec, 1,OBWsl, 3,myIter,myThid) |
./pkg/seaice/seaice_obcs_output.F |
96 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec, 1,OBWsn, 4,myIter,myThid) |
./pkg/seaice/seaice_obcs_output.F |
97 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec, 1,OBWuice, 5,myIter,myThid) |
./pkg/seaice/seaice_obcs_output.F |
98 |
SEAICE_OBCS_OUTPUT |
CALL WRITE_REC_YZ_RL(fn,prec, 1,OBWvice, 6,myIter,myThid) |
./pkg/seaice/seaice_ocean_stress.F |
127 |
SEAICE_OCEAN_STRESS |
CALL EXCH_UV_XY_RS(fu, fv, .TRUE., myThid) |
./pkg/seaice/seaice_ocean_stress.F |
33 |
SEAICE_OCEAN_STRESS |
INTEGER myThid |
./pkg/seaice/seaice_ocean_stress.F |
58 |
SEAICE_OCEAN_STRESS |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_ocean_stress.F |
59 |
SEAICE_OCEAN_STRESS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_ocean_stress.F |
8 |
SEAICE_OCEAN_STRESS |
I myTime, myIter, myThid ) |
./pkg/seaice/seaice_ocean_stress.F |
90 |
SEAICE_OCEAN_STRESS |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/seaice/seaice_ocean_stress.F |
91 |
SEAICE_OCEAN_STRESS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/seaice/seaice_output.F |
100 |
SEAICE_OUTPUT |
CALL MNC_CW_RS_W(pf,'sice',0,0,'fu',fu,myThid) |
./pkg/seaice/seaice_output.F |
101 |
SEAICE_OUTPUT |
CALL MNC_CW_RS_W(pf,'sice',0,0,'fv',fv,myThid) |
./pkg/seaice/seaice_output.F |
102 |
SEAICE_OUTPUT |
CALL MNC_CW_RS_W(pf,'sice',0,0,'EmPmR',EmPmR,myThid) |
./pkg/seaice/seaice_output.F |
103 |
SEAICE_OUTPUT |
CALL MNC_CW_RS_W(pf,'sice',0,0,'Qnet',Qnet,myThid) |
./pkg/seaice/seaice_output.F |
104 |
SEAICE_OUTPUT |
CALL MNC_CW_RS_W(pf,'sice',0,0,'Qsw',Qsw,myThid) |
./pkg/seaice/seaice_output.F |
10 |
SEAICE_OUTPUT |
SUBROUTINE SEAICE_OUTPUT( myTime, myIter, myThid ) |
./pkg/seaice/seaice_output.F |
110 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL('UWIND.',suff,uwind,myIter,myThid) |
./pkg/seaice/seaice_output.F |
111 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL('VWIND.',suff,vwind,myIter,myThid) |
./pkg/seaice/seaice_output.F |
112 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RS('FU.',suff,fu,myIter,myThid) |
./pkg/seaice/seaice_output.F |
113 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RS('FV.',suff,fv,myIter,myThid) |
./pkg/seaice/seaice_output.F |
114 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RS('EmPmR.',suff,EmPmR,myIter,myThid) |
./pkg/seaice/seaice_output.F |
115 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RS('Qnet.',suff,Qnet,myIter,myThid) |
./pkg/seaice/seaice_output.F |
116 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RS('Qsw.',suff,Qsw,myIter,myThid) |
./pkg/seaice/seaice_output.F |
118 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL( 'UICE.',suff,uIce,myIter,myThid) |
./pkg/seaice/seaice_output.F |
119 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL( 'VICE.',suff,vIce,myIter,myThid) |
./pkg/seaice/seaice_output.F |
120 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL( 'HEFF.',suff,hEff,myIter,myThid) |
./pkg/seaice/seaice_output.F |
121 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL( 'AREA.',suff,area,myIter,myThid) |
./pkg/seaice/seaice_output.F |
122 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL( 'HSNOW.',suff,HSNOW,myIter,myThid) |
./pkg/seaice/seaice_output.F |
124 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL( 'HSALT.',suff,HSALT,myIter,myThid) |
./pkg/seaice/seaice_output.F |
127 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL( 'ICEAGE.',suff,ICEAGE,myIter,myThid) |
./pkg/seaice/seaice_output.F |
132 |
SEAICE_OUTPUT |
& myIter,myThid) |
./pkg/seaice/seaice_output.F |
134 |
SEAICE_OUTPUT |
& myIter,myThid) |
./pkg/seaice/seaice_output.F |
136 |
SEAICE_OUTPUT |
& myIter,myThid) |
./pkg/seaice/seaice_output.F |
153 |
SEAICE_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/seaice/seaice_output.F |
154 |
SEAICE_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/seaice/seaice_output.F |
191 |
SEAICE_OUTPUT |
I myTime, myIter, myThid ) |
./pkg/seaice/seaice_output.F |
198 |
SEAICE_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/seaice/seaice_output.F |
199 |
SEAICE_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/seaice/seaice_output.F |
201 |
SEAICE_OUTPUT |
& SEAICE_timeAve, 1, bi, bj, myThid ) |
./pkg/seaice/seaice_output.F |
203 |
SEAICE_OUTPUT |
& SEAICE_timeAve, 1, bi, bj, myThid ) |
./pkg/seaice/seaice_output.F |
205 |
SEAICE_OUTPUT |
& SEAICE_timeAve, 1, bi, bj, myThid ) |
./pkg/seaice/seaice_output.F |
207 |
SEAICE_OUTPUT |
& SEAICE_timeAve, 1, bi, bj, myThid ) |
./pkg/seaice/seaice_output.F |
209 |
SEAICE_OUTPUT |
& SEAICE_timeAve, 1, bi, bj, myThid ) |
./pkg/seaice/seaice_output.F |
211 |
SEAICE_OUTPUT |
& SEAICE_timeAve, 1, bi, bj, myThid ) |
./pkg/seaice/seaice_output.F |
213 |
SEAICE_OUTPUT |
& SEAICE_timeAve, 1, bi, bj, myThid ) |
./pkg/seaice/seaice_output.F |
215 |
SEAICE_OUTPUT |
& SEAICE_timeAve, 1, bi, bj, myThid ) |
./pkg/seaice/seaice_output.F |
217 |
SEAICE_OUTPUT |
& SEAICE_timeAve, 1, bi, bj, myThid ) |
./pkg/seaice/seaice_output.F |
229 |
SEAICE_OUTPUT |
CALL MNC_CW_SET_UDIM('sice_tave', -1, myThid) |
./pkg/seaice/seaice_output.F |
230 |
SEAICE_OUTPUT |
CALL MNC_CW_RL_W_S('D','sice_tave',0,0,'T', myTime, myThid) |
./pkg/seaice/seaice_output.F |
231 |
SEAICE_OUTPUT |
CALL MNC_CW_SET_UDIM('sice_tave', 0, myThid) |
./pkg/seaice/seaice_output.F |
232 |
SEAICE_OUTPUT |
CALL MNC_CW_I_W_S('I','sice_tave',0,0,'iter', myIter, myThid) |
./pkg/seaice/seaice_output.F |
236 |
SEAICE_OUTPUT |
& 'si_UICEtave',UICEtave,myThid) |
./pkg/seaice/seaice_output.F |
238 |
SEAICE_OUTPUT |
& 'si_VICEtave',VICEtave,myThid) |
./pkg/seaice/seaice_output.F |
240 |
SEAICE_OUTPUT |
& 'si_FUtave',FUtave,myThid) |
./pkg/seaice/seaice_output.F |
242 |
SEAICE_OUTPUT |
& 'si_FVtave',FVtave,myThid) |
./pkg/seaice/seaice_output.F |
244 |
SEAICE_OUTPUT |
& 'si_EmPmRtave',EmPmRtave,myThid) |
./pkg/seaice/seaice_output.F |
246 |
SEAICE_OUTPUT |
& 'si_QNETtave',QNETtave,myThid) |
./pkg/seaice/seaice_output.F |
248 |
SEAICE_OUTPUT |
& 'si_QSWtave',QSWtave,myThid) |
./pkg/seaice/seaice_output.F |
250 |
SEAICE_OUTPUT |
& 'si_HEFFtave',HEFFtave,myThid) |
./pkg/seaice/seaice_output.F |
252 |
SEAICE_OUTPUT |
& 'si_AREAtave',AREAtave,myThid) |
./pkg/seaice/seaice_output.F |
257 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL('FUtave.' ,suff,FUtave ,myIter,myThid) |
./pkg/seaice/seaice_output.F |
258 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL('FVtave.' ,suff,FVtave ,myIter,myThid) |
./pkg/seaice/seaice_output.F |
259 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL('EmPmRtave.',suff,EmPmRtave,myIter,myThid) |
./pkg/seaice/seaice_output.F |
260 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL('QNETtave.' ,suff,QNETtave ,myIter,myThid) |
./pkg/seaice/seaice_output.F |
261 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL('QSWtave.' ,suff,QSWtave ,myIter,myThid) |
./pkg/seaice/seaice_output.F |
262 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL('UICEtave.' ,suff,UICEtave ,myIter,myThid) |
./pkg/seaice/seaice_output.F |
263 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL('VICEtave.' ,suff,VICEtave ,myIter,myThid) |
./pkg/seaice/seaice_output.F |
264 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL('HEFFtave.' ,suff,HEFFtave ,myIter,myThid) |
./pkg/seaice/seaice_output.F |
265 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL('AREAtave.' ,suff,AREAtave ,myIter,myThid) |
./pkg/seaice/seaice_output.F |
269 |
SEAICE_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/seaice/seaice_output.F |
270 |
SEAICE_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/seaice/seaice_output.F |
271 |
SEAICE_OUTPUT |
CALL TIMEAVE_RESET( FUtave , 1, bi, bj, myThid ) |
./pkg/seaice/seaice_output.F |
272 |
SEAICE_OUTPUT |
CALL TIMEAVE_RESET( FVtave , 1, bi, bj, myThid ) |
./pkg/seaice/seaice_output.F |
273 |
SEAICE_OUTPUT |
CALL TIMEAVE_RESET( EmPmRtave, 1, bi, bj, myThid ) |
./pkg/seaice/seaice_output.F |
274 |
SEAICE_OUTPUT |
CALL TIMEAVE_RESET( QNETtave , 1, bi, bj, myThid ) |
./pkg/seaice/seaice_output.F |
275 |
SEAICE_OUTPUT |
CALL TIMEAVE_RESET( QSWtave , 1, bi, bj, myThid ) |
./pkg/seaice/seaice_output.F |
276 |
SEAICE_OUTPUT |
CALL TIMEAVE_RESET( UICEtave , 1, bi, bj, myThid ) |
./pkg/seaice/seaice_output.F |
277 |
SEAICE_OUTPUT |
CALL TIMEAVE_RESET( VICEtave , 1, bi, bj, myThid ) |
./pkg/seaice/seaice_output.F |
278 |
SEAICE_OUTPUT |
CALL TIMEAVE_RESET( HEFFtave , 1, bi, bj, myThid ) |
./pkg/seaice/seaice_output.F |
279 |
SEAICE_OUTPUT |
CALL TIMEAVE_RESET( AREAtave , 1, bi, bj, myThid ) |
./pkg/seaice/seaice_output.F |
292 |
SEAICE_OUTPUT |
CALL SEAICE_MONITOR( myTime, myIter, myThid ) |
./pkg/seaice/seaice_output.F |
295 |
SEAICE_OUTPUT |
IF ( useOBCS ) CALL SEAICE_OBCS_OUTPUT( myTime, myIter, myThid ) |
./pkg/seaice/seaice_output.F |
41 |
SEAICE_OUTPUT |
INTEGER myThid |
./pkg/seaice/seaice_output.F |
78 |
SEAICE_OUTPUT |
CALL MNC_CW_SET_UDIM('sice', -1, myThid) |
./pkg/seaice/seaice_output.F |
79 |
SEAICE_OUTPUT |
CALL MNC_CW_RL_W_S('D','sice',0,0,'T', myTime, myThid) |
./pkg/seaice/seaice_output.F |
80 |
SEAICE_OUTPUT |
CALL MNC_CW_SET_UDIM('sice', 0, myThid) |
./pkg/seaice/seaice_output.F |
81 |
SEAICE_OUTPUT |
CALL MNC_CW_I_W_S('I','sice',0,0,'iter', myIter, myThid) |
./pkg/seaice/seaice_output.F |
83 |
SEAICE_OUTPUT |
& myTime,myThid) |
./pkg/seaice/seaice_output.F |
87 |
SEAICE_OUTPUT |
& seaice_sigma1,myThid) |
./pkg/seaice/seaice_output.F |
89 |
SEAICE_OUTPUT |
& seaice_sigma2,myThid) |
./pkg/seaice/seaice_output.F |
91 |
SEAICE_OUTPUT |
& seaice_sigma12,myThid) |
./pkg/seaice/seaice_output.F |
94 |
SEAICE_OUTPUT |
CALL MNC_CW_RL_W(pf,'sice',0,0,'si_UICE',uIce,myThid) |
./pkg/seaice/seaice_output.F |
95 |
SEAICE_OUTPUT |
CALL MNC_CW_RL_W(pf,'sice',0,0,'si_VICE',vIce,myThid) |
./pkg/seaice/seaice_output.F |
96 |
SEAICE_OUTPUT |
CALL MNC_CW_RL_W(pf,'sice',0,0,'si_HEFF',hEff,myThid) |
./pkg/seaice/seaice_output.F |
97 |
SEAICE_OUTPUT |
CALL MNC_CW_RL_W(pf,'sice',0,0,'si_AREA',area,myThid) |
./pkg/seaice/seaice_output.F |
98 |
SEAICE_OUTPUT |
CALL MNC_CW_RL_W(pf,'sice',0,0,'si_UWIND',uwind,myThid) |
./pkg/seaice/seaice_output.F |
99 |
SEAICE_OUTPUT |
CALL MNC_CW_RL_W(pf,'sice',0,0,'si_VWIND',vwind,myThid) |
./pkg/seaice/seaice_read_pickup.F |
101 |
SEAICE_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/seaice/seaice_read_pickup.F |
106 |
SEAICE_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/seaice/seaice_read_pickup.F |
111 |
SEAICE_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/seaice/seaice_read_pickup.F |
116 |
SEAICE_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/seaice/seaice_read_pickup.F |
119 |
SEAICE_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/seaice/seaice_read_pickup.F |
132 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn,fp,MULTDIM, TICES, nj, nIter0, myThid ) |
./pkg/seaice/seaice_read_pickup.F |
135 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, TICE , nj, nIter0, myThid ) |
./pkg/seaice/seaice_read_pickup.F |
140 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, HSNOW , nj, nIter0, myThid ) |
./pkg/seaice/seaice_read_pickup.F |
142 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, UICE , nj, nIter0, myThid ) |
./pkg/seaice/seaice_read_pickup.F |
144 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, VICE , nj, nIter0, myThid ) |
./pkg/seaice/seaice_read_pickup.F |
146 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, HEFF , nj, nIter0, myThid ) |
./pkg/seaice/seaice_read_pickup.F |
148 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, AREA , nj, nIter0, myThid ) |
./pkg/seaice/seaice_read_pickup.F |
152 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL(fn,fp,1,seaice_sigma1,nj, nIter0, myThid ) |
./pkg/seaice/seaice_read_pickup.F |
154 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL(fn,fp,1,seaice_sigma2,nj, nIter0, myThid ) |
./pkg/seaice/seaice_read_pickup.F |
156 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL(fn,fp,1,seaice_sigma12,nj,nIter0, myThid ) |
./pkg/seaice/seaice_read_pickup.F |
161 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, HSALT , nj, nIter0, myThid ) |
./pkg/seaice/seaice_read_pickup.F |
165 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, ICEAGE , nj, nIter0, myThid ) |
./pkg/seaice/seaice_read_pickup.F |
175 |
SEAICE_READ_PICKUP |
& nj, fp, MULTDIM, nIter0, myThid ) |
./pkg/seaice/seaice_read_pickup.F |
179 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
./pkg/seaice/seaice_read_pickup.F |
183 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
./pkg/seaice/seaice_read_pickup.F |
186 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
./pkg/seaice/seaice_read_pickup.F |
191 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
./pkg/seaice/seaice_read_pickup.F |
193 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
./pkg/seaice/seaice_read_pickup.F |
195 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
./pkg/seaice/seaice_read_pickup.F |
198 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
./pkg/seaice/seaice_read_pickup.F |
202 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
./pkg/seaice/seaice_read_pickup.F |
208 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
./pkg/seaice/seaice_read_pickup.F |
210 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
./pkg/seaice/seaice_read_pickup.F |
214 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
./pkg/seaice/seaice_read_pickup.F |
216 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
./pkg/seaice/seaice_read_pickup.F |
218 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
./pkg/seaice/seaice_read_pickup.F |
230 |
SEAICE_READ_PICKUP |
I nIter0, myThid ) |
./pkg/seaice/seaice_read_pickup.F |
234 |
SEAICE_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_read_pickup.F |
240 |
SEAICE_READ_PICKUP |
I nIter0, myThid ) |
./pkg/seaice/seaice_read_pickup.F |
248 |
SEAICE_READ_PICKUP |
CALL EXCH_UV_XY_RL( uIce, vIce,.TRUE.,myThid) |
./pkg/seaice/seaice_read_pickup.F |
249 |
SEAICE_READ_PICKUP |
_EXCH_XY_RL( HEFF, myThid ) |
./pkg/seaice/seaice_read_pickup.F |
250 |
SEAICE_READ_PICKUP |
_EXCH_XY_RL( AREA, myThid ) |
./pkg/seaice/seaice_read_pickup.F |
252 |
SEAICE_READ_PICKUP |
CALL EXCH_3D_RL ( TICES, MULTDIM, myThid ) |
./pkg/seaice/seaice_read_pickup.F |
254 |
SEAICE_READ_PICKUP |
_EXCH_XY_RL(TICE , myThid ) |
./pkg/seaice/seaice_read_pickup.F |
257 |
SEAICE_READ_PICKUP |
_EXCH_XY_RL(HSNOW, myThid ) |
./pkg/seaice/seaice_read_pickup.F |
260 |
SEAICE_READ_PICKUP |
_EXCH_XY_RL(seaice_sigma1 , myThid ) |
./pkg/seaice/seaice_read_pickup.F |
261 |
SEAICE_READ_PICKUP |
_EXCH_XY_RL(seaice_sigma2 , myThid ) |
./pkg/seaice/seaice_read_pickup.F |
262 |
SEAICE_READ_PICKUP |
_EXCH_XY_RL(seaice_sigma12, myThid ) |
./pkg/seaice/seaice_read_pickup.F |
266 |
SEAICE_READ_PICKUP |
_EXCH_XY_RL(HSALT, myThid ) |
./pkg/seaice/seaice_read_pickup.F |
269 |
SEAICE_READ_PICKUP |
_EXCH_XY_RL(ICEAGE, myThid ) |
./pkg/seaice/seaice_read_pickup.F |
31 |
SEAICE_READ_PICKUP |
INTEGER myThid |
./pkg/seaice/seaice_read_pickup.F |
74 |
SEAICE_READ_PICKUP |
I MULTDIM, nIter0, myThid ) |
./pkg/seaice/seaice_read_pickup.F |
76 |
SEAICE_READ_PICKUP |
_BEGIN_MASTER( myThid ) |
./pkg/seaice/seaice_read_pickup.F |
80 |
SEAICE_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_read_pickup.F |
83 |
SEAICE_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_read_pickup.F |
86 |
SEAICE_READ_PICKUP |
_END_MASTER( myThid ) |
./pkg/seaice/seaice_read_pickup.F |
97 |
SEAICE_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_read_pickup.F |
9 |
SEAICE_READ_PICKUP |
SUBROUTINE SEAICE_READ_PICKUP ( myThid ) |
./pkg/seaice/seaice_readparms.F |
103 |
SEAICE_READPARMS |
_BEGIN_MASTER(myThid) |
./pkg/seaice/seaice_readparms.F |
108 |
SEAICE_READPARMS |
& SQUEEZE_RIGHT , myThid) |
./pkg/seaice/seaice_readparms.F |
111 |
SEAICE_READPARMS |
& SQUEEZE_RIGHT , myThid) |
./pkg/seaice/seaice_readparms.F |
116 |
SEAICE_READPARMS |
I myThid ) |
./pkg/seaice/seaice_readparms.F |
316 |
SEAICE_READPARMS |
& SQUEEZE_RIGHT , myThid) |
./pkg/seaice/seaice_readparms.F |
344 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/seaice/seaice_readparms.F |
347 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/seaice/seaice_readparms.F |
34 |
SEAICE_READPARMS |
INTEGER myThid |
./pkg/seaice/seaice_readparms.F |
358 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/seaice/seaice_readparms.F |
364 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/seaice/seaice_readparms.F |
381 |
SEAICE_READPARMS |
& SQUEEZE_RIGHT , myThid) |
./pkg/seaice/seaice_readparms.F |
391 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/seaice/seaice_readparms.F |
399 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/seaice/seaice_readparms.F |
459 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
463 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
470 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
474 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
481 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
485 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
506 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
509 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
513 |
SEAICE_READPARMS |
_END_MASTER(myThid) |
./pkg/seaice/seaice_readparms.F |
519 |
SEAICE_READPARMS |
CALL SEAICE_SUMMARY( myThid ) |
./pkg/seaice/seaice_readparms.F |
6 |
SEAICE_READPARMS |
SUBROUTINE SEAICE_READPARMS( myThid ) |
./pkg/seaice/seaice_solve4temp.F |
17 |
SEAICE_SOLVE4TEMP |
I bi, bj, myTime, myIter, myThid ) |
./pkg/seaice/seaice_solve4temp.F |
586 |
SEAICE_SOLVE4TEMP |
CALL ZERO_ADJ_1D( 1, TSURF(I,J,bi,bj), myThid) |
./pkg/seaice/seaice_solve4temp.F |
77 |
SEAICE_SOLVE4TEMP |
INTEGER myIter, myThid |
./pkg/seaice/seaice_summary.F |
230 |
SEAICE_SUMMARY |
& SQUEEZE_RIGHT , myThid) |
./pkg/seaice/seaice_summary.F |
235 |
SEAICE_SUMMARY |
& SQUEEZE_RIGHT , myThid) |
./pkg/seaice/seaice_summary.F |
240 |
SEAICE_SUMMARY |
& SQUEEZE_RIGHT , myThid) |
./pkg/seaice/seaice_summary.F |
245 |
SEAICE_SUMMARY |
& SQUEEZE_RIGHT , myThid) |
./pkg/seaice/seaice_summary.F |
248 |
SEAICE_SUMMARY |
& SQUEEZE_RIGHT , myThid) |
./pkg/seaice/seaice_summary.F |
25 |
SEAICE_SUMMARY |
INTEGER myThid |
./pkg/seaice/seaice_summary.F |
265 |
SEAICE_SUMMARY |
& SQUEEZE_RIGHT , myThid) |
./pkg/seaice/seaice_summary.F |
282 |
SEAICE_SUMMARY |
& SQUEEZE_RIGHT , myThid) |
./pkg/seaice/seaice_summary.F |
286 |
SEAICE_SUMMARY |
& SQUEEZE_RIGHT , myThid) |
./pkg/seaice/seaice_summary.F |
290 |
SEAICE_SUMMARY |
& SQUEEZE_RIGHT , myThid) |
./pkg/seaice/seaice_summary.F |
293 |
SEAICE_SUMMARY |
_END_MASTER(myThid) |
./pkg/seaice/seaice_summary.F |
40 |
SEAICE_SUMMARY |
_BEGIN_MASTER(myThid) |
./pkg/seaice/seaice_summary.F |
45 |
SEAICE_SUMMARY |
& SQUEEZE_RIGHT , myThid) |
./pkg/seaice/seaice_summary.F |
49 |
SEAICE_SUMMARY |
& SQUEEZE_RIGHT , myThid) |
./pkg/seaice/seaice_summary.F |
53 |
SEAICE_SUMMARY |
& SQUEEZE_RIGHT , myThid) |
./pkg/seaice/seaice_summary.F |
57 |
SEAICE_SUMMARY |
& SQUEEZE_RIGHT , myThid) |
./pkg/seaice/seaice_summary.F |
61 |
SEAICE_SUMMARY |
& SQUEEZE_RIGHT , myThid) |
./pkg/seaice/seaice_summary.F |
8 |
SEAICE_SUMMARY |
SUBROUTINE SEAICE_SUMMARY( myThid ) |
./pkg/seaice/seaice_turnoff_io.F |
37 |
SEAICE_TURNOFF_IO |
INTEGER myThid |
./pkg/seaice/seaice_turnoff_io.F |
45 |
SEAICE_TURNOFF_IO |
_BEGIN_MASTER( myThid ) |
./pkg/seaice/seaice_turnoff_io.F |
53 |
SEAICE_TURNOFF_IO |
_END_MASTER( myThid ) |
./pkg/seaice/seaice_turnoff_io.F |
9 |
SEAICE_TURNOFF_IO |
SUBROUTINE SEAICE_TURNOFF_IO( seqFlag, myThid ) |
./pkg/seaice/seaice_write_pickup.F |
102 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, HSNOW , nj, myIter, myThid ) |
./pkg/seaice/seaice_write_pickup.F |
107 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, HSALT , nj, myIter, myThid ) |
./pkg/seaice/seaice_write_pickup.F |
10 |
SEAICE_WRITE_PICKUP |
I myTime, myIter, myThid ) |
./pkg/seaice/seaice_write_pickup.F |
113 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, ICEAGE, nj, myIter, myThid ) |
./pkg/seaice/seaice_write_pickup.F |
121 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, UICE , nj, myIter, myThid ) |
./pkg/seaice/seaice_write_pickup.F |
126 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, VICE , nj, myIter, myThid ) |
./pkg/seaice/seaice_write_pickup.F |
134 |
SEAICE_WRITE_PICKUP |
& nj, myIter, myThid ) |
./pkg/seaice/seaice_write_pickup.F |
140 |
SEAICE_WRITE_PICKUP |
& nj, myIter, myThid ) |
./pkg/seaice/seaice_write_pickup.F |
146 |
SEAICE_WRITE_PICKUP |
& nj, myIter, myThid ) |
./pkg/seaice/seaice_write_pickup.F |
155 |
SEAICE_WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_write_pickup.F |
158 |
SEAICE_WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_write_pickup.F |
169 |
SEAICE_WRITE_PICKUP |
& nj, myIter, myThid ) |
./pkg/seaice/seaice_write_pickup.F |
40 |
SEAICE_WRITE_PICKUP |
INTEGER myThid |
./pkg/seaice/seaice_write_pickup.F |
78 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,fp,MULTDIM,TICES, nj, myIter, myThid ) |
./pkg/seaice/seaice_write_pickup.F |
85 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, TICE , nj, myIter, myThid ) |
./pkg/seaice/seaice_write_pickup.F |
92 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, AREA , nj, myIter, myThid ) |
./pkg/seaice/seaice_write_pickup.F |
97 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, HEFF , nj, myIter, myThid ) |
./model/src/dynamics.F |
147 |
DYNAMICS |
INTEGER myThid |
./model/src/dynamics.F |
15 |
DYNAMICS |
SUBROUTINE DYNAMICS(myTime, myIter, myThid) |
./model/src/dynamics.F |
250 |
DYNAMICS |
IF (debugMode) CALL DEBUG_ENTER( 'DYNAMICS', myThid ) |
./model/src/dynamics.F |
256 |
DYNAMICS |
& dPhiHydDiagIsOn = DIAGNOSTICS_IS_ON( 'Um_dPHdx', myThid ) |
./model/src/dynamics.F |
257 |
DYNAMICS |
& .OR. DIAGNOSTICS_IS_ON( 'Vm_dPHdy', myThid ) |
./model/src/dynamics.F |
264 |
DYNAMICS |
CALL CALC_EP_FORCING(myThid) |
./model/src/dynamics.F |
272 |
DYNAMICS |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/dynamics.F |
282 |
DYNAMICS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/dynamics.F |
285 |
DYNAMICS |
act1 = bi - myBxLo(myThid) |
./model/src/dynamics.F |
286 |
DYNAMICS |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
./model/src/dynamics.F |
287 |
DYNAMICS |
act2 = bj - myByLo(myThid) |
./model/src/dynamics.F |
288 |
DYNAMICS |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
./model/src/dynamics.F |
289 |
DYNAMICS |
act3 = myThid - 1 |
./model/src/dynamics.F |
365 |
DYNAMICS |
I myThid ) |
./model/src/dynamics.F |
382 |
DYNAMICS |
I myThid ) |
./model/src/dynamics.F |
488 |
DYNAMICS |
I myTime, myIter, myThid ) |
./model/src/dynamics.F |
495 |
DYNAMICS |
I myTime, myIter, myThid ) |
./model/src/dynamics.F |
501 |
DYNAMICS |
& 'Um_dPHdx', k, 1, 2, bi, bj, myThid ) |
./model/src/dynamics.F |
503 |
DYNAMICS |
& 'Vm_dPHdy', k, 1, 2, bi, bj, myThid ) |
./model/src/dynamics.F |
530 |
DYNAMICS |
I myTime, myIter, myThid) |
./model/src/dynamics.F |
549 |
DYNAMICS |
I myTime, myIter, myThid) |
./model/src/dynamics.F |
557 |
DYNAMICS |
I myTime, myIter, myThid) |
./model/src/dynamics.F |
576 |
DYNAMICS |
I bi, bj, myTime, myIter, myThid ) |
./model/src/dynamics.F |
578 |
DYNAMICS |
I bi, bj, myTime, myIter, myThid ) |
./model/src/dynamics.F |
591 |
DYNAMICS |
I myThid ) |
./model/src/dynamics.F |
600 |
DYNAMICS |
I myThid ) |
./model/src/dynamics.F |
610 |
DYNAMICS |
CALL OBCS_APPLY_UV( bi, bj, 0, gU, gV, myThid ) |
./model/src/dynamics.F |
623 |
DYNAMICS |
I myThid ) |
./model/src/dynamics.F |
631 |
DYNAMICS |
I myThid ) |
./model/src/dynamics.F |
642 |
DYNAMICS |
IF (debugMode) CALL DEBUG_CALL('CALC_GW', myThid ) |
./model/src/dynamics.F |
644 |
DYNAMICS |
CALL TIMER_START('CALC_GW [DYNAMICS]',myThid) |
./model/src/dynamics.F |
647 |
DYNAMICS |
I myTime, myIter, myThid ) |
./model/src/dynamics.F |
650 |
DYNAMICS |
& CALL TIMESTEP_WVEL( bi,bj, myTime, myIter, myThid ) |
./model/src/dynamics.F |
652 |
DYNAMICS |
& CALL TIMER_STOP ('CALC_GW [DYNAMICS]',myThid) |
./model/src/dynamics.F |
663 |
DYNAMICS |
CALL OBCS_PRESCRIBE_EXCHANGES(myThid) |
./model/src/dynamics.F |
678 |
DYNAMICS |
CALL DIAGNOSTICS_FILL(totPhihyd,'PHIHYD ',0,Nr,0,1,1,myThid) |
./model/src/dynamics.F |
679 |
DYNAMICS |
CALL DIAGNOSTICS_FILL(phiHydLow,'PHIBOT ',0, 1,0,1,1,myThid) |
./model/src/dynamics.F |
683 |
DYNAMICS |
& 'PHIHYDSQ',0,Nr,0,1,1,myThid) |
./model/src/dynamics.F |
686 |
DYNAMICS |
& 'PHIBOTSQ',0, 1,0,1,1,myThid) |
./model/src/dynamics.F |
693 |
DYNAMICS |
CALL DEBUG_STATS_RL(1,EtaN,'EtaN (DYNAMICS)',myThid) |
./model/src/dynamics.F |
694 |
DYNAMICS |
CALL DEBUG_STATS_RL(Nr,uVel,'Uvel (DYNAMICS)',myThid) |
./model/src/dynamics.F |
695 |
DYNAMICS |
CALL DEBUG_STATS_RL(Nr,vVel,'Vvel (DYNAMICS)',myThid) |
./model/src/dynamics.F |
696 |
DYNAMICS |
CALL DEBUG_STATS_RL(Nr,wVel,'Wvel (DYNAMICS)',myThid) |
./model/src/dynamics.F |
697 |
DYNAMICS |
CALL DEBUG_STATS_RL(Nr,theta,'Theta (DYNAMICS)',myThid) |
./model/src/dynamics.F |
698 |
DYNAMICS |
CALL DEBUG_STATS_RL(Nr,salt,'Salt (DYNAMICS)',myThid) |
./model/src/dynamics.F |
699 |
DYNAMICS |
CALL DEBUG_STATS_RL(Nr,gU,'Gu (DYNAMICS)',myThid) |
./model/src/dynamics.F |
700 |
DYNAMICS |
CALL DEBUG_STATS_RL(Nr,gV,'Gv (DYNAMICS)',myThid) |
./model/src/dynamics.F |
701 |
DYNAMICS |
CALL DEBUG_STATS_RL(Nr,gT,'Gt (DYNAMICS)',myThid) |
./model/src/dynamics.F |
702 |
DYNAMICS |
CALL DEBUG_STATS_RL(Nr,gS,'Gs (DYNAMICS)',myThid) |
./model/src/dynamics.F |
704 |
DYNAMICS |
CALL DEBUG_STATS_RL(Nr,guNm1,'GuNm1 (DYNAMICS)',myThid) |
./model/src/dynamics.F |
705 |
DYNAMICS |
CALL DEBUG_STATS_RL(Nr,gvNm1,'GvNm1 (DYNAMICS)',myThid) |
./model/src/dynamics.F |
706 |
DYNAMICS |
CALL DEBUG_STATS_RL(Nr,gtNm1,'GtNm1 (DYNAMICS)',myThid) |
./model/src/dynamics.F |
707 |
DYNAMICS |
CALL DEBUG_STATS_RL(Nr,gsNm1,'GsNm1 (DYNAMICS)',myThid) |
./model/src/dynamics.F |
717 |
DYNAMICS |
CALL EXCH_UV_XYZ_RL(gU,gV,.TRUE.,myThid) |
./model/src/dynamics.F |
722 |
DYNAMICS |
IF (debugMode) CALL DEBUG_LEAVE( 'DYNAMICS', myThid ) |
./pkg/shap_filt/shap_filt_apply_ts.F |
116 |
SHAP_FILT_APPLY_TS |
& myIter, myThid) |
./pkg/shap_filt/shap_filt_apply_ts.F |
124 |
SHAP_FILT_APPLY_TS |
& 0,1,1,myThid) |
./pkg/shap_filt/shap_filt_apply_ts.F |
12 |
SHAP_FILT_APPLY_TS |
I myTime, myIter, myThid ) |
./pkg/shap_filt/shap_filt_apply_ts.F |
134 |
SHAP_FILT_APPLY_TS |
I nShapS, Nr, myTime, myThid ) |
./pkg/shap_filt/shap_filt_apply_ts.F |
139 |
SHAP_FILT_APPLY_TS |
I nShapS, exchInOut, Nr, myTime, myIter, myThid ) |
./pkg/shap_filt/shap_filt_apply_ts.F |
143 |
SHAP_FILT_APPLY_TS |
I nShapS, Nr, myTime, myThid ) |
./pkg/shap_filt/shap_filt_apply_ts.F |
161 |
SHAP_FILT_APPLY_TS |
& myIter, myThid) |
./pkg/shap_filt/shap_filt_apply_ts.F |
169 |
SHAP_FILT_APPLY_TS |
& 0,1,1,myThid) |
./pkg/shap_filt/shap_filt_apply_ts.F |
33 |
SHAP_FILT_APPLY_TS |
INTEGER myThid |
./pkg/shap_filt/shap_filt_apply_ts.F |
66 |
SHAP_FILT_APPLY_TS |
IF ( tempStepping ) _EXCH_XYZ_RL( tFld,myThid ) |
./pkg/shap_filt/shap_filt_apply_ts.F |
67 |
SHAP_FILT_APPLY_TS |
IF ( saltStepping ) _EXCH_XYZ_RL( sFld,myThid ) |
./pkg/shap_filt/shap_filt_apply_ts.F |
69 |
SHAP_FILT_APPLY_TS |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/shap_filt/shap_filt_apply_ts.F |
70 |
SHAP_FILT_APPLY_TS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/shap_filt/shap_filt_apply_ts.F |
73 |
SHAP_FILT_APPLY_TS |
& CALL SHAP_FILT_TRACEROLD( tFld,bi,bj,k,myTime,myThid ) |
./pkg/shap_filt/shap_filt_apply_ts.F |
75 |
SHAP_FILT_APPLY_TS |
& CALL SHAP_FILT_TRACEROLD( sFld,bi,bj,k,myTime,myThid ) |
./pkg/shap_filt/shap_filt_apply_ts.F |
80 |
SHAP_FILT_APPLY_TS |
IF ( tempStepping ) _EXCH_XYZ_RL( tFld,myThid ) |
./pkg/shap_filt/shap_filt_apply_ts.F |
81 |
SHAP_FILT_APPLY_TS |
IF ( saltStepping ) _EXCH_XYZ_RL( sFld,myThid ) |
./pkg/shap_filt/shap_filt_apply_ts.F |
89 |
SHAP_FILT_APPLY_TS |
I nShapT, Nr, myTime, myThid ) |
./pkg/shap_filt/shap_filt_apply_ts.F |
94 |
SHAP_FILT_APPLY_TS |
I nShapT, exchInOut, Nr, myTime, myIter, myThid ) |
./pkg/shap_filt/shap_filt_apply_ts.F |
98 |
SHAP_FILT_APPLY_TS |
I nShapT, Nr, myTime, myThid ) |
./pkg/shap_filt/shap_filt_apply_uv.F |
104 |
SHAP_FILT_APPLY_UV |
I Nr, myTime, myThid ) |
./pkg/shap_filt/shap_filt_apply_uv.F |
118 |
SHAP_FILT_APPLY_UV |
& myIter,myThid) |
./pkg/shap_filt/shap_filt_apply_uv.F |
11 |
SHAP_FILT_APPLY_UV |
I myTime, myIter, myThid ) |
./pkg/shap_filt/shap_filt_apply_uv.F |
120 |
SHAP_FILT_APPLY_UV |
& myIter,myThid) |
./pkg/shap_filt/shap_filt_apply_uv.F |
128 |
SHAP_FILT_APPLY_UV |
& 0,1,1,myThid) |
./pkg/shap_filt/shap_filt_apply_uv.F |
130 |
SHAP_FILT_APPLY_UV |
& 0,1,1,myThid) |
./pkg/shap_filt/shap_filt_apply_uv.F |
131 |
SHAP_FILT_APPLY_UV |
IF ( DIAGNOSTICS_IS_ON('SHAP_dKE',myThid) ) THEN |
./pkg/shap_filt/shap_filt_apply_uv.F |
132 |
SHAP_FILT_APPLY_UV |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/shap_filt/shap_filt_apply_uv.F |
133 |
SHAP_FILT_APPLY_UV |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/shap_filt/shap_filt_apply_uv.F |
153 |
SHAP_FILT_APPLY_UV |
& k,1,2,bi,bj,myThid) |
./pkg/shap_filt/shap_filt_apply_uv.F |
43 |
SHAP_FILT_APPLY_UV |
INTEGER myThid |
./pkg/shap_filt/shap_filt_apply_uv.F |
69 |
SHAP_FILT_APPLY_UV |
_EXCH_XYZ_RL( uFld,myThid ) |
./pkg/shap_filt/shap_filt_apply_uv.F |
70 |
SHAP_FILT_APPLY_UV |
_EXCH_XYZ_RL( vFld,myThid ) |
./pkg/shap_filt/shap_filt_apply_uv.F |
72 |
SHAP_FILT_APPLY_UV |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/shap_filt/shap_filt_apply_uv.F |
73 |
SHAP_FILT_APPLY_UV |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/shap_filt/shap_filt_apply_uv.F |
75 |
SHAP_FILT_APPLY_UV |
CALL SHAP_FILT_U( uFld,bi,bj,k,myTime,myThid ) |
./pkg/shap_filt/shap_filt_apply_uv.F |
76 |
SHAP_FILT_APPLY_UV |
CALL SHAP_FILT_V( vFld,bi,bj,k,myTime,myThid ) |
./pkg/shap_filt/shap_filt_apply_uv.F |
81 |
SHAP_FILT_APPLY_UV |
_EXCH_XYZ_RL( uFld,myThid ) |
./pkg/shap_filt/shap_filt_apply_uv.F |
82 |
SHAP_FILT_APPLY_UV |
_EXCH_XYZ_RL( vFld,myThid ) |
./pkg/shap_filt/shap_filt_apply_uv.F |
88 |
SHAP_FILT_APPLY_UV |
I Nr, myTime, myThid ) |
./pkg/shap_filt/shap_filt_apply_uv.F |
92 |
SHAP_FILT_APPLY_UV |
I Nr, myTime, myThid ) |
./pkg/shap_filt/shap_filt_apply_uv.F |
96 |
SHAP_FILT_APPLY_UV |
I Nr, myTime, myThid ) |
./pkg/shap_filt/shap_filt_computvort.F |
12 |
SHAP_FILT_COMPUTVORT |
I k, bi,bj, myThid ) |
./pkg/shap_filt/shap_filt_computvort.F |
45 |
SHAP_FILT_COMPUTVORT |
INTEGER myThid |
./pkg/shap_filt/shap_filt_diagnostics_init.F |
27 |
SHAP_FILT_DIAGNOSTICS_INIT |
INTEGER myThid |
./pkg/shap_filt/shap_filt_diagnostics_init.F |
58 |
SHAP_FILT_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/shap_filt/shap_filt_diagnostics_init.F |
65 |
SHAP_FILT_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/shap_filt/shap_filt_diagnostics_init.F |
73 |
SHAP_FILT_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/shap_filt/shap_filt_diagnostics_init.F |
81 |
SHAP_FILT_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/shap_filt/shap_filt_diagnostics_init.F |
89 |
SHAP_FILT_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/shap_filt/shap_filt_diagnostics_init.F |
9 |
SHAP_FILT_DIAGNOSTICS_INIT |
SUBROUTINE SHAP_FILT_DIAGNOSTICS_INIT( myThid ) |
./pkg/shap_filt/shap_filt_init_fixed.F |
29 |
SHAP_FILT_INIT_FIXED |
INTEGER myThid |
./pkg/shap_filt/shap_filt_init_fixed.F |
37 |
SHAP_FILT_INIT_FIXED |
CALL SHAP_FILT_DIAGNOSTICS_INIT( myThid ) |
./pkg/shap_filt/shap_filt_init_fixed.F |
9 |
SHAP_FILT_INIT_FIXED |
SUBROUTINE SHAP_FILT_INIT_FIXED( myThid ) |
./pkg/shap_filt/shap_filt_readparms.F |
222 |
SHAP_FILT_READPARMS |
_END_MASTER(myThid) |
./pkg/shap_filt/shap_filt_readparms.F |
30 |
SHAP_FILT_READPARMS |
INTEGER myThid |
./pkg/shap_filt/shap_filt_readparms.F |
53 |
SHAP_FILT_READPARMS |
_BEGIN_MASTER(myThid) |
./pkg/shap_filt/shap_filt_readparms.F |
62 |
SHAP_FILT_READPARMS |
I myThid ) |
./pkg/shap_filt/shap_filt_readparms.F |
9 |
SHAP_FILT_READPARMS |
SUBROUTINE SHAP_FILT_READPARMS( myThid ) |
./pkg/shap_filt/shap_filt_relvort3.F |
11 |
SHAP_FILT_RELVORT3 |
I myThid) |
./pkg/shap_filt/shap_filt_relvort3.F |
37 |
SHAP_FILT_RELVORT3 |
INTEGER myThid |
./pkg/shap_filt/shap_filt_tracer_s1.F |
106 |
SHAP_FILT_TRACER_S1 |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/shap_filt/shap_filt_tracer_s1.F |
107 |
SHAP_FILT_TRACER_S1 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/shap_filt/shap_filt_tracer_s1.F |
11 |
SHAP_FILT_TRACER_S1 |
I nShapTr, kSize, myTime, myThid ) |
./pkg/shap_filt/shap_filt_tracer_s1.F |
127 |
SHAP_FILT_TRACER_S1 |
_EXCH_XYZ_RL( tmpFld, myThid ) |
./pkg/shap_filt/shap_filt_tracer_s1.F |
129 |
SHAP_FILT_TRACER_S1 |
_EXCH_XY_RL( tmpFld, myThid ) |
./pkg/shap_filt/shap_filt_tracer_s1.F |
132 |
SHAP_FILT_TRACER_S1 |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/shap_filt/shap_filt_tracer_s1.F |
133 |
SHAP_FILT_TRACER_S1 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/shap_filt/shap_filt_tracer_s1.F |
159 |
SHAP_FILT_TRACER_S1 |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/shap_filt/shap_filt_tracer_s1.F |
160 |
SHAP_FILT_TRACER_S1 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/shap_filt/shap_filt_tracer_s1.F |
173 |
SHAP_FILT_TRACER_S1 |
_EXCH_XYZ_RL( field, myThid ) |
./pkg/shap_filt/shap_filt_tracer_s1.F |
175 |
SHAP_FILT_TRACER_S1 |
_EXCH_XY_RL( field, myThid ) |
./pkg/shap_filt/shap_filt_tracer_s1.F |
43 |
SHAP_FILT_TRACER_S1 |
INTEGER myThid |
./pkg/shap_filt/shap_filt_tracer_s1.F |
56 |
SHAP_FILT_TRACER_S1 |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/shap_filt/shap_filt_tracer_s1.F |
57 |
SHAP_FILT_TRACER_S1 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/shap_filt/shap_filt_tracer_s1.F |
74 |
SHAP_FILT_TRACER_S1 |
_EXCH_XYZ_RL( tmpFld, myThid ) |
./pkg/shap_filt/shap_filt_tracer_s1.F |
76 |
SHAP_FILT_TRACER_S1 |
_EXCH_XY_RL( tmpFld, myThid ) |
./pkg/shap_filt/shap_filt_tracer_s1.F |
79 |
SHAP_FILT_TRACER_S1 |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/shap_filt/shap_filt_tracer_s1.F |
80 |
SHAP_FILT_TRACER_S1 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/external_fields_load.F |
103 |
EXTERNAL_FIELDS_LOAD |
_END_MASTER(myThid) |
./model/src/external_fields_load.F |
107 |
EXTERNAL_FIELDS_LOAD |
& intime0, myIter, myThid ) |
./model/src/external_fields_load.F |
109 |
EXTERNAL_FIELDS_LOAD |
& intime1, myIter, myThid ) |
./model/src/external_fields_load.F |
10 |
EXTERNAL_FIELDS_LOAD |
SUBROUTINE EXTERNAL_FIELDS_LOAD( myTime, myIter, myThid ) |
./model/src/external_fields_load.F |
113 |
EXTERNAL_FIELDS_LOAD |
& intime0, myIter, myThid ) |
./model/src/external_fields_load.F |
115 |
EXTERNAL_FIELDS_LOAD |
& intime1, myIter, myThid ) |
./model/src/external_fields_load.F |
119 |
EXTERNAL_FIELDS_LOAD |
& intime0, myIter, myThid ) |
./model/src/external_fields_load.F |
121 |
EXTERNAL_FIELDS_LOAD |
& intime1, myIter, myThid ) |
./model/src/external_fields_load.F |
124 |
EXTERNAL_FIELDS_LOAD |
& intime0, myIter, myThid ) |
./model/src/external_fields_load.F |
126 |
EXTERNAL_FIELDS_LOAD |
& intime1, myIter, myThid ) |
./model/src/external_fields_load.F |
130 |
EXTERNAL_FIELDS_LOAD |
& intime0, myIter, myThid ) |
./model/src/external_fields_load.F |
132 |
EXTERNAL_FIELDS_LOAD |
& intime1, myIter, myThid ) |
./model/src/external_fields_load.F |
135 |
EXTERNAL_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/external_fields_load.F |
136 |
EXTERNAL_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/external_fields_load.F |
149 |
EXTERNAL_FIELDS_LOAD |
& intime0, myIter, myThid ) |
./model/src/external_fields_load.F |
151 |
EXTERNAL_FIELDS_LOAD |
& intime1, myIter, myThid ) |
./model/src/external_fields_load.F |
155 |
EXTERNAL_FIELDS_LOAD |
& intime0, myIter, myThid ) |
./model/src/external_fields_load.F |
157 |
EXTERNAL_FIELDS_LOAD |
& intime1, myIter, myThid ) |
./model/src/external_fields_load.F |
161 |
EXTERNAL_FIELDS_LOAD |
& intime0, myIter, myThid ) |
./model/src/external_fields_load.F |
163 |
EXTERNAL_FIELDS_LOAD |
& intime1, myIter, myThid ) |
./model/src/external_fields_load.F |
168 |
EXTERNAL_FIELDS_LOAD |
& intime0, myIter, myThid ) |
./model/src/external_fields_load.F |
170 |
EXTERNAL_FIELDS_LOAD |
& intime1, myIter, myThid ) |
./model/src/external_fields_load.F |
173 |
EXTERNAL_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/external_fields_load.F |
174 |
EXTERNAL_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/external_fields_load.F |
189 |
EXTERNAL_FIELDS_LOAD |
& intime0, myIter, myThid ) |
./model/src/external_fields_load.F |
191 |
EXTERNAL_FIELDS_LOAD |
& intime1, myIter, myThid ) |
./model/src/external_fields_load.F |
196 |
EXTERNAL_FIELDS_LOAD |
_EXCH_XY_RS(SST0 , myThid ) |
./model/src/external_fields_load.F |
197 |
EXTERNAL_FIELDS_LOAD |
_EXCH_XY_RS(SST1 , myThid ) |
./model/src/external_fields_load.F |
198 |
EXTERNAL_FIELDS_LOAD |
_EXCH_XY_RS(SSS0 , myThid ) |
./model/src/external_fields_load.F |
199 |
EXTERNAL_FIELDS_LOAD |
_EXCH_XY_RS(SSS1 , myThid ) |
./model/src/external_fields_load.F |
200 |
EXTERNAL_FIELDS_LOAD |
CALL EXCH_UV_XY_RS(taux0,tauy0,.TRUE.,myThid) |
./model/src/external_fields_load.F |
201 |
EXTERNAL_FIELDS_LOAD |
CALL EXCH_UV_XY_RS(taux1,tauy1,.TRUE.,myThid) |
./model/src/external_fields_load.F |
202 |
EXTERNAL_FIELDS_LOAD |
_EXCH_XY_RS(Qnet0, myThid ) |
./model/src/external_fields_load.F |
203 |
EXTERNAL_FIELDS_LOAD |
_EXCH_XY_RS(Qnet1, myThid ) |
./model/src/external_fields_load.F |
204 |
EXTERNAL_FIELDS_LOAD |
_EXCH_XY_RS(EmPmR0, myThid ) |
./model/src/external_fields_load.F |
205 |
EXTERNAL_FIELDS_LOAD |
_EXCH_XY_RS(EmPmR1, myThid ) |
./model/src/external_fields_load.F |
206 |
EXTERNAL_FIELDS_LOAD |
_EXCH_XY_RS(saltFlux0, myThid ) |
./model/src/external_fields_load.F |
207 |
EXTERNAL_FIELDS_LOAD |
_EXCH_XY_RS(saltFlux1, myThid ) |
./model/src/external_fields_load.F |
209 |
EXTERNAL_FIELDS_LOAD |
_EXCH_XY_RS(Qsw0, myThid ) |
./model/src/external_fields_load.F |
210 |
EXTERNAL_FIELDS_LOAD |
_EXCH_XY_RS(Qsw1, myThid ) |
./model/src/external_fields_load.F |
213 |
EXTERNAL_FIELDS_LOAD |
_EXCH_XY_RS(pLoad0, myThid ) |
./model/src/external_fields_load.F |
214 |
EXTERNAL_FIELDS_LOAD |
_EXCH_XY_RS(pLoad1, myThid ) |
./model/src/external_fields_load.F |
220 |
EXTERNAL_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/external_fields_load.F |
221 |
EXTERNAL_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/external_fields_load.F |
305 |
EXTERNAL_FIELDS_LOAD |
_BEGIN_MASTER( myThid ) |
./model/src/external_fields_load.F |
318 |
EXTERNAL_FIELDS_LOAD |
_END_MASTER( myThid ) |
./model/src/external_fields_load.F |
51 |
EXTERNAL_FIELDS_LOAD |
INTEGER myThid |
./model/src/external_fields_load.F |
99 |
EXTERNAL_FIELDS_LOAD |
_BEGIN_MASTER(myThid) |
./pkg/shap_filt/shap_filt_tracer_s2.F |
100 |
SHAP_FILT_TRACER_S2 |
_EXCH_XY_RL( tmpFld, myThid ) |
./pkg/shap_filt/shap_filt_tracer_s2.F |
106 |
SHAP_FILT_TRACER_S2 |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/shap_filt/shap_filt_tracer_s2.F |
107 |
SHAP_FILT_TRACER_S2 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/shap_filt/shap_filt_tracer_s2.F |
119 |
SHAP_FILT_TRACER_S2 |
& bi,bj, myThid ) |
./pkg/shap_filt/shap_filt_tracer_s2.F |
12 |
SHAP_FILT_TRACER_S2 |
I myTime, myIter, myThid ) |
./pkg/shap_filt/shap_filt_tracer_s2.F |
150 |
SHAP_FILT_TRACER_S2 |
& bi,bj, myThid ) |
./pkg/shap_filt/shap_filt_tracer_s2.F |
216 |
SHAP_FILT_TRACER_S2 |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/shap_filt/shap_filt_tracer_s2.F |
217 |
SHAP_FILT_TRACER_S2 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/shap_filt/shap_filt_tracer_s2.F |
232 |
SHAP_FILT_TRACER_S2 |
_EXCH_XYZ_RL( field, myThid ) |
./pkg/shap_filt/shap_filt_tracer_s2.F |
234 |
SHAP_FILT_TRACER_S2 |
_EXCH_XY_RL( field, myThid ) |
./pkg/shap_filt/shap_filt_tracer_s2.F |
54 |
SHAP_FILT_TRACER_S2 |
INTEGER myThid |
./pkg/shap_filt/shap_filt_tracer_s2.F |
78 |
SHAP_FILT_TRACER_S2 |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/shap_filt/shap_filt_tracer_s2.F |
79 |
SHAP_FILT_TRACER_S2 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/shap_filt/shap_filt_tracer_s2.F |
98 |
SHAP_FILT_TRACER_S2 |
_EXCH_XYZ_RL( tmpFld, myThid ) |
./pkg/shap_filt/shap_filt_tracer_s4.F |
105 |
SHAP_FILT_TRACER_S4 |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/shap_filt/shap_filt_tracer_s4.F |
106 |
SHAP_FILT_TRACER_S4 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/shap_filt/shap_filt_tracer_s4.F |
11 |
SHAP_FILT_TRACER_S4 |
I nShapTr, kSize, myTime, myThid ) |
./pkg/shap_filt/shap_filt_tracer_s4.F |
125 |
SHAP_FILT_TRACER_S4 |
_EXCH_XY_RL( tmpFld, myThid ) |
./pkg/shap_filt/shap_filt_tracer_s4.F |
127 |
SHAP_FILT_TRACER_S4 |
_EXCH_XYZ_RL( tmpFld, myThid ) |
./pkg/shap_filt/shap_filt_tracer_s4.F |
130 |
SHAP_FILT_TRACER_S4 |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/shap_filt/shap_filt_tracer_s4.F |
131 |
SHAP_FILT_TRACER_S4 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/shap_filt/shap_filt_tracer_s4.F |
157 |
SHAP_FILT_TRACER_S4 |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/shap_filt/shap_filt_tracer_s4.F |
158 |
SHAP_FILT_TRACER_S4 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/shap_filt/shap_filt_tracer_s4.F |
171 |
SHAP_FILT_TRACER_S4 |
_EXCH_XYZ_RL( field, myThid ) |
./pkg/shap_filt/shap_filt_tracer_s4.F |
173 |
SHAP_FILT_TRACER_S4 |
_EXCH_XY_RL( field, myThid ) |
./pkg/shap_filt/shap_filt_tracer_s4.F |
43 |
SHAP_FILT_TRACER_S4 |
INTEGER myThid |
./pkg/shap_filt/shap_filt_tracer_s4.F |
55 |
SHAP_FILT_TRACER_S4 |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/shap_filt/shap_filt_tracer_s4.F |
56 |
SHAP_FILT_TRACER_S4 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/shap_filt/shap_filt_tracer_s4.F |
73 |
SHAP_FILT_TRACER_S4 |
_EXCH_XYZ_RL( tmpFld, myThid ) |
./pkg/shap_filt/shap_filt_tracer_s4.F |
75 |
SHAP_FILT_TRACER_S4 |
_EXCH_XY_RL( tmpFld, myThid ) |
./pkg/shap_filt/shap_filt_tracer_s4.F |
78 |
SHAP_FILT_TRACER_S4 |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/shap_filt/shap_filt_tracer_s4.F |
79 |
SHAP_FILT_TRACER_S4 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/shap_filt/shap_filt_tracerold.F |
24 |
SHAP_FILT_TRACEROLD |
INTEGER myThid |
./pkg/shap_filt/shap_filt_tracerold.F |
8 |
SHAP_FILT_TRACEROLD |
I bi, bj, K, myCurrentTime, myThid ) |
./pkg/shap_filt/shap_filt_u.F |
23 |
SHAP_FILT_U |
INTEGER myThid |
./pkg/shap_filt/shap_filt_u.F |
6 |
SHAP_FILT_U |
SUBROUTINE SHAP_FILT_U(uVel,bi,bj,K,myCurrentTime,myThid) |
./pkg/shap_filt/shap_filt_uv_s1.F |
11 |
SHAP_FILT_UV_S1 |
I kSize, myTime, myThid ) |
./pkg/shap_filt/shap_filt_uv_s1.F |
134 |
SHAP_FILT_UV_S1 |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/shap_filt/shap_filt_uv_s1.F |
135 |
SHAP_FILT_UV_S1 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/shap_filt/shap_filt_uv_s1.F |
163 |
SHAP_FILT_UV_S1 |
CALL EXCH_UV_XYZ_RL(tmpFldU,tmpFldV,.TRUE.,myThid) |
./pkg/shap_filt/shap_filt_uv_s1.F |
165 |
SHAP_FILT_UV_S1 |
CALL EXCH_UV_XY_RL(tmpFldU,tmpFldV,.TRUE.,myThid) |
./pkg/shap_filt/shap_filt_uv_s1.F |
168 |
SHAP_FILT_UV_S1 |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/shap_filt/shap_filt_uv_s1.F |
169 |
SHAP_FILT_UV_S1 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/shap_filt/shap_filt_uv_s1.F |
263 |
SHAP_FILT_UV_S1 |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/shap_filt/shap_filt_uv_s1.F |
264 |
SHAP_FILT_UV_S1 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/shap_filt/shap_filt_uv_s1.F |
283 |
SHAP_FILT_UV_S1 |
CALL EXCH_UV_XYZ_RL(uFld,vFld,.TRUE.,myThid) |
./pkg/shap_filt/shap_filt_uv_s1.F |
285 |
SHAP_FILT_UV_S1 |
CALL EXCH_UV_XY_RL(uFld,vFld,.TRUE.,myThid) |
./pkg/shap_filt/shap_filt_uv_s1.F |
47 |
SHAP_FILT_UV_S1 |
INTEGER myThid |
./pkg/shap_filt/shap_filt_uv_s1.F |
65 |
SHAP_FILT_UV_S1 |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/shap_filt/shap_filt_uv_s1.F |
66 |
SHAP_FILT_UV_S1 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/shap_filt/shap_filt_uv_s1.F |
86 |
SHAP_FILT_UV_S1 |
CALL EXCH_UV_XYZ_RL(tmpFldU,tmpFldV,.TRUE.,myThid) |
./pkg/shap_filt/shap_filt_uv_s1.F |
88 |
SHAP_FILT_UV_S1 |
CALL EXCH_UV_XY_RL(tmpFldU,tmpFldV,.TRUE.,myThid) |
./pkg/shap_filt/shap_filt_uv_s1.F |
91 |
SHAP_FILT_UV_S1 |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/shap_filt/shap_filt_uv_s1.F |
92 |
SHAP_FILT_UV_S1 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/shap_filt/shap_filt_uv_s2.F |
107 |
SHAP_FILT_UV_S2 |
CALL EXCH_UV_3D_RL( tmpFldU,tmpFldV, .TRUE., kSize, myThid ) |
./pkg/shap_filt/shap_filt_uv_s2.F |
110 |
SHAP_FILT_UV_S2 |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/shap_filt/shap_filt_uv_s2.F |
111 |
SHAP_FILT_UV_S2 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/shap_filt/shap_filt_uv_s2.F |
116 |
SHAP_FILT_UV_S2 |
& CALL MOM_CALC_HFACZ(bi,bj,k,hFacZ,r_hFacZ,myThid) |
./pkg/shap_filt/shap_filt_uv_s2.F |
11 |
SHAP_FILT_UV_S2 |
I kSize, myTime, myThid ) |
./pkg/shap_filt/shap_filt_uv_s2.F |
123 |
SHAP_FILT_UV_S2 |
& hDiv,myThid) |
./pkg/shap_filt/shap_filt_uv_s2.F |
128 |
SHAP_FILT_UV_S2 |
& hFacZ,vort3,myThid) |
./pkg/shap_filt/shap_filt_uv_s2.F |
133 |
SHAP_FILT_UV_S2 |
& hFacZ,vort3,myThid) |
./pkg/shap_filt/shap_filt_uv_s2.F |
147 |
SHAP_FILT_UV_S2 |
I k,bi,bj,myThid) |
./pkg/shap_filt/shap_filt_uv_s2.F |
169 |
SHAP_FILT_UV_S2 |
I myThid) |
./pkg/shap_filt/shap_filt_uv_s2.F |
205 |
SHAP_FILT_UV_S2 |
& hDiv, bi,bj, myThid ) |
./pkg/shap_filt/shap_filt_uv_s2.F |
221 |
SHAP_FILT_UV_S2 |
& hDiv, bi,bj, myThid ) |
./pkg/shap_filt/shap_filt_uv_s2.F |
245 |
SHAP_FILT_UV_S2 |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/shap_filt/shap_filt_uv_s2.F |
246 |
SHAP_FILT_UV_S2 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/shap_filt/shap_filt_uv_s2.F |
268 |
SHAP_FILT_UV_S2 |
& CALL EXCH_UV_3D_RL( uFld, vFld, .TRUE., kSize, myThid ) |
./pkg/shap_filt/shap_filt_uv_s2.F |
51 |
SHAP_FILT_UV_S2 |
INTEGER myThid |
./pkg/shap_filt/shap_filt_uv_s2.F |
85 |
SHAP_FILT_UV_S2 |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/shap_filt/shap_filt_uv_s2.F |
86 |
SHAP_FILT_UV_S2 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/shap_filt/shap_filt_uv_s2c.F |
11 |
SHAP_FILT_UV_S2C |
I kSize, myTime, myThid ) |
./pkg/shap_filt/shap_filt_uv_s2c.F |
195 |
SHAP_FILT_UV_S2C |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/shap_filt/shap_filt_uv_s2c.F |
196 |
SHAP_FILT_UV_S2C |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/shap_filt/shap_filt_uv_s2c.F |
217 |
SHAP_FILT_UV_S2C |
CALL EXCH_UV_XYZ_RL(uFld,vFld,.TRUE.,myThid) |
./pkg/shap_filt/shap_filt_uv_s2c.F |
219 |
SHAP_FILT_UV_S2C |
CALL EXCH_UV_XY_RL(uFld,vFld,.TRUE.,myThid) |
./pkg/shap_filt/shap_filt_uv_s2c.F |
47 |
SHAP_FILT_UV_S2C |
INTEGER myThid |
./pkg/shap_filt/shap_filt_uv_s2c.F |
64 |
SHAP_FILT_UV_S2C |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/shap_filt/shap_filt_uv_s2c.F |
65 |
SHAP_FILT_UV_S2C |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/shap_filt/shap_filt_uv_s2c.F |
87 |
SHAP_FILT_UV_S2C |
CALL EXCH_UV_XYZ_RL(tmpFldU,tmpFldV,.TRUE.,myThid) |
./pkg/shap_filt/shap_filt_uv_s2c.F |
89 |
SHAP_FILT_UV_S2C |
CALL EXCH_UV_XY_RL(tmpFldU,tmpFldV,.TRUE.,myThid) |
./pkg/shap_filt/shap_filt_uv_s2c.F |
93 |
SHAP_FILT_UV_S2C |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/shap_filt/shap_filt_uv_s2c.F |
94 |
SHAP_FILT_UV_S2C |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/shap_filt/shap_filt_uv_s4.F |
11 |
SHAP_FILT_UV_S4 |
I kSize, myTime, myThid ) |
./pkg/shap_filt/shap_filt_uv_s4.F |
133 |
SHAP_FILT_UV_S4 |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/shap_filt/shap_filt_uv_s4.F |
134 |
SHAP_FILT_UV_S4 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/shap_filt/shap_filt_uv_s4.F |
160 |
SHAP_FILT_UV_S4 |
CALL EXCH_UV_XYZ_RL(tmpFldU,tmpFldV,.TRUE.,myThid) |
./pkg/shap_filt/shap_filt_uv_s4.F |
162 |
SHAP_FILT_UV_S4 |
CALL EXCH_UV_XY_RL(tmpFldU,tmpFldV,.TRUE.,myThid) |
./pkg/shap_filt/shap_filt_uv_s4.F |
165 |
SHAP_FILT_UV_S4 |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/shap_filt/shap_filt_uv_s4.F |
166 |
SHAP_FILT_UV_S4 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/shap_filt/shap_filt_uv_s4.F |
265 |
SHAP_FILT_UV_S4 |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/shap_filt/shap_filt_uv_s4.F |
266 |
SHAP_FILT_UV_S4 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/shap_filt/shap_filt_uv_s4.F |
285 |
SHAP_FILT_UV_S4 |
CALL EXCH_UV_XYZ_RL(uFld,vFld,.TRUE.,myThid) |
./pkg/shap_filt/shap_filt_uv_s4.F |
287 |
SHAP_FILT_UV_S4 |
CALL EXCH_UV_XY_RL(uFld,vFld,.TRUE.,myThid) |
./pkg/shap_filt/shap_filt_uv_s4.F |
47 |
SHAP_FILT_UV_S4 |
INTEGER myThid |
./pkg/shap_filt/shap_filt_uv_s4.F |
64 |
SHAP_FILT_UV_S4 |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/shap_filt/shap_filt_uv_s4.F |
65 |
SHAP_FILT_UV_S4 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/shap_filt/shap_filt_uv_s4.F |
85 |
SHAP_FILT_UV_S4 |
CALL EXCH_UV_XYZ_RL(tmpFldU,tmpFldV,.TRUE.,myThid) |
./pkg/shap_filt/shap_filt_uv_s4.F |
87 |
SHAP_FILT_UV_S4 |
CALL EXCH_UV_XY_RL(tmpFldU,tmpFldV,.TRUE.,myThid) |
./pkg/shap_filt/shap_filt_uv_s4.F |
90 |
SHAP_FILT_UV_S4 |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/shap_filt/shap_filt_uv_s4.F |
91 |
SHAP_FILT_UV_S4 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/shap_filt/shap_filt_v.F |
23 |
SHAP_FILT_V |
INTEGER myThid |
./pkg/shap_filt/shap_filt_v.F |
6 |
SHAP_FILT_V |
SUBROUTINE SHAP_FILT_V( vVel,bi,bj,K,myCurrentTime,myThid ) |
./model/src/external_forcing.F |
104 |
EXTERNAL_FORCING_U |
& myTime, myThid ) |
./model/src/external_forcing.F |
116 |
EXTERNAL_FORCING_V |
I myTime, myThid ) |
./model/src/external_forcing.F |
12 |
EXTERNAL_FORCING_U |
I myTime, myThid ) |
./model/src/external_forcing.F |
147 |
EXTERNAL_FORCING_V |
INTEGER myThid |
./model/src/external_forcing.F |
169 |
EXTERNAL_FORCING_V |
& myTime, myThid ) |
./model/src/external_forcing.F |
175 |
EXTERNAL_FORCING_V |
& myTime, myThid ) |
./model/src/external_forcing.F |
194 |
EXTERNAL_FORCING_V |
I myTime, myThid ) |
./model/src/external_forcing.F |
201 |
EXTERNAL_FORCING_V |
I myTime, myThid ) |
./model/src/external_forcing.F |
208 |
EXTERNAL_FORCING_V |
& myTime, myThid ) |
./model/src/external_forcing.F |
220 |
EXTERNAL_FORCING_T |
I myTime, myThid ) |
./model/src/external_forcing.F |
252 |
EXTERNAL_FORCING_T |
INTEGER myThid |
./model/src/external_forcing.F |
281 |
EXTERNAL_FORCING_T |
& myTime, myThid ) |
./model/src/external_forcing.F |
287 |
EXTERNAL_FORCING_T |
& myTime, myThid ) |
./model/src/external_forcing.F |
345 |
EXTERNAL_FORCING_T |
I myTime, myThid ) |
./model/src/external_forcing.F |
351 |
EXTERNAL_FORCING_T |
& bi,bj, kLev, myTime, myThid ) |
./model/src/external_forcing.F |
362 |
EXTERNAL_FORCING_T |
I myTime, 1, myThid ) |
./model/src/external_forcing.F |
383 |
EXTERNAL_FORCING_T |
& myTime, myThid ) |
./model/src/external_forcing.F |
391 |
EXTERNAL_FORCING_T |
I myTime, myThid ) |
./model/src/external_forcing.F |
398 |
EXTERNAL_FORCING_T |
& myTime, myThid ) |
./model/src/external_forcing.F |
410 |
EXTERNAL_FORCING_S |
I myTime, myThid ) |
./model/src/external_forcing.F |
43 |
EXTERNAL_FORCING_U |
INTEGER myThid |
./model/src/external_forcing.F |
443 |
EXTERNAL_FORCING_S |
INTEGER myThid |
./model/src/external_forcing.F |
465 |
EXTERNAL_FORCING_S |
& myTime, myThid ) |
./model/src/external_forcing.F |
471 |
EXTERNAL_FORCING_S |
& myTime, myThid ) |
./model/src/external_forcing.F |
529 |
EXTERNAL_FORCING_S |
I myTime, myThid ) |
./model/src/external_forcing.F |
535 |
EXTERNAL_FORCING_S |
& bi,bj, kLev, myTime, myThid ) |
./model/src/external_forcing.F |
542 |
EXTERNAL_FORCING_S |
I myTime, myThid ) |
./model/src/external_forcing.F |
548 |
EXTERNAL_FORCING_S |
& myTime, myThid ) |
./model/src/external_forcing.F |
556 |
EXTERNAL_FORCING_S |
I myTime, myThid ) |
./model/src/external_forcing.F |
563 |
EXTERNAL_FORCING_S |
& myTime, myThid ) |
./model/src/external_forcing.F |
65 |
EXTERNAL_FORCING_U |
& myTime, myThid ) |
./model/src/external_forcing.F |
71 |
EXTERNAL_FORCING_U |
& myTime, myThid ) |
./model/src/external_forcing.F |
90 |
EXTERNAL_FORCING_U |
I myTime, myThid ) |
./model/src/external_forcing.F |
97 |
EXTERNAL_FORCING_U |
I myTime, myThid ) |
./pkg/shelfice/shelfice_check.F |
21 |
SHELFICE_CHECK |
INTEGER myThid |
./pkg/shelfice/shelfice_check.F |
29 |
SHELFICE_CHECK |
_BEGIN_MASTER(myThid) |
./pkg/shelfice/shelfice_check.F |
33 |
SHELFICE_CHECK |
& SQUEEZE_RIGHT, myThid ) |
./pkg/shelfice/shelfice_check.F |
39 |
SHELFICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/shelfice/shelfice_check.F |
5 |
SHELFICE_CHECK |
SUBROUTINE SHELFICE_CHECK( myThid ) |
./pkg/shelfice/shelfice_check.F |
72 |
SHELFICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/shelfice/shelfice_check.F |
75 |
SHELFICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/shelfice/shelfice_check.F |
83 |
SHELFICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/shelfice/shelfice_check.F |
86 |
SHELFICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/shelfice/shelfice_check.F |
92 |
SHELFICE_CHECK |
_END_MASTER(myThid) |
./pkg/shelfice/shelfice_forcing.F |
104 |
SHELFICE_FORCING_S |
I myTime, myThid ) |
./pkg/shelfice/shelfice_forcing.F |
137 |
SHELFICE_FORCING_S |
INTEGER myThid |
./pkg/shelfice/shelfice_forcing.F |
13 |
SHELFICE_FORCING_T |
I myTime, myThid ) |
./pkg/shelfice/shelfice_forcing.F |
45 |
SHELFICE_FORCING_T |
INTEGER myThid |
./pkg/shelfice/shelfice_init_fixed.F |
104 |
SHELFICE_INIT_FIXED |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/shelfice/shelfice_init_fixed.F |
111 |
SHELFICE_INIT_FIXED |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/shelfice/shelfice_init_fixed.F |
24 |
SHELFICE_INIT_FIXED |
INTEGER myThid |
./pkg/shelfice/shelfice_init_fixed.F |
43 |
SHELFICE_INIT_FIXED |
CALL SHELFICE_MNC_INIT( myThid ) |
./pkg/shelfice/shelfice_init_fixed.F |
53 |
SHELFICE_INIT_FIXED |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/shelfice/shelfice_init_fixed.F |
54 |
SHELFICE_INIT_FIXED |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/shelfice/shelfice_init_fixed.F |
6 |
SHELFICE_INIT_FIXED |
SUBROUTINE SHELFICE_INIT_FIXED( myThid ) |
./pkg/shelfice/shelfice_init_fixed.F |
74 |
SHELFICE_INIT_FIXED |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/shelfice/shelfice_init_fixed.F |
81 |
SHELFICE_INIT_FIXED |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/shelfice/shelfice_init_fixed.F |
89 |
SHELFICE_INIT_FIXED |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/shelfice/shelfice_init_fixed.F |
97 |
SHELFICE_INIT_FIXED |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/shelfice/shelfice_init_varia.F |
26 |
SHELFICE_INIT_VARIA |
INTEGER myThid |
./pkg/shelfice/shelfice_init_varia.F |
35 |
SHELFICE_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/shelfice/shelfice_init_varia.F |
36 |
SHELFICE_INIT_VARIA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/shelfice/shelfice_init_varia.F |
52 |
SHELFICE_INIT_VARIA |
& shelficeLoadAnomaly, 0, myThid ) |
./pkg/shelfice/shelfice_init_varia.F |
54 |
SHELFICE_INIT_VARIA |
_EXCH_XY_RS( shelficeLoadAnomaly, myThid ) |
./pkg/shelfice/shelfice_init_varia.F |
8 |
SHELFICE_INIT_VARIA |
SUBROUTINE SHELFICE_INIT_VARIA( myThid ) |
./pkg/shelfice/shelfice_mnc_init.F |
11 |
SHELFICE_MNC_INIT |
SUBROUTINE SHELFICE_MNC_INIT( myThid ) |
./pkg/shelfice/shelfice_mnc_init.F |
23 |
SHELFICE_MNC_INIT |
INTEGER myThid |
./pkg/shelfice/shelfice_mnc_init.F |
30 |
SHELFICE_MNC_INIT |
CALL MNC_CW_ADD_VNAME('fwFlux','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/shelfice/shelfice_mnc_init.F |
31 |
SHELFICE_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('fwFlux','units','m/s', myThid) |
./pkg/shelfice/shelfice_mnc_init.F |
33 |
SHELFICE_MNC_INIT |
& 'Net fresh water flux into shelfice',myThid) |
./pkg/shelfice/shelfice_mnc_init.F |
35 |
SHELFICE_MNC_INIT |
CALL MNC_CW_ADD_VNAME('heatFlux','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/shelfice/shelfice_mnc_init.F |
36 |
SHELFICE_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('heatFlux','units','W/m^2',myThid) |
./pkg/shelfice/shelfice_mnc_init.F |
38 |
SHELFICE_MNC_INIT |
& 'Net heat flux into shelfice',myThid) |
./pkg/shelfice/shelfice_mnc_init.F |
43 |
SHELFICE_MNC_INIT |
& 'fwFluxtave','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/shelfice/shelfice_mnc_init.F |
45 |
SHELFICE_MNC_INIT |
& 'fwFluxtave','units','m/s',myThid) |
./pkg/shelfice/shelfice_mnc_init.F |
47 |
SHELFICE_MNC_INIT |
& 'Time-averaged net freshwater flux into shelfice', myThid) |
./pkg/shelfice/shelfice_mnc_init.F |
50 |
SHELFICE_MNC_INIT |
& 'heatFluxtave','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/shelfice/shelfice_mnc_init.F |
52 |
SHELFICE_MNC_INIT |
& 'heatFluxtave','units','W/m^2', myThid) |
./pkg/shelfice/shelfice_mnc_init.F |
54 |
SHELFICE_MNC_INIT |
& 'Time-averaged net heat flux into shelfice', myThid) |
./pkg/shelfice/shelfice_output.F |
100 |
SHELFICE_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/shelfice/shelfice_output.F |
101 |
SHELFICE_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/shelfice/shelfice_output.F |
102 |
SHELFICE_OUTPUT |
CALL TIMEAVE_RESET( shelfice_frshFluxtave, 1, bi,bj, myThid ) |
./pkg/shelfice/shelfice_output.F |
103 |
SHELFICE_OUTPUT |
CALL TIMEAVE_RESET( shelfice_heatFluxtave, 1, bi,bj, myThid ) |
./pkg/shelfice/shelfice_output.F |
110 |
SHELFICE_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/shelfice/shelfice_output.F |
111 |
SHELFICE_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/shelfice/shelfice_output.F |
136 |
SHELFICE_OUTPUT |
I myTime, myIter, myThid ) |
./pkg/shelfice/shelfice_output.F |
143 |
SHELFICE_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/shelfice/shelfice_output.F |
144 |
SHELFICE_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/shelfice/shelfice_output.F |
146 |
SHELFICE_OUTPUT |
& SHELFICE_timeAve, 1, bi, bj, myThid ) |
./pkg/shelfice/shelfice_output.F |
148 |
SHELFICE_OUTPUT |
& SHELFICE_timeAve, 1, bi, bj, myThid ) |
./pkg/shelfice/shelfice_output.F |
159 |
SHELFICE_OUTPUT |
CALL MNC_CW_SET_UDIM('shelfice_tave', -1, myThid) |
./pkg/shelfice/shelfice_output.F |
161 |
SHELFICE_OUTPUT |
& 'T', myTime, myThid ) |
./pkg/shelfice/shelfice_output.F |
162 |
SHELFICE_OUTPUT |
CALL MNC_CW_SET_UDIM('shelfice_tave', 0, myThid) |
./pkg/shelfice/shelfice_output.F |
164 |
SHELFICE_OUTPUT |
& 'iter', myIter, myThid ) |
./pkg/shelfice/shelfice_output.F |
168 |
SHELFICE_OUTPUT |
& 'fwFluxtave', Shelfice_FrshFluxtave, myThid ) |
./pkg/shelfice/shelfice_output.F |
170 |
SHELFICE_OUTPUT |
& 'heatFluxtave', Shelfice_HeatFluxtave, myThid ) |
./pkg/shelfice/shelfice_output.F |
176 |
SHELFICE_OUTPUT |
& shelfice_frshFluxtave, myIter, myThid ) |
./pkg/shelfice/shelfice_output.F |
178 |
SHELFICE_OUTPUT |
& shelfice_heatFluxtave, myIter, myThid ) |
./pkg/shelfice/shelfice_output.F |
182 |
SHELFICE_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/shelfice/shelfice_output.F |
183 |
SHELFICE_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/shelfice/shelfice_output.F |
184 |
SHELFICE_OUTPUT |
CALL TIMEAVE_RESET( shelfice_frshFluxtave, 1, bi,bj, myThid ) |
./pkg/shelfice/shelfice_output.F |
185 |
SHELFICE_OUTPUT |
CALL TIMEAVE_RESET( shelfice_heatFluxtave, 1, bi,bj, myThid ) |
./pkg/shelfice/shelfice_output.F |
36 |
SHELFICE_OUTPUT |
INTEGER myThid |
./pkg/shelfice/shelfice_output.F |
68 |
SHELFICE_OUTPUT |
CALL MNC_CW_SET_UDIM('shelfice', -1, myThid) |
./pkg/shelfice/shelfice_output.F |
69 |
SHELFICE_OUTPUT |
CALL MNC_CW_RL_W_S('D','shelfice',0,0,'T', myTime, myThid) |
./pkg/shelfice/shelfice_output.F |
70 |
SHELFICE_OUTPUT |
CALL MNC_CW_SET_UDIM('shelfice', 0, myThid) |
./pkg/shelfice/shelfice_output.F |
71 |
SHELFICE_OUTPUT |
CALL MNC_CW_I_W_S('I','shelfice',0,0,'iter', myIter, myThid) |
./pkg/shelfice/shelfice_output.F |
73 |
SHELFICE_OUTPUT |
& myTime,myThid) |
./pkg/shelfice/shelfice_output.F |
75 |
SHELFICE_OUTPUT |
& shelfIceFreshWaterFlux,myThid) |
./pkg/shelfice/shelfice_output.F |
77 |
SHELFICE_OUTPUT |
& shelfIceHeatFlux,myThid) |
./pkg/shelfice/shelfice_output.F |
83 |
SHELFICE_OUTPUT |
& shelficeFreshWaterFlux,myIter,myThid) |
./pkg/shelfice/shelfice_output.F |
85 |
SHELFICE_OUTPUT |
& shelficeHeatFlux,myIter,myThid) |
./pkg/shelfice/shelfice_output.F |
9 |
SHELFICE_OUTPUT |
SUBROUTINE SHELFICE_OUTPUT( myTime, myIter, myThid ) |
./pkg/shelfice/shelfice_readparms.F |
103 |
SHELFICE_READPARMS |
& SQUEEZE_RIGHT, myThid ) |
./pkg/shelfice/shelfice_readparms.F |
10 |
SHELFICE_READPARMS |
SUBROUTINE SHELFICE_READPARMS( myThid ) |
./pkg/shelfice/shelfice_readparms.F |
127 |
SHELFICE_READPARMS |
_END_MASTER(myThid) |
./pkg/shelfice/shelfice_readparms.F |
27 |
SHELFICE_READPARMS |
INTEGER myThid |
./pkg/shelfice/shelfice_readparms.F |
57 |
SHELFICE_READPARMS |
_BEGIN_MASTER(myThid) |
./pkg/shelfice/shelfice_readparms.F |
94 |
SHELFICE_READPARMS |
& SQUEEZE_RIGHT, myThid ) |
./pkg/shelfice/shelfice_readparms.F |
98 |
SHELFICE_READPARMS |
I myThid ) |
./pkg/shelfice/shelfice_thermodynamics.F |
106 |
SHELFICE_THERMODYNAMICS |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/shelfice/shelfice_thermodynamics.F |
107 |
SHELFICE_THERMODYNAMICS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/shelfice/shelfice_thermodynamics.F |
10 |
SHELFICE_THERMODYNAMICS |
I myTime, myIter, myThid ) |
./pkg/shelfice/shelfice_thermodynamics.F |
303 |
SHELFICE_THERMODYNAMICS |
& 0,1,0,1,1,myThid) |
./pkg/shelfice/shelfice_thermodynamics.F |
305 |
SHELFICE_THERMODYNAMICS |
& 0,1,0,1,1,myThid) |
./pkg/shelfice/shelfice_thermodynamics.F |
309 |
SHELFICE_THERMODYNAMICS |
& 'SHIForcT',0, 1,0,1,1,myThid) |
./pkg/shelfice/shelfice_thermodynamics.F |
313 |
SHELFICE_THERMODYNAMICS |
& 'SHIForcS',0, 1,0,1,1,myThid) |
./pkg/shelfice/shelfice_thermodynamics.F |
41 |
SHELFICE_THERMODYNAMICS |
INTEGER myThid |
./model/src/external_forcing_surf.F |
12 |
EXTERNAL_FORCING_SURF |
I myTime, myIter, myThid ) |
./model/src/external_forcing_surf.F |
171 |
EXTERNAL_FORCING_SURF |
& 'TRELAX ',0, 1,2,bi,bj,myThid) |
./model/src/external_forcing_surf.F |
177 |
EXTERNAL_FORCING_SURF |
& 'SRELAX ',0, 1,2,bi,bj,myThid) |
./model/src/external_forcing_surf.F |
240 |
EXTERNAL_FORCING_SURF |
I myTime,myIter,myThid ) |
./model/src/external_forcing_surf.F |
370 |
EXTERNAL_FORCING_SURF |
I myTime,myIter,myThid ) |
./model/src/external_forcing_surf.F |
433 |
EXTERNAL_FORCING_SURF |
I myTime,myIter,myThid ) |
./model/src/external_forcing_surf.F |
51 |
EXTERNAL_FORCING_SURF |
INTEGER myThid |
./pkg/shelfice/shelfice_u_drag.F |
15 |
SHELFICE_U_DRAG |
I myThid) |
./pkg/shelfice/shelfice_u_drag.F |
43 |
SHELFICE_U_DRAG |
INTEGER myThid |
./pkg/shelfice/shelfice_u_drag.F |
94 |
SHELFICE_U_DRAG |
& myThid) |
./pkg/shelfice/shelfice_update_masks.F |
12 |
SHELFICE_UPDATE_MASKS |
I myThid ) |
./pkg/shelfice/shelfice_update_masks.F |
40 |
SHELFICE_UPDATE_MASKS |
INTEGER myThid |
./pkg/shelfice/shelfice_update_masks.F |
54 |
SHELFICE_UPDATE_MASKS |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/shelfice/shelfice_update_masks.F |
55 |
SHELFICE_UPDATE_MASKS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/shelfice/shelfice_update_masks.F |
69 |
SHELFICE_UPDATE_MASKS |
& 1, 0, myThid ) |
./pkg/shelfice/shelfice_update_masks.F |
78 |
SHELFICE_UPDATE_MASKS |
_EXCH_XY_RS(R_shelfIce, myThid ) |
./pkg/shelfice/shelfice_update_masks.F |
82 |
SHELFICE_UPDATE_MASKS |
DO bj=myByLo(myThid), myByHi(myThid) |
./pkg/shelfice/shelfice_update_masks.F |
83 |
SHELFICE_UPDATE_MASKS |
DO bi=myBxLo(myThid), myBxHi(myThid) |
./pkg/shelfice/shelfice_v_drag.F |
15 |
SHELFICE_V_DRAG |
I myThid) |
./pkg/shelfice/shelfice_v_drag.F |
43 |
SHELFICE_V_DRAG |
INTEGER myThid |
./pkg/shelfice/shelfice_v_drag.F |
93 |
SHELFICE_V_DRAG |
CALL DIAGNOSTICS_FILL(vDragTerms,'VSHIDrag',k,1,2,bi,bj,myThid) |
./pkg/showflops/showflops_init.F |
29 |
SHOWFLOPS_INIT |
INTEGER myThid |
./pkg/showflops/showflops_init.F |
45 |
SHOWFLOPS_INIT |
IF (debugMode) CALL DEBUG_ENTER('SHOWFLOPS_INIT',myThid) |
./pkg/showflops/showflops_init.F |
50 |
SHOWFLOPS_INIT |
_BEGIN_MASTER( myThid ) |
./pkg/showflops/showflops_init.F |
52 |
SHOWFLOPS_INIT |
_END_MASTER( myThid ) |
./pkg/showflops/showflops_init.F |
56 |
SHOWFLOPS_INIT |
_BEGIN_MASTER( myThid ) |
./pkg/showflops/showflops_init.F |
73 |
SHOWFLOPS_INIT |
_END_MASTER( myThid ) |
./pkg/showflops/showflops_init.F |
77 |
SHOWFLOPS_INIT |
_BEGIN_MASTER( myThid ) |
./pkg/showflops/showflops_init.F |
86 |
SHOWFLOPS_INIT |
_END_MASTER( myThid ) |
./pkg/showflops/showflops_init.F |
91 |
SHOWFLOPS_INIT |
IF (debugMode) CALL DEBUG_LEAVE('SHOWFLOPS_INIT',myThid) |
./pkg/showflops/showflops_init.F |
9 |
SHOWFLOPS_INIT |
SUBROUTINE SHOWFLOPS_INIT( myThid ) |
./pkg/showflops/showflops_inloop.F |
105 |
SHOWFLOPS_INLOOP |
_END_MASTER( myThid ) |
./pkg/showflops/showflops_inloop.F |
10 |
SHOWFLOPS_INLOOP |
SUBROUTINE SHOWFLOPS_INLOOP( iloop, myThid ) |
./pkg/showflops/showflops_inloop.F |
110 |
SHOWFLOPS_INLOOP |
IF (debugMode) CALL DEBUG_LEAVE('SHOWFLOPS_INLOOP',myThid) |
./pkg/showflops/showflops_inloop.F |
36 |
SHOWFLOPS_INLOOP |
INTEGER myThid |
./pkg/showflops/showflops_inloop.F |
51 |
SHOWFLOPS_INLOOP |
IF (debugMode) CALL DEBUG_ENTER('SHOWFLOPS_INLOOP',myThid) |
./pkg/showflops/showflops_inloop.F |
56 |
SHOWFLOPS_INLOOP |
RC_CONT=RUNCLOCK_CONTINUE( myThid ) |
./pkg/showflops/showflops_inloop.F |
62 |
SHOWFLOPS_INLOOP |
_BEGIN_MASTER( myThid ) |
./pkg/showflops/showflops_inloop.F |
71 |
SHOWFLOPS_INLOOP |
_END_MASTER( myThid ) |
./pkg/showflops/showflops_inloop.F |
75 |
SHOWFLOPS_INLOOP |
_BEGIN_MASTER( myThid ) |
./pkg/showflops/showflops_inloop.F |
92 |
SHOWFLOPS_INLOOP |
_END_MASTER( myThid ) |
./pkg/showflops/showflops_inloop.F |
96 |
SHOWFLOPS_INLOOP |
_BEGIN_MASTER( myThid ) |
./pkg/showflops/showflops_insolve.F |
102 |
SHOWFLOPS_INSOLVE |
_END_MASTER( myThid ) |
./pkg/showflops/showflops_insolve.F |
107 |
SHOWFLOPS_INSOLVE |
IF (debugMode) CALL DEBUG_LEAVE('SHOWFLOPS_INSOLVE',myThid) |
./pkg/showflops/showflops_insolve.F |
10 |
SHOWFLOPS_INSOLVE |
SUBROUTINE SHOWFLOPS_INSOLVE( myThid ) |
./pkg/showflops/showflops_insolve.F |
36 |
SHOWFLOPS_INSOLVE |
INTEGER myThid |
./pkg/showflops/showflops_insolve.F |
51 |
SHOWFLOPS_INSOLVE |
IF (debugMode) CALL DEBUG_ENTER('SHOWFLOPS_INSOLVE',myThid) |
./pkg/showflops/showflops_insolve.F |
56 |
SHOWFLOPS_INSOLVE |
_BEGIN_MASTER( myThid ) |
./pkg/showflops/showflops_insolve.F |
68 |
SHOWFLOPS_INSOLVE |
_END_MASTER( myThid ) |
./pkg/showflops/showflops_insolve.F |
72 |
SHOWFLOPS_INSOLVE |
_BEGIN_MASTER( myThid ) |
./pkg/showflops/showflops_insolve.F |
89 |
SHOWFLOPS_INSOLVE |
_END_MASTER( myThid ) |
./pkg/showflops/showflops_insolve.F |
93 |
SHOWFLOPS_INSOLVE |
_BEGIN_MASTER( myThid ) |
./eesupp/src/bar_check.F |
34 |
BAR_CHECK |
INTEGER myThid |
./eesupp/src/bar_check.F |
49 |
BAR_CHECK |
DO bj = myByLo(myThid), myByHi(myThid) |
./eesupp/src/bar_check.F |
50 |
BAR_CHECK |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./eesupp/src/bar_check.F |
64 |
BAR_CHECK |
WRITE(msgBuf,'(A,I4,A,I8)') 'BAR_CHECK: thread', myThid, |
./eesupp/src/bar_check.F |
66 |
BAR_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./eesupp/src/bar_check.F |
68 |
BAR_CHECK |
WRITE(0,*) myThid, barrierId, 'barStatus=', barStatus |
./eesupp/src/bar_check.F |
9 |
BAR_CHECK |
SUBROUTINE BAR_CHECK( barrierId, myThid ) |
./model/src/find_alpha.F |
117 |
FIND_ALPHA |
I myThid ) |
./model/src/find_alpha.F |
123 |
FIND_ALPHA |
I myThid ) |
./model/src/find_alpha.F |
129 |
FIND_ALPHA |
I myThid ) |
./model/src/find_alpha.F |
13 |
FIND_ALPHA |
I myThid ) |
./model/src/find_alpha.F |
221 |
FIND_ALPHA |
I myThid ) |
./model/src/find_alpha.F |
227 |
FIND_ALPHA |
I myThid ) |
./model/src/find_alpha.F |
233 |
FIND_ALPHA |
I myThid ) |
./model/src/find_alpha.F |
281 |
FIND_BETA |
I myThid ) |
./model/src/find_alpha.F |
308 |
FIND_BETA |
INTEGER myThid |
./model/src/find_alpha.F |
377 |
FIND_BETA |
I myThid ) |
./model/src/find_alpha.F |
383 |
FIND_BETA |
I myThid ) |
./model/src/find_alpha.F |
389 |
FIND_BETA |
I myThid ) |
./model/src/find_alpha.F |
45 |
FIND_ALPHA |
INTEGER myThid |
./model/src/find_alpha.F |
467 |
FIND_BETA |
I myThid ) |
./model/src/find_alpha.F |
473 |
FIND_BETA |
I myThid ) |
./model/src/find_alpha.F |
479 |
FIND_BETA |
I myThid ) |
./pkg/smooth/smooth_basic2d.F |
31 |
SMOOTH_BASIC2D |
integer myThid |
./pkg/smooth/smooth_basic2d.F |
41 |
SMOOTH_BASIC2D |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/smooth/smooth_basic2d.F |
42 |
SMOOTH_BASIC2D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/smooth/smooth_basic2d.F |
52 |
SMOOTH_BASIC2D |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/smooth/smooth_basic2d.F |
53 |
SMOOTH_BASIC2D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/smooth/smooth_basic2d.F |
65 |
SMOOTH_BASIC2D |
_EXCH_XY_RL ( smooth2D_Kux , myThid ) |
./pkg/smooth/smooth_basic2d.F |
66 |
SMOOTH_BASIC2D |
_EXCH_XY_RL ( smooth2D_Kvy , myThid ) |
./pkg/smooth/smooth_basic2d.F |
70 |
SMOOTH_BASIC2D |
_EXCH_XY_RL ( fld_in , myThid ) |
./pkg/smooth/smooth_correl2d.F |
31 |
SMOOTH_CORREL2D |
integer myThid |
./pkg/smooth/smooth_correl2d.F |
47 |
SMOOTH_CORREL2D |
_EXCH_XY_RL ( smooth2D_Kux, myThid ) |
./pkg/smooth/smooth_correl2d.F |
48 |
SMOOTH_CORREL2D |
_EXCH_XY_RL ( smooth2D_Kvy, myThid ) |
./pkg/smooth/smooth_correl2d.F |
55 |
SMOOTH_CORREL2D |
_EXCH_XY_RL ( smooth2Dnorm, myThid ) |
./pkg/smooth/smooth_correl2d.F |
68 |
SMOOTH_CORREL2D |
_EXCH_XY_RL ( fld_in , myThid ) |
./pkg/smooth/smooth_correl2d.F |
85 |
SMOOTH_CORREL2D |
_EXCH_XY_RL ( fld_in , myThid ) |
./pkg/smooth/smooth_correl2dw.F |
101 |
SMOOTH_CORREL2DW |
_EXCH_XY_RL ( fld_in , myThid ) |
./pkg/smooth/smooth_correl2dw.F |
34 |
SMOOTH_CORREL2DW |
integer myThid |
./pkg/smooth/smooth_correl3d.F |
113 |
SMOOTH_CORREL3D |
_EXCH_XYZ_RL ( fld_in , myThid ) |
./pkg/smooth/smooth_correl3d.F |
31 |
SMOOTH_CORREL3D |
integer myThid |
./pkg/smooth/smooth_correl3d.F |
44 |
SMOOTH_CORREL3D |
& Nr,smooth3D_Kwx,1, 1, myThid ) |
./pkg/smooth/smooth_correl3d.F |
46 |
SMOOTH_CORREL3D |
& Nr,smooth3D_Kwy,2, 1, myThid ) |
./pkg/smooth/smooth_correl3d.F |
48 |
SMOOTH_CORREL3D |
& Nr,smooth3D_Kwz,3, 1, myThid ) |
./pkg/smooth/smooth_correl3d.F |
50 |
SMOOTH_CORREL3D |
& Nr,smooth3D_Kux,4, 1, myThid ) |
./pkg/smooth/smooth_correl3d.F |
52 |
SMOOTH_CORREL3D |
& Nr,smooth3D_Kvy,5, 1, myThid ) |
./pkg/smooth/smooth_correl3d.F |
54 |
SMOOTH_CORREL3D |
& Nr,smooth3D_Kuz,6, 1, myThid ) |
./pkg/smooth/smooth_correl3d.F |
56 |
SMOOTH_CORREL3D |
& Nr,smooth3D_Kvz,7, 1, myThid ) |
./pkg/smooth/smooth_correl3d.F |
58 |
SMOOTH_CORREL3D |
& Nr,smooth3D_Kuy,8, 1, myThid ) |
./pkg/smooth/smooth_correl3d.F |
60 |
SMOOTH_CORREL3D |
& Nr,smooth3D_Kvx,9, 1, myThid ) |
./pkg/smooth/smooth_correl3d.F |
62 |
SMOOTH_CORREL3D |
& Nr,smooth3D_kappaR,10, 1, myThid ) |
./pkg/smooth/smooth_correl3d.F |
63 |
SMOOTH_CORREL3D |
_EXCH_XYZ_RL ( smooth3D_Kwx, myThid ) |
./pkg/smooth/smooth_correl3d.F |
64 |
SMOOTH_CORREL3D |
_EXCH_XYZ_RL ( smooth3D_Kwy, myThid ) |
./pkg/smooth/smooth_correl3d.F |
65 |
SMOOTH_CORREL3D |
_EXCH_XYZ_RL ( smooth3D_Kwz, myThid ) |
./pkg/smooth/smooth_correl3d.F |
66 |
SMOOTH_CORREL3D |
_EXCH_XYZ_RL ( smooth3D_Kux, myThid ) |
./pkg/smooth/smooth_correl3d.F |
67 |
SMOOTH_CORREL3D |
_EXCH_XYZ_RL ( smooth3D_Kvy, myThid ) |
./pkg/smooth/smooth_correl3d.F |
68 |
SMOOTH_CORREL3D |
_EXCH_XYZ_RL ( smooth3D_Kuz, myThid ) |
./pkg/smooth/smooth_correl3d.F |
69 |
SMOOTH_CORREL3D |
_EXCH_XYZ_RL ( smooth3D_Kvz, myThid ) |
./pkg/smooth/smooth_correl3d.F |
70 |
SMOOTH_CORREL3D |
_EXCH_XYZ_RL ( smooth3D_Kuy, myThid ) |
./pkg/smooth/smooth_correl3d.F |
71 |
SMOOTH_CORREL3D |
_EXCH_XYZ_RL ( smooth3D_Kvx, myThid ) |
./pkg/smooth/smooth_correl3d.F |
72 |
SMOOTH_CORREL3D |
_EXCH_XYZ_RL ( smooth3D_kappaR, myThid ) |
./pkg/smooth/smooth_correl3d.F |
79 |
SMOOTH_CORREL3D |
_EXCH_XYZ_RL ( smooth3Dnorm, myThid ) |
./pkg/smooth/smooth_correl3d.F |
94 |
SMOOTH_CORREL3D |
_EXCH_XYZ_RL ( fld_in , myThid ) |
./pkg/smooth/smooth_diff2d.F |
187 |
SMOOTH_DIFF2D |
_EXCH_XY_RL ( gt_in , myThid ) |
./pkg/smooth/smooth_diff2d.F |
188 |
SMOOTH_DIFF2D |
_EXCH_XY_RL ( fld_in , myThid ) |
./pkg/smooth/smooth_diff2d.F |
189 |
SMOOTH_DIFF2D |
_EXCH_XY_RL ( gtm1_in , myThid ) |
./pkg/smooth/smooth_diff2d.F |
28 |
SMOOTH_DIFF2D |
integer myThid,myIter(nSx,nSy),key_in |
./pkg/smooth/smooth_diff2d.F |
70 |
SMOOTH_DIFF2D |
_EXCH_XY_RL ( fld_in , myThid ) |
./pkg/smooth/smooth_diff2d.F |
71 |
SMOOTH_DIFF2D |
_EXCH_XY_RL ( gt_in , myThid ) |
./pkg/smooth/smooth_diff2d.F |
72 |
SMOOTH_DIFF2D |
_EXCH_XY_RL ( gtm1_in , myThid ) |
./pkg/smooth/smooth_diff2d.F |
73 |
SMOOTH_DIFF2D |
_EXCH_XY_RL ( smooth2Dmask , myThid ) |
./pkg/smooth/smooth_diff3d.F |
131 |
SMOOTH_DIFF3D |
_EXCH_XYZ_RL ( gt_in , myThid ) |
./pkg/smooth/smooth_diff3d.F |
134 |
SMOOTH_DIFF3D |
CALL SMOOTH_RHS( fld_in, gT_in, myThid ) |
./pkg/smooth/smooth_diff3d.F |
144 |
SMOOTH_DIFF3D |
& myIter(bi,bj) , myThid ) |
./pkg/smooth/smooth_diff3d.F |
170 |
SMOOTH_DIFF3D |
I myThid ) |
./pkg/smooth/smooth_diff3d.F |
176 |
SMOOTH_DIFF3D |
_EXCH_XYZ_RL ( fld_in , myThid ) |
./pkg/smooth/smooth_diff3d.F |
177 |
SMOOTH_DIFF3D |
_EXCH_XYZ_RL ( gt_in , myThid ) |
./pkg/smooth/smooth_diff3d.F |
178 |
SMOOTH_DIFF3D |
_EXCH_XYZ_RL ( gtm1_in , myThid ) |
./pkg/smooth/smooth_diff3d.F |
31 |
SMOOTH_DIFF3D |
integer myThid, myIter(nSx,nSy) |
./pkg/smooth/smooth_diff3d.F |
69 |
SMOOTH_DIFF3D |
_EXCH_XYZ_RL ( fld_in , myThid ) |
./pkg/smooth/smooth_diff3d.F |
70 |
SMOOTH_DIFF3D |
_EXCH_XYZ_RL ( gt_in , myThid ) |
./pkg/smooth/smooth_diff3d.F |
71 |
SMOOTH_DIFF3D |
_EXCH_XYZ_RL ( gtm1_in , myThid ) |
./pkg/smooth/smooth_filtervar2d.F |
128 |
SMOOTH_FILTERVAR2D |
_EXCH_XY_RL ( smoothTmpFld,myThid ) |
./pkg/smooth/smooth_filtervar2d.F |
191 |
SMOOTH_FILTERVAR2D |
_EXCH_XY_RL ( smoothTmpFld, myThid ) |
./pkg/smooth/smooth_filtervar2d.F |
235 |
SMOOTH_FILTERVAR2D |
_EXCH_XY_RL ( smooth2Dnorm, myThid ) |
./pkg/smooth/smooth_filtervar2d.F |
29 |
SMOOTH_FILTERVAR2D |
integer myThid, nbRand |
./pkg/smooth/smooth_filtervar2d.F |
57 |
SMOOTH_FILTERVAR2D |
_EXCH_XY_RL ( smooth2D_Kux, myThid ) |
./pkg/smooth/smooth_filtervar2d.F |
58 |
SMOOTH_FILTERVAR2D |
_EXCH_XY_RL ( smooth2D_Kvy, myThid ) |
./pkg/smooth/smooth_filtervar3d.F |
163 |
SMOOTH_FILTERVAR3D |
_EXCH_XYZ_RL ( smoothTmpFld , myThid ) |
./pkg/smooth/smooth_filtervar3d.F |
166 |
SMOOTH_FILTERVAR3D |
call SMOOTH_DIFF3D(smoothTmpFld,nbt_in,myThid) |
./pkg/smooth/smooth_filtervar3d.F |
232 |
SMOOTH_FILTERVAR3D |
_EXCH_XYZ_RL ( smoothTmpFld, myThid ) |
./pkg/smooth/smooth_filtervar3d.F |
235 |
SMOOTH_FILTERVAR3D |
call SMOOTH_DIFF3D(smoothTmpFld,nbt_in,myThid) |
./pkg/smooth/smooth_filtervar3d.F |
279 |
SMOOTH_FILTERVAR3D |
& Nr, smooth3Dnorm, 1, 1, myThid ) |
./pkg/smooth/smooth_filtervar3d.F |
280 |
SMOOTH_FILTERVAR3D |
_EXCH_XYZ_RL ( smooth3Dnorm, myThid ) |
./pkg/smooth/smooth_filtervar3d.F |
30 |
SMOOTH_FILTERVAR3D |
integer myThid, nbRand |
./pkg/smooth/smooth_filtervar3d.F |
38 |
SMOOTH_FILTERVAR3D |
jtlo = mybylo(myThid) |
./pkg/smooth/smooth_filtervar3d.F |
39 |
SMOOTH_FILTERVAR3D |
jthi = mybyhi(myThid) |
./pkg/smooth/smooth_filtervar3d.F |
40 |
SMOOTH_FILTERVAR3D |
itlo = mybxlo(myThid) |
./pkg/smooth/smooth_filtervar3d.F |
41 |
SMOOTH_FILTERVAR3D |
ithi = mybxhi(myThid) |
./pkg/smooth/smooth_filtervar3d.F |
55 |
SMOOTH_FILTERVAR3D |
& 1, 1, myThid ) |
./pkg/smooth/smooth_filtervar3d.F |
57 |
SMOOTH_FILTERVAR3D |
& 2, 1, myThid ) |
./pkg/smooth/smooth_filtervar3d.F |
59 |
SMOOTH_FILTERVAR3D |
& 3, 1, myThid ) |
./pkg/smooth/smooth_filtervar3d.F |
61 |
SMOOTH_FILTERVAR3D |
& 4, 1, myThid ) |
./pkg/smooth/smooth_filtervar3d.F |
63 |
SMOOTH_FILTERVAR3D |
& 5, 1, myThid ) |
./pkg/smooth/smooth_filtervar3d.F |
65 |
SMOOTH_FILTERVAR3D |
& 6, 1, myThid ) |
./pkg/smooth/smooth_filtervar3d.F |
67 |
SMOOTH_FILTERVAR3D |
& 7, 1, myThid ) |
./pkg/smooth/smooth_filtervar3d.F |
69 |
SMOOTH_FILTERVAR3D |
& 8, 1, myThid ) |
./pkg/smooth/smooth_filtervar3d.F |
6 |
SMOOTH_FILTERVAR3D |
subroutine SMOOTH_FILTERVAR3D (smoothOpNb,myThid) |
./pkg/smooth/smooth_filtervar3d.F |
71 |
SMOOTH_FILTERVAR3D |
& 9, 1, myThid ) |
./pkg/smooth/smooth_filtervar3d.F |
73 |
SMOOTH_FILTERVAR3D |
& 10,1, myThid ) |
./pkg/smooth/smooth_filtervar3d.F |
74 |
SMOOTH_FILTERVAR3D |
_EXCH_XYZ_RL ( smooth3D_Kwx, myThid ) |
./pkg/smooth/smooth_filtervar3d.F |
75 |
SMOOTH_FILTERVAR3D |
_EXCH_XYZ_RL ( smooth3D_Kwy, myThid ) |
./pkg/smooth/smooth_filtervar3d.F |
76 |
SMOOTH_FILTERVAR3D |
_EXCH_XYZ_RL ( smooth3D_Kwz, myThid ) |
./pkg/smooth/smooth_filtervar3d.F |
77 |
SMOOTH_FILTERVAR3D |
_EXCH_XYZ_RL ( smooth3D_Kux, myThid ) |
./pkg/smooth/smooth_filtervar3d.F |
78 |
SMOOTH_FILTERVAR3D |
_EXCH_XYZ_RL ( smooth3D_Kvy, myThid ) |
./pkg/smooth/smooth_filtervar3d.F |
79 |
SMOOTH_FILTERVAR3D |
_EXCH_XYZ_RL ( smooth3D_Kuz, myThid ) |
./pkg/smooth/smooth_filtervar3d.F |
80 |
SMOOTH_FILTERVAR3D |
_EXCH_XYZ_RL ( smooth3D_Kvz, myThid ) |
./pkg/smooth/smooth_filtervar3d.F |
81 |
SMOOTH_FILTERVAR3D |
_EXCH_XYZ_RL ( smooth3D_Kuy, myThid ) |
./pkg/smooth/smooth_filtervar3d.F |
82 |
SMOOTH_FILTERVAR3D |
_EXCH_XYZ_RL ( smooth3D_Kvx, myThid ) |
./pkg/smooth/smooth_filtervar3d.F |
83 |
SMOOTH_FILTERVAR3D |
_EXCH_XYZ_RL ( smooth3D_kappaR, myThid ) |
./pkg/smooth/smooth_hetero2d.F |
32 |
SMOOTH_HETERO2D |
integer myThid |
./pkg/smooth/smooth_hetero2d.F |
44 |
SMOOTH_HETERO2D |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/smooth/smooth_hetero2d.F |
45 |
SMOOTH_HETERO2D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/smooth/smooth_hetero2d.F |
55 |
SMOOTH_HETERO2D |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/smooth/smooth_hetero2d.F |
56 |
SMOOTH_HETERO2D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/smooth/smooth_hetero2d.F |
68 |
SMOOTH_HETERO2D |
_EXCH_XY_RL ( smooth2D_Kux , myThid ) |
./pkg/smooth/smooth_hetero2d.F |
69 |
SMOOTH_HETERO2D |
_EXCH_XY_RL ( smooth2D_Kvy , myThid ) |
./pkg/smooth/smooth_hetero2d.F |
73 |
SMOOTH_HETERO2D |
_EXCH_XY_RL ( fld_in , myThid ) |
./model/src/find_rho.F |
150 |
FIND_RHO_2D |
I myThid ) |
./model/src/find_rho.F |
156 |
FIND_RHO_2D |
I myThid ) |
./model/src/find_rho.F |
162 |
FIND_RHO_2D |
I myThid ) |
./model/src/find_rho.F |
185 |
FIND_RHO_2D |
I myThid ) |
./model/src/find_rho.F |
191 |
FIND_RHO_2D |
I myThid ) |
./model/src/find_rho.F |
197 |
FIND_RHO_2D |
I myThid ) |
./model/src/find_rho.F |
214 |
FIND_RHO_2D |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/find_rho.F |
229 |
FIND_RHOP0 |
I myThid ) |
./model/src/find_rho.F |
253 |
FIND_RHOP0 |
INTEGER myThid |
./model/src/find_rho.F |
25 |
FIND_RHO_2D |
I k, bi, bj, myThid ) |
./model/src/find_rho.F |
318 |
FIND_BULKMOD |
I myThid ) |
./model/src/find_rho.F |
344 |
FIND_BULKMOD |
INTEGER myThid |
./model/src/find_rho.F |
426 |
FIND_RHONUM |
I myThid ) |
./model/src/find_rho.F |
453 |
FIND_RHONUM |
INTEGER myThid |
./model/src/find_rho.F |
492 |
FIND_RHODEN |
I myThid ) |
./model/src/find_rho.F |
519 |
FIND_RHODEN |
INTEGER myThid |
./model/src/find_rho.F |
570 |
FIND_RHO_SCALAR |
I myThid ) |
./model/src/find_rho.F |
57 |
FIND_RHO_2D |
INTEGER myThid |
./model/src/find_rho.F |
591 |
FIND_RHO_SCALAR |
INTEGER myThid |
./model/src/find_rho.F |
626 |
FIND_RHO_SCALAR |
& SQUEEZE_RIGHT , myThid ) |
./model/src/find_rho.F |
645 |
FIND_RHO_SCALAR |
& SQUEEZE_RIGHT , myThid ) |
./model/src/find_rho.F |
649 |
FIND_RHO_SCALAR |
& SQUEEZE_RIGHT , myThid ) |
./model/src/find_rho.F |
769 |
FIND_RHO_SCALAR |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/find_rho.F |
783 |
LOOK_FOR_NEG_SALINITY |
I k, bi, bj, myThid ) |
./model/src/find_rho.F |
809 |
LOOK_FOR_NEG_SALINITY |
INTEGER myThid |
./model/src/find_rho.F |
832 |
LOOK_FOR_NEG_SALINITY |
& SQUEEZE_RIGHT , myThid ) |
./model/src/find_rho.F |
836 |
LOOK_FOR_NEG_SALINITY |
& SQUEEZE_RIGHT , myThid ) |
./model/src/find_rho.F |
85 |
FIND_RHO_2D |
I k, bi, bj, myThid ) |
./pkg/smooth/smooth_impldiff.F |
10 |
SMOOTH_IMPLDIFF |
I myThid ) |
./pkg/smooth/smooth_impldiff.F |
47 |
SMOOTH_IMPLDIFF |
INTEGER myThid |
./pkg/smooth/smooth_init2d.F |
26 |
SMOOTH_INIT2D |
integer myThid |
./pkg/smooth/smooth_init2d.F |
46 |
SMOOTH_INIT2D |
_EXCH_XY_RL ( smooth2D_Lx, myThid ) |
./pkg/smooth/smooth_init2d.F |
47 |
SMOOTH_INIT2D |
_EXCH_XY_RL ( smooth2D_Ly, myThid ) |
./pkg/smooth/smooth_init2d.F |
49 |
SMOOTH_INIT2D |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/smooth/smooth_init2d.F |
50 |
SMOOTH_INIT2D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/smooth/smooth_init2d.F |
61 |
SMOOTH_INIT2D |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/smooth/smooth_init2d.F |
62 |
SMOOTH_INIT2D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/smooth/smooth_init2d.F |
74 |
SMOOTH_INIT2D |
_EXCH_XY_RL ( smooth2D_Kux , myThid ) |
./pkg/smooth/smooth_init2d.F |
75 |
SMOOTH_INIT2D |
_EXCH_XY_RL ( smooth2D_Kvy , myThid ) |
./pkg/smooth/smooth_init3d.F |
111 |
SMOOTH_INIT3D |
_EXCH_XYZ_RL( smooth3D_kappaR, myThid ) |
./pkg/smooth/smooth_init3d.F |
164 |
SMOOTH_INIT3D |
_EXCH_XYZ_RL( smooth3D_kappaR, myThid ) |
./pkg/smooth/smooth_init3d.F |
165 |
SMOOTH_INIT3D |
_EXCH_XYZ_RL( smooth3D_Kwx, myThid ) |
./pkg/smooth/smooth_init3d.F |
166 |
SMOOTH_INIT3D |
_EXCH_XYZ_RL( smooth3D_Kwy, myThid ) |
./pkg/smooth/smooth_init3d.F |
167 |
SMOOTH_INIT3D |
_EXCH_XYZ_RL( smooth3D_Kwz, myThid ) |
./pkg/smooth/smooth_init3d.F |
168 |
SMOOTH_INIT3D |
_EXCH_XYZ_RL( smooth3D_Kux, myThid ) |
./pkg/smooth/smooth_init3d.F |
169 |
SMOOTH_INIT3D |
_EXCH_XYZ_RL( smooth3D_Kvy, myThid ) |
./pkg/smooth/smooth_init3d.F |
170 |
SMOOTH_INIT3D |
_EXCH_XYZ_RL( smooth3D_Kuz, myThid ) |
./pkg/smooth/smooth_init3d.F |
171 |
SMOOTH_INIT3D |
_EXCH_XYZ_RL( smooth3D_Kvz, myThid ) |
./pkg/smooth/smooth_init3d.F |
172 |
SMOOTH_INIT3D |
_EXCH_XYZ_RL( smooth3D_Kuy, myThid ) |
./pkg/smooth/smooth_init3d.F |
173 |
SMOOTH_INIT3D |
_EXCH_XYZ_RL( smooth3D_Kvx, myThid ) |
./pkg/smooth/smooth_init3d.F |
36 |
SMOOTH_INIT3D |
integer myThid |
./pkg/smooth/smooth_init_fixed.F |
31 |
SMOOTH_INIT_FIXED |
integer myThid |
./pkg/smooth/smooth_init_varia.F |
15 |
SMOOTH_INIT_VARIA |
integer myThid |
./pkg/smooth/smooth_readparms.F |
56 |
SMOOTH_READPARMS |
_BEGIN_MASTER( myThid ) |
./pkg/smooth/smooth_readparms.F |
88 |
SMOOTH_READPARMS |
I myThid ) |
./pkg/smooth/smooth_rhs.F |
336 |
SMOOTH_RHS |
CALL EXCH_UV_XYZ_RL(fZon,fMer,.TRUE.,myThid) |
./pkg/smooth/smooth_rhs.F |
337 |
SMOOTH_RHS |
_EXCH_XYZ_RL ( fVerT, myThid ) |
./pkg/smooth/smooth_rhs.F |
339 |
SMOOTH_RHS |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/smooth/smooth_rhs.F |
340 |
SMOOTH_RHS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/smooth/smooth_rhs.F |
370 |
SMOOTH_RHS |
_EXCH_XYZ_RL ( gt_in , myThid ) |
./pkg/smooth/smooth_rhs.F |
62 |
SMOOTH_RHS |
INTEGER myThid |
./pkg/smooth/smooth_rhs.F |
72 |
SMOOTH_RHS |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/smooth/smooth_rhs.F |
73 |
SMOOTH_RHS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/smooth/smooth_rhs.F |
7 |
SMOOTH_RHS |
SUBROUTINE SMOOTH_RHS(fld_in,gt_in,myThid) |
./pkg/sphere/exch_all_2d_rl.F |
103 |
EXCH_ALLGATHER_2D_RL |
_END_MASTER( myThid ) |
./pkg/sphere/exch_all_2d_rl.F |
61 |
EXCH_ALLGATHER_2D_RL |
_BEGIN_MASTER( myThid ) |
./model/src/forward_step.F |
1001 |
FORWARD_STEP |
CALL GRIDALT_UPDATE(myThid) |
./model/src/forward_step.F |
1007 |
FORWARD_STEP |
CALL TIMER_START('FIZHI [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
1008 |
FORWARD_STEP |
CALL STEP_FIZHI_CORR ( myTime, myIter, myThid, dTtracerLev(1) ) |
./model/src/forward_step.F |
1009 |
FORWARD_STEP |
CALL TIMER_STOP ('FIZHI [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
1016 |
FORWARD_STEP |
CALL TIMER_START('FLOATS [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
1017 |
FORWARD_STEP |
CALL FLT_MAIN( myTime, myIter, myThid ) |
./model/src/forward_step.F |
1018 |
FORWARD_STEP |
CALL TIMER_STOP ('FLOATS [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
1024 |
FORWARD_STEP |
CALL TIMER_START('DO_STATEVARS_TAVE [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
1025 |
FORWARD_STEP |
CALL DO_STATEVARS_TAVE( myTime, myIter, myThid ) |
./model/src/forward_step.F |
1026 |
FORWARD_STEP |
CALL TIMER_STOP ('DO_STATEVARS_TAVE [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
1031 |
FORWARD_STEP |
CALL NEST_PARENT_IO_2( myTime, myIter, myThid ) |
./model/src/forward_step.F |
1037 |
FORWARD_STEP |
CALL NEST_CHILD_TRANSP( myTime, myIter, myThid ) |
./model/src/forward_step.F |
1044 |
FORWARD_STEP |
CALL TIMER_START('MONITOR [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
1045 |
FORWARD_STEP |
CALL MONITOR( myTime, myIter, myThid ) |
./model/src/forward_step.F |
1046 |
FORWARD_STEP |
CALL TIMER_STOP ('MONITOR [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
1053 |
FORWARD_STEP |
CALL TIMER_START('COST_TILE [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
1054 |
FORWARD_STEP |
CALL COST_TILE ( myTime, myIter, myThid ) |
./model/src/forward_step.F |
1055 |
FORWARD_STEP |
CALL TIMER_STOP ('COST_TILE [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
1067 |
FORWARD_STEP |
CALL TIMER_START('DO_THE_MODEL_IO [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
1068 |
FORWARD_STEP |
CALL DO_THE_MODEL_IO( modelEnd, myTime, myIter, myThid ) |
./model/src/forward_step.F |
1069 |
FORWARD_STEP |
CALL TIMER_STOP ('DO_THE_MODEL_IO [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
1072 |
FORWARD_STEP |
CALL TIMER_START('DO_WRITE_PICKUP [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
1073 |
FORWARD_STEP |
CALL DO_WRITE_PICKUP( modelEnd, myTime, myIter, myThid ) |
./model/src/forward_step.F |
1074 |
FORWARD_STEP |
CALL TIMER_STOP ('DO_WRITE_PICKUP [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
1085 |
FORWARD_STEP |
CALL AUTODIFF_INADMODE_SET( myThid ) |
./model/src/forward_step.F |
1095 |
FORWARD_STEP |
IF (debugMode) CALL DEBUG_LEAVE('FORWARD_STEP',myThid) |
./model/src/forward_step.F |
168 |
FORWARD_STEP |
INTEGER myThid |
./model/src/forward_step.F |
186 |
FORWARD_STEP |
IF (debugMode) CALL DEBUG_ENTER('FORWARD_STEP',myThid) |
./model/src/forward_step.F |
190 |
FORWARD_STEP |
CALL AUTODIFF_INADMODE_UNSET( myThid ) |
./model/src/forward_step.F |
20 |
FORWARD_STEP |
SUBROUTINE FORWARD_STEP( iloop, myTime, myIter, myThid ) |
./model/src/forward_step.F |
217 |
FORWARD_STEP |
CALL DIAGNOSTICS_SWITCH_ONOFF( myTime, myIter, myThid ) |
./model/src/forward_step.F |
219 |
FORWARD_STEP |
CALL TIMER_START('DO_STATEVARS_DIAGS [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
220 |
FORWARD_STEP |
CALL DO_STATEVARS_DIAGS( myTime, 0, myIter, myThid ) |
./model/src/forward_step.F |
221 |
FORWARD_STEP |
CALL TIMER_STOP ('DO_STATEVARS_DIAGS [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
227 |
FORWARD_STEP |
CALL NEST_CHILD_SETMEMO( myTime, myIter, myThid ) |
./model/src/forward_step.F |
233 |
FORWARD_STEP |
CALL NEST_PARENT_IO_1( myTime, myIter, myThid ) |
./model/src/forward_step.F |
239 |
FORWARD_STEP |
IF (debugMode) CALL DEBUG_CALL('',myThid) |
./model/src/forward_step.F |
249 |
FORWARD_STEP |
IF (debugMode) CALL DEBUG_CALL('LOAD_FIELDS_DRIVER',myThid) |
./model/src/forward_step.F |
258 |
FORWARD_STEP |
CALL TIMER_START('LOAD_FIELDS_DRIVER [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
259 |
FORWARD_STEP |
CALL LOAD_FIELDS_DRIVER( myTime, myIter, myThid ) |
./model/src/forward_step.F |
260 |
FORWARD_STEP |
CALL TIMER_STOP ('LOAD_FIELDS_DRIVER [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
266 |
FORWARD_STEP |
IF (debugMode) CALL DEBUG_CALL('BULKF_FORCING',myThid) |
./model/src/forward_step.F |
268 |
FORWARD_STEP |
CALL TIMER_START('BULKF_FORCING [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
270 |
FORWARD_STEP |
CALL BULKF_FORCING( myTime, myIter, myThid ) |
./model/src/forward_step.F |
271 |
FORWARD_STEP |
CALL TIMER_STOP ('BULKF_FORCING [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
279 |
FORWARD_STEP |
IF (debugMode) CALL DEBUG_CALL('CHEAPAML',myThid) |
./model/src/forward_step.F |
283 |
FORWARD_STEP |
CALL CHEAPAML( myTime, myIter,myThid ) |
./model/src/forward_step.F |
292 |
FORWARD_STEP |
& CALL CTRL_MAP_FORCING (myThid) |
./model/src/forward_step.F |
296 |
FORWARD_STEP |
CALL DUMMY_IN_STEPPING( myTime, myIter, myThid ) |
./model/src/forward_step.F |
303 |
FORWARD_STEP |
CALL TIMER_START('CPL_EXPORT-IMPORT [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
304 |
FORWARD_STEP |
CALL CPL_EXPORT_MY_DATA( myTime, myIter, myThid ) |
./model/src/forward_step.F |
305 |
FORWARD_STEP |
CALL CPL_IMPORT_EXTERNAL_DATA( myTime, myIter, myThid ) |
./model/src/forward_step.F |
306 |
FORWARD_STEP |
CALL TIMER_STOP ('CPL_EXPORT-IMPORT [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
311 |
FORWARD_STEP |
CALL TIMER_START('OASIS_PUT-GET [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
313 |
FORWARD_STEP |
CALL OASIS_PUT( myTime, myIter, myThid ) |
./model/src/forward_step.F |
315 |
FORWARD_STEP |
CALL OASIS_GET( myTime, myIter, myThid ) |
./model/src/forward_step.F |
316 |
FORWARD_STEP |
CALL TIMER_STOP ('OASIS_PUT-GET [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
324 |
FORWARD_STEP |
IF (debugMode) CALL DEBUG_CALL('EBM',myThid) |
./model/src/forward_step.F |
326 |
FORWARD_STEP |
CALL TIMER_START('EBM [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
327 |
FORWARD_STEP |
CALL EBM_DRIVER ( myTime, myIter, myThid ) |
./model/src/forward_step.F |
328 |
FORWARD_STEP |
CALL TIMER_STOP ('EBM [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
335 |
FORWARD_STEP |
IF (debugMode) CALL DEBUG_CALL('DO_ATMOSPHERIC_PHYS',myThid) |
./model/src/forward_step.F |
337 |
FORWARD_STEP |
CALL TIMER_START('DO_ATMOSPHERIC_PHYS [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
338 |
FORWARD_STEP |
CALL DO_ATMOSPHERIC_PHYS( myTime, myIter, myThid ) |
./model/src/forward_step.F |
339 |
FORWARD_STEP |
CALL TIMER_STOP ('DO_ATMOSPHERIC_PHYS [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
377 |
FORWARD_STEP |
IF (debugMode) CALL DEBUG_CALL('DO_OCEANIC_PHYS',myThid) |
./model/src/forward_step.F |
379 |
FORWARD_STEP |
CALL TIMER_START('DO_OCEANIC_PHYS [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
380 |
FORWARD_STEP |
CALL DO_OCEANIC_PHYS( myTime, myIter, myThid ) |
./model/src/forward_step.F |
381 |
FORWARD_STEP |
CALL TIMER_STOP ('DO_OCEANIC_PHYS [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
430 |
FORWARD_STEP |
IF (debugMode) CALL DEBUG_CALL('GCHEM_CALC_TENDENCY',myThid) |
./model/src/forward_step.F |
432 |
FORWARD_STEP |
CALL TIMER_START('GCHEM_CALC_TENDENCY [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
433 |
FORWARD_STEP |
CALL GCHEM_CALC_TENDENCY( myTime, myIter, myThid ) |
./model/src/forward_step.F |
434 |
FORWARD_STEP |
CALL TIMER_STOP ('GCHEM_CALC_TENDENCY [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
508 |
FORWARD_STEP |
IF (debugMode) CALL DEBUG_CALL('LONGSTEP_AVERAGE',myThid) |
./model/src/forward_step.F |
510 |
FORWARD_STEP |
CALL TIMER_START('LONGSTEP_AVERAGE [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
511 |
FORWARD_STEP |
CALL LONGSTEP_AVERAGE( myTime, myIter, myThid ) |
./model/src/forward_step.F |
512 |
FORWARD_STEP |
CALL TIMER_STOP ('LONGSTEP_AVERAGE [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
516 |
FORWARD_STEP |
& CALL DEBUG_CALL('LONGSTEP_THERMODYNAMICS',myThid) |
./model/src/forward_step.F |
519 |
FORWARD_STEP |
& myThid) |
./model/src/forward_step.F |
520 |
FORWARD_STEP |
CALL LONGSTEP_THERMODYNAMICS( myTime, myIter, myThid ) |
./model/src/forward_step.F |
522 |
FORWARD_STEP |
& myThid) |
./model/src/forward_step.F |
529 |
FORWARD_STEP |
IF (debugMode) CALL DEBUG_CALL('THERMODYNAMICS',myThid) |
./model/src/forward_step.F |
533 |
FORWARD_STEP |
CALL TIMER_START('THERMODYNAMICS [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
534 |
FORWARD_STEP |
CALL THERMODYNAMICS( myTime, myIter, myThid ) |
./model/src/forward_step.F |
535 |
FORWARD_STEP |
CALL TIMER_STOP ('THERMODYNAMICS [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
546 |
FORWARD_STEP |
IF (debugMode) CALL DEBUG_CALL('LONGSTEP_AVERAGE',myThid) |
./model/src/forward_step.F |
548 |
FORWARD_STEP |
CALL TIMER_START('LONGSTEP_AVERAGE [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
549 |
FORWARD_STEP |
CALL LONGSTEP_AVERAGE( myTime, myIter, myThid ) |
./model/src/forward_step.F |
550 |
FORWARD_STEP |
CALL TIMER_STOP ('LONGSTEP_AVERAGE [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
554 |
FORWARD_STEP |
& CALL DEBUG_CALL('LONGSTEP_THERMODYNAMICS',myThid) |
./model/src/forward_step.F |
557 |
FORWARD_STEP |
& myThid) |
./model/src/forward_step.F |
558 |
FORWARD_STEP |
CALL LONGSTEP_THERMODYNAMICS( myTime, myIter, myThid ) |
./model/src/forward_step.F |
560 |
FORWARD_STEP |
& myThid) |
./model/src/forward_step.F |
567 |
FORWARD_STEP |
CALL TIMER_START('BLOCKING_EXCHANGES [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
568 |
FORWARD_STEP |
CALL DO_STAGGER_FIELDS_EXCHANGES( myTime, myIter, myThid ) |
./model/src/forward_step.F |
569 |
FORWARD_STEP |
CALL TIMER_STOP ('BLOCKING_EXCHANGES [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
578 |
FORWARD_STEP |
CALL TIMER_START('CPL_EXPORT-IMPORT [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
579 |
FORWARD_STEP |
CALL CPL_EXPORT_MY_DATA( myTime, myItP1, myThid ) |
./model/src/forward_step.F |
580 |
FORWARD_STEP |
CALL CPL_IMPORT_EXTERNAL_DATA( myTime, myItP1, myThid ) |
./model/src/forward_step.F |
581 |
FORWARD_STEP |
CALL TIMER_STOP ('CPL_EXPORT-IMPORT [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
584 |
FORWARD_STEP |
CALL OCN_APPLY_IMPORT( .FALSE., myTime, myIter, myThid ) |
./model/src/forward_step.F |
634 |
FORWARD_STEP |
IF (debugMode) CALL DEBUG_CALL('DYNAMICS',myThid) |
./model/src/forward_step.F |
636 |
FORWARD_STEP |
CALL TIMER_START('DYNAMICS [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
637 |
FORWARD_STEP |
CALL DYNAMICS( myTime, myIter, myThid ) |
./model/src/forward_step.F |
638 |
FORWARD_STEP |
CALL TIMER_STOP ('DYNAMICS [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
658 |
FORWARD_STEP |
CALL MNC_CW_CITER_SETG( 1, 1, -1, myIter , myThid ) |
./model/src/forward_step.F |
670 |
FORWARD_STEP |
CALL MNC_CW_CITER_SETG( 1, 1, myIter, -1 , myThid ) |
./model/src/forward_step.F |
706 |
FORWARD_STEP |
CALL TIMER_START('UPDATE_R_STAR [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
707 |
FORWARD_STEP |
CALL UPDATE_R_STAR( myTime, myIter, myThid ) |
./model/src/forward_step.F |
708 |
FORWARD_STEP |
CALL TIMER_STOP ('UPDATE_R_STAR [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
726 |
FORWARD_STEP |
CALL UPDATE_SIGMA( etaH, myTime, myIter, myThid ) |
./model/src/forward_step.F |
734 |
FORWARD_STEP |
CALL TIMER_START('UPDATE_SURF_DR [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
735 |
FORWARD_STEP |
CALL UPDATE_SURF_DR( myTime, myIter, myThid ) |
./model/src/forward_step.F |
736 |
FORWARD_STEP |
CALL TIMER_STOP ('UPDATE_SURF_DR [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
755 |
FORWARD_STEP |
CALL TIMER_START('UPDATE_CG2D [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
756 |
FORWARD_STEP |
CALL UPDATE_CG2D( myTime, myIter, myThid ) |
./model/src/forward_step.F |
757 |
FORWARD_STEP |
CALL TIMER_STOP ('UPDATE_CG2D [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
764 |
FORWARD_STEP |
CALL TIMER_START('SHAP_FILT_UV [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
769 |
FORWARD_STEP |
& myTime, myIter, myThid ) |
./model/src/forward_step.F |
771 |
FORWARD_STEP |
CALL SHAP_FILT_APPLY_UV( gU,gV,myTime,myIter,myThid) |
./model/src/forward_step.F |
772 |
FORWARD_STEP |
CALL TIMER_STOP ('SHAP_FILT_UV [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
777 |
FORWARD_STEP |
CALL TIMER_START('ZONAL_FILT_UV [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
781 |
FORWARD_STEP |
CALL ZONAL_FILT_APPLY_UV( uVel, vVel, myThid ) |
./model/src/forward_step.F |
783 |
FORWARD_STEP |
CALL ZONAL_FILT_APPLY_UV( gU, gV, myThid ) |
./model/src/forward_step.F |
784 |
FORWARD_STEP |
CALL TIMER_STOP ('ZONAL_FILT_UV [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
804 |
FORWARD_STEP |
CALL TIMER_START('SOLVE_FOR_PRESSURE [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
805 |
FORWARD_STEP |
CALL SOLVE_FOR_PRESSURE(myTime, myIter, myThid) |
./model/src/forward_step.F |
806 |
FORWARD_STEP |
CALL TIMER_STOP ('SOLVE_FOR_PRESSURE [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
827 |
FORWARD_STEP |
CALL TIMER_START('MOM_CORRECTION_STEP [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
828 |
FORWARD_STEP |
CALL MOMENTUM_CORRECTION_STEP(myTime, myIter, myThid) |
./model/src/forward_step.F |
829 |
FORWARD_STEP |
CALL TIMER_STOP ('MOM_CORRECTION_STEP [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
838 |
FORWARD_STEP |
CALL TIMER_START('UPDATE_ETAH [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
839 |
FORWARD_STEP |
CALL UPDATE_ETAH( myTime, myIter, myThid ) |
./model/src/forward_step.F |
840 |
FORWARD_STEP |
CALL TIMER_STOP ('UPDATE_ETAH [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
853 |
FORWARD_STEP |
CALL TIMER_START('CALC_R_STAR [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
854 |
FORWARD_STEP |
CALL CALC_R_STAR(etaH, myTime, myIter, myThid ) |
./model/src/forward_step.F |
855 |
FORWARD_STEP |
CALL TIMER_STOP ('CALC_R_STAR [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
863 |
FORWARD_STEP |
CALL TIMER_START('CALC_SURF_DR [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
864 |
FORWARD_STEP |
CALL CALC_SURF_DR(etaH, myTime, myIter, myThid ) |
./model/src/forward_step.F |
865 |
FORWARD_STEP |
CALL TIMER_STOP ('CALC_SURF_DR [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
880 |
FORWARD_STEP |
& CALL DEBUG_CALL('DO_STAGGER_FIELDS_EXCH.',myThid) |
./model/src/forward_step.F |
882 |
FORWARD_STEP |
CALL TIMER_START('BLOCKING_EXCHANGES [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
883 |
FORWARD_STEP |
CALL DO_STAGGER_FIELDS_EXCHANGES( myTime, myIter, myThid ) |
./model/src/forward_step.F |
884 |
FORWARD_STEP |
CALL TIMER_STOP ('BLOCKING_EXCHANGES [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
889 |
FORWARD_STEP |
CALL TIMER_START('DO_STATEVARS_DIAGS [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
890 |
FORWARD_STEP |
CALL DO_STATEVARS_DIAGS( myTime, 1, myIter, myThid ) |
./model/src/forward_step.F |
891 |
FORWARD_STEP |
CALL TIMER_STOP ('DO_STATEVARS_DIAGS [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
896 |
FORWARD_STEP |
IF (debugMode) CALL DEBUG_CALL('THERMODYNAMICS',myThid) |
./model/src/forward_step.F |
898 |
FORWARD_STEP |
CALL TIMER_START('THERMODYNAMICS [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
899 |
FORWARD_STEP |
CALL THERMODYNAMICS( myTime, myIter, myThid ) |
./model/src/forward_step.F |
900 |
FORWARD_STEP |
CALL TIMER_STOP ('THERMODYNAMICS [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
913 |
FORWARD_STEP |
CALL TIMER_START('TRC_CORRECTION_STEP [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
914 |
FORWARD_STEP |
CALL TRACERS_CORRECTION_STEP(myTime, myIter, myThid) |
./model/src/forward_step.F |
915 |
FORWARD_STEP |
CALL TIMER_STOP ('TRC_CORRECTION_STEP [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
924 |
FORWARD_STEP |
IF (debugMode) CALL DEBUG_CALL('LONGSTEP_AVERAGE',myThid) |
./model/src/forward_step.F |
926 |
FORWARD_STEP |
CALL TIMER_START('LONGSTEP_AVERAGE [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
929 |
FORWARD_STEP |
CALL LONGSTEP_AVERAGE( myTimeBeg, myIterBeg, myThid ) |
./model/src/forward_step.F |
930 |
FORWARD_STEP |
CALL TIMER_STOP ('LONGSTEP_AVERAGE [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
934 |
FORWARD_STEP |
& CALL DEBUG_CALL('LONGSTEP_THERMODYNAMICS',myThid) |
./model/src/forward_step.F |
937 |
FORWARD_STEP |
& myThid) |
./model/src/forward_step.F |
938 |
FORWARD_STEP |
CALL LONGSTEP_THERMODYNAMICS( myTime, myIter, myThid ) |
./model/src/forward_step.F |
940 |
FORWARD_STEP |
& myThid) |
./model/src/forward_step.F |
945 |
FORWARD_STEP |
CALL TIMER_START('LS_CORRECTION_STEP [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
946 |
FORWARD_STEP |
CALL LONGSTEP_CORRECTION_STEP(myTime, myIter, myThid) |
./model/src/forward_step.F |
947 |
FORWARD_STEP |
CALL TIMER_STOP ('LS_CORRECTION_STEP [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
971 |
FORWARD_STEP |
IF (debugMode) CALL DEBUG_CALL('GCHEM_FORCING_SEP',myThid) |
./model/src/forward_step.F |
973 |
FORWARD_STEP |
CALL TIMER_START('GCHEM_FORCING_SEP [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
974 |
FORWARD_STEP |
CALL GCHEM_FORCING_SEP( myTime,myIter,myThid ) |
./model/src/forward_step.F |
975 |
FORWARD_STEP |
CALL TIMER_STOP ('GCHEM_FORCING_SEP [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
987 |
FORWARD_STEP |
CALL TIMER_START('BLOCKING_EXCHANGES [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
988 |
FORWARD_STEP |
CALL DO_FIELDS_BLOCKING_EXCHANGES( myThid ) |
./model/src/forward_step.F |
989 |
FORWARD_STEP |
CALL TIMER_STOP ('BLOCKING_EXCHANGES [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
993 |
FORWARD_STEP |
CALL TIMER_START('DO_STATEVARS_DIAGS [FORWARD_STEP]',myThid) |
./model/src/forward_step.F |
994 |
FORWARD_STEP |
CALL DO_STATEVARS_DIAGS( myTime, 2, myIter, myThid ) |
./model/src/forward_step.F |
995 |
FORWARD_STEP |
CALL TIMER_STOP ('DO_STATEVARS_DIAGS [FORWARD_STEP]',myThid) |
./model/src/freesurf_rescale_g.F |
12 |
FREESURF_RESCALE_G |
I myThid ) |
./model/src/freesurf_rescale_g.F |
34 |
FREESURF_RESCALE_G |
INTEGER myThid |
./pkg/thsice/thsice_advdiff.F |
112 |
THSICE_ADVDIFF |
act1 = bi - myBxLo(myThid) |
./pkg/thsice/thsice_advdiff.F |
113 |
THSICE_ADVDIFF |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
./pkg/thsice/thsice_advdiff.F |
114 |
THSICE_ADVDIFF |
act2 = bj - myByLo(myThid) |
./pkg/thsice/thsice_advdiff.F |
115 |
THSICE_ADVDIFF |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
./pkg/thsice/thsice_advdiff.F |
116 |
THSICE_ADVDIFF |
act3 = myThid - 1 |
./pkg/thsice/thsice_advdiff.F |
15 |
THSICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
./pkg/thsice/thsice_advdiff.F |
179 |
THSICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
./pkg/thsice/thsice_advdiff.F |
214 |
THSICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
./pkg/thsice/thsice_advdiff.F |
227 |
THSICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
./pkg/thsice/thsice_advdiff.F |
245 |
THSICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
./pkg/thsice/thsice_advdiff.F |
294 |
THSICE_ADVDIFF |
diagSufx = THSICE_DIAG_SUFX( GAD_SI_FRAC, myThid ) |
./pkg/thsice/thsice_advdiff.F |
296 |
THSICE_ADVDIFF |
CALL DIAGNOSTICS_FILL( uTrans, diagName, 1,1,2,bi,bj, myThid ) |
./pkg/thsice/thsice_advdiff.F |
298 |
THSICE_ADVDIFF |
CALL DIAGNOSTICS_FILL( vTrans, diagName, 1,1,2,bi,bj, myThid ) |
./pkg/thsice/thsice_advdiff.F |
300 |
THSICE_ADVDIFF |
diagSufx = THSICE_DIAG_SUFX( GAD_SI_HSNOW, myThid ) |
./pkg/thsice/thsice_advdiff.F |
302 |
THSICE_ADVDIFF |
CALL DIAGNOSTICS_FILL( afx, diagName, 1,1,2,bi,bj, myThid ) |
./pkg/thsice/thsice_advdiff.F |
304 |
THSICE_ADVDIFF |
CALL DIAGNOSTICS_FILL( afy, diagName, 1,1,2,bi,bj, myThid ) |
./pkg/thsice/thsice_advdiff.F |
306 |
THSICE_ADVDIFF |
diagSufx = THSICE_DIAG_SUFX( GAD_SI_HICE, myThid ) |
./pkg/thsice/thsice_advdiff.F |
308 |
THSICE_ADVDIFF |
CALL DIAGNOSTICS_FILL( uTrIce, diagName, 1,1,2,bi,bj, myThid ) |
./pkg/thsice/thsice_advdiff.F |
310 |
THSICE_ADVDIFF |
CALL DIAGNOSTICS_FILL( vTrIce, diagName, 1,1,2,bi,bj, myThid ) |
./pkg/thsice/thsice_advdiff.F |
325 |
THSICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
./pkg/thsice/thsice_advdiff.F |
343 |
THSICE_ADVDIFF |
diagSufx = THSICE_DIAG_SUFX( GAD_SI_QICE1, myThid ) |
./pkg/thsice/thsice_advdiff.F |
345 |
THSICE_ADVDIFF |
CALL DIAGNOSTICS_FILL( afx, diagName, 1,1,2,bi,bj, myThid ) |
./pkg/thsice/thsice_advdiff.F |
347 |
THSICE_ADVDIFF |
CALL DIAGNOSTICS_FILL( afy, diagName, 1,1,2,bi,bj, myThid ) |
./pkg/thsice/thsice_advdiff.F |
362 |
THSICE_ADVDIFF |
I bi, bj, myTime, myIter, myThid ) |
./pkg/thsice/thsice_advdiff.F |
400 |
THSICE_ADVDIFF |
diagSufx = THSICE_DIAG_SUFX( GAD_SI_QICE2, myThid ) |
./pkg/thsice/thsice_advdiff.F |
402 |
THSICE_ADVDIFF |
CALL DIAGNOSTICS_FILL( afx, diagName, 1,1,2,bi,bj, myThid ) |
./pkg/thsice/thsice_advdiff.F |
404 |
THSICE_ADVDIFF |
CALL DIAGNOSTICS_FILL( afy, diagName, 1,1,2,bi,bj, myThid ) |
./pkg/thsice/thsice_advdiff.F |
500 |
THSICE_ADVDIFF |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/thsice/thsice_advdiff.F |
503 |
THSICE_ADVDIFF |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/thsice/thsice_advdiff.F |
511 |
THSICE_ADVDIFF |
CALL DIAGNOSTICS_FILL(iceMask,'SI_AdvFr',0,1,1,bi,bj,myThid) |
./pkg/thsice/thsice_advdiff.F |
516 |
THSICE_ADVDIFF |
I 0,1,1,bi,bj,myThid) |
./pkg/thsice/thsice_advdiff.F |
519 |
THSICE_ADVDIFF |
I 0,1,1,bi,bj,myThid) |
./pkg/thsice/thsice_advdiff.F |
521 |
THSICE_ADVDIFF |
IF ( DIAGNOSTICS_IS_ON('SI_AdvQ1',myThid) .OR. |
./pkg/thsice/thsice_advdiff.F |
522 |
THSICE_ADVDIFF |
& DIAGNOSTICS_IS_ON('SI_AdvQ2',myThid) ) THEN |
./pkg/thsice/thsice_advdiff.F |
531 |
THSICE_ADVDIFF |
I 0,1,2,bi,bj,myThid) |
./pkg/thsice/thsice_advdiff.F |
535 |
THSICE_ADVDIFF |
I 0,1,2,bi,bj,myThid) |
./pkg/thsice/thsice_advdiff.F |
61 |
THSICE_ADVDIFF |
INTEGER myThid |
./pkg/thsice/thsice_advection.F |
148 |
THSICE_ADVECTION |
act1 = bi - myBxLo(myThid) |
./pkg/thsice/thsice_advection.F |
149 |
THSICE_ADVECTION |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
./pkg/thsice/thsice_advection.F |
150 |
THSICE_ADVECTION |
act2 = bj - myByLo(myThid) |
./pkg/thsice/thsice_advection.F |
151 |
THSICE_ADVECTION |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
./pkg/thsice/thsice_advection.F |
152 |
THSICE_ADVECTION |
act3 = myThid - 1 |
./pkg/thsice/thsice_advection.F |
21 |
THSICE_ADVECTION |
I bi, bj, myTime, myIter, myThid) |
./pkg/thsice/thsice_advection.F |
229 |
THSICE_ADVECTION |
& withSigns, maskLocW,maskLocS, bi,bj, myThid ) |
./pkg/thsice/thsice_advection.F |
304 |
THSICE_ADVECTION |
& iceFld, bi,bj, myThid ) |
./pkg/thsice/thsice_advection.F |
307 |
THSICE_ADVECTION |
& iceVol, bi,bj, myThid ) |
./pkg/thsice/thsice_advection.F |
336 |
THSICE_ADVECTION |
O af, myThid ) |
./pkg/thsice/thsice_advection.F |
343 |
THSICE_ADVECTION |
O af, myThid ) |
./pkg/thsice/thsice_advection.F |
347 |
THSICE_ADVECTION |
O af, myThid ) |
./pkg/thsice/thsice_advection.F |
351 |
THSICE_ADVECTION |
O af, myThid ) |
./pkg/thsice/thsice_advection.F |
361 |
THSICE_ADVECTION |
& iceFld, bi,bj, myThid ) |
./pkg/thsice/thsice_advection.F |
364 |
THSICE_ADVECTION |
& iceVol, bi,bj, myThid ) |
./pkg/thsice/thsice_advection.F |
519 |
THSICE_ADVECTION |
& iceFld, bi,bj, myThid ) |
./pkg/thsice/thsice_advection.F |
522 |
THSICE_ADVECTION |
& iceVol, bi,bj, myThid ) |
./pkg/thsice/thsice_advection.F |
551 |
THSICE_ADVECTION |
O af, myThid ) |
./pkg/thsice/thsice_advection.F |
558 |
THSICE_ADVECTION |
O af, myThid ) |
./pkg/thsice/thsice_advection.F |
562 |
THSICE_ADVECTION |
O af, myThid ) |
./pkg/thsice/thsice_advection.F |
566 |
THSICE_ADVECTION |
O af, myThid ) |
./pkg/thsice/thsice_advection.F |
575 |
THSICE_ADVECTION |
& iceFld, bi,bj, myThid ) |
./pkg/thsice/thsice_advection.F |
578 |
THSICE_ADVECTION |
& iceVol, bi,bj, myThid ) |
./pkg/thsice/thsice_advection.F |
731 |
THSICE_ADVECTION |
& afx,afy, k, standardMessageUnit,bi,bj,myThid ) |
./pkg/thsice/thsice_advection.F |
91 |
THSICE_ADVECTION |
INTEGER myThid |
./pkg/thsice/thsice_albedo.F |
14 |
THSICE_ALBEDO |
I myTime, myIter, myThid ) |
./pkg/thsice/thsice_albedo.F |
176 |
THSICE_ALBEDO |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/thsice/thsice_albedo.F |
180 |
THSICE_ALBEDO |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/thsice/thsice_albedo.F |
63 |
THSICE_ALBEDO |
INTEGER myThid |
./pkg/thsice/thsice_ave.F |
102 |
THSICE_AVE |
& 1, thSIce_deltaT, bi, bj, myThid ) |
./pkg/thsice/thsice_ave.F |
104 |
THSICE_AVE |
& 1, thSIce_deltaT, bi, bj, myThid ) |
./pkg/thsice/thsice_ave.F |
106 |
THSICE_AVE |
& 1, thSIce_deltaT, bi, bj, myThid ) |
./pkg/thsice/thsice_ave.F |
10 |
THSICE_AVE |
I bi, bj, myTime, myIter, myThid ) |
./pkg/thsice/thsice_ave.F |
113 |
THSICE_AVE |
& 1, thSIce_deltaT, bi, bj, myThid ) |
./pkg/thsice/thsice_ave.F |
115 |
THSICE_AVE |
& 1, thSIce_deltaT, bi, bj, myThid ) |
./pkg/thsice/thsice_ave.F |
140 |
THSICE_AVE |
CALL DIAGNOSTICS_FILL(icFlxAtm,'SIflxAtm',0,1,1,bi,bj,myThid) |
./pkg/thsice/thsice_ave.F |
141 |
THSICE_AVE |
CALL DIAGNOSTICS_FILL(icFrwAtm,'SIfrwAtm',0,1,1,bi,bj,myThid) |
./pkg/thsice/thsice_ave.F |
146 |
THSICE_AVE |
CALL DIAGNOSTICS_FILL_RS(Qnet, 'SIflx2oc',0,1,1,bi,bj,myThid) |
./pkg/thsice/thsice_ave.F |
147 |
THSICE_AVE |
CALL DIAGNOSTICS_FILL_RS(EmPmR, 'SIfrw2oc',0,1,1,bi,bj,myThid) |
./pkg/thsice/thsice_ave.F |
148 |
THSICE_AVE |
CALL DIAGNOSTICS_FILL_RS(saltFlux,'SIsaltFx',0,1,1,bi,bj,myThid) |
./pkg/thsice/thsice_ave.F |
43 |
THSICE_AVE |
INTEGER myThid |
./pkg/thsice/thsice_ave.F |
58 |
THSICE_AVE |
& 1, thSIce_deltaT, bi, bj, myThid ) |
./pkg/thsice/thsice_ave.F |
61 |
THSICE_AVE |
& 1, 0, thSIce_deltaT, bi, bj, myThid ) |
./pkg/thsice/thsice_ave.F |
63 |
THSICE_AVE |
& 1, 0, thSIce_deltaT, bi, bj, myThid ) |
./pkg/thsice/thsice_ave.F |
65 |
THSICE_AVE |
& 1, 0, thSIce_deltaT, bi, bj, myThid ) |
./pkg/thsice/thsice_ave.F |
67 |
THSICE_AVE |
& 1, 0, thSIce_deltaT, bi, bj, myThid ) |
./pkg/thsice/thsice_ave.F |
69 |
THSICE_AVE |
& 1, 0, thSIce_deltaT, bi, bj, myThid ) |
./pkg/thsice/thsice_ave.F |
71 |
THSICE_AVE |
& 1, 0, thSIce_deltaT, bi, bj, myThid ) |
./pkg/thsice/thsice_ave.F |
74 |
THSICE_AVE |
& 1, thSIce_deltaT, bi, bj, myThid ) |
./pkg/thsice/thsice_ave.F |
93 |
THSICE_AVE |
& 1, thSIce_deltaT, bi, bj, myThid ) |
./pkg/thsice/thsice_ave.F |
95 |
THSICE_AVE |
& 1, thSIce_deltaT, bi, bj, myThid ) |
./pkg/thsice/thsice_calc_thickn.F |
1125 |
THSICE_CALC_THICKN |
I myTime, myIter, myThid ) |
./pkg/thsice/thsice_calc_thickn.F |
132 |
THSICE_CALC_THICKN |
INTEGER myThid |
./pkg/thsice/thsice_calc_thickn.F |
17 |
THSICE_CALC_THICKN |
I myTime, myIter, myThid ) |
./pkg/thsice/thsice_calc_thickn.F |
225 |
THSICE_CALC_THICKN |
act1 = bi - myBxLo(myThid) |
./pkg/thsice/thsice_calc_thickn.F |
226 |
THSICE_CALC_THICKN |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
./pkg/thsice/thsice_calc_thickn.F |
227 |
THSICE_CALC_THICKN |
act2 = bj - myByLo(myThid) |
./pkg/thsice/thsice_calc_thickn.F |
228 |
THSICE_CALC_THICKN |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
./pkg/thsice/thsice_calc_thickn.F |
229 |
THSICE_CALC_THICKN |
act3 = myThid - 1 |
./pkg/thsice/thsice_check.F |
25 |
THSICE_CHECK |
INTEGER myThid |
./pkg/thsice/thsice_check.F |
32 |
THSICE_CHECK |
_BEGIN_MASTER(myThid) |
./pkg/thsice/thsice_check.F |
36 |
THSICE_CHECK |
& SQUEEZE_RIGHT , myThid ) |
./pkg/thsice/thsice_check.F |
41 |
THSICE_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/thsice/thsice_check.F |
46 |
THSICE_CHECK |
_END_MASTER(myThid) |
./pkg/thsice/thsice_check.F |
6 |
THSICE_CHECK |
SUBROUTINE THSICE_CHECK( myThid ) |
./pkg/thsice/thsice_check_conserv.F |
12 |
THSICE_CHECK_CONSERV |
I myTime, myIter, myThid ) |
./pkg/thsice/thsice_check_conserv.F |
42 |
THSICE_CHECK_CONSERV |
INTEGER myThid |
./pkg/thsice/thsice_diagnostics_init.F |
103 |
THSICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, numFract, myThid ) |
./pkg/thsice/thsice_diagnostics_init.F |
110 |
THSICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, numThick, myThid ) |
./pkg/thsice/thsice_diagnostics_init.F |
117 |
THSICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, numThick, myThid ) |
./pkg/thsice/thsice_diagnostics_init.F |
124 |
THSICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/thsice/thsice_diagnostics_init.F |
131 |
THSICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/thsice/thsice_diagnostics_init.F |
139 |
THSICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, numFrcFx, myThid ) |
./pkg/thsice/thsice_diagnostics_init.F |
146 |
THSICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, numFrcFx, myThid ) |
./pkg/thsice/thsice_diagnostics_init.F |
153 |
THSICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/thsice/thsice_diagnostics_init.F |
160 |
THSICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/thsice/thsice_diagnostics_init.F |
167 |
THSICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/thsice/thsice_diagnostics_init.F |
174 |
THSICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/thsice/thsice_diagnostics_init.F |
181 |
THSICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/thsice/thsice_diagnostics_init.F |
188 |
THSICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/thsice/thsice_diagnostics_init.F |
195 |
THSICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/thsice/thsice_diagnostics_init.F |
220 |
THSICE_DIAGNOSTICS_INIT |
diagSufx = THSICE_DIAG_SUFX( n, myThid ) |
./pkg/thsice/thsice_diagnostics_init.F |
226 |
THSICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/thsice/thsice_diagnostics_init.F |
232 |
THSICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/thsice/thsice_diagnostics_init.F |
242 |
THSICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/thsice/thsice_diagnostics_init.F |
250 |
THSICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, numFract, myThid ) |
./pkg/thsice/thsice_diagnostics_init.F |
258 |
THSICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, numFract, myThid ) |
./pkg/thsice/thsice_diagnostics_init.F |
265 |
THSICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, numThick, myThid ) |
./pkg/thsice/thsice_diagnostics_init.F |
272 |
THSICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, numThick, myThid ) |
./pkg/thsice/thsice_diagnostics_init.F |
287 |
THSICE_DIAGNOSTICS_INIT |
CHARACTER*4 FUNCTION THSICE_DIAG_SUFX( tracerId, myThid ) |
./pkg/thsice/thsice_diagnostics_init.F |
305 |
THSICE_DIAGNOSTICS_INIT |
INTEGER myThid |
./pkg/thsice/thsice_diagnostics_init.F |
31 |
THSICE_DIAGNOSTICS_INIT |
INTEGER myThid |
./pkg/thsice/thsice_diagnostics_init.F |
66 |
THSICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/thsice/thsice_diagnostics_init.F |
74 |
THSICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, numFract, myThid ) |
./pkg/thsice/thsice_diagnostics_init.F |
82 |
THSICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, numFract, myThid ) |
./pkg/thsice/thsice_diagnostics_init.F |
89 |
THSICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, numFract, myThid ) |
./pkg/thsice/thsice_diagnostics_init.F |
96 |
THSICE_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, numFract, myThid ) |
./pkg/thsice/thsice_diagnostics_init.F |
9 |
THSICE_DIAGNOSTICS_INIT |
SUBROUTINE THSICE_DIAGNOSTICS_INIT( myThid ) |
./pkg/thsice/thsice_diagnostics_state.F |
10 |
THSICE_DIAGNOSTICS_STATE |
I myTime, myIter, bi, bj, myThid ) |
./pkg/thsice/thsice_diagnostics_state.F |
38 |
THSICE_DIAGNOSTICS_STATE |
INTEGER myThid |
./pkg/thsice/thsice_diagnostics_state.F |
51 |
THSICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(iceMask,'SI_Fract',0,1,1,bi,bj,myThid) |
./pkg/thsice/thsice_diagnostics_state.F |
52 |
THSICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(snowAge,'SIsnwAge',0,1,1,bi,bj,myThid) |
./pkg/thsice/thsice_diagnostics_state.F |
58 |
THSICE_DIAGNOSTICS_STATE |
I 0,1,1,bi,bj,myThid) |
./pkg/thsice/thsice_diagnostics_state.F |
61 |
THSICE_DIAGNOSTICS_STATE |
I 0,1,1,bi,bj,myThid) |
./pkg/thsice/thsice_diagnostics_state.F |
64 |
THSICE_DIAGNOSTICS_STATE |
I 0,1,1,bi,bj,myThid) |
./pkg/thsice/thsice_diagnostics_state.F |
67 |
THSICE_DIAGNOSTICS_STATE |
I 0,1,1,bi,bj,myThid) |
./pkg/thsice/thsice_diagnostics_state.F |
70 |
THSICE_DIAGNOSTICS_STATE |
I 0,1,1,bi,bj,myThid) |
./pkg/thsice/thsice_diagnostics_state.F |
73 |
THSICE_DIAGNOSTICS_STATE |
IF ( DIAGNOSTICS_IS_ON('SI_Qice1',myThid) .OR. |
./pkg/thsice/thsice_diagnostics_state.F |
74 |
THSICE_DIAGNOSTICS_STATE |
& DIAGNOSTICS_IS_ON('SI_Qice2',myThid) ) THEN |
./pkg/thsice/thsice_diagnostics_state.F |
83 |
THSICE_DIAGNOSTICS_STATE |
I 0,1,2,bi,bj,myThid) |
./pkg/thsice/thsice_diagnostics_state.F |
87 |
THSICE_DIAGNOSTICS_STATE |
I 0,1,2,bi,bj,myThid) |
./pkg/thsice/thsice_diagnostics_state.F |
94 |
THSICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(tOceMxL,'SItOcMxL',0,1,1,bi,bj,myThid) |
./pkg/thsice/thsice_diagnostics_state.F |
95 |
THSICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(sOceMxL,'SIsOcMxL',0,1,1,bi,bj,myThid) |
./pkg/thsice/thsice_diffusion.F |
13 |
THSICE_DIFFUSION |
I bi, bj, myTime, myIter, myThid ) |
./pkg/thsice/thsice_diffusion.F |
53 |
THSICE_DIFFUSION |
INTEGER myThid |
./model/src/freeze.F |
11 |
FREEZE |
I myThid ) |
./model/src/freeze.F |
32 |
FREEZE |
INTEGER myThid |
./pkg/thsice/thsice_do_advect.F |
10 |
THSICE_DO_ADVECT |
I bi, bj, myTime, myIter, myThid ) |
./pkg/thsice/thsice_do_advect.F |
36 |
THSICE_DO_ADVECT |
INTEGER myThid |
./pkg/thsice/thsice_do_advect.F |
48 |
THSICE_DO_ADVECT |
I bi,bj, myTime, myIter, myThid ) |
./pkg/thsice/thsice_do_advect.F |
51 |
THSICE_DO_ADVECT |
I bi,bj, myTime, myIter, myThid ) |
./pkg/thsice/thsice_extend.F |
124 |
THSICE_EXTEND |
act1 = bi - myBxLo(myThid) |
./pkg/thsice/thsice_extend.F |
125 |
THSICE_EXTEND |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
./pkg/thsice/thsice_extend.F |
126 |
THSICE_EXTEND |
act2 = bj - myByLo(myThid) |
./pkg/thsice/thsice_extend.F |
127 |
THSICE_EXTEND |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
./pkg/thsice/thsice_extend.F |
128 |
THSICE_EXTEND |
act3 = myThid - 1 |
./pkg/thsice/thsice_extend.F |
16 |
THSICE_EXTEND |
I myTime, myIter, myThid ) |
./pkg/thsice/thsice_extend.F |
230 |
THSICE_EXTEND |
I myTime, myIter, myThid ) |
./pkg/thsice/thsice_extend.F |
89 |
THSICE_EXTEND |
INTEGER myThid |
./pkg/thsice/thsice_get_bulkf.F |
105 |
THSICE_GET_BULKF |
I iceornot, myThid ) |
./pkg/thsice/thsice_get_bulkf.F |
129 |
THSICE_GET_BULKF |
I iceornot, myThid ) |
./pkg/thsice/thsice_get_bulkf.F |
136 |
THSICE_GET_BULKF |
I iceornot, i,j,bi,bj,myThid ) |
./pkg/thsice/thsice_get_bulkf.F |
17 |
THSICE_GET_BULKF |
I myTime, myIter, myThid ) |
./pkg/thsice/thsice_get_bulkf.F |
63 |
THSICE_GET_BULKF |
INTEGER myThid |
./pkg/thsice/thsice_get_exf.F |
17 |
THSICE_GET_EXF |
I myTime, myIter, myThid ) |
./pkg/thsice/thsice_get_exf.F |
71 |
THSICE_GET_EXF |
INTEGER myThid |
./pkg/thsice/thsice_get_precip.F |
15 |
THSICE_GET_PRECIP |
I iMin,iMax,jMin,jMax, bi,bj, myThid ) |
./pkg/thsice/thsice_get_precip.F |
54 |
THSICE_GET_PRECIP |
INTEGER myThid |
./pkg/thsice/thsice_get_velocity.F |
16 |
THSICE_GET_VELOCITY |
I bi, bj, myTime, myIter, myThid ) |
./pkg/thsice/thsice_get_velocity.F |
52 |
THSICE_GET_VELOCITY |
INTEGER myThid |
./pkg/thsice/thsice_impl_temp.F |
111 |
THSICE_IMPL_TEMP |
I myTime, myIter, myThid ) |
./pkg/thsice/thsice_impl_temp.F |
11 |
THSICE_IMPL_TEMP |
I bi, bj, myTime, myIter, myThid) |
./pkg/thsice/thsice_impl_temp.F |
50 |
THSICE_IMPL_TEMP |
INTEGER myThid |
./pkg/thsice/thsice_ini_vars.F |
117 |
THSICE_INI_VARS |
CALL THSICE_READ_PICKUP( prec, nIter0, myThid ) |
./pkg/thsice/thsice_ini_vars.F |
122 |
THSICE_INI_VARS |
CALL READ_REC_XY_RL(thSIceFract_InitFile,iceMask,1,0,myThid) |
./pkg/thsice/thsice_ini_vars.F |
125 |
THSICE_INI_VARS |
CALL READ_REC_XY_RL(thSIceThick_InitFile,iceHeight,1,0,myThid) |
./pkg/thsice/thsice_ini_vars.F |
128 |
THSICE_INI_VARS |
CALL READ_REC_XY_RL(thSIceSnowH_InitFile,snowHeight,1,0,myThid) |
./pkg/thsice/thsice_ini_vars.F |
12 |
THSICE_INI_VARS |
SUBROUTINE THSICE_INI_VARS( myThid ) |
./pkg/thsice/thsice_ini_vars.F |
131 |
THSICE_INI_VARS |
CALL READ_REC_XY_RL(thSIceSnowA_InitFile,snowAge,1,0,myThid) |
./pkg/thsice/thsice_ini_vars.F |
134 |
THSICE_INI_VARS |
CALL READ_REC_XY_RL(thSIceEnthp_InitFile,Qice1,1,0,myThid) |
./pkg/thsice/thsice_ini_vars.F |
135 |
THSICE_INI_VARS |
CALL READ_REC_XY_RL(thSIceEnthp_InitFile,Qice2,2,0,myThid) |
./pkg/thsice/thsice_ini_vars.F |
138 |
THSICE_INI_VARS |
CALL READ_REC_XY_RL(thSIceTsurf_InitFile,Tsrf,1,0,myThid) |
./pkg/thsice/thsice_ini_vars.F |
145 |
THSICE_INI_VARS |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/thsice/thsice_ini_vars.F |
146 |
THSICE_INI_VARS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/thsice/thsice_ini_vars.F |
161 |
THSICE_INI_VARS |
_EXCH_XY_RL(iceMask,myThid) |
./pkg/thsice/thsice_ini_vars.F |
162 |
THSICE_INI_VARS |
_EXCH_XY_RL(iceHeight, myThid) |
./pkg/thsice/thsice_ini_vars.F |
163 |
THSICE_INI_VARS |
_EXCH_XY_RL(snowHeight,myThid) |
./pkg/thsice/thsice_ini_vars.F |
164 |
THSICE_INI_VARS |
_EXCH_XY_RL(Tsrf, myThid) |
./pkg/thsice/thsice_ini_vars.F |
165 |
THSICE_INI_VARS |
_EXCH_XY_RL(Tice1, myThid) |
./pkg/thsice/thsice_ini_vars.F |
166 |
THSICE_INI_VARS |
_EXCH_XY_RL(Tice2, myThid) |
./pkg/thsice/thsice_ini_vars.F |
167 |
THSICE_INI_VARS |
_EXCH_XY_RL(Qice1, myThid) |
./pkg/thsice/thsice_ini_vars.F |
168 |
THSICE_INI_VARS |
_EXCH_XY_RL(Qice2, myThid) |
./pkg/thsice/thsice_ini_vars.F |
169 |
THSICE_INI_VARS |
_EXCH_XY_RL(snowAge,myThid) |
./pkg/thsice/thsice_ini_vars.F |
173 |
THSICE_INI_VARS |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/thsice/thsice_ini_vars.F |
174 |
THSICE_INI_VARS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/thsice/thsice_ini_vars.F |
38 |
THSICE_INI_VARS |
INTEGER myThid |
./pkg/thsice/thsice_ini_vars.F |
53 |
THSICE_INI_VARS |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/thsice/thsice_ini_vars.F |
54 |
THSICE_INI_VARS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/thsice/thsice_init_fixed.F |
30 |
THSICE_INIT_FIXED |
INTEGER myThid |
./pkg/thsice/thsice_init_fixed.F |
38 |
THSICE_INIT_FIXED |
CALL THSICE_MNC_INIT( myThid ) |
./pkg/thsice/thsice_init_fixed.F |
44 |
THSICE_INIT_FIXED |
CALL THSICE_DIAGNOSTICS_INIT( myThid ) |
./pkg/thsice/thsice_init_fixed.F |
9 |
THSICE_INIT_FIXED |
SUBROUTINE THSICE_INIT_FIXED( myThid ) |
./pkg/thsice/thsice_main.F |
100 |
THSICE_MAIN |
act3 = myThid - 1 |
./pkg/thsice/thsice_main.F |
10 |
THSICE_MAIN |
I myTime, myIter, myThid ) |
./pkg/thsice/thsice_main.F |
193 |
THSICE_MAIN |
I bi,bj, myTime, myIter, myThid ) |
./pkg/thsice/thsice_main.F |
201 |
THSICE_MAIN |
I iMin,iMax,jMin,jMax, bi,bj, myThid ) |
./pkg/thsice/thsice_main.F |
210 |
THSICE_MAIN |
I iMin,iMax,jMin,jMax, bi,bj, myThid ) |
./pkg/thsice/thsice_main.F |
221 |
THSICE_MAIN |
I myTime, myIter, myThid ) |
./pkg/thsice/thsice_main.F |
239 |
THSICE_MAIN |
I myTime, myIter, myThid ) |
./pkg/thsice/thsice_main.F |
242 |
THSICE_MAIN |
I bi,bj, myTime, myIter, myThid ) |
./pkg/thsice/thsice_main.F |
253 |
THSICE_MAIN |
_EXCH_XY_RL( iceMask, myThid ) |
./pkg/thsice/thsice_main.F |
254 |
THSICE_MAIN |
_EXCH_XY_RL( iceHeight, myThid ) |
./pkg/thsice/thsice_main.F |
255 |
THSICE_MAIN |
_EXCH_XY_RL( snowHeight, myThid ) |
./pkg/thsice/thsice_main.F |
256 |
THSICE_MAIN |
_EXCH_XY_RL( Qice1, myThid ) |
./pkg/thsice/thsice_main.F |
257 |
THSICE_MAIN |
_EXCH_XY_RL( Qice2, myThid ) |
./pkg/thsice/thsice_main.F |
259 |
THSICE_MAIN |
_EXCH_XY_RL( iceMask, myThid ) |
./pkg/thsice/thsice_main.F |
263 |
THSICE_MAIN |
& _EXCH_XY_RS( sIceLoad, myThid ) |
./pkg/thsice/thsice_main.F |
266 |
THSICE_MAIN |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/thsice/thsice_main.F |
267 |
THSICE_MAIN |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/thsice/thsice_main.F |
45 |
THSICE_MAIN |
INTEGER myThid |
./pkg/thsice/thsice_main.F |
92 |
THSICE_MAIN |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/thsice/thsice_main.F |
93 |
THSICE_MAIN |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/thsice/thsice_main.F |
96 |
THSICE_MAIN |
act1 = bi - myBxLo(myThid) |
./pkg/thsice/thsice_main.F |
97 |
THSICE_MAIN |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
./pkg/thsice/thsice_main.F |
98 |
THSICE_MAIN |
act2 = bj - myByLo(myThid) |
./pkg/thsice/thsice_main.F |
99 |
THSICE_MAIN |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
./model/src/freeze_surface.F |
10 |
FREEZE_SURFACE |
SUBROUTINE FREEZE_SURFACE( myTime, myIter, myThid ) |
./model/src/freeze_surface.F |
36 |
FREEZE_SURFACE |
INTEGER myThid |
./model/src/freeze_surface.F |
54 |
FREEZE_SURFACE |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/freeze_surface.F |
55 |
FREEZE_SURFACE |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/thsice/thsice_map_exf.F |
15 |
THSICE_MAP_EXF |
I iMin,iMax,jMin,jMax, bi,bj, myThid ) |
./pkg/thsice/thsice_map_exf.F |
55 |
THSICE_MAP_EXF |
INTEGER myThid |
./pkg/thsice/thsice_mnc_init.F |
101 |
THSICE_MNC_INIT |
CALL MNC_CW_ADD_VNAME('sMxL_ave','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/thsice/thsice_mnc_init.F |
102 |
THSICE_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('sMxL_ave','units','---', myThid) |
./pkg/thsice/thsice_mnc_init.F |
12 |
THSICE_MNC_INIT |
SUBROUTINE THSICE_MNC_INIT( myThid ) |
./pkg/thsice/thsice_mnc_init.F |
21 |
THSICE_MNC_INIT |
INTEGER myThid |
./pkg/thsice/thsice_mnc_init.F |
27 |
THSICE_MNC_INIT |
CALL MNC_CW_ADD_VNAME('iceMask','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/thsice/thsice_mnc_init.F |
28 |
THSICE_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('iceMask','units','---', myThid) |
./pkg/thsice/thsice_mnc_init.F |
30 |
THSICE_MNC_INIT |
CALL MNC_CW_ADD_VNAME('iceHeight','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/thsice/thsice_mnc_init.F |
31 |
THSICE_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('iceHeight','units','---', myThid) |
./pkg/thsice/thsice_mnc_init.F |
33 |
THSICE_MNC_INIT |
CALL MNC_CW_ADD_VNAME('snowHeight','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/thsice/thsice_mnc_init.F |
34 |
THSICE_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('snowHeight','units','---', myThid) |
./pkg/thsice/thsice_mnc_init.F |
36 |
THSICE_MNC_INIT |
CALL MNC_CW_ADD_VNAME('Tsrf','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/thsice/thsice_mnc_init.F |
37 |
THSICE_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('Tsrf','units','---', myThid) |
./pkg/thsice/thsice_mnc_init.F |
39 |
THSICE_MNC_INIT |
CALL MNC_CW_ADD_VNAME('Tice1','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/thsice/thsice_mnc_init.F |
40 |
THSICE_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('Tice1','units','---', myThid) |
./pkg/thsice/thsice_mnc_init.F |
42 |
THSICE_MNC_INIT |
CALL MNC_CW_ADD_VNAME('Tice2','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/thsice/thsice_mnc_init.F |
43 |
THSICE_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('Tice2','units','---', myThid) |
./pkg/thsice/thsice_mnc_init.F |
45 |
THSICE_MNC_INIT |
CALL MNC_CW_ADD_VNAME('Qice1','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/thsice/thsice_mnc_init.F |
46 |
THSICE_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('Qice1','units','---', myThid) |
./pkg/thsice/thsice_mnc_init.F |
48 |
THSICE_MNC_INIT |
CALL MNC_CW_ADD_VNAME('Qice2','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/thsice/thsice_mnc_init.F |
49 |
THSICE_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('Qice2','units','---', myThid) |
./pkg/thsice/thsice_mnc_init.F |
51 |
THSICE_MNC_INIT |
CALL MNC_CW_ADD_VNAME('snowAge','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/thsice/thsice_mnc_init.F |
52 |
THSICE_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('snowAge','units','---', myThid) |
./pkg/thsice/thsice_mnc_init.F |
54 |
THSICE_MNC_INIT |
CALL MNC_CW_ADD_VNAME('tOceMxL','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/thsice/thsice_mnc_init.F |
55 |
THSICE_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('tOceMxL','units','---', myThid) |
./pkg/thsice/thsice_mnc_init.F |
57 |
THSICE_MNC_INIT |
CALL MNC_CW_ADD_VNAME('sOceMxL','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/thsice/thsice_mnc_init.F |
58 |
THSICE_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('sOceMxL','units','---', myThid) |
./pkg/thsice/thsice_mnc_init.F |
62 |
THSICE_MNC_INIT |
CALL MNC_CW_ADD_VNAME('fract_ave','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/thsice/thsice_mnc_init.F |
63 |
THSICE_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('fract_ave','units','---', myThid) |
./pkg/thsice/thsice_mnc_init.F |
65 |
THSICE_MNC_INIT |
CALL MNC_CW_ADD_VNAME('iceH_ave','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/thsice/thsice_mnc_init.F |
66 |
THSICE_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('iceH_ave','units','---', myThid) |
./pkg/thsice/thsice_mnc_init.F |
68 |
THSICE_MNC_INIT |
CALL MNC_CW_ADD_VNAME('snowH_ave','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/thsice/thsice_mnc_init.F |
69 |
THSICE_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('snowH_ave','units','---', myThid) |
./pkg/thsice/thsice_mnc_init.F |
71 |
THSICE_MNC_INIT |
CALL MNC_CW_ADD_VNAME('Tsrf_ave','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/thsice/thsice_mnc_init.F |
72 |
THSICE_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('Tsrf','units','---', myThid) |
./pkg/thsice/thsice_mnc_init.F |
74 |
THSICE_MNC_INIT |
CALL MNC_CW_ADD_VNAME('Tice1_ave','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/thsice/thsice_mnc_init.F |
75 |
THSICE_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('Tice1','units','---', myThid) |
./pkg/thsice/thsice_mnc_init.F |
77 |
THSICE_MNC_INIT |
CALL MNC_CW_ADD_VNAME('Tice2_ave','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/thsice/thsice_mnc_init.F |
78 |
THSICE_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('Tice2','units','---', myThid) |
./pkg/thsice/thsice_mnc_init.F |
80 |
THSICE_MNC_INIT |
CALL MNC_CW_ADD_VNAME('snowPr_ave','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/thsice/thsice_mnc_init.F |
81 |
THSICE_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('snowPr_ave','units','---', myThid) |
./pkg/thsice/thsice_mnc_init.F |
83 |
THSICE_MNC_INIT |
CALL MNC_CW_ADD_VNAME('albedo_ave','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/thsice/thsice_mnc_init.F |
84 |
THSICE_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('albedo_ave','units','---', myThid) |
./pkg/thsice/thsice_mnc_init.F |
86 |
THSICE_MNC_INIT |
CALL MNC_CW_ADD_VNAME('flx2oc_ave','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/thsice/thsice_mnc_init.F |
87 |
THSICE_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('flx2oc_ave','units','---', myThid) |
./pkg/thsice/thsice_mnc_init.F |
89 |
THSICE_MNC_INIT |
CALL MNC_CW_ADD_VNAME('frw2oc_ave','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/thsice/thsice_mnc_init.F |
90 |
THSICE_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('frw2oc_ave','units','---', myThid) |
./pkg/thsice/thsice_mnc_init.F |
92 |
THSICE_MNC_INIT |
CALL MNC_CW_ADD_VNAME('flxAtm_ave','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/thsice/thsice_mnc_init.F |
93 |
THSICE_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('flxAtm_ave','units','---', myThid) |
./pkg/thsice/thsice_mnc_init.F |
95 |
THSICE_MNC_INIT |
CALL MNC_CW_ADD_VNAME('frwAtm_ave','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/thsice/thsice_mnc_init.F |
96 |
THSICE_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('frwAtm_ave','units','---', myThid) |
./pkg/thsice/thsice_mnc_init.F |
98 |
THSICE_MNC_INIT |
CALL MNC_CW_ADD_VNAME('tMxL_ave','Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/thsice/thsice_mnc_init.F |
99 |
THSICE_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('tMxL_ave','units','---', myThid) |
./pkg/thsice/thsice_monitor.F |
115 |
THSICE_MONITOR |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/thsice/thsice_monitor.F |
116 |
THSICE_MONITOR |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/thsice/thsice_monitor.F |
125 |
THSICE_MONITOR |
CALL MON_SET_PREF('thSI_',myThid) |
./pkg/thsice/thsice_monitor.F |
126 |
THSICE_MONITOR |
CALL MON_OUT_RL('time_sec', myTime,mon_string_none,myThid) |
./pkg/thsice/thsice_monitor.F |
133 |
THSICE_MONITOR |
I myThid ) |
./pkg/thsice/thsice_monitor.F |
139 |
THSICE_MONITOR |
CALL MON_OUT_RL(mon_var, theVolG , mon_sufx(0), myThid) |
./pkg/thsice/thsice_monitor.F |
140 |
THSICE_MONITOR |
CALL MON_OUT_RL(mon_var, theVol(1), mon_sufx(1), myThid) |
./pkg/thsice/thsice_monitor.F |
141 |
THSICE_MONITOR |
CALL MON_OUT_RL(mon_var, theVol(2), mon_sufx(2), myThid) |
./pkg/thsice/thsice_monitor.F |
143 |
THSICE_MONITOR |
CALL MON_OUT_RL(mon_var,theMeanG , mon_sufx(0), myThid) |
./pkg/thsice/thsice_monitor.F |
144 |
THSICE_MONITOR |
CALL MON_OUT_RL(mon_var,theMean(1), mon_sufx(1), myThid) |
./pkg/thsice/thsice_monitor.F |
145 |
THSICE_MONITOR |
CALL MON_OUT_RL(mon_var,theMean(2), mon_sufx(2), myThid) |
./pkg/thsice/thsice_monitor.F |
147 |
THSICE_MONITOR |
CALL MON_OUT_RL(mon_var, theMax(1), mon_sufx(1), myThid) |
./pkg/thsice/thsice_monitor.F |
148 |
THSICE_MONITOR |
CALL MON_OUT_RL(mon_var, theMax(2), mon_sufx(2), myThid) |
./pkg/thsice/thsice_monitor.F |
155 |
THSICE_MONITOR |
I myThid ) |
./pkg/thsice/thsice_monitor.F |
162 |
THSICE_MONITOR |
CALL MON_OUT_RL(mon_var,theMeanG , mon_sufx(0), myThid) |
./pkg/thsice/thsice_monitor.F |
163 |
THSICE_MONITOR |
CALL MON_OUT_RL(mon_var,theMean(1), mon_sufx(1), myThid) |
./pkg/thsice/thsice_monitor.F |
164 |
THSICE_MONITOR |
CALL MON_OUT_RL(mon_var,theMean(2), mon_sufx(2), myThid) |
./pkg/thsice/thsice_monitor.F |
166 |
THSICE_MONITOR |
CALL MON_OUT_RL(mon_var, theMax(1), mon_sufx(1), myThid) |
./pkg/thsice/thsice_monitor.F |
167 |
THSICE_MONITOR |
CALL MON_OUT_RL(mon_var, theMax(2), mon_sufx(2), myThid) |
./pkg/thsice/thsice_monitor.F |
174 |
THSICE_MONITOR |
I myThid ) |
./pkg/thsice/thsice_monitor.F |
180 |
THSICE_MONITOR |
CALL MON_OUT_RL(mon_var,theMeanG , mon_sufx(0), myThid) |
./pkg/thsice/thsice_monitor.F |
181 |
THSICE_MONITOR |
CALL MON_OUT_RL(mon_var,theMean(1), mon_sufx(1), myThid) |
./pkg/thsice/thsice_monitor.F |
182 |
THSICE_MONITOR |
CALL MON_OUT_RL(mon_var,theMean(2), mon_sufx(2), myThid) |
./pkg/thsice/thsice_monitor.F |
184 |
THSICE_MONITOR |
CALL MON_OUT_RL(mon_var, theMin(1), mon_sufx(1), myThid) |
./pkg/thsice/thsice_monitor.F |
185 |
THSICE_MONITOR |
CALL MON_OUT_RL(mon_var, theMin(2), mon_sufx(2), myThid) |
./pkg/thsice/thsice_monitor.F |
187 |
THSICE_MONITOR |
CALL MON_OUT_RL(mon_var, theMax(1), mon_sufx(1), myThid) |
./pkg/thsice/thsice_monitor.F |
188 |
THSICE_MONITOR |
CALL MON_OUT_RL(mon_var, theMax(2), mon_sufx(2), myThid) |
./pkg/thsice/thsice_monitor.F |
191 |
THSICE_MONITOR |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/thsice/thsice_monitor.F |
192 |
THSICE_MONITOR |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/thsice/thsice_monitor.F |
206 |
THSICE_MONITOR |
I myThid ) |
./pkg/thsice/thsice_monitor.F |
216 |
THSICE_MONITOR |
CALL MON_OUT_RL(mon_var,theMeanG , mon_sufx(0), myThid) |
./pkg/thsice/thsice_monitor.F |
217 |
THSICE_MONITOR |
CALL MON_OUT_RL(mon_var,theMean(1), mon_sufx(1), myThid) |
./pkg/thsice/thsice_monitor.F |
218 |
THSICE_MONITOR |
CALL MON_OUT_RL(mon_var,theMean(2), mon_sufx(2), myThid) |
./pkg/thsice/thsice_monitor.F |
220 |
THSICE_MONITOR |
CALL MON_OUT_RL(mon_var, theMin(1), mon_sufx(1), myThid) |
./pkg/thsice/thsice_monitor.F |
221 |
THSICE_MONITOR |
CALL MON_OUT_RL(mon_var, theMin(2), mon_sufx(2), myThid) |
./pkg/thsice/thsice_monitor.F |
223 |
THSICE_MONITOR |
CALL MON_OUT_RL(mon_var, theMax(1), mon_sufx(1), myThid) |
./pkg/thsice/thsice_monitor.F |
224 |
THSICE_MONITOR |
CALL MON_OUT_RL(mon_var, theMax(2), mon_sufx(2), myThid) |
./pkg/thsice/thsice_monitor.F |
231 |
THSICE_MONITOR |
I myThid ) |
./pkg/thsice/thsice_monitor.F |
236 |
THSICE_MONITOR |
CALL MON_OUT_RL(mon_var,theMeanG , mon_sufx(0), myThid) |
./pkg/thsice/thsice_monitor.F |
237 |
THSICE_MONITOR |
CALL MON_OUT_RL(mon_var,theMean(1), mon_sufx(1), myThid) |
./pkg/thsice/thsice_monitor.F |
238 |
THSICE_MONITOR |
CALL MON_OUT_RL(mon_var,theMean(2), mon_sufx(2), myThid) |
./pkg/thsice/thsice_monitor.F |
240 |
THSICE_MONITOR |
CALL MON_OUT_RL(mon_var, theMin(1), mon_sufx(1), myThid) |
./pkg/thsice/thsice_monitor.F |
241 |
THSICE_MONITOR |
CALL MON_OUT_RL(mon_var, theMin(2), mon_sufx(2), myThid) |
./pkg/thsice/thsice_monitor.F |
243 |
THSICE_MONITOR |
CALL MON_OUT_RL(mon_var, theMax(1), mon_sufx(1), myThid) |
./pkg/thsice/thsice_monitor.F |
244 |
THSICE_MONITOR |
CALL MON_OUT_RL(mon_var, theMax(2), mon_sufx(2), myThid) |
./pkg/thsice/thsice_monitor.F |
250 |
THSICE_MONITOR |
I myThid ) |
./pkg/thsice/thsice_monitor.F |
254 |
THSICE_MONITOR |
I myThid ) |
./pkg/thsice/thsice_monitor.F |
257 |
THSICE_MONITOR |
CALL MON_OUT_RL(mon_var, theEnergy, mon_sufx(0), myThid) |
./pkg/thsice/thsice_monitor.F |
259 |
THSICE_MONITOR |
IF ( MASTER_CPU_IO(myThid) ) THEN |
./pkg/thsice/thsice_monitor.F |
35 |
THSICE_MONITOR |
INTEGER myThid |
./pkg/thsice/thsice_monitor.F |
73 |
THSICE_MONITOR |
IF ( MASTER_CPU_IO(myThid) ) THEN |
./pkg/thsice/thsice_monitor.F |
89 |
THSICE_MONITOR |
CALL MNC_CW_SET_UDIM(mon_fname, -1, myThid) |
./pkg/thsice/thsice_monitor.F |
91 |
THSICE_MONITOR |
& 'I',mon_fname,1,1,'iter', myIter, myThid) |
./pkg/thsice/thsice_monitor.F |
92 |
THSICE_MONITOR |
CALL MNC_CW_SET_UDIM(mon_fname, 0, myThid) |
./pkg/thsice/thsice_monitor.F |
94 |
THSICE_MONITOR |
& 'D',mon_fname,1,1,'T', myTime, myThid) |
./pkg/thsice/thsice_monitor.F |
9 |
THSICE_MONITOR |
SUBROUTINE THSICE_MONITOR( myTime, myIter, myThid ) |
./pkg/thsice/thsice_output.F |
101 |
THSICE_OUTPUT |
& ice_fract_Ave, 1, bi, bj, myThid ) |
./pkg/thsice/thsice_output.F |
103 |
THSICE_OUTPUT |
& ice_fract_Ave, 1, bi, bj, myThid ) |
./pkg/thsice/thsice_output.F |
105 |
THSICE_OUTPUT |
& ice_fract_Ave, 1, bi, bj, myThid ) |
./pkg/thsice/thsice_output.F |
107 |
THSICE_OUTPUT |
& ice_fract_Ave, 1, bi, bj, myThid ) |
./pkg/thsice/thsice_output.F |
111 |
THSICE_OUTPUT |
& bi,bj,myThid) |
./pkg/thsice/thsice_output.F |
125 |
THSICE_OUTPUT |
& bi,bj,myThid) |
./pkg/thsice/thsice_output.F |
127 |
THSICE_OUTPUT |
& bi,bj,myThid) |
./pkg/thsice/thsice_output.F |
129 |
THSICE_OUTPUT |
& bi,bj,myThid) |
./pkg/thsice/thsice_output.F |
132 |
THSICE_OUTPUT |
& bi,bj,myThid) |
./pkg/thsice/thsice_output.F |
134 |
THSICE_OUTPUT |
& bi,bj,myThid) |
./pkg/thsice/thsice_output.F |
138 |
THSICE_OUTPUT |
& bi,bj,myThid) |
./pkg/thsice/thsice_output.F |
140 |
THSICE_OUTPUT |
& bi,bj,myThid) |
./pkg/thsice/thsice_output.F |
191 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL( fn, ice_fract_Ave, 1, myIter, myThid ) |
./pkg/thsice/thsice_output.F |
192 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL( fn, ice_iceH_Ave, 2, myIter, myThid ) |
./pkg/thsice/thsice_output.F |
193 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL( fn, ice_snowH_Ave, 3, myIter, myThid ) |
./pkg/thsice/thsice_output.F |
194 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL( fn, ice_Tsrf_Ave, 4, myIter, myThid ) |
./pkg/thsice/thsice_output.F |
195 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL( fn, ice_Tice1_Ave, 5, myIter, myThid ) |
./pkg/thsice/thsice_output.F |
196 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL( fn, ice_Tice2_Ave, 6, myIter, myThid ) |
./pkg/thsice/thsice_output.F |
197 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL( fn, ice_snowPr_Ave, 7, myIter, myThid ) |
./pkg/thsice/thsice_output.F |
198 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL( fn, ice_albedo_Ave, 8, myIter, myThid ) |
./pkg/thsice/thsice_output.F |
199 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL( fn, ice_flx2oc_Ave, 9, myIter, myThid ) |
./pkg/thsice/thsice_output.F |
200 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL( fn, ice_frw2oc_Ave,10, myIter, myThid ) |
./pkg/thsice/thsice_output.F |
202 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL( fn, ice_salFx_Ave, kl, myIter, myThid ) |
./pkg/thsice/thsice_output.F |
205 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL(fn, ice_flxAtm_Ave,kl, myIter, myThid ) |
./pkg/thsice/thsice_output.F |
207 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL(fn, ice_frwAtm_Ave,kl, myIter, myThid ) |
./pkg/thsice/thsice_output.F |
211 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL(fn, ice_tMxL_Ave, kl, myIter, myThid ) |
./pkg/thsice/thsice_output.F |
213 |
THSICE_OUTPUT |
CALL WRITE_REC_XY_RL(fn, ice_sMxL_Ave, kl, myIter, myThid ) |
./pkg/thsice/thsice_output.F |
231 |
THSICE_OUTPUT |
CALL MNC_CW_SET_UDIM(mncf, -1, myThid) |
./pkg/thsice/thsice_output.F |
232 |
THSICE_OUTPUT |
CALL MNC_CW_RL_W_S('D',mncf,0,0,'T', myTime, myThid) |
./pkg/thsice/thsice_output.F |
233 |
THSICE_OUTPUT |
CALL MNC_CW_SET_UDIM(mncf, 0, myThid) |
./pkg/thsice/thsice_output.F |
234 |
THSICE_OUTPUT |
CALL MNC_CW_I_W_S('I',mncf,0,0,'iter', myIter, myThid) |
./pkg/thsice/thsice_output.F |
236 |
THSICE_OUTPUT |
& 'fract_ave', ice_fract_Ave, myThid) |
./pkg/thsice/thsice_output.F |
238 |
THSICE_OUTPUT |
& 'iceH_ave', ice_iceH_Ave, myThid) |
./pkg/thsice/thsice_output.F |
240 |
THSICE_OUTPUT |
& 'snowH_ave', ice_snowH_Ave, myThid) |
./pkg/thsice/thsice_output.F |
242 |
THSICE_OUTPUT |
& 'Tsrf_ave', ice_Tsrf_Ave, myThid) |
./pkg/thsice/thsice_output.F |
244 |
THSICE_OUTPUT |
& 'Tice1_ave', ice_Tice1_Ave, myThid) |
./pkg/thsice/thsice_output.F |
246 |
THSICE_OUTPUT |
& 'Tice2_ave', ice_Tice2_Ave, myThid) |
./pkg/thsice/thsice_output.F |
248 |
THSICE_OUTPUT |
& 'snowPr_ave',ice_snowPr_Ave,myThid) |
./pkg/thsice/thsice_output.F |
250 |
THSICE_OUTPUT |
& 'albedo_ave',ice_albedo_Ave,myThid) |
./pkg/thsice/thsice_output.F |
252 |
THSICE_OUTPUT |
& 'flx2oc_ave',ice_flx2oc_Ave,myThid) |
./pkg/thsice/thsice_output.F |
254 |
THSICE_OUTPUT |
& 'frw2oc_ave',ice_frw2oc_Ave,myThid) |
./pkg/thsice/thsice_output.F |
257 |
THSICE_OUTPUT |
& 'flxAtm_ave',ice_flxAtm_Ave,myThid) |
./pkg/thsice/thsice_output.F |
259 |
THSICE_OUTPUT |
& 'frwAtm_ave',ice_frwAtm_Ave,myThid) |
./pkg/thsice/thsice_output.F |
262 |
THSICE_OUTPUT |
CALL MNC_CW_RL_W(pf,mncf,0,0,'tMxL_ave',ice_tMxL_Ave,myThid) |
./pkg/thsice/thsice_output.F |
263 |
THSICE_OUTPUT |
CALL MNC_CW_RL_W(pf,mncf,0,0,'sMxL_ave',ice_sMxL_Ave,myThid) |
./pkg/thsice/thsice_output.F |
271 |
THSICE_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/thsice/thsice_output.F |
272 |
THSICE_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/thsice/thsice_output.F |
273 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_fract_Ave, 1, bi,bj, myThid) |
./pkg/thsice/thsice_output.F |
274 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_iceH_Ave, 1, bi,bj, myThid) |
./pkg/thsice/thsice_output.F |
275 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_snowH_Ave, 1, bi,bj, myThid) |
./pkg/thsice/thsice_output.F |
276 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_Tsrf_Ave, 1, bi,bj, myThid) |
./pkg/thsice/thsice_output.F |
277 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_Tice1_Ave, 1, bi,bj, myThid) |
./pkg/thsice/thsice_output.F |
278 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_Tice2_Ave, 1, bi,bj, myThid) |
./pkg/thsice/thsice_output.F |
279 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_snowPr_Ave, 1, bi,bj, myThid) |
./pkg/thsice/thsice_output.F |
280 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_flx2oc_Ave, 1, bi,bj, myThid) |
./pkg/thsice/thsice_output.F |
281 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_frw2oc_Ave, 1, bi,bj, myThid) |
./pkg/thsice/thsice_output.F |
282 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_salFx_Ave, 1, bi,bj, myThid) |
./pkg/thsice/thsice_output.F |
283 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_flxAtm_Ave, 1, bi,bj, myThid) |
./pkg/thsice/thsice_output.F |
284 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_frwAtm_Ave, 1, bi,bj, myThid) |
./pkg/thsice/thsice_output.F |
285 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_albedo_Ave, 1, bi,bj, myThid) |
./pkg/thsice/thsice_output.F |
286 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_tMxL_Ave, 1, bi, bj, myThid) |
./pkg/thsice/thsice_output.F |
287 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_sMxL_Ave, 1, bi, bj, myThid) |
./pkg/thsice/thsice_output.F |
308 |
THSICE_OUTPUT |
& myIter,myThid) |
./pkg/thsice/thsice_output.F |
310 |
THSICE_OUTPUT |
& myIter,myThid) |
./pkg/thsice/thsice_output.F |
312 |
THSICE_OUTPUT |
& myIter,myThid) |
./pkg/thsice/thsice_output.F |
314 |
THSICE_OUTPUT |
& myIter,myThid) |
./pkg/thsice/thsice_output.F |
316 |
THSICE_OUTPUT |
& myIter,myThid) |
./pkg/thsice/thsice_output.F |
318 |
THSICE_OUTPUT |
& myIter,myThid) |
./pkg/thsice/thsice_output.F |
320 |
THSICE_OUTPUT |
& myIter,myThid) |
./pkg/thsice/thsice_output.F |
322 |
THSICE_OUTPUT |
& myIter,myThid) |
./pkg/thsice/thsice_output.F |
324 |
THSICE_OUTPUT |
& myIter,myThid) |
./pkg/thsice/thsice_output.F |
327 |
THSICE_OUTPUT |
& myIter,myThid) |
./pkg/thsice/thsice_output.F |
329 |
THSICE_OUTPUT |
& myIter,myThid) |
./pkg/thsice/thsice_output.F |
331 |
THSICE_OUTPUT |
& myIter,myThid) |
./pkg/thsice/thsice_output.F |
335 |
THSICE_OUTPUT |
& myIter,myThid) |
./pkg/thsice/thsice_output.F |
337 |
THSICE_OUTPUT |
& myIter,myThid) |
./pkg/thsice/thsice_output.F |
355 |
THSICE_OUTPUT |
CALL MNC_CW_SET_UDIM(mncf, -1, myThid) |
./pkg/thsice/thsice_output.F |
356 |
THSICE_OUTPUT |
CALL MNC_CW_I_W_S('I',mncf,0,0,'iter', myIter, myThid) |
./pkg/thsice/thsice_output.F |
357 |
THSICE_OUTPUT |
CALL MNC_CW_SET_UDIM(mncf, 0, myThid) |
./pkg/thsice/thsice_output.F |
358 |
THSICE_OUTPUT |
CALL MNC_CW_RL_W_S('D',mncf,0,0,'T', myTime, myThid) |
./pkg/thsice/thsice_output.F |
359 |
THSICE_OUTPUT |
CALL MNC_CW_RL_W(pf,mncf,0,0,'iceMask', iceMask, myThid) |
./pkg/thsice/thsice_output.F |
360 |
THSICE_OUTPUT |
CALL MNC_CW_RL_W(pf,mncf,0,0,'iceHeight', iceHeight, myThid) |
./pkg/thsice/thsice_output.F |
361 |
THSICE_OUTPUT |
CALL MNC_CW_RL_W(pf,mncf,0,0,'snowHeight',snowHeight,myThid) |
./pkg/thsice/thsice_output.F |
362 |
THSICE_OUTPUT |
CALL MNC_CW_RL_W(pf,mncf,0,0,'Tsrf', Tsrf, myThid) |
./pkg/thsice/thsice_output.F |
363 |
THSICE_OUTPUT |
CALL MNC_CW_RL_W(pf,mncf,0,0,'Tice1', Tice1, myThid) |
./pkg/thsice/thsice_output.F |
364 |
THSICE_OUTPUT |
CALL MNC_CW_RL_W(pf,mncf,0,0,'Tice2', Tice1, myThid) |
./pkg/thsice/thsice_output.F |
365 |
THSICE_OUTPUT |
CALL MNC_CW_RL_W(pf,mncf,0,0,'Qice1', Qice1, myThid) |
./pkg/thsice/thsice_output.F |
366 |
THSICE_OUTPUT |
CALL MNC_CW_RL_W(pf,mncf,0,0,'Qice2', Qice2, myThid) |
./pkg/thsice/thsice_output.F |
367 |
THSICE_OUTPUT |
CALL MNC_CW_RL_W(pf,mncf,0,0,'snowAge', snowAge, myThid) |
./pkg/thsice/thsice_output.F |
369 |
THSICE_OUTPUT |
CALL MNC_CW_RL_W(pf,mncf,0,0,'tOceMxL',tOceMxL,myThid) |
./pkg/thsice/thsice_output.F |
370 |
THSICE_OUTPUT |
CALL MNC_CW_RL_W(pf,mncf,0,0,'sOceMxL',sOceMxL,myThid) |
./pkg/thsice/thsice_output.F |
379 |
THSICE_OUTPUT |
& CALL THSICE_MONITOR( myTime, myIter, myThid ) |
./pkg/thsice/thsice_output.F |
39 |
THSICE_OUTPUT |
INTEGER myThid |
./pkg/thsice/thsice_output.F |
64 |
THSICE_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/thsice/thsice_output.F |
65 |
THSICE_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/thsice/thsice_output.F |
66 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_fract_Ave, 1, bi, bj, myThid) |
./pkg/thsice/thsice_output.F |
67 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_iceH_Ave, 1, bi, bj, myThid) |
./pkg/thsice/thsice_output.F |
68 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_snowH_Ave, 1, bi, bj, myThid) |
./pkg/thsice/thsice_output.F |
69 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_Tsrf_Ave, 1, bi, bj, myThid) |
./pkg/thsice/thsice_output.F |
70 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_Tice1_Ave, 1, bi, bj, myThid) |
./pkg/thsice/thsice_output.F |
71 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_Tice2_Ave, 1, bi, bj, myThid) |
./pkg/thsice/thsice_output.F |
72 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_snowPr_Ave, 1, bi, bj, myThid) |
./pkg/thsice/thsice_output.F |
73 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_flx2oc_Ave, 1, bi, bj, myThid) |
./pkg/thsice/thsice_output.F |
74 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_frw2oc_Ave, 1, bi, bj, myThid) |
./pkg/thsice/thsice_output.F |
75 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_salFx_Ave, 1, bi, bj, myThid) |
./pkg/thsice/thsice_output.F |
76 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_flxAtm_Ave, 1, bi, bj, myThid) |
./pkg/thsice/thsice_output.F |
77 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_frwAtm_Ave, 1, bi, bj, myThid) |
./pkg/thsice/thsice_output.F |
78 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_albedo_Ave, 1, bi, bj, myThid) |
./pkg/thsice/thsice_output.F |
79 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_tMxL_Ave, 1, bi, bj, myThid) |
./pkg/thsice/thsice_output.F |
80 |
THSICE_OUTPUT |
CALL TIMEAVE_RESET(ice_sMxL_Ave, 1, bi, bj, myThid) |
./pkg/thsice/thsice_output.F |
91 |
THSICE_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/thsice/thsice_output.F |
92 |
THSICE_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/thsice/thsice_output.F |
95 |
THSICE_OUTPUT |
& ice_fract_Ave, 1, bi, bj, myThid ) |
./pkg/thsice/thsice_output.F |
97 |
THSICE_OUTPUT |
& ice_fract_Ave, 1, bi, bj, myThid ) |
./pkg/thsice/thsice_output.F |
99 |
THSICE_OUTPUT |
& ice_fract_Ave, 1, bi, bj, myThid ) |
./pkg/thsice/thsice_output.F |
9 |
THSICE_OUTPUT |
SUBROUTINE THSICE_OUTPUT( myTime, myIter, myThid ) |
./pkg/thsice/thsice_read_pickup.F |
32 |
THSICE_READ_PICKUP |
INTEGER myThid |
./pkg/thsice/thsice_read_pickup.F |
47 |
THSICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, 1, iceMask, 1, myIter,myThid ) |
./pkg/thsice/thsice_read_pickup.F |
48 |
THSICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, 1, iceHeight,2, myIter,myThid ) |
./pkg/thsice/thsice_read_pickup.F |
49 |
THSICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, 1,snowHeight,3, myIter,myThid ) |
./pkg/thsice/thsice_read_pickup.F |
50 |
THSICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, 1, Tsrf, 4, myIter,myThid ) |
./pkg/thsice/thsice_read_pickup.F |
51 |
THSICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, 1, Tice1, 5, myIter,myThid ) |
./pkg/thsice/thsice_read_pickup.F |
52 |
THSICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, 1, Tice2, 6, myIter,myThid ) |
./pkg/thsice/thsice_read_pickup.F |
53 |
THSICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, 1, Qice1, 7, myIter,myThid ) |
./pkg/thsice/thsice_read_pickup.F |
54 |
THSICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, 1, Qice2, 8, myIter,myThid ) |
./pkg/thsice/thsice_read_pickup.F |
55 |
THSICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, 1, snowAge, 9, myIter,myThid ) |
./pkg/thsice/thsice_read_pickup.F |
58 |
THSICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, tOceMxL, 10, myIter,myThid ) |
./pkg/thsice/thsice_read_pickup.F |
59 |
THSICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, sOceMxL, 11, myIter,myThid ) |
./pkg/thsice/thsice_read_pickup.F |
67 |
THSICE_READ_PICKUP |
CALL MNC_FILE_CLOSE_ALL_MATCHING(fn, myThid) |
./pkg/thsice/thsice_read_pickup.F |
68 |
THSICE_READ_PICKUP |
CALL MNC_CW_SET_UDIM(fn, 1, myThid) |
./pkg/thsice/thsice_read_pickup.F |
69 |
THSICE_READ_PICKUP |
CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, 0, myThid) |
./pkg/thsice/thsice_read_pickup.F |
70 |
THSICE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'iceMask', iceMask, myThid) |
./pkg/thsice/thsice_read_pickup.F |
71 |
THSICE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'iceHeight', iceHeight, myThid) |
./pkg/thsice/thsice_read_pickup.F |
72 |
THSICE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'snowHeight',snowHeight,myThid) |
./pkg/thsice/thsice_read_pickup.F |
73 |
THSICE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'Tsrf', Tsrf, myThid) |
./pkg/thsice/thsice_read_pickup.F |
74 |
THSICE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'Tice1', Tice1, myThid) |
./pkg/thsice/thsice_read_pickup.F |
75 |
THSICE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'Tice2', Tice1, myThid) |
./pkg/thsice/thsice_read_pickup.F |
76 |
THSICE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'Qice1', Qice1, myThid) |
./pkg/thsice/thsice_read_pickup.F |
77 |
THSICE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'Qice2', Qice2, myThid) |
./pkg/thsice/thsice_read_pickup.F |
78 |
THSICE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'snowAge', snowAge, myThid) |
./pkg/thsice/thsice_read_pickup.F |
80 |
THSICE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'tOceMxL',tOceMxL,myThid) |
./pkg/thsice/thsice_read_pickup.F |
81 |
THSICE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'sOceMxL',sOceMxL,myThid) |
./pkg/thsice/thsice_read_pickup.F |
9 |
THSICE_READ_PICKUP |
SUBROUTINE THSICE_READ_PICKUP( prec, myIter, myThid ) |
./pkg/thsice/thsice_readparms.F |
224 |
THSICE_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/thsice/thsice_readparms.F |
232 |
THSICE_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/thsice/thsice_readparms.F |
244 |
THSICE_READPARMS |
& SQUEEZE_RIGHT , myThid) |
./pkg/thsice/thsice_readparms.F |
248 |
THSICE_READPARMS |
& SQUEEZE_RIGHT , myThid) |
./pkg/thsice/thsice_readparms.F |
316 |
THSICE_READPARMS |
_END_MASTER(myThid) |
./pkg/thsice/thsice_readparms.F |
36 |
THSICE_READPARMS |
INTEGER myThid |
./pkg/thsice/thsice_readparms.F |
75 |
THSICE_READPARMS |
_BEGIN_MASTER(myThid) |
./pkg/thsice/thsice_readparms.F |
84 |
THSICE_READPARMS |
I myThid ) |
./pkg/thsice/thsice_readparms.F |
9 |
THSICE_READPARMS |
SUBROUTINE THSICE_READPARMS( myThid ) |
./pkg/thsice/thsice_reshape_layers.F |
11 |
THSICE_RESHAPE_LAYERS |
I hlyr, hnew, myThid ) |
./pkg/thsice/thsice_reshape_layers.F |
39 |
THSICE_RESHAPE_LAYERS |
INTEGER myThid |
./pkg/thsice/thsice_slab_ocean.F |
12 |
THSICE_SLAB_OCEAN |
I bi, bj, myTime, myIter, myThid ) |
./pkg/thsice/thsice_slab_ocean.F |
55 |
THSICE_SLAB_OCEAN |
INTEGER myIter, myThid |
./pkg/thsice/thsice_solve4temp.F |
113 |
THSICE_SOLVE4TEMP |
INTEGER myThid |
./pkg/thsice/thsice_solve4temp.F |
17 |
THSICE_SOLVE4TEMP |
I myTime, myIter, myThid ) |
./pkg/thsice/thsice_solve4temp.F |
183 |
THSICE_SOLVE4TEMP |
act1 = bi - myBxLo(myThid) |
./pkg/thsice/thsice_solve4temp.F |
184 |
THSICE_SOLVE4TEMP |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
./pkg/thsice/thsice_solve4temp.F |
185 |
THSICE_SOLVE4TEMP |
act2 = bj - myByLo(myThid) |
./pkg/thsice/thsice_solve4temp.F |
186 |
THSICE_SOLVE4TEMP |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
./pkg/thsice/thsice_solve4temp.F |
187 |
THSICE_SOLVE4TEMP |
act3 = myThid - 1 |
./pkg/thsice/thsice_solve4temp.F |
331 |
THSICE_SOLVE4TEMP |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/thsice/thsice_solve4temp.F |
359 |
THSICE_SOLVE4TEMP |
I myTime, myIter, myThid ) |
./pkg/thsice/thsice_solve4temp.F |
367 |
THSICE_SOLVE4TEMP |
I myTime, myIter, myThid ) |
./pkg/thsice/thsice_solve4temp.F |
408 |
THSICE_SOLVE4TEMP |
I myTime, myIter, myThid ) |
./pkg/thsice/thsice_solve4temp.F |
416 |
THSICE_SOLVE4TEMP |
I myTime, myIter, myThid ) |
./pkg/thsice/thsice_solve4temp.F |
503 |
THSICE_SOLVE4TEMP |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/thsice/thsice_step_fwd.F |
112 |
THSICE_STEP_FWD |
act1 = bi - myBxLo(myThid) |
./pkg/thsice/thsice_step_fwd.F |
113 |
THSICE_STEP_FWD |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
./pkg/thsice/thsice_step_fwd.F |
114 |
THSICE_STEP_FWD |
act2 = bj - myByLo(myThid) |
./pkg/thsice/thsice_step_fwd.F |
115 |
THSICE_STEP_FWD |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
./pkg/thsice/thsice_step_fwd.F |
116 |
THSICE_STEP_FWD |
act3 = myThid - 1 |
./pkg/thsice/thsice_step_fwd.F |
15 |
THSICE_STEP_FWD |
I myTime, myIter, myThid ) |
./pkg/thsice/thsice_step_fwd.F |
175 |
THSICE_STEP_FWD |
CALL DIAGNOSTICS_FILL(iceMask,'SI_FrcFx',0,1,1,bi,bj,myThid) |
./pkg/thsice/thsice_step_fwd.F |
178 |
THSICE_STEP_FWD |
I 0,1,1,bi,bj,myThid) |
./pkg/thsice/thsice_step_fwd.F |
181 |
THSICE_STEP_FWD |
I 0,1,1,bi,bj,myThid) |
./pkg/thsice/thsice_step_fwd.F |
241 |
THSICE_STEP_FWD |
I myTime, myIter, myThid ) |
./pkg/thsice/thsice_step_fwd.F |
319 |
THSICE_STEP_FWD |
I myTime, myIter, myThid ) |
./pkg/thsice/thsice_step_fwd.F |
398 |
THSICE_STEP_FWD |
I isIceFree, myTime, myIter, myThid ) |
./pkg/thsice/thsice_step_fwd.F |
72 |
THSICE_STEP_FWD |
INTEGER myThid |
./model/src/grad_sigma.F |
13 |
GRAD_SIGMA |
I myThid ) |
./model/src/grad_sigma.F |
42 |
GRAD_SIGMA |
INTEGER myThid |
./model/src/grad_sigma.F |
62 |
GRAD_SIGMA |
& rhoLoc, bi,bj, myThid ) |
./model/src/grad_sigma.F |
77 |
GRAD_SIGMA |
& rhoLoc, bi,bj, myThid ) |
./pkg/thsice/thsice_step_temp.F |
11 |
THSICE_STEP_TEMP |
I myTime, myIter, myThid ) |
./pkg/thsice/thsice_step_temp.F |
121 |
THSICE_STEP_TEMP |
I myTime, myIter, myThid ) |
./pkg/thsice/thsice_step_temp.F |
177 |
THSICE_STEP_TEMP |
I myTime, myIter, myThid ) |
./pkg/thsice/thsice_step_temp.F |
62 |
THSICE_STEP_TEMP |
INTEGER myThid |
./pkg/thsice/thsice_step_temp.F |
89 |
THSICE_STEP_TEMP |
act1 = bi - myBxLo(myThid) |
./pkg/thsice/thsice_step_temp.F |
90 |
THSICE_STEP_TEMP |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
./pkg/thsice/thsice_step_temp.F |
91 |
THSICE_STEP_TEMP |
act2 = bj - myByLo(myThid) |
./pkg/thsice/thsice_step_temp.F |
92 |
THSICE_STEP_TEMP |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
./pkg/thsice/thsice_step_temp.F |
93 |
THSICE_STEP_TEMP |
act3 = myThid - 1 |
./pkg/thsice/thsice_test_addfluid.h |
14 |
NO PROCEDURE |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/thsice/thsice_test_addfluid.h |
15 |
NO PROCEDURE |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/thsice/thsice_turnoff_io.F |
37 |
THSICE_TURNOFF_IO |
INTEGER myThid |
./pkg/thsice/thsice_turnoff_io.F |
45 |
THSICE_TURNOFF_IO |
_BEGIN_MASTER( myThid ) |
./pkg/thsice/thsice_turnoff_io.F |
53 |
THSICE_TURNOFF_IO |
_END_MASTER( myThid ) |
./pkg/thsice/thsice_turnoff_io.F |
9 |
THSICE_TURNOFF_IO |
SUBROUTINE THSICE_TURNOFF_IO( seqFlag, myThid ) |
./pkg/thsice/thsice_write_pickup.F |
39 |
THSICE_WRITE_PICKUP |
INTEGER myThid |
./pkg/thsice/thsice_write_pickup.F |
52 |
THSICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec, 1, iceMask, 1, myIter,myThid ) |
./pkg/thsice/thsice_write_pickup.F |
53 |
THSICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec, 1, iceHeight,2, myIter,myThid ) |
./pkg/thsice/thsice_write_pickup.F |
54 |
THSICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec, 1,snowHeight,3, myIter,myThid ) |
./pkg/thsice/thsice_write_pickup.F |
55 |
THSICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec, 1, Tsrf, 4, myIter,myThid ) |
./pkg/thsice/thsice_write_pickup.F |
56 |
THSICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec, 1, Tice1, 5, myIter,myThid ) |
./pkg/thsice/thsice_write_pickup.F |
57 |
THSICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec, 1, Tice2, 6, myIter,myThid ) |
./pkg/thsice/thsice_write_pickup.F |
58 |
THSICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec, 1, Qice1, 7, myIter,myThid ) |
./pkg/thsice/thsice_write_pickup.F |
59 |
THSICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec, 1, Qice2, 8, myIter,myThid ) |
./pkg/thsice/thsice_write_pickup.F |
60 |
THSICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec, 1, snowAge, 9, myIter,myThid ) |
./pkg/thsice/thsice_write_pickup.F |
63 |
THSICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, tOceMxL, 10, myIter,myThid ) |
./pkg/thsice/thsice_write_pickup.F |
64 |
THSICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, sOceMxL, 11, myIter,myThid ) |
./pkg/thsice/thsice_write_pickup.F |
76 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_SET_UDIM(fn, 0, myThid) |
./pkg/thsice/thsice_write_pickup.F |
78 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, 0, myThid) |
./pkg/thsice/thsice_write_pickup.F |
80 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_SET_CITER(fn, 2, -1, -1, -1, myThid) |
./pkg/thsice/thsice_write_pickup.F |
83 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_SET_UDIM(fn, 1, myThid) |
./pkg/thsice/thsice_write_pickup.F |
84 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_I_W_S('I',fn,0,0,'iter', myIter, myThid) |
./pkg/thsice/thsice_write_pickup.F |
86 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'iceMask', iceMask, myThid) |
./pkg/thsice/thsice_write_pickup.F |
87 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'iceHeight', iceHeight, myThid) |
./pkg/thsice/thsice_write_pickup.F |
88 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'snowHeight',snowHeight,myThid) |
./pkg/thsice/thsice_write_pickup.F |
89 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'Tsrf', Tsrf, myThid) |
./pkg/thsice/thsice_write_pickup.F |
90 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'Tice1', Tice1, myThid) |
./pkg/thsice/thsice_write_pickup.F |
91 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'Tice2', Tice1, myThid) |
./pkg/thsice/thsice_write_pickup.F |
92 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'Qice1', Qice1, myThid) |
./pkg/thsice/thsice_write_pickup.F |
93 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'Qice2', Qice2, myThid) |
./pkg/thsice/thsice_write_pickup.F |
94 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'snowAge', snowAge, myThid) |
./pkg/thsice/thsice_write_pickup.F |
96 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'tOceMxL',tOceMxL,myThid) |
./pkg/thsice/thsice_write_pickup.F |
97 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'sOceMxL',sOceMxL,myThid) |
./pkg/thsice/thsice_write_pickup.F |
9 |
THSICE_WRITE_PICKUP |
I myTime, myIter, myThid ) |
./pkg/timeave/timeave_cumul_1k1t.F |
31 |
TIMEAVE_CUMUL_1K1T |
INTEGER k, bi, bj, myThid |
./pkg/timeave/timeave_cumul_1k1t.F |
9 |
TIMEAVE_CUMUL_1K1T |
I Ksize, k, bi, bj, myThid ) |
./pkg/timeave/timeave_cumul_1t.F |
29 |
TIMEAVE_CUMUL_1T |
INTEGER bi, bj, myThid |
./pkg/timeave/timeave_cumul_1t.F |
9 |
TIMEAVE_CUMUL_1T |
I bi, bj, myThid ) |
./pkg/timeave/timeave_cumul_1vfc.F |
32 |
TIMEAVE_CUMUL_1VFC |
INTEGER bi, bj, myThid |
./pkg/timeave/timeave_cumul_1vfc.F |
9 |
TIMEAVE_CUMUL_1VFC |
I bi, bj, myThid ) |
./pkg/timeave/timeave_cumul_2v.F |
36 |
TIMEAVE_CUMUL_2V |
INTEGER bi, bj, myThid |
./pkg/timeave/timeave_cumul_2v.F |
9 |
TIMEAVE_CUMUL_2V |
I bi, bj, myThid ) |
./model/src/impldiff.F |
13 |
IMPLDIFF |
I myThid ) |
./model/src/impldiff.F |
305 |
IMPLDIFF |
diagSufx = GAD_DIAG_SUFX( tracerId, myThid ) |
./model/src/impldiff.F |
317 |
IMPLDIFF |
IF ( DIAGNOSTICS_IS_ON(diagName,myThid) ) THEN |
./model/src/impldiff.F |
374 |
IMPLDIFF |
CALL DIAGNOSTICS_FILL(df,diagName, k,1, 2,bi,bj, myThid) |
./model/src/impldiff.F |
57 |
IMPLDIFF |
INTEGER myThid |
./pkg/timeave/timeave_cumul_2vfc.F |
38 |
TIMEAVE_CUMUL_2VFC |
INTEGER bi, bj, myThid |
./pkg/timeave/timeave_cumul_2vfc.F |
9 |
TIMEAVE_CUMUL_2VFC |
I bi, bj, myThid ) |
./pkg/timeave/timeave_cumul_dif_1t.F |
33 |
TIMEAVE_CUMUL_DIF_1T |
INTEGER bi, bj, myThid |
./pkg/timeave/timeave_cumul_dif_1t.F |
9 |
TIMEAVE_CUMUL_DIF_1T |
I bi, bj, myThid ) |
./pkg/timeave/timeave_cumulate.F |
29 |
TIMEAVE_CUMULATE |
INTEGER bi, bj, myThid |
./pkg/timeave/timeave_cumulate.F |
9 |
TIMEAVE_CUMULATE |
I bi, bj, myThid ) |
./pkg/timeave/timeave_init_fixed.F |
100 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VNAME('UStave', 'U_xy_Hn__C__t', 4,5, myThid) |
./pkg/timeave/timeave_init_fixed.F |
101 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VATTR_TEXT('UStave','units','psu*m/s', myThid) |
./pkg/timeave/timeave_init_fixed.F |
103 |
TIMEAVE_INIT_FIXED |
& 'Zonal velocity and Salinity t-ave product', myThid) |
./pkg/timeave/timeave_init_fixed.F |
105 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VNAME('VStave', 'V_xy_Hn__C__t', 4,5, myThid) |
./pkg/timeave/timeave_init_fixed.F |
106 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VATTR_TEXT('VStave','units','psu*m/s', myThid) |
./pkg/timeave/timeave_init_fixed.F |
108 |
TIMEAVE_INIT_FIXED |
& 'Merid velocity and Salinity t-ave product', myThid) |
./pkg/timeave/timeave_init_fixed.F |
10 |
TIMEAVE_INIT_FIXED |
SUBROUTINE TIMEAVE_INIT_FIXED( myThid ) |
./pkg/timeave/timeave_init_fixed.F |
110 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VNAME('WStave', 'Cen_xy_Hn__L__t', 4,5, myThid) |
./pkg/timeave/timeave_init_fixed.F |
111 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VATTR_TEXT('WStave','units','psu*m/s', myThid) |
./pkg/timeave/timeave_init_fixed.F |
113 |
TIMEAVE_INIT_FIXED |
& 'Vert velocity and Salinity t-ave product', myThid) |
./pkg/timeave/timeave_init_fixed.F |
115 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VNAME('TTtave', 'Cen_xy_Hn__C__t', 4,5, myThid) |
./pkg/timeave/timeave_init_fixed.F |
116 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VATTR_TEXT('TTtave','units','degC^2', myThid) |
./pkg/timeave/timeave_init_fixed.F |
118 |
TIMEAVE_INIT_FIXED |
& 'Potl Temp Squared t-ave', myThid) |
./pkg/timeave/timeave_init_fixed.F |
120 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VNAME('UUtave', 'U_xy_Hn__C__t', 4,5, myThid) |
./pkg/timeave/timeave_init_fixed.F |
121 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VATTR_TEXT('UUtave','units','m^2/s^2', myThid) |
./pkg/timeave/timeave_init_fixed.F |
123 |
TIMEAVE_INIT_FIXED |
& 'Zonal Vel. Squared t-ave', myThid) |
./pkg/timeave/timeave_init_fixed.F |
125 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VNAME('VVtave', 'V_xy_Hn__C__t', 4,5, myThid) |
./pkg/timeave/timeave_init_fixed.F |
126 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VATTR_TEXT('VVtave','units','m^2/s^2', myThid) |
./pkg/timeave/timeave_init_fixed.F |
128 |
TIMEAVE_INIT_FIXED |
& 'Merid Vel. Squared t-ave', myThid) |
./pkg/timeave/timeave_init_fixed.F |
130 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VNAME('UVtave', 'Cen_xy_Hn__C__t', 4,5, myThid) |
./pkg/timeave/timeave_init_fixed.F |
131 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VATTR_TEXT('UVtave','units','m^2/s^2', myThid) |
./pkg/timeave/timeave_init_fixed.F |
133 |
TIMEAVE_INIT_FIXED |
& 'Horiz. Vel. Product t-ave', myThid) |
./pkg/timeave/timeave_init_fixed.F |
135 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VNAME('KEtave', 'Cen_xy_Hn__C__t', 4,5, myThid) |
./pkg/timeave/timeave_init_fixed.F |
136 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VATTR_TEXT('KEtave','units','m^2/s^2', myThid) |
./pkg/timeave/timeave_init_fixed.F |
138 |
TIMEAVE_INIT_FIXED |
& 'Kinetic Energy t-ave', myThid) |
./pkg/timeave/timeave_init_fixed.F |
140 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VNAME('Tdiftave', 'Cen_xy_Hn__C__t',4,5,myThid) |
./pkg/timeave/timeave_init_fixed.F |
142 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VNAME('uZtave', 'U_xy_Hn__C__t', 4,5, myThid) |
./pkg/timeave/timeave_init_fixed.F |
143 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VATTR_TEXT('uZtave','units','m/s^2', myThid) |
./pkg/timeave/timeave_init_fixed.F |
145 |
TIMEAVE_INIT_FIXED |
& 'Zonal Vel. and Rel. Vorticity Product t-ave', myThid) |
./pkg/timeave/timeave_init_fixed.F |
147 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VNAME('vZtave', 'V_xy_Hn__C__t', 4,5, myThid) |
./pkg/timeave/timeave_init_fixed.F |
148 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VATTR_TEXT('vZtave','units','m/s^2', myThid) |
./pkg/timeave/timeave_init_fixed.F |
150 |
TIMEAVE_INIT_FIXED |
& 'Merid Vel. and Rel. Vorticity Product t-ave', myThid) |
./pkg/timeave/timeave_init_fixed.F |
152 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VNAME('PhHytave', 'Cen_xy_Hn__C__t',4,5,myThid) |
./pkg/timeave/timeave_init_fixed.F |
154 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VNAME('PHLtave', 'Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/timeave/timeave_init_fixed.F |
155 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VNAME('PHL2tave', 'Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/timeave/timeave_init_fixed.F |
157 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VNAME('Convtave', 'Cen_xy_Hn__C__t',4,5,myThid) |
./pkg/timeave/timeave_init_fixed.F |
159 |
TIMEAVE_INIT_FIXED |
& 'Convection t-ave', myThid) |
./pkg/timeave/timeave_init_fixed.F |
161 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VNAME('uFluxtave', 'Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/timeave/timeave_init_fixed.F |
162 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VNAME('vFluxtave', 'Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/timeave/timeave_init_fixed.F |
163 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VNAME('tFluxtave', 'Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/timeave/timeave_init_fixed.F |
164 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VNAME('sFluxtave', 'Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/timeave/timeave_init_fixed.F |
166 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VNAME('hUtave', 'U_xy_Hn__C__t',4,5,myThid) |
./pkg/timeave/timeave_init_fixed.F |
167 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VNAME('hVtave', 'V_xy_Hn__C__t',4,5,myThid) |
./pkg/timeave/timeave_init_fixed.F |
168 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VNAME('hFacCtave', 'Cen_xy_Hn__C__t',4,5,myThid) |
./pkg/timeave/timeave_init_fixed.F |
169 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VNAME('hFacWtave', 'U_xy_Hn__C__t',4,5,myThid) |
./pkg/timeave/timeave_init_fixed.F |
170 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VNAME('hFacStave', 'V_xy_Hn__C__t',4,5,myThid) |
./pkg/timeave/timeave_init_fixed.F |
29 |
TIMEAVE_INIT_FIXED |
INTEGER myThid |
./pkg/timeave/timeave_init_fixed.F |
37 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VNAME('ETAtave', 'Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/timeave/timeave_init_fixed.F |
39 |
TIMEAVE_INIT_FIXED |
& 'time-averaged free-surface_r-anomaly', myThid) |
./pkg/timeave/timeave_init_fixed.F |
40 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VATTR_TEXT('ETAtave','units','m', myThid) |
./pkg/timeave/timeave_init_fixed.F |
42 |
TIMEAVE_INIT_FIXED |
& 'coordinates','XC YC RC iter', myThid) |
./pkg/timeave/timeave_init_fixed.F |
44 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VNAME('Eta2tave', 'Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/timeave/timeave_init_fixed.F |
46 |
TIMEAVE_INIT_FIXED |
& 'time-averaged free-surface_r-anomaly squared', myThid) |
./pkg/timeave/timeave_init_fixed.F |
47 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VATTR_TEXT('Eta2tave','units','m^2', myThid) |
./pkg/timeave/timeave_init_fixed.F |
49 |
TIMEAVE_INIT_FIXED |
& 'coordinates','XC YC RC iter', myThid) |
./pkg/timeave/timeave_init_fixed.F |
51 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VNAME('Ttave', 'Cen_xy_Hn__C__t', 4,5, myThid) |
./pkg/timeave/timeave_init_fixed.F |
52 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VATTR_TEXT('Ttave','units','degC', myThid) |
./pkg/timeave/timeave_init_fixed.F |
54 |
TIMEAVE_INIT_FIXED |
& 'time-averaged potential_temperature', myThid) |
./pkg/timeave/timeave_init_fixed.F |
56 |
TIMEAVE_INIT_FIXED |
& 'coordinates','XC YC RC iter', myThid) |
./pkg/timeave/timeave_init_fixed.F |
58 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VNAME('Stave', 'Cen_xy_Hn__C__t', 4,5, myThid) |
./pkg/timeave/timeave_init_fixed.F |
60 |
TIMEAVE_INIT_FIXED |
& 'time-averaged salinity', myThid) |
./pkg/timeave/timeave_init_fixed.F |
62 |
TIMEAVE_INIT_FIXED |
& 'coordinates','XC YC RC iter', myThid) |
./pkg/timeave/timeave_init_fixed.F |
64 |
TIMEAVE_INIT_FIXED |
& 'time-averaged salinity', myThid) |
./pkg/timeave/timeave_init_fixed.F |
66 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VNAME('uVeltave', 'U_xy_Hn__C__t', 4,5, myThid) |
./pkg/timeave/timeave_init_fixed.F |
67 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VATTR_TEXT('uVeltave','units','m/s', myThid) |
./pkg/timeave/timeave_init_fixed.F |
69 |
TIMEAVE_INIT_FIXED |
& 'coordinates','XU YU RC iter', myThid) |
./pkg/timeave/timeave_init_fixed.F |
71 |
TIMEAVE_INIT_FIXED |
& 'time-averaged zonal velocity', myThid) |
./pkg/timeave/timeave_init_fixed.F |
73 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VNAME('vVeltave', 'V_xy_Hn__C__t', 4,5, myThid) |
./pkg/timeave/timeave_init_fixed.F |
74 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VATTR_TEXT('vVeltave','units','m/s', myThid) |
./pkg/timeave/timeave_init_fixed.F |
76 |
TIMEAVE_INIT_FIXED |
& 'coordinates','XV YV RC iter', myThid) |
./pkg/timeave/timeave_init_fixed.F |
78 |
TIMEAVE_INIT_FIXED |
& 'time-averaged merid. velocity', myThid) |
./pkg/timeave/timeave_init_fixed.F |
80 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VNAME('wVeltave', 'Cen_xy_Hn__L__t',4,5,myThid) |
./pkg/timeave/timeave_init_fixed.F |
81 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VATTR_TEXT('wVeltave','units','m/s', myThid) |
./pkg/timeave/timeave_init_fixed.F |
83 |
TIMEAVE_INIT_FIXED |
& 'time-averaged vertical velocity', myThid) |
./pkg/timeave/timeave_init_fixed.F |
85 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VNAME('UTtave', 'U_xy_Hn__C__t', 4,5, myThid) |
./pkg/timeave/timeave_init_fixed.F |
86 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VATTR_TEXT('UTtave','units','degC*m/s',myThid) |
./pkg/timeave/timeave_init_fixed.F |
88 |
TIMEAVE_INIT_FIXED |
& 'Zonal velocity and potential temp. t-ave product', myThid) |
./pkg/timeave/timeave_init_fixed.F |
90 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VNAME('VTtave', 'V_xy_Hn__C__t', 4,5, myThid) |
./pkg/timeave/timeave_init_fixed.F |
91 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VATTR_TEXT('VTtave','units','degC*m/s',myThid) |
./pkg/timeave/timeave_init_fixed.F |
93 |
TIMEAVE_INIT_FIXED |
& 'Merid velocity and potential temp. t-ave product', myThid) |
./pkg/timeave/timeave_init_fixed.F |
95 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VNAME('WTtave', 'Cen_xy_Hn__L__t', 4,5, myThid) |
./pkg/timeave/timeave_init_fixed.F |
96 |
TIMEAVE_INIT_FIXED |
CALL MNC_CW_ADD_VATTR_TEXT('WTtave','units','degC*m/s',myThid) |
./pkg/timeave/timeave_init_fixed.F |
98 |
TIMEAVE_INIT_FIXED |
& 'Vert. velocity and potential temp. t-ave product', myThid) |
./pkg/timeave/timeave_norma_2v.F |
25 |
TIMEAVE_NORMA_2V |
INTEGER bi, bj, Ksize, myThid |
./pkg/timeave/timeave_norma_2v.F |
9 |
TIMEAVE_NORMA_2V |
I bi, bj, myThid ) |
./pkg/timeave/timeave_normaliz.F |
10 |
TIMEAVE_NORMALIZ |
I cumulTime, kSize, bi, bj, myThid ) |
./pkg/timeave/timeave_normaliz.F |
36 |
TIMEAVE_NORMALIZ |
INTEGER myThid |
./pkg/timeave/timeave_normalize.F |
13 |
TIMEAVE_NORMALIZE |
I bi, bj, myThid ) |
./pkg/timeave/timeave_normalize.F |
37 |
TIMEAVE_NORMALIZE |
INTEGER myThid |
./pkg/timeave/timeave_reset.F |
22 |
TIMEAVE_RESET |
INTEGER bi, bj, Ksize, myThid |
./pkg/timeave/timeave_reset.F |
6 |
TIMEAVE_RESET |
SUBROUTINE TIMEAVE_RESET( fldtave, Ksize, bi, bj, myThid ) |
./pkg/timeave/timeave_statv_write.F |
100 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(UUtave, timeAve_half,Nr,bi,bj,myThid) |
./pkg/timeave/timeave_statv_write.F |
101 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(VVtave, timeAve_half,Nr,bi,bj,myThid) |
./pkg/timeave/timeave_statv_write.F |
102 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(UVtave, timeAve_half,Nr,bi,bj,myThid) |
./pkg/timeave/timeave_statv_write.F |
106 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(hUtave, timeAve_half,Nr,bi,bj,myThid) |
./pkg/timeave/timeave_statv_write.F |
107 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(hVtave, timeAve_half,Nr,bi,bj,myThid) |
./pkg/timeave/timeave_statv_write.F |
10 |
TIMEAVE_STATV_WRITE |
SUBROUTINE TIMEAVE_STATV_WRITE( myTime, myIter, myThid ) |
./pkg/timeave/timeave_statv_write.F |
114 |
TIMEAVE_STATV_WRITE |
& bi,bj,myThid) |
./pkg/timeave/timeave_statv_write.F |
116 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(uZetatave,timeAve_full,Nr,bi,bj,myThid) |
./pkg/timeave/timeave_statv_write.F |
117 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(vZetatave,timeAve_full,Nr,bi,bj,myThid) |
./pkg/timeave/timeave_statv_write.F |
120 |
TIMEAVE_STATV_WRITE |
& bi,bj,myThid) |
./pkg/timeave/timeave_statv_write.F |
122 |
TIMEAVE_STATV_WRITE |
& bi,bj,myThid) |
./pkg/timeave/timeave_statv_write.F |
124 |
TIMEAVE_STATV_WRITE |
& bi,bj,myThid) |
./pkg/timeave/timeave_statv_write.F |
134 |
TIMEAVE_STATV_WRITE |
beginIOErrCount = IO_ERRCOUNT(myThid) |
./pkg/timeave/timeave_statv_write.F |
135 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XY_RL('ETAtave.' ,suff,etatave ,myIter,myThid) |
./pkg/timeave/timeave_statv_write.F |
136 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('Ttave.',suff,thetatave,myIter,myThid) |
./pkg/timeave/timeave_statv_write.F |
137 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('Stave.',suff,salttave,myIter,myThid) |
./pkg/timeave/timeave_statv_write.F |
138 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('uVeltave.',suff,uVeltave,myIter,myThid) |
./pkg/timeave/timeave_statv_write.F |
139 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('vVeltave.',suff,vVeltave,myIter,myThid) |
./pkg/timeave/timeave_statv_write.F |
140 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('wVeltave.',suff,wVeltave,myIter,myThid) |
./pkg/timeave/timeave_statv_write.F |
141 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XY_RL('Eta2tave.',suff,Eta2tave ,myIter,myThid) |
./pkg/timeave/timeave_statv_write.F |
142 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('UTtave.',suff,UTtave,myIter,myThid) |
./pkg/timeave/timeave_statv_write.F |
143 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('VTtave.',suff,VTtave,myIter,myThid) |
./pkg/timeave/timeave_statv_write.F |
144 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('WTtave.',suff,WTtave,myIter,myThid) |
./pkg/timeave/timeave_statv_write.F |
145 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('UStave.',suff,UStave,myIter,myThid) |
./pkg/timeave/timeave_statv_write.F |
146 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('VStave.',suff,VStave,myIter,myThid) |
./pkg/timeave/timeave_statv_write.F |
147 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('WStave.',suff,WStave,myIter,myThid) |
./pkg/timeave/timeave_statv_write.F |
148 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('TTtave.',suff,TTtave,myIter,myThid) |
./pkg/timeave/timeave_statv_write.F |
149 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('UUtave.',suff,UUtave,myIter,myThid) |
./pkg/timeave/timeave_statv_write.F |
150 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('VVtave.',suff,VVtave,myIter,myThid) |
./pkg/timeave/timeave_statv_write.F |
151 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('UVtave.',suff,UVtave,myIter,myThid) |
./pkg/timeave/timeave_statv_write.F |
156 |
TIMEAVE_STATV_WRITE |
& myIter,myThid) |
./pkg/timeave/timeave_statv_write.F |
160 |
TIMEAVE_STATV_WRITE |
& myIter,myThid) |
./pkg/timeave/timeave_statv_write.F |
162 |
TIMEAVE_STATV_WRITE |
& myIter,myThid) |
./pkg/timeave/timeave_statv_write.F |
166 |
TIMEAVE_STATV_WRITE |
& myIter,myThid) |
./pkg/timeave/timeave_statv_write.F |
169 |
TIMEAVE_STATV_WRITE |
& myIter,myThid) |
./pkg/timeave/timeave_statv_write.F |
171 |
TIMEAVE_STATV_WRITE |
& myIter,myThid) |
./pkg/timeave/timeave_statv_write.F |
173 |
TIMEAVE_STATV_WRITE |
& myIter,myThid) |
./pkg/timeave/timeave_statv_write.F |
175 |
TIMEAVE_STATV_WRITE |
& myIter,myThid) |
./pkg/timeave/timeave_statv_write.F |
177 |
TIMEAVE_STATV_WRITE |
& myIter,myThid) |
./pkg/timeave/timeave_statv_write.F |
179 |
TIMEAVE_STATV_WRITE |
& myIter,myThid) |
./pkg/timeave/timeave_statv_write.F |
181 |
TIMEAVE_STATV_WRITE |
& myIter,myThid) |
./pkg/timeave/timeave_statv_write.F |
185 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('hUtave.',suff,hUtave,myIter,myThid) |
./pkg/timeave/timeave_statv_write.F |
186 |
TIMEAVE_STATV_WRITE |
CALL WRITE_FLD_XYZ_RL('hVtave.',suff,hVtave,myIter,myThid) |
./pkg/timeave/timeave_statv_write.F |
193 |
TIMEAVE_STATV_WRITE |
endIOErrCount = IO_ERRCOUNT(myThid) |
./pkg/timeave/timeave_statv_write.F |
199 |
TIMEAVE_STATV_WRITE |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/timeave/timeave_statv_write.F |
201 |
TIMEAVE_STATV_WRITE |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/timeave/timeave_statv_write.F |
203 |
TIMEAVE_STATV_WRITE |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/timeave/timeave_statv_write.F |
206 |
TIMEAVE_STATV_WRITE |
_BEGIN_MASTER( myThid ) |
./pkg/timeave/timeave_statv_write.F |
210 |
TIMEAVE_STATV_WRITE |
& SQUEEZE_RIGHT, myThid ) |
./pkg/timeave/timeave_statv_write.F |
213 |
TIMEAVE_STATV_WRITE |
& SQUEEZE_RIGHT, myThid ) |
./pkg/timeave/timeave_statv_write.F |
214 |
TIMEAVE_STATV_WRITE |
_END_MASTER( myThid ) |
./pkg/timeave/timeave_statv_write.F |
228 |
TIMEAVE_STATV_WRITE |
CALL MNC_CW_SET_UDIM('tave', -1, myThid) |
./pkg/timeave/timeave_statv_write.F |
229 |
TIMEAVE_STATV_WRITE |
CALL MNC_CW_RL_W_S('D','tave',0,0,'T', myTime, myThid) |
./pkg/timeave/timeave_statv_write.F |
230 |
TIMEAVE_STATV_WRITE |
CALL MNC_CW_SET_UDIM('tave', 0, myThid) |
./pkg/timeave/timeave_statv_write.F |
231 |
TIMEAVE_STATV_WRITE |
CALL MNC_CW_I_W_S('I','tave',0,0,'iter', myIter, myThid) |
./pkg/timeave/timeave_statv_write.F |
233 |
TIMEAVE_STATV_WRITE |
CALL MNC_CW_RL_W(pf,'tave',0,0,'ETAtave',etatave,myThid) |
./pkg/timeave/timeave_statv_write.F |
234 |
TIMEAVE_STATV_WRITE |
CALL MNC_CW_RL_W(pf,'tave',0,0,'Eta2tave',Eta2tave,myThid) |
./pkg/timeave/timeave_statv_write.F |
235 |
TIMEAVE_STATV_WRITE |
CALL MNC_CW_RL_W(pf,'tave',0,0,'Ttave',thetatave,myThid) |
./pkg/timeave/timeave_statv_write.F |
236 |
TIMEAVE_STATV_WRITE |
CALL MNC_CW_RL_W(pf,'tave',0,0,'Stave',salttave,myThid) |
./pkg/timeave/timeave_statv_write.F |
237 |
TIMEAVE_STATV_WRITE |
CALL MNC_CW_RL_W(pf,'tave',0,0,'uVeltave',uVeltave,myThid) |
./pkg/timeave/timeave_statv_write.F |
238 |
TIMEAVE_STATV_WRITE |
CALL MNC_CW_RL_W(pf,'tave',0,0,'vVeltave',vVeltave,myThid) |
./pkg/timeave/timeave_statv_write.F |
239 |
TIMEAVE_STATV_WRITE |
CALL MNC_CW_RL_W(pf,'tave',0,0,'wVeltave',wVeltave,myThid) |
./pkg/timeave/timeave_statv_write.F |
240 |
TIMEAVE_STATV_WRITE |
CALL MNC_CW_RL_W(pf,'tave',0,0,'UTtave',UTtave,myThid) |
./pkg/timeave/timeave_statv_write.F |
241 |
TIMEAVE_STATV_WRITE |
CALL MNC_CW_RL_W(pf,'tave',0,0,'VTtave',VTtave,myThid) |
./pkg/timeave/timeave_statv_write.F |
242 |
TIMEAVE_STATV_WRITE |
CALL MNC_CW_RL_W(pf,'tave',0,0,'WTtave',WTtave,myThid) |
./pkg/timeave/timeave_statv_write.F |
243 |
TIMEAVE_STATV_WRITE |
CALL MNC_CW_RL_W(pf,'tave',0,0,'UStave',UStave,myThid) |
./pkg/timeave/timeave_statv_write.F |
244 |
TIMEAVE_STATV_WRITE |
CALL MNC_CW_RL_W(pf,'tave',0,0,'VStave',VStave,myThid) |
./pkg/timeave/timeave_statv_write.F |
245 |
TIMEAVE_STATV_WRITE |
CALL MNC_CW_RL_W(pf,'tave',0,0,'WStave',WStave,myThid) |
./pkg/timeave/timeave_statv_write.F |
246 |
TIMEAVE_STATV_WRITE |
CALL MNC_CW_RL_W(pf,'tave',0,0,'TTtave',TTtave,myThid) |
./pkg/timeave/timeave_statv_write.F |
247 |
TIMEAVE_STATV_WRITE |
CALL MNC_CW_RL_W(pf,'tave',0,0,'UUtave',UUtave,myThid) |
./pkg/timeave/timeave_statv_write.F |
248 |
TIMEAVE_STATV_WRITE |
CALL MNC_CW_RL_W(pf,'tave',0,0,'VVtave',VVtave,myThid) |
./pkg/timeave/timeave_statv_write.F |
249 |
TIMEAVE_STATV_WRITE |
CALL MNC_CW_RL_W(pf,'tave',0,0,'UVtave',UVtave,myThid) |
./pkg/timeave/timeave_statv_write.F |
253 |
TIMEAVE_STATV_WRITE |
& TdiffRtave,myThid) |
./pkg/timeave/timeave_statv_write.F |
257 |
TIMEAVE_STATV_WRITE |
CALL MNC_CW_RL_W(pf,'tave',0,0,'uZtave',uZetatave,myThid) |
./pkg/timeave/timeave_statv_write.F |
258 |
TIMEAVE_STATV_WRITE |
CALL MNC_CW_RL_W(pf,'tave',0,0,'vZtave',vZetatave,myThid) |
./pkg/timeave/timeave_statv_write.F |
262 |
TIMEAVE_STATV_WRITE |
& phiHydtave,myThid) |
./pkg/timeave/timeave_statv_write.F |
265 |
TIMEAVE_STATV_WRITE |
& phiHydLowtave,myThid) |
./pkg/timeave/timeave_statv_write.F |
267 |
TIMEAVE_STATV_WRITE |
& phiHydLow2tave,myThid) |
./pkg/timeave/timeave_statv_write.F |
269 |
TIMEAVE_STATV_WRITE |
& ConvectCountTave,myThid) |
./pkg/timeave/timeave_statv_write.F |
271 |
TIMEAVE_STATV_WRITE |
& uFluxtave,myThid) |
./pkg/timeave/timeave_statv_write.F |
273 |
TIMEAVE_STATV_WRITE |
& vFluxtave,myThid) |
./pkg/timeave/timeave_statv_write.F |
275 |
TIMEAVE_STATV_WRITE |
& tFluxtave,myThid) |
./pkg/timeave/timeave_statv_write.F |
277 |
TIMEAVE_STATV_WRITE |
& sFluxtave,myThid) |
./pkg/timeave/timeave_statv_write.F |
281 |
TIMEAVE_STATV_WRITE |
CALL MNC_CW_RL_W(pf,'tave',0,0,'hUtave',hUtave,myThid) |
./pkg/timeave/timeave_statv_write.F |
282 |
TIMEAVE_STATV_WRITE |
CALL MNC_CW_RL_W(pf,'tave',0,0,'hVtave',hVtave,myThid) |
./pkg/timeave/timeave_statv_write.F |
293 |
TIMEAVE_STATV_WRITE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/timeave/timeave_statv_write.F |
294 |
TIMEAVE_STATV_WRITE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/timeave/timeave_statv_write.F |
301 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_STATVARS(myTime, nIter0, bi, bj, myThid) |
./pkg/timeave/timeave_statv_write.F |
34 |
TIMEAVE_STATV_WRITE |
INTEGER myThid |
./pkg/timeave/timeave_statv_write.F |
67 |
TIMEAVE_STATV_WRITE |
I myTime, myIter, myThid ) |
./pkg/timeave/timeave_statv_write.F |
76 |
TIMEAVE_STATV_WRITE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/timeave/timeave_statv_write.F |
77 |
TIMEAVE_STATV_WRITE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/timeave/timeave_statv_write.F |
80 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(uFluxtave,timeAve_full,1 ,bi,bj,myThid) |
./pkg/timeave/timeave_statv_write.F |
81 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(vFluxtave,timeAve_full,1 ,bi,bj,myThid) |
./pkg/timeave/timeave_statv_write.F |
82 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(tFluxtave,timeAve_full,1 ,bi,bj,myThid) |
./pkg/timeave/timeave_statv_write.F |
83 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(sFluxtave,timeAve_full,1 ,bi,bj,myThid) |
./pkg/timeave/timeave_statv_write.F |
84 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(etatave, timeAve_half,1 ,bi,bj,myThid) |
./pkg/timeave/timeave_statv_write.F |
85 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(thetatave,timeAve_half,Nr,bi,bj,myThid) |
./pkg/timeave/timeave_statv_write.F |
86 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(salttave, timeAve_half,Nr,bi,bj,myThid) |
./pkg/timeave/timeave_statv_write.F |
87 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(uVeltave, timeAve_half,Nr,bi,bj,myThid) |
./pkg/timeave/timeave_statv_write.F |
88 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(vVeltave, timeAve_half,Nr,bi,bj,myThid) |
./pkg/timeave/timeave_statv_write.F |
89 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(wVeltave, timeAve_half,Nr,bi,bj,myThid) |
./pkg/timeave/timeave_statv_write.F |
91 |
TIMEAVE_STATV_WRITE |
& bi,bj,myThid) |
./pkg/timeave/timeave_statv_write.F |
92 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(UTtave, timeAve_half,Nr,bi,bj,myThid) |
./pkg/timeave/timeave_statv_write.F |
93 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(VTtave, timeAve_half,Nr,bi,bj,myThid) |
./pkg/timeave/timeave_statv_write.F |
94 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(WTtave, timeAve_half,Nr,bi,bj,myThid) |
./pkg/timeave/timeave_statv_write.F |
95 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(UStave, timeAve_half,Nr,bi,bj,myThid) |
./pkg/timeave/timeave_statv_write.F |
96 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(VStave, timeAve_half,Nr,bi,bj,myThid) |
./pkg/timeave/timeave_statv_write.F |
97 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(WStave, timeAve_half,Nr,bi,bj,myThid) |
./pkg/timeave/timeave_statv_write.F |
98 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(Eta2tave, timeAve_half,1 ,bi,bj,myThid) |
./pkg/timeave/timeave_statv_write.F |
99 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_NORMALIZE(TTtave, timeAve_half,Nr,bi,bj,myThid) |
./pkg/timeave/timeave_statvars.F |
105 |
TIMEAVE_STATVARS |
I myTime, myIter, myThid ) |
./pkg/timeave/timeave_statvars.F |
114 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMULATE(etatave, etaN, 1 , DDTT, bi, bj, myThid) |
./pkg/timeave/timeave_statvars.F |
115 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMULATE(thetatave,theta, Nr, DDTT, bi, bj, myThid) |
./pkg/timeave/timeave_statvars.F |
116 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMULATE(salttave, salt, Nr, DDTT, bi, bj, myThid) |
./pkg/timeave/timeave_statvars.F |
117 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMULATE(uVeltave, uVel, Nr, DDTT, bi, bj, myThid) |
./pkg/timeave/timeave_statvars.F |
118 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMULATE(vVeltave, vVel, Nr, DDTT, bi, bj, myThid) |
./pkg/timeave/timeave_statvars.F |
119 |
TIMEAVE_STATVARS |
CALL TIMEAVE_CUMULATE(wVeltave, wVel, Nr, DDTT, bi, bj, myThid) |
./pkg/timeave/timeave_statvars.F |
11 |
TIMEAVE_STATVARS |
I myTime, myIter, bi, bj, myThid ) |
./pkg/timeave/timeave_statvars.F |
123 |
TIMEAVE_STATVARS |
& DDTT, bi, bj, myThid) |
./pkg/timeave/timeave_statvars.F |
125 |
TIMEAVE_STATVARS |
& DDTT, bi, bj, myThid) |
./pkg/timeave/timeave_statvars.F |
127 |
TIMEAVE_STATVARS |
& DDTT, bi, bj, myThid) |
./pkg/timeave/timeave_statvars.F |
129 |
TIMEAVE_STATVARS |
& DDTT, bi, bj, myThid) |
./pkg/timeave/timeave_statvars.F |
131 |
TIMEAVE_STATVARS |
& DDTT, bi, bj, myThid) |
./pkg/timeave/timeave_statvars.F |
135 |
TIMEAVE_STATVARS |
& DDTT, bi, bj, myThid) |
./pkg/timeave/timeave_statvars.F |
137 |
TIMEAVE_STATVARS |
& DDTT, bi, bj, myThid) |
./pkg/timeave/timeave_statvars.F |
147 |
TIMEAVE_STATVARS |
& DDTT, bi, bj, myThid) |
./pkg/timeave/timeave_statvars.F |
149 |
TIMEAVE_STATVARS |
& DDTT, bi, bj, myThid) |
./pkg/timeave/timeave_statvars.F |
155 |
TIMEAVE_STATVARS |
& DDTT, bi, bj, myThid) |
./pkg/timeave/timeave_statvars.F |
157 |
TIMEAVE_STATVARS |
& DDTT, bi, bj, myThid) |
./pkg/timeave/timeave_statvars.F |
159 |
TIMEAVE_STATVARS |
& DDTT, bi, bj, myThid) |
./pkg/timeave/timeave_statvars.F |
161 |
TIMEAVE_STATVARS |
& DDTT, bi, bj, myThid) |
./pkg/timeave/timeave_statvars.F |
186 |
TIMEAVE_STATVARS |
& deltaTclock, bi, bj, myThid) |
./pkg/timeave/timeave_statvars.F |
188 |
TIMEAVE_STATVARS |
& deltaTclock, bi, bj, myThid) |
./pkg/timeave/timeave_statvars.F |
190 |
TIMEAVE_STATVARS |
& phiHydLow,phiHydLow, 1, 0, deltaTclock, bi, bj, myThid) |
./pkg/timeave/timeave_statvars.F |
37 |
TIMEAVE_STATVARS |
INTEGER myThid |
./pkg/timeave/timeave_statvars.F |
53 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(uFluxtave, 1, bi, bj, myThid) |
./pkg/timeave/timeave_statvars.F |
54 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(vFluxtave, 1, bi, bj, myThid) |
./pkg/timeave/timeave_statvars.F |
55 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(tFluxtave, 1, bi, bj, myThid) |
./pkg/timeave/timeave_statvars.F |
56 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(sFluxtave, 1, bi, bj, myThid) |
./pkg/timeave/timeave_statvars.F |
57 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(etatave, 1, bi, bj, myThid) |
./pkg/timeave/timeave_statvars.F |
58 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(thetatave, Nr, bi, bj, myThid) |
./pkg/timeave/timeave_statvars.F |
59 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(salttave, Nr, bi, bj, myThid) |
./pkg/timeave/timeave_statvars.F |
60 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(uVeltave, Nr, bi, bj, myThid) |
./pkg/timeave/timeave_statvars.F |
61 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(vVeltave, Nr, bi, bj, myThid) |
./pkg/timeave/timeave_statvars.F |
62 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(wVeltave, Nr, bi, bj, myThid) |
./pkg/timeave/timeave_statvars.F |
63 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(phiHydLowtave,1, bi, bj, myThid) |
./pkg/timeave/timeave_statvars.F |
64 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(UTtave, Nr, bi, bj, myThid) |
./pkg/timeave/timeave_statvars.F |
65 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(VTtave, Nr, bi, bj, myThid) |
./pkg/timeave/timeave_statvars.F |
66 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(WTtave, Nr, bi, bj, myThid) |
./pkg/timeave/timeave_statvars.F |
67 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(UStave, Nr, bi, bj, myThid) |
./pkg/timeave/timeave_statvars.F |
68 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(VStave, Nr, bi, bj, myThid) |
./pkg/timeave/timeave_statvars.F |
69 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(WStave, Nr, bi, bj, myThid) |
./pkg/timeave/timeave_statvars.F |
70 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(Eta2tave, 1, bi, bj, myThid) |
./pkg/timeave/timeave_statvars.F |
71 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(TTtave, Nr, bi, bj, myThid) |
./pkg/timeave/timeave_statvars.F |
72 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(UUtave, Nr, bi, bj, myThid) |
./pkg/timeave/timeave_statvars.F |
73 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(VVtave, Nr, bi, bj, myThid) |
./pkg/timeave/timeave_statvars.F |
74 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(UVtave, Nr, bi, bj, myThid) |
./pkg/timeave/timeave_statvars.F |
76 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(TdiffRtave,Nr, bi, bj, myThid) |
./pkg/timeave/timeave_statvars.F |
78 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(uZetatave, Nr, bi, bj, myThid) |
./pkg/timeave/timeave_statvars.F |
79 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(vZetatave, Nr, bi, bj, myThid) |
./pkg/timeave/timeave_statvars.F |
81 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(phiHydtave,Nr, bi, bj, myThid) |
./pkg/timeave/timeave_statvars.F |
82 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(phiHydLow2Tave,1, bi, bj, myThid) |
./pkg/timeave/timeave_statvars.F |
83 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(ConvectCountTave,Nr,bi,bj,myThid) |
./pkg/timeave/timeave_statvars.F |
85 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(hUtave, Nr, bi, bj, myThid) |
./pkg/timeave/timeave_statvars.F |
86 |
TIMEAVE_STATVARS |
CALL TIMEAVE_RESET(hVtave, Nr, bi, bj, myThid) |
./model/src/ini_cartesian_grid.F |
10 |
INI_CARTESIAN_GRID |
SUBROUTINE INI_CARTESIAN_GRID( myThid ) |
./model/src/ini_cartesian_grid.F |
237 |
INI_CARTESIAN_GRID |
_BEGIN_MASTER(myThid) |
./model/src/ini_cartesian_grid.F |
245 |
INI_CARTESIAN_GRID |
_END_MASTER(myThid) |
./model/src/ini_cartesian_grid.F |
62 |
INI_CARTESIAN_GRID |
INTEGER myThid |
./model/src/ini_cartesian_grid.F |
83 |
INI_CARTESIAN_GRID |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/ini_cartesian_grid.F |
84 |
INI_CARTESIAN_GRID |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/timeave/timeave_surf_flux.F |
110 |
TIMEAVE_SURF_FLUX |
& deltaTclock, bi, bj, myThid) |
./pkg/timeave/timeave_surf_flux.F |
31 |
TIMEAVE_SURF_FLUX |
INTEGER myThid |
./pkg/timeave/timeave_surf_flux.F |
53 |
TIMEAVE_SURF_FLUX |
& deltaTclock, bi, bj, myThid) |
./pkg/timeave/timeave_surf_flux.F |
62 |
TIMEAVE_SURF_FLUX |
& deltaTclock, bi, bj, myThid) |
./pkg/timeave/timeave_surf_flux.F |
6 |
TIMEAVE_SURF_FLUX |
I bi, bj, myTime, myIter, myThid) |
./pkg/timeave/timeave_surf_flux.F |
88 |
TIMEAVE_SURF_FLUX |
& deltaTclock, bi, bj, myThid) |
./pkg/zonal_filt/zonal_filt_apply_ts.F |
12 |
ZONAL_FILT_APPLY_TS |
I myThid ) |
./pkg/zonal_filt/zonal_filt_apply_ts.F |
32 |
ZONAL_FILT_APPLY_TS |
INTEGER myThid |
./pkg/zonal_filt/zonal_filt_apply_ts.F |
40 |
ZONAL_FILT_APPLY_TS |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/zonal_filt/zonal_filt_apply_ts.F |
41 |
ZONAL_FILT_APPLY_TS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/zonal_filt/zonal_filt_apply_ts.F |
46 |
ZONAL_FILT_APPLY_TS |
I 1, sNy, Nr, bi, bj, 1, myThid ) |
./pkg/zonal_filt/zonal_filt_apply_ts.F |
50 |
ZONAL_FILT_APPLY_TS |
I 1, sNy, Nr, bi, bj, 1, myThid ) |
./pkg/zonal_filt/zonal_filt_apply_uv.F |
12 |
ZONAL_FILT_APPLY_UV |
I myThid ) |
./pkg/zonal_filt/zonal_filt_apply_uv.F |
32 |
ZONAL_FILT_APPLY_UV |
INTEGER myThid |
./pkg/zonal_filt/zonal_filt_apply_uv.F |
42 |
ZONAL_FILT_APPLY_UV |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/zonal_filt/zonal_filt_apply_uv.F |
43 |
ZONAL_FILT_APPLY_UV |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/zonal_filt/zonal_filt_apply_uv.F |
57 |
ZONAL_FILT_APPLY_UV |
I 0, sNy+1, 1, bi, bj, 1, myThid ) |
./pkg/zonal_filt/zonal_filt_apply_uv.F |
71 |
ZONAL_FILT_APPLY_UV |
I 0, sNy+1, Nr, bi, bj, 1, myThid ) |
./pkg/zonal_filt/zonal_filt_apply_uv.F |
78 |
ZONAL_FILT_APPLY_UV |
I 0, sNy+1, Nr, bi, bj, 2, myThid ) |
./pkg/zonal_filt/zonal_filt_init.F |
107 |
ZONAL_FILT_INIT |
_END_MASTER(myThid) |
./pkg/zonal_filt/zonal_filt_init.F |
108 |
ZONAL_FILT_INIT |
CALL BAR2(myThid) |
./pkg/zonal_filt/zonal_filt_init.F |
110 |
ZONAL_FILT_INIT |
CALL WRITE_REC_XY_RL( 'ampFactor', ampFactor, 1, 0, myThid ) |
./pkg/zonal_filt/zonal_filt_init.F |
45 |
ZONAL_FILT_INIT |
INTEGER myThid |
./pkg/zonal_filt/zonal_filt_init.F |
73 |
ZONAL_FILT_INIT |
_BEGIN_MASTER(myThid) |
./pkg/zonal_filt/zonal_filt_init.F |
9 |
ZONAL_FILT_INIT |
SUBROUTINE ZONAL_FILT_INIT( myThid ) |
./pkg/zonal_filt/zonal_filt_nofill.F |
31 |
ZONAL_FILT_NOFILL |
INTEGER myThid |
./pkg/zonal_filt/zonal_filt_nofill.F |
8 |
ZONAL_FILT_NOFILL |
I jMin, jMax, kMin, kMax, bi, bj, gridLoc, myThid ) |
./pkg/zonal_filt/zonal_filt_postsmooth.F |
11 |
ZONAL_FILT_POSTSMOOTH |
I myThid ) |
./pkg/zonal_filt/zonal_filt_postsmooth.F |
36 |
ZONAL_FILT_POSTSMOOTH |
INTEGER myThid |
./model/src/ini_cg2d.F |
10 |
INI_CG2D |
SUBROUTINE INI_CG2D( myThid ) |
./model/src/ini_cg2d.F |
139 |
INI_CG2D |
_GLOBAL_MAX_RS( myNorm, myThid ) |
./model/src/ini_cg2d.F |
145 |
INI_CG2D |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/ini_cg2d.F |
146 |
INI_CG2D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/ini_cg2d.F |
161 |
INI_CG2D |
CALL EXCH_UV_XY_RS( aW2d, aS2d, .FALSE., myThid ) |
./model/src/ini_cg2d.F |
167 |
INI_CG2D |
_BEGIN_MASTER(myThid) |
./model/src/ini_cg2d.F |
180 |
INI_CG2D |
_END_MASTER(myThid) |
./model/src/ini_cg2d.F |
183 |
INI_CG2D |
_BEGIN_MASTER( myThid ) |
./model/src/ini_cg2d.F |
194 |
INI_CG2D |
_END_MASTER( myThid ) |
./model/src/ini_cg2d.F |
211 |
INI_CG2D |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/ini_cg2d.F |
212 |
INI_CG2D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/ini_cg2d.F |
255 |
INI_CG2D |
CALL EXCH_XY_RS( pC, myThid ) |
./model/src/ini_cg2d.F |
256 |
INI_CG2D |
CALL EXCH_UV_XY_RS( pW, pS, .FALSE., myThid ) |
./model/src/ini_cg2d.F |
38 |
INI_CG2D |
INTEGER myThid |
./model/src/ini_cg2d.F |
57 |
INI_CG2D |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/ini_cg2d.F |
58 |
INI_CG2D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/ini_cg2d.F |
90 |
INI_CG2D |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/ini_cg2d.F |
91 |
INI_CG2D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/zonal_filt/zonal_filt_presmooth.F |
11 |
ZONAL_FILT_PRESMOOTH |
I myThid ) |
./pkg/zonal_filt/zonal_filt_presmooth.F |
42 |
ZONAL_FILT_PRESMOOTH |
INTEGER myThid |
./pkg/zonal_filt/zonal_filt_readparms.F |
21 |
ZONAL_FILT_READPARMS |
INTEGER myThid |
./pkg/zonal_filt/zonal_filt_readparms.F |
41 |
ZONAL_FILT_READPARMS |
_BEGIN_MASTER(myThid) |
./pkg/zonal_filt/zonal_filt_readparms.F |
50 |
ZONAL_FILT_READPARMS |
I myThid ) |
./pkg/zonal_filt/zonal_filt_readparms.F |
6 |
ZONAL_FILT_READPARMS |
SUBROUTINE ZONAL_FILT_READPARMS( myThid ) |
./pkg/zonal_filt/zonal_filt_readparms.F |
74 |
ZONAL_FILT_READPARMS |
_END_MASTER(myThid) |
./pkg/zonal_filt/zonal_filter.F |
13 |
ZONAL_FILTER |
I jMin, jMax, kSize, bi, bj, gridLoc, myThid ) |
./pkg/zonal_filt/zonal_filter.F |
45 |
ZONAL_FILTER |
INTEGER myThid |
./pkg/zonal_filt/zonal_filter.F |
69 |
ZONAL_FILTER |
CALL ZONAL_FILT_PRESMOOTH( phiMask,phi,avPhi,sNx,myThid ) |
./pkg/zonal_filt/zonal_filter.F |
96 |
ZONAL_FILTER |
CALL ZONAL_FILT_POSTSMOOTH(phiMask,phi,avPhi,sNx,myThid) |
./eesupp/src/barrier.F |
103 |
BARRIER |
INTEGER myThid |
./eesupp/src/barrier.F |
120 |
BARRIER |
bCount(myThid) = bCount(myThid) + 1 |
./eesupp/src/barrier.F |
121 |
BARRIER |
IF ( masterSet(myThid) .NE. 0 ) THEN |
./eesupp/src/barrier.F |
123 |
BARRIER |
& myThid, masterSet(myThid) |
./eesupp/src/barrier.F |
142 |
BARRIER |
IF ( myThid .LT. 1 .OR. myThid .GT. nThreads ) THEN |
./eesupp/src/barrier.F |
145 |
BARRIER |
& myThid, ' nThreads = ', nThreads |
./eesupp/src/barrier.F |
150 |
BARRIER |
IF ( key1(1,myThid) .EQ. VALID ) THEN |
./eesupp/src/barrier.F |
153 |
BARRIER |
& myThid, ' key1 already validated' |
./eesupp/src/barrier.F |
156 |
BARRIER |
key1(1,myThid) = VALID |
./eesupp/src/barrier.F |
158 |
BARRIER |
IF ( myThid .eq. 1 ) THEN |
./eesupp/src/barrier.F |
173 |
BARRIER |
key1(1,myThid) = INVALID |
./eesupp/src/barrier.F |
185 |
BARRIER |
IF ( myThid .EQ. 1 ) THEN |
./eesupp/src/barrier.F |
196 |
BARRIER |
IF ( key2(1,myThid) .EQ. VALID ) THEN |
./eesupp/src/barrier.F |
199 |
BARRIER |
& myThid, ' key2 already validated' |
./eesupp/src/barrier.F |
202 |
BARRIER |
key2(1,myThid) = VALID |
./eesupp/src/barrier.F |
204 |
BARRIER |
IF ( myThid .eq. 1 ) THEN |
./eesupp/src/barrier.F |
220 |
BARRIER |
key2(1,myThid) = INVALID |
./eesupp/src/barrier.F |
226 |
BARRIER |
IF ( myThid .EQ. 1 ) THEN |
./eesupp/src/barrier.F |
232 |
BARRIER |
IF ( key3(1,myThid) .EQ. VALID ) THEN |
./eesupp/src/barrier.F |
235 |
BARRIER |
& myThid, ' key3 already validated' |
./eesupp/src/barrier.F |
238 |
BARRIER |
key3(1,myThid) = VALID |
./eesupp/src/barrier.F |
240 |
BARRIER |
IF ( myThid .eq. 1 ) THEN |
./eesupp/src/barrier.F |
256 |
BARRIER |
key3(1,myThid) = INVALID |
./eesupp/src/barrier.F |
262 |
BARRIER |
IF ( myThid .EQ. 1 ) THEN |
./eesupp/src/barrier.F |
274 |
BARRIER_MS |
SUBROUTINE BARRIER_MS( myThid ) |
./eesupp/src/barrier.F |
283 |
BARRIER_MS |
INTEGER myThid |
./eesupp/src/barrier.F |
285 |
BARRIER_MS |
masterSet(myThid) = masterSet(myThid) + 1 |
./eesupp/src/barrier.F |
289 |
BARRIER_MU |
SUBROUTINE BARRIER_MU( myThid ) |
./eesupp/src/barrier.F |
298 |
BARRIER_MU |
INTEGER myThid |
./eesupp/src/barrier.F |
300 |
BARRIER_MU |
masterSet(myThid) = masterSet(myThid) - 1 |
./eesupp/src/barrier.F |
53 |
BARRIER |
SUBROUTINE BARRIER( myThid ) |
./model/src/ini_cg3d.F |
109 |
INI_CG3D |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/ini_cg3d.F |
10 |
INI_CG3D |
SUBROUTINE INI_CG3D( myThid ) |
./model/src/ini_cg3d.F |
110 |
INI_CG3D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/ini_cg3d.F |
200 |
INI_CG3D |
_GLOBAL_MAX_RS( myNorm, myThid ) |
./model/src/ini_cg3d.F |
207 |
INI_CG3D |
_BEGIN_MASTER( myThid ) |
./model/src/ini_cg3d.F |
213 |
INI_CG3D |
& SQUEEZE_RIGHT, myThid ) |
./model/src/ini_cg3d.F |
216 |
INI_CG3D |
& SQUEEZE_RIGHT, myThid ) |
./model/src/ini_cg3d.F |
217 |
INI_CG3D |
_END_MASTER( myThid ) |
./model/src/ini_cg3d.F |
219 |
INI_CG3D |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/ini_cg3d.F |
220 |
INI_CG3D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/ini_cg3d.F |
275 |
INI_CG3D |
CALL EXCH_UV_XYZ_RS(aW3d,aS3d,.FALSE.,myThid) |
./model/src/ini_cg3d.F |
276 |
INI_CG3D |
_EXCH_XYZ_RS(aV3d, myThid) |
./model/src/ini_cg3d.F |
277 |
INI_CG3D |
_EXCH_XYZ_RS(aC3d, myThid) |
./model/src/ini_cg3d.F |
288 |
INI_CG3D |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/ini_cg3d.F |
289 |
INI_CG3D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/ini_cg3d.F |
350 |
INI_CG3D |
_EXCH_XYZ_RS(zMC, myThid) |
./model/src/ini_cg3d.F |
351 |
INI_CG3D |
_EXCH_XYZ_RS(zML, myThid) |
./model/src/ini_cg3d.F |
352 |
INI_CG3D |
_EXCH_XYZ_RS(zMU, myThid) |
./model/src/ini_cg3d.F |
355 |
INI_CG3D |
CALL WRITE_FLD_XYZ_RS( 'zMC',' ',zMC, 0, myThid ) |
./model/src/ini_cg3d.F |
356 |
INI_CG3D |
CALL WRITE_FLD_XYZ_RS( 'zML',' ',zML, 0, myThid ) |
./model/src/ini_cg3d.F |
357 |
INI_CG3D |
CALL WRITE_FLD_XYZ_RS( 'zMU',' ',zMU, 0, myThid ) |
./model/src/ini_cg3d.F |
38 |
INI_CG3D |
INTEGER myThid |
./model/src/ini_cg3d.F |
64 |
INI_CG3D |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/ini_cg3d.F |
65 |
INI_CG3D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./verification/OpenAD/code_ad_singlelayer/cost_test.F |
29 |
COST_TEST |
integer myThid |
./verification/OpenAD/code_ad_singlelayer/cost_test.F |
5 |
COST_TEST |
subroutine COST_TEST( myThid ) |
./model/src/ini_cori.F |
109 |
INI_CORI |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/ini_cori.F |
110 |
INI_CORI |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/ini_cori.F |
11 |
INI_CORI |
SUBROUTINE INI_CORI( myThid ) |
./model/src/ini_cori.F |
124 |
INI_CORI |
CALL READ_REC_XY_RS( 'fCoriC.bin', fCori, 1, 0, myThid ) |
./model/src/ini_cori.F |
125 |
INI_CORI |
CALL READ_REC_XY_RS( 'fCorCs.bin', fCoriCos,1, 0, myThid ) |
./model/src/ini_cori.F |
127 |
INI_CORI |
CALL READ_REC_XY_RS('fCoriG.bin', fCoriG, 1, 0, myThid ) |
./model/src/ini_cori.F |
130 |
INI_CORI |
CALL READ_REC_XY_RS('fCoriG.bin', fCoriG, 1, 0, myThid ) |
./model/src/ini_cori.F |
132 |
INI_CORI |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/ini_cori.F |
133 |
INI_CORI |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/ini_cori.F |
151 |
INI_CORI |
_BEGIN_MASTER(myThid) |
./model/src/ini_cori.F |
165 |
INI_CORI |
& SQUEEZE_RIGHT , myThid ) |
./model/src/ini_cori.F |
168 |
INI_CORI |
& fCoriG, bi, bj, myThid ) |
./model/src/ini_cori.F |
171 |
INI_CORI |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_cori.F |
177 |
INI_CORI |
_END_MASTER(myThid) |
./model/src/ini_cori.F |
181 |
INI_CORI |
CALL EXCH_XY_RS( fCori, myThid ) |
./model/src/ini_cori.F |
182 |
INI_CORI |
CALL EXCH_XY_RS( fCoriCos, myThid ) |
./model/src/ini_cori.F |
183 |
INI_CORI |
CALL EXCH_Z_3D_RS( fCoriG, 1, myThid ) |
./model/src/ini_cori.F |
187 |
INI_CORI |
IF ( MASTER_CPU_IO(myThid) ) THEN |
./model/src/ini_cori.F |
203 |
INI_CORI |
CALL MNC_CW_SET_UDIM(mon_fname, 1, myThid) |
./model/src/ini_cori.F |
210 |
INI_CORI |
CALL MON_SET_PREF( mon_string_none, myThid ) |
./model/src/ini_cori.F |
211 |
INI_CORI |
CALL MON_PRINTSTATS_RS(1,fCori,'fCori',myThid) |
./model/src/ini_cori.F |
212 |
INI_CORI |
CALL MON_PRINTSTATS_RS(1,fCoriG,'fCoriG',myThid) |
./model/src/ini_cori.F |
213 |
INI_CORI |
CALL MON_PRINTSTATS_RS(1,fCoriCos,'fCoriCos',myThid) |
./model/src/ini_cori.F |
215 |
INI_CORI |
IF ( MASTER_CPU_IO(myThid) ) THEN |
./model/src/ini_cori.F |
34 |
INI_CORI |
INTEGER myThid |
./model/src/ini_cori.F |
60 |
INI_CORI |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/ini_cori.F |
61 |
INI_CORI |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/ini_cori.F |
76 |
INI_CORI |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/ini_cori.F |
77 |
INI_CORI |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/ini_cori.F |
90 |
INI_CORI |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/ini_cori.F |
91 |
INI_CORI |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./verification/OpenAD/code_oad/externalDummies.F |
19 |
EXCH1_RL |
INTEGER myThid |
./verification/OpenAD/code_oad/externalDummies.F |
59 |
GLOBAL_SUM_R8 |
I myThid ) |
./verification/OpenAD/code_oad/externalDummies.F |
66 |
GLOBAL_SUM_R8 |
INTEGER myThid |
./verification/OpenAD/code_oad/externalDummies.F |
6 |
EXCH1_RL |
I cornerMode, myThid ) |
./verification/OpenAD/code_oad/externalDummies.F |
77 |
CG2D |
I myThid ) |
./verification/OpenAD/code_oad/externalDummies.F |
88 |
CG2D |
INTEGER myThid |
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
13 |
GAD_IMPLICIT_R |
I bi, bj, myTime, myIter, myThid ) |
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
202 |
GAD_IMPLICIT_R |
I k, bi, bj, myThid ) |
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
229 |
GAD_IMPLICIT_R |
I myThid ) |
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
236 |
GAD_IMPLICIT_R |
I myThid ) |
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
242 |
GAD_IMPLICIT_R |
I myThid ) |
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
250 |
GAD_IMPLICIT_R |
I myThid ) |
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
256 |
GAD_IMPLICIT_R |
I myThid ) |
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
275 |
GAD_IMPLICIT_R |
I bi, bj, myThid ) |
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
285 |
GAD_IMPLICIT_R |
I bi, bj, myThid ) |
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
296 |
GAD_IMPLICIT_R |
diagSufx = GAD_DIAG_SUFX( tracerIdentity, myThid ) |
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
298 |
GAD_IMPLICIT_R |
IF ( DIAGNOSTICS_IS_ON(diagName,myThid) ) THEN |
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
318 |
GAD_IMPLICIT_R |
CALL DIAGNOSTICS_FILL(df,diagName, k,1, 2,bi,bj, myThid) |
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
48 |
GAD_IMPLICIT_R |
INTEGER myIter, myThid |
./model/src/ini_curvilinear_grid.F |
109 |
INI_CURVILINEAR_GRID |
CALL READ_REC_3D_RS( 'LONC.bin', fp, 1, xC, 1, 0, myThid ) |
./model/src/ini_curvilinear_grid.F |
10 |
INI_CURVILINEAR_GRID |
SUBROUTINE INI_CURVILINEAR_GRID( myThid ) |
./model/src/ini_curvilinear_grid.F |
110 |
INI_CURVILINEAR_GRID |
CALL READ_REC_3D_RS( 'LATC.bin', fp, 1, yC, 1, 0, myThid ) |
./model/src/ini_curvilinear_grid.F |
111 |
INI_CURVILINEAR_GRID |
_EXCH_XY_RS(xC,myThid) |
./model/src/ini_curvilinear_grid.F |
112 |
INI_CURVILINEAR_GRID |
_EXCH_XY_RS(yC,myThid) |
./model/src/ini_curvilinear_grid.F |
114 |
INI_CURVILINEAR_GRID |
CALL READ_REC_3D_RS( 'DXF.bin', fp, 1, dxF, 1, 0, myThid ) |
./model/src/ini_curvilinear_grid.F |
115 |
INI_CURVILINEAR_GRID |
CALL READ_REC_3D_RS( 'DYF.bin', fp, 1, dyF, 1, 0, myThid ) |
./model/src/ini_curvilinear_grid.F |
116 |
INI_CURVILINEAR_GRID |
CALL EXCH_UV_AGRID_3D_RS( dxF, dyF, .FALSE., 1, myThid ) |
./model/src/ini_curvilinear_grid.F |
118 |
INI_CURVILINEAR_GRID |
CALL READ_REC_3D_RS( 'RA.bin' , fp, 1, rA, 1, 0, myThid ) |
./model/src/ini_curvilinear_grid.F |
119 |
INI_CURVILINEAR_GRID |
_EXCH_XY_RS(rA,myThid ) |
./model/src/ini_curvilinear_grid.F |
121 |
INI_CURVILINEAR_GRID |
_BEGIN_MASTER(myThid) |
./model/src/ini_curvilinear_grid.F |
123 |
INI_CURVILINEAR_GRID |
_END_MASTER(myThid) |
./model/src/ini_curvilinear_grid.F |
126 |
INI_CURVILINEAR_GRID |
CALL READ_REC_3D_RS( 'LONG.bin', fp, 1, xG, 1, 0, myThid ) |
./model/src/ini_curvilinear_grid.F |
127 |
INI_CURVILINEAR_GRID |
CALL READ_REC_3D_RS( 'LATG.bin', fp, 1, yG, 1, 0, myThid ) |
./model/src/ini_curvilinear_grid.F |
132 |
INI_CURVILINEAR_GRID |
_BEGIN_MASTER(myThid) |
./model/src/ini_curvilinear_grid.F |
147 |
INI_CURVILINEAR_GRID |
_END_MASTER(myThid) |
./model/src/ini_curvilinear_grid.F |
152 |
INI_CURVILINEAR_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_curvilinear_grid.F |
157 |
INI_CURVILINEAR_GRID |
CALL EXCH_Z_3D_RS( xG, 1, myThid ) |
./model/src/ini_curvilinear_grid.F |
158 |
INI_CURVILINEAR_GRID |
CALL EXCH_Z_3D_RS( yG, 1, myThid ) |
./model/src/ini_curvilinear_grid.F |
160 |
INI_CURVILINEAR_GRID |
CALL READ_REC_3D_RS( 'DXV.bin', fp, 1, dxV, 1, 0, myThid ) |
./model/src/ini_curvilinear_grid.F |
161 |
INI_CURVILINEAR_GRID |
CALL READ_REC_3D_RS( 'DYU.bin', fp, 1, dyU, 1, 0, myThid ) |
./model/src/ini_curvilinear_grid.F |
165 |
INI_CURVILINEAR_GRID |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/ini_curvilinear_grid.F |
166 |
INI_CURVILINEAR_GRID |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/ini_curvilinear_grid.F |
176 |
INI_CURVILINEAR_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_curvilinear_grid.F |
181 |
INI_CURVILINEAR_GRID |
CALL EXCH_UV_BGRID_3D_RS( dxV, dyU, .FALSE., 1, myThid ) |
./model/src/ini_curvilinear_grid.F |
183 |
INI_CURVILINEAR_GRID |
CALL READ_REC_3D_RS( 'RAZ.bin', fp, 1, rAz, 1, 0, myThid ) |
./model/src/ini_curvilinear_grid.F |
186 |
INI_CURVILINEAR_GRID |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/ini_curvilinear_grid.F |
187 |
INI_CURVILINEAR_GRID |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/ini_curvilinear_grid.F |
194 |
INI_CURVILINEAR_GRID |
CALL EXCH_Z_3D_RS( rAz, 1, myThid ) |
./model/src/ini_curvilinear_grid.F |
197 |
INI_CURVILINEAR_GRID |
CALL READ_REC_3D_RS( 'DXC.bin', fp, 1, dxC, 1, 0, myThid ) |
./model/src/ini_curvilinear_grid.F |
198 |
INI_CURVILINEAR_GRID |
CALL READ_REC_3D_RS( 'DYC.bin', fp, 1, dyC, 1, 0, myThid ) |
./model/src/ini_curvilinear_grid.F |
199 |
INI_CURVILINEAR_GRID |
CALL EXCH_UV_XY_RS(dxC,dyC,.FALSE.,myThid) |
./model/src/ini_curvilinear_grid.F |
201 |
INI_CURVILINEAR_GRID |
CALL READ_REC_3D_RS( 'RAW.bin', fp, 1, rAw, 1, 0, myThid ) |
./model/src/ini_curvilinear_grid.F |
202 |
INI_CURVILINEAR_GRID |
CALL READ_REC_3D_RS( 'RAS.bin', fp, 1, rAs, 1, 0, myThid ) |
./model/src/ini_curvilinear_grid.F |
203 |
INI_CURVILINEAR_GRID |
CALL EXCH_UV_XY_RS(rAw,rAs,.FALSE.,myThid) |
./model/src/ini_curvilinear_grid.F |
205 |
INI_CURVILINEAR_GRID |
CALL READ_REC_3D_RS( 'DXG.bin', fp, 1, dxG, 1, 0, myThid ) |
./model/src/ini_curvilinear_grid.F |
206 |
INI_CURVILINEAR_GRID |
CALL READ_REC_3D_RS( 'DYG.bin', fp, 1, dyG, 1, 0, myThid ) |
./model/src/ini_curvilinear_grid.F |
207 |
INI_CURVILINEAR_GRID |
CALL EXCH_UV_XY_RS(dyG,dxG,.FALSE.,myThid) |
./model/src/ini_curvilinear_grid.F |
241 |
INI_CURVILINEAR_GRID |
& SQUEEZE_RIGHT , myThid) |
./model/src/ini_curvilinear_grid.F |
242 |
INI_CURVILINEAR_GRID |
CALL MNC_FILE_CLOSE_ALL_MATCHING(mncFn, myThid) |
./model/src/ini_curvilinear_grid.F |
243 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_SET_UDIM(mncFn, 1, myThid) |
./model/src/ini_curvilinear_grid.F |
244 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_SET_CITER(mncFn, 2, -1, -1, -1, myThid) |
./model/src/ini_curvilinear_grid.F |
245 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_SET_UDIM(mncFn, 1, myThid) |
./model/src/ini_curvilinear_grid.F |
246 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'XC', xC, myThid) |
./model/src/ini_curvilinear_grid.F |
247 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'XG', xG, myThid) |
./model/src/ini_curvilinear_grid.F |
248 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'YC', yC, myThid) |
./model/src/ini_curvilinear_grid.F |
249 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'YG', yG, myThid) |
./model/src/ini_curvilinear_grid.F |
250 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'dxC',dxC, myThid) |
./model/src/ini_curvilinear_grid.F |
251 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'dyC',dyC, myThid) |
./model/src/ini_curvilinear_grid.F |
252 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'dxF',dxF, myThid) |
./model/src/ini_curvilinear_grid.F |
253 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'dyF',dyF, myThid) |
./model/src/ini_curvilinear_grid.F |
254 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'dxG',dxG, myThid) |
./model/src/ini_curvilinear_grid.F |
255 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'dyG',dyG, myThid) |
./model/src/ini_curvilinear_grid.F |
256 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'dxV',dxV, myThid) |
./model/src/ini_curvilinear_grid.F |
257 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'dyU',dyU, myThid) |
./model/src/ini_curvilinear_grid.F |
258 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'rA', rA, myThid) |
./model/src/ini_curvilinear_grid.F |
259 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'rAz',rAz, myThid) |
./model/src/ini_curvilinear_grid.F |
260 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'rAw',rAw, myThid) |
./model/src/ini_curvilinear_grid.F |
261 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'rAs',rAs, myThid) |
./model/src/ini_curvilinear_grid.F |
262 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'AngleCS',angleCosC,myThid) |
./model/src/ini_curvilinear_grid.F |
263 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'AngleSN',angleSinC,myThid) |
./model/src/ini_curvilinear_grid.F |
279 |
INI_CURVILINEAR_GRID |
_BEGIN_MASTER(myThid) |
./model/src/ini_curvilinear_grid.F |
308 |
INI_CURVILINEAR_GRID |
& SQUEEZE_RIGHT , myThid) |
./model/src/ini_curvilinear_grid.F |
312 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 1, xC, bi, bj, myThid ) |
./model/src/ini_curvilinear_grid.F |
315 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 2, yC, bi, bj, myThid ) |
./model/src/ini_curvilinear_grid.F |
318 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 3, dxF, bi, bj, myThid ) |
./model/src/ini_curvilinear_grid.F |
321 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 4, dyF, bi, bj, myThid ) |
./model/src/ini_curvilinear_grid.F |
324 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 5, rA, bi, bj, myThid ) |
./model/src/ini_curvilinear_grid.F |
327 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 6, xG, bi, bj, myThid ) |
./model/src/ini_curvilinear_grid.F |
330 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 7, yG, bi, bj, myThid ) |
./model/src/ini_curvilinear_grid.F |
333 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 8, dxV, bi, bj, myThid ) |
./model/src/ini_curvilinear_grid.F |
336 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 9, dyU, bi, bj, myThid ) |
./model/src/ini_curvilinear_grid.F |
339 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp,10, rAz, bi, bj, myThid ) |
./model/src/ini_curvilinear_grid.F |
342 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp,11, dxC, bi, bj, myThid ) |
./model/src/ini_curvilinear_grid.F |
345 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp,12, dyC, bi, bj, myThid ) |
./model/src/ini_curvilinear_grid.F |
348 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp,13, rAw, bi, bj, myThid ) |
./model/src/ini_curvilinear_grid.F |
351 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp,14, rAs, bi, bj, myThid ) |
./model/src/ini_curvilinear_grid.F |
354 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp,15, dxG, bi, bj, myThid ) |
./model/src/ini_curvilinear_grid.F |
357 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp,16, dyG, bi, bj, myThid ) |
./model/src/ini_curvilinear_grid.F |
363 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS(fName,fp,17,angleCosC,bi,bj,myThid) |
./model/src/ini_curvilinear_grid.F |
366 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS(fName,fp,18,angleSinC,bi,bj,myThid) |
./model/src/ini_curvilinear_grid.F |
376 |
INI_CURVILINEAR_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_curvilinear_grid.F |
381 |
INI_CURVILINEAR_GRID |
& SQUEEZE_RIGHT , myThid) |
./model/src/ini_curvilinear_grid.F |
386 |
INI_CURVILINEAR_GRID |
_END_MASTER(myThid) |
./model/src/ini_curvilinear_grid.F |
392 |
INI_CURVILINEAR_GRID |
CALL EXCH_XY_RS(xC,myThid) |
./model/src/ini_curvilinear_grid.F |
393 |
INI_CURVILINEAR_GRID |
CALL EXCH_XY_RS(yC,myThid) |
./model/src/ini_curvilinear_grid.F |
394 |
INI_CURVILINEAR_GRID |
CALL EXCH_UV_AGRID_3D_RS( dxF, dyF, .FALSE., 1, myThid ) |
./model/src/ini_curvilinear_grid.F |
395 |
INI_CURVILINEAR_GRID |
CALL EXCH_XY_RS(rA,myThid ) |
./model/src/ini_curvilinear_grid.F |
396 |
INI_CURVILINEAR_GRID |
CALL EXCH_Z_3D_RS( xG, 1, myThid ) |
./model/src/ini_curvilinear_grid.F |
397 |
INI_CURVILINEAR_GRID |
CALL EXCH_Z_3D_RS( yG, 1, myThid ) |
./model/src/ini_curvilinear_grid.F |
398 |
INI_CURVILINEAR_GRID |
CALL EXCH_UV_BGRID_3D_RS( dxV, dyU, .FALSE., 1, myThid) |
./model/src/ini_curvilinear_grid.F |
399 |
INI_CURVILINEAR_GRID |
CALL EXCH_Z_3D_RS( rAz, 1, myThid ) |
./model/src/ini_curvilinear_grid.F |
400 |
INI_CURVILINEAR_GRID |
CALL EXCH_UV_XY_RS(dxC,dyC,.FALSE.,myThid) |
./model/src/ini_curvilinear_grid.F |
401 |
INI_CURVILINEAR_GRID |
CALL EXCH_UV_XY_RS(rAw,rAs,.FALSE.,myThid) |
./model/src/ini_curvilinear_grid.F |
402 |
INI_CURVILINEAR_GRID |
CALL EXCH_UV_XY_RS(dyG,dxG,.FALSE.,myThid) |
./model/src/ini_curvilinear_grid.F |
409 |
INI_CURVILINEAR_GRID |
CALL CALC_ANGLES( myThid ) |
./model/src/ini_curvilinear_grid.F |
411 |
INI_CURVILINEAR_GRID |
_BEGIN_MASTER(myThid) |
./model/src/ini_curvilinear_grid.F |
413 |
INI_CURVILINEAR_GRID |
_END_MASTER(myThid) |
./model/src/ini_curvilinear_grid.F |
416 |
INI_CURVILINEAR_GRID |
CALL EXCH_UV_AGRID_3D_RS(angleSinC,angleCosC,.TRUE., 1, myThid) |
./model/src/ini_curvilinear_grid.F |
419 |
INI_CURVILINEAR_GRID |
_BEGIN_MASTER(myThid) |
./model/src/ini_curvilinear_grid.F |
41 |
INI_CURVILINEAR_GRID |
INTEGER myThid |
./model/src/ini_curvilinear_grid.F |
424 |
INI_CURVILINEAR_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_curvilinear_grid.F |
427 |
INI_CURVILINEAR_GRID |
_END_MASTER(myThid) |
./model/src/ini_curvilinear_grid.F |
437 |
INI_CURVILINEAR_GRID |
CALL PLOT_FIELD_XYRS( xC , 'Current xC ', 0, myThid ) |
./model/src/ini_curvilinear_grid.F |
438 |
INI_CURVILINEAR_GRID |
CALL PLOT_FIELD_XYRS( yC , 'Current yC ', 0, myThid ) |
./model/src/ini_curvilinear_grid.F |
439 |
INI_CURVILINEAR_GRID |
CALL PLOT_FIELD_XYRS( dxF , 'Current dxF ', 0, myThid ) |
./model/src/ini_curvilinear_grid.F |
440 |
INI_CURVILINEAR_GRID |
CALL PLOT_FIELD_XYRS( dyF , 'Current dyF ', 0, myThid ) |
./model/src/ini_curvilinear_grid.F |
441 |
INI_CURVILINEAR_GRID |
CALL PLOT_FIELD_XYRS( rA , 'Current rA ', 0, myThid ) |
./model/src/ini_curvilinear_grid.F |
442 |
INI_CURVILINEAR_GRID |
CALL PLOT_FIELD_XYRS( xG , 'Current xG ', 0, myThid ) |
./model/src/ini_curvilinear_grid.F |
443 |
INI_CURVILINEAR_GRID |
CALL PLOT_FIELD_XYRS( yG , 'Current yG ', 0, myThid ) |
./model/src/ini_curvilinear_grid.F |
444 |
INI_CURVILINEAR_GRID |
CALL PLOT_FIELD_XYRS( dxV , 'Current dxV ', 0, myThid ) |
./model/src/ini_curvilinear_grid.F |
445 |
INI_CURVILINEAR_GRID |
CALL PLOT_FIELD_XYRS( dyU , 'Current dyU ', 0, myThid ) |
./model/src/ini_curvilinear_grid.F |
446 |
INI_CURVILINEAR_GRID |
CALL PLOT_FIELD_XYRS( rAz , 'Current rAz ', 0, myThid ) |
./model/src/ini_curvilinear_grid.F |
447 |
INI_CURVILINEAR_GRID |
CALL PLOT_FIELD_XYRS( dxC , 'Current dxC ', 0, myThid ) |
./model/src/ini_curvilinear_grid.F |
448 |
INI_CURVILINEAR_GRID |
CALL PLOT_FIELD_XYRS( dyC , 'Current dyC ', 0, myThid ) |
./model/src/ini_curvilinear_grid.F |
449 |
INI_CURVILINEAR_GRID |
CALL PLOT_FIELD_XYRS( rAw , 'Current rAw ', 0, myThid ) |
./model/src/ini_curvilinear_grid.F |
450 |
INI_CURVILINEAR_GRID |
CALL PLOT_FIELD_XYRS( rAs , 'Current rAs ', 0, myThid ) |
./model/src/ini_curvilinear_grid.F |
451 |
INI_CURVILINEAR_GRID |
CALL PLOT_FIELD_XYRS( dxG , 'Current dxG ', 0, myThid ) |
./model/src/ini_curvilinear_grid.F |
452 |
INI_CURVILINEAR_GRID |
CALL PLOT_FIELD_XYRS( dyG , 'Current dyG ', 0, myThid ) |
./model/src/ini_curvilinear_grid.F |
453 |
INI_CURVILINEAR_GRID |
CALL PLOT_FIELD_XYRS(angleCosC, 'Current AngleCS ', 0, myThid ) |
./model/src/ini_curvilinear_grid.F |
454 |
INI_CURVILINEAR_GRID |
CALL PLOT_FIELD_XYRS(angleSinC, 'Current AngleSN ', 0, myThid ) |
./model/src/ini_curvilinear_grid.F |
65 |
INI_CURVILINEAR_GRID |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/ini_curvilinear_grid.F |
66 |
INI_CURVILINEAR_GRID |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./verification/OpenAD/code_oad_all/grdchk_main.F |
510 |
GRDCHK_MAIN |
& 'grd_findiff' , tmpplot1, 1, 0, myThid) |
./verification/OpenAD/code_oad_all/grdchk_main.F |
512 |
GRDCHK_MAIN |
& 'grd_ratio_ad' , tmpplot2, 1, 0, myThid) |
./verification/OpenAD/code_oad_all/grdchk_main.F |
514 |
GRDCHK_MAIN |
& 'grd_ratio_ftl' , tmpplot3, 1, 0, myThid) |
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
106 |
INI_LINEAR_PHISURF |
DO bj=myByLo(myThid),myByHi(myThid) |
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
107 |
INI_LINEAR_PHISURF |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
117 |
INI_LINEAR_PHISURF |
O rhoLoc, myThid ) |
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
135 |
INI_LINEAR_PHISURF |
DO bj=myByLo(myThid),myByHi(myThid) |
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
136 |
INI_LINEAR_PHISURF |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
160 |
INI_LINEAR_PHISURF |
_EXCH_XY_RL(Bo_surf, myThid) |
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
161 |
INI_LINEAR_PHISURF |
_EXCH_XY_RL(recip_Bo, myThid) |
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
169 |
INI_LINEAR_PHISURF |
CALL WRITE_FLD_XY_RL( 'Bo_surf',' ',Bo_surf,0,myThid) |
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
178 |
INI_LINEAR_PHISURF |
DO bj=myByLo(myThid),myByHi(myThid) |
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
179 |
INI_LINEAR_PHISURF |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
202 |
INI_LINEAR_PHISURF |
I Ro_surf, myThid ) |
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
206 |
INI_LINEAR_PHISURF |
_EXCH_XY_RS(phi0surf, myThid) |
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
208 |
INI_LINEAR_PHISURF |
CALL WRITE_FLD_XY_RS( 'phi0surf',' ',phi0surf,0,myThid) |
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
213 |
INI_LINEAR_PHISURF |
CALL WRITE_FLD_XY_RS( 'topo_H',' ',topoHloc,0,myThid) |
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
35 |
INI_LINEAR_PHISURF |
INTEGER myThid |
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
54 |
INI_LINEAR_PHISURF |
DO bj=myByLo(myThid),myByHi(myThid) |
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
55 |
INI_LINEAR_PHISURF |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
81 |
INI_LINEAR_PHISURF |
DO bj=myByLo(myThid),myByHi(myThid) |
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
82 |
INI_LINEAR_PHISURF |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
93 |
INI_LINEAR_PHISURF |
DO bj=myByLo(myThid),myByHi(myThid) |
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
94 |
INI_LINEAR_PHISURF |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
9 |
INI_LINEAR_PHISURF |
SUBROUTINE INI_LINEAR_PHISURF( myThid ) |
./verification/OpenAD/code_oad_all/initialise_fixed.F |
104 |
INITIALISE_FIXED |
CALL INI_PARMS( myThid ) |
./verification/OpenAD/code_oad_all/initialise_fixed.F |
107 |
INITIALISE_FIXED |
CALL PACKAGES_BOOT( myThid ) |
./verification/OpenAD/code_oad_all/initialise_fixed.F |
10 |
INITIALISE_FIXED |
SUBROUTINE INITIALISE_FIXED( myThid ) |
./verification/OpenAD/code_oad_all/initialise_fixed.F |
110 |
INITIALISE_FIXED |
CALL PACKAGES_READPARMS( myThid ) |
./verification/OpenAD/code_oad_all/initialise_fixed.F |
114 |
INITIALISE_FIXED |
CALL SET_PARMS( myThid ) |
./verification/OpenAD/code_oad_all/initialise_fixed.F |
118 |
INITIALISE_FIXED |
CALL INI_MODEL_IO( myThid ) |
./verification/OpenAD/code_oad_all/initialise_fixed.F |
122 |
INITIALISE_FIXED |
CALL MON_INIT( myThid ) |
./verification/OpenAD/code_oad_all/initialise_fixed.F |
127 |
INITIALISE_FIXED |
CALL OPENAD_INI_GRID( myThid ) |
./verification/OpenAD/code_oad_all/initialise_fixed.F |
130 |
INITIALISE_FIXED |
CALL LOAD_REF_FILES( myThid ) |
./verification/OpenAD/code_oad_all/initialise_fixed.F |
133 |
INITIALISE_FIXED |
CALL INI_EOS( myThid ) |
./verification/OpenAD/code_oad_all/initialise_fixed.F |
136 |
INITIALISE_FIXED |
CALL SET_REF_STATE( myThid ) |
./verification/OpenAD/code_oad_all/initialise_fixed.F |
139 |
INITIALISE_FIXED |
CALL SET_GRID_FACTORS( myThid ) |
./verification/OpenAD/code_oad_all/initialise_fixed.F |
142 |
INITIALISE_FIXED |
CALL OPENAD_INI_DEPTHS( myThid ) |
./verification/OpenAD/code_oad_all/initialise_fixed.F |
146 |
INITIALISE_FIXED |
CALL OPENAD_INI_MASKS_ETC( myThid ) |
./verification/OpenAD/code_oad_all/initialise_fixed.F |
152 |
INITIALISE_FIXED |
CALL PACKAGES_INIT_FIXED( myThid ) |
./verification/OpenAD/code_oad_all/initialise_fixed.F |
155 |
INITIALISE_FIXED |
CALL OPENAD_INI_LINEAR_PHISURF( myThid ) |
./verification/OpenAD/code_oad_all/initialise_fixed.F |
158 |
INITIALISE_FIXED |
CALL OPENAD_INI_CORI( myThid ) |
./verification/OpenAD/code_oad_all/initialise_fixed.F |
161 |
INITIALISE_FIXED |
CALL OPENAD_INI_CG2D( myThid ) |
./verification/OpenAD/code_oad_all/initialise_fixed.F |
165 |
INITIALISE_FIXED |
CALL INI_CG3D( myThid ) |
./verification/OpenAD/code_oad_all/initialise_fixed.F |
169 |
INITIALISE_FIXED |
CALL CONFIG_SUMMARY( myThid ) |
./verification/OpenAD/code_oad_all/initialise_fixed.F |
172 |
INITIALISE_FIXED |
CALL PACKAGES_CHECK( myThid ) |
./verification/OpenAD/code_oad_all/initialise_fixed.F |
175 |
INITIALISE_FIXED |
CALL CONFIG_CHECK( myThid ) |
./verification/OpenAD/code_oad_all/initialise_fixed.F |
179 |
INITIALISE_FIXED |
& startTime.EQ.baseTime ) CALL WRITE_GRID( myThid ) |
./verification/OpenAD/code_oad_all/initialise_fixed.F |
184 |
INITIALISE_FIXED |
IF ( useCoupler ) CALL CPL_EXCH_CONFIGS( myThid ) |
./verification/OpenAD/code_oad_all/initialise_fixed.F |
188 |
INITIALISE_FIXED |
CALL BAR_CHECK( 3, myThid ) |
./verification/OpenAD/code_oad_all/initialise_fixed.F |
89 |
INITIALISE_FIXED |
INTEGER myThid |
./verification/OpenAD/code_oad_all/initialise_fixed.F |
99 |
INITIALISE_FIXED |
CALL BAR_CHECK( 2, myThid ) |
./verification/OpenAD/code_oad_all/openad_dumpAdjoint.F |
18 |
OPENAD_DUMPADJOINT |
SUBROUTINE OPENAD_DUMPADJOINT(myTime, myIter, myThid ) |
./verification/OpenAD/code_oad_all/openad_dumpAdjoint.F |
80 |
OPENAD_DUMPADJOINT |
INTEGER myThid |
./verification/OpenAD/code_oad_all/the_first_level_loop.F |
100 |
THE_FIRST_LEVEL_LOOP |
IF (debugMode) CALL DEBUG_CALL('FORWARD_STEP',myThid) |
./verification/OpenAD/code_oad_all/the_first_level_loop.F |
106 |
THE_FIRST_LEVEL_LOOP |
IF (debugMode) CALL DEBUG_LEAVE('THE_FIRST_LEVEL_LOOP',myThid) |
./verification/OpenAD/code_oad_all/the_first_level_loop.F |
19 |
THE_FIRST_LEVEL_LOOP |
+myTime, myIter, myThid ) |
./verification/OpenAD/code_oad_all/the_first_level_loop.F |
85 |
THE_FIRST_LEVEL_LOOP |
INTEGER myThid |
./verification/OpenAD/code_oad_all/the_first_level_loop.F |
93 |
THE_FIRST_LEVEL_LOOP |
IF (debugMode) CALL DEBUG_ENTER('THE_FIRST_LEVEL_LOOP',myThid) |
./verification/OpenAD/code_oad_all/the_fourth_level_loop.F |
109 |
THE_FOURTH_LEVEL_LOOP |
+myThid) |
./verification/OpenAD/code_oad_all/the_fourth_level_loop.F |
118 |
THE_FOURTH_LEVEL_LOOP |
IF (debugMode) CALL DEBUG_LEAVE('THE_FOURTH_LEVEL_LOOP',myThid) |
./verification/OpenAD/code_oad_all/the_fourth_level_loop.F |
126 |
THE_FOURTH_LEVEL_PLAIN |
+myTime, myIter,myThid ) |
./verification/OpenAD/code_oad_all/the_fourth_level_loop.F |
193 |
THE_FOURTH_LEVEL_PLAIN |
INTEGER myThid |
./verification/OpenAD/code_oad_all/the_fourth_level_loop.F |
202 |
THE_FOURTH_LEVEL_PLAIN |
IF (debugMode) CALL DEBUG_ENTER('THE_FOURTH_LEVEL_PLAIN',myThid) |
./verification/OpenAD/code_oad_all/the_fourth_level_loop.F |
213 |
THE_FOURTH_LEVEL_PLAIN |
+myThid) |
./verification/OpenAD/code_oad_all/the_fourth_level_loop.F |
21 |
THE_FOURTH_LEVEL_LOOP |
+myTime, myIter,myThid ) |
./verification/OpenAD/code_oad_all/the_fourth_level_loop.F |
223 |
THE_FOURTH_LEVEL_PLAIN |
IF (debugMode) CALL DEBUG_CALL('THE_THIRD_LEVEL_PLAIN',myThid) |
./verification/OpenAD/code_oad_all/the_fourth_level_loop.F |
231 |
THE_FOURTH_LEVEL_PLAIN |
IF (debugMode) CALL DEBUG_LEAVE('THE_FOURTH_LEVEL_LOOP',myThid) |
./verification/OpenAD/code_oad_all/the_fourth_level_loop.F |
89 |
THE_FOURTH_LEVEL_LOOP |
INTEGER myThid |
./verification/OpenAD/code_oad_all/the_fourth_level_loop.F |
99 |
THE_FOURTH_LEVEL_LOOP |
IF (debugMode) CALL DEBUG_ENTER('THE_FOURTH_LEVEL_LOOP',myThid) |
./verification/OpenAD/code_oad_all/the_model_main.F |
407 |
THE_MODEL_MAIN |
SUBROUTINE THE_MODEL_MAIN(myThid) |
./verification/OpenAD/code_oad_all/the_model_main.F |
483 |
THE_MODEL_MAIN |
INTEGER myThid |
./verification/OpenAD/code_oad_all/the_model_main.F |
523 |
THE_MODEL_MAIN |
IF (debugMode) CALL DEBUG_ENTER('THE_MODEL_MAIN',myThid) |
./verification/OpenAD/code_oad_all/the_model_main.F |
527 |
THE_MODEL_MAIN |
CALL TIMER_CONTROL('','INIT','THE_MODEL_MAIN',myThid) |
./verification/OpenAD/code_oad_all/the_model_main.F |
530 |
THE_MODEL_MAIN |
CALL TIMER_START('ALL [THE_MODEL_MAIN]',myThid) |
./verification/OpenAD/code_oad_all/the_model_main.F |
533 |
THE_MODEL_MAIN |
IF (debugMode) CALL DEBUG_CALL('INITIALISE_FIXED',myThid) |
./verification/OpenAD/code_oad_all/the_model_main.F |
537 |
THE_MODEL_MAIN |
CALL TIMER_START('INITIALISE_FIXED [THE_MODEL_MAIN]',myThid) |
./verification/OpenAD/code_oad_all/the_model_main.F |
538 |
THE_MODEL_MAIN |
CALL OPENAD_INITIALISE_FIXED( myThid ) |
./verification/OpenAD/code_oad_all/the_model_main.F |
539 |
THE_MODEL_MAIN |
CALL TIMER_STOP ('INITIALISE_FIXED [THE_MODEL_MAIN]',myThid) |
./verification/OpenAD/code_oad_all/the_model_main.F |
574 |
THE_MODEL_MAIN |
CALL G_THE_MAIN_LOOP ( myCurrentTime, myCurrentIter, myThid ) |
./verification/OpenAD/code_oad_all/the_model_main.F |
608 |
THE_MODEL_MAIN |
IF (debugMode) CALL DEBUG_CALL('THE_MAIN_LOOP',myThid) |
./verification/OpenAD/code_oad_all/the_model_main.F |
611 |
THE_MODEL_MAIN |
CALL TIMER_START('THE_MAIN_LOOP (F) [THE_MODEL_MAIN]',myThid) |
./verification/OpenAD/code_oad_all/the_model_main.F |
615 |
THE_MODEL_MAIN |
CALL OPENAD_THE_MAIN_LOOP( myCurrentTime, myCurrentIter, myThid ) |
./verification/OpenAD/code_oad_all/the_model_main.F |
616 |
THE_MODEL_MAIN |
CALL TIMER_STOP ('THE_MAIN_LOOP (F) [THE_MODEL_MAIN]',myThid) |
./verification/OpenAD/code_oad_all/the_model_main.F |
617 |
THE_MODEL_MAIN |
CALL TIMER_START('THE_MAIN_LOOP (A) [THE_MODEL_MAIN]',myThid) |
./verification/OpenAD/code_oad_all/the_model_main.F |
625 |
THE_MODEL_MAIN |
CALL OPENAD_THE_MAIN_LOOP( myCurrentTime, myCurrentIter, myThid ) |
./verification/OpenAD/code_oad_all/the_model_main.F |
664 |
THE_MODEL_MAIN |
CALL TIMER_STOP ('THE_MAIN_LOOP (A) [THE_MODEL_MAIN]',myThid) |
./verification/OpenAD/code_oad_all/the_model_main.F |
698 |
THE_MODEL_MAIN |
IF (debugMode) CALL DEBUG_CALL('THE_MAIN_LOOP',myThid) |
./verification/OpenAD/code_oad_all/the_model_main.F |
701 |
THE_MODEL_MAIN |
CALL TIMER_START('THE_MAIN_LOOP [THE_MODEL_MAIN]',myThid) |
./verification/OpenAD/code_oad_all/the_model_main.F |
702 |
THE_MODEL_MAIN |
CALL THE_MAIN_LOOP( myCurrentTime, myCurrentIter, myThid ) |
./verification/OpenAD/code_oad_all/the_model_main.F |
703 |
THE_MODEL_MAIN |
CALL TIMER_STOP ('THE_MAIN_LOOP [THE_MODEL_MAIN]',myThid) |
./verification/OpenAD/code_oad_all/the_model_main.F |
710 |
THE_MODEL_MAIN |
CALL DIAGSTATS_CLOSE_IO( myThid ) |
./verification/OpenAD/code_oad_all/the_model_main.F |
718 |
THE_MODEL_MAIN |
CALL MNC_FILE_CLOSE_ALL( myThid ) |
./verification/OpenAD/code_oad_all/the_model_main.F |
724 |
THE_MODEL_MAIN |
CALL TIMER_STOP ('ALL [THE_MODEL_MAIN]',myThid) |
./verification/OpenAD/code_oad_all/the_model_main.F |
727 |
THE_MODEL_MAIN |
IF ( myThid .EQ. 1 ) THEN |
./verification/OpenAD/code_oad_all/the_model_main.F |
728 |
THE_MODEL_MAIN |
CALL TIMER_PRINTALL( myThid ) |
./verification/OpenAD/code_oad_all/the_model_main.F |
733 |
THE_MODEL_MAIN |
CALL BAR_CHECK( 9, myThid ) |
./verification/OpenAD/code_oad_all/the_model_main.F |
736 |
THE_MODEL_MAIN |
IF (debugMode) CALL DEBUG_LEAVE('THE_MODEL_MAIN',myThid) |
./verification/OpenAD/code_oad_all/the_second_level_loop.F |
100 |
THE_SECOND_LEVEL_LOOP |
IF (debugMode) CALL DEBUG_ENTER('THE_SECOND_LEVEL_LOOP',myThid) |
./verification/OpenAD/code_oad_all/the_second_level_loop.F |
116 |
THE_SECOND_LEVEL_LOOP |
+myThid) |
./verification/OpenAD/code_oad_all/the_second_level_loop.F |
123 |
THE_SECOND_LEVEL_LOOP |
IF (debugMode) CALL DEBUG_LEAVE('THE_SECOND_LEVEL_LOOP',myThid) |
./verification/OpenAD/code_oad_all/the_second_level_loop.F |
131 |
THE_SECOND_LEVEL_PLAIN |
+myTime, myIter, myThid ) |
./verification/OpenAD/code_oad_all/the_second_level_loop.F |
198 |
THE_SECOND_LEVEL_PLAIN |
INTEGER myThid |
./verification/OpenAD/code_oad_all/the_second_level_loop.F |
207 |
THE_SECOND_LEVEL_PLAIN |
IF (debugMode) CALL DEBUG_ENTER('THE_SECOND_LEVEL_PLAIN',myThid) |
./verification/OpenAD/code_oad_all/the_second_level_loop.F |
219 |
THE_SECOND_LEVEL_PLAIN |
IF (debugMode) CALL DEBUG_CALL('THE_FIRST_LEVEL_LOOP',myThid) |
./verification/OpenAD/code_oad_all/the_second_level_loop.F |
21 |
THE_SECOND_LEVEL_LOOP |
+myTime, myIter, myThid ) |
./verification/OpenAD/code_oad_all/the_second_level_loop.F |
226 |
THE_SECOND_LEVEL_PLAIN |
IF (debugMode) CALL DEBUG_LEAVE('THE_SECOND_LEVEL_PLAIN',myThid) |
./verification/OpenAD/code_oad_all/the_second_level_loop.F |
91 |
THE_SECOND_LEVEL_LOOP |
INTEGER myThid |
./model/src/ini_cylinder_grid.F |
10 |
INI_CYLINDER_GRID |
SUBROUTINE INI_CYLINDER_GRID( myThid ) |
./model/src/ini_cylinder_grid.F |
247 |
INI_CYLINDER_GRID |
_BEGIN_MASTER(myThid) |
./model/src/ini_cylinder_grid.F |
253 |
INI_CYLINDER_GRID |
_END_MASTER(myThid) |
./model/src/ini_cylinder_grid.F |
44 |
INI_CYLINDER_GRID |
INTEGER myThid |
./model/src/ini_cylinder_grid.F |
91 |
INI_CYLINDER_GRID |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/ini_cylinder_grid.F |
92 |
INI_CYLINDER_GRID |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./verification/OpenAD/code_oad_all/the_third_level_loop.F |
109 |
THE_THIRD_LEVEL_LOOP |
+myThid) |
./verification/OpenAD/code_oad_all/the_third_level_loop.F |
118 |
THE_THIRD_LEVEL_LOOP |
IF (debugMode) CALL DEBUG_LEAVE('THE_THIRD_LEVEL_LOOP',myThid) |
./verification/OpenAD/code_oad_all/the_third_level_loop.F |
126 |
THE_THIRD_LEVEL_PLAIN |
+myTime, myIter,myThid ) |
./verification/OpenAD/code_oad_all/the_third_level_loop.F |
193 |
THE_THIRD_LEVEL_PLAIN |
INTEGER myThid |
./verification/OpenAD/code_oad_all/the_third_level_loop.F |
202 |
THE_THIRD_LEVEL_PLAIN |
IF (debugMode) CALL DEBUG_ENTER('THE_THIRD_LEVEL_PLAIN',myThid) |
./verification/OpenAD/code_oad_all/the_third_level_loop.F |
213 |
THE_THIRD_LEVEL_PLAIN |
+myThid) |
./verification/OpenAD/code_oad_all/the_third_level_loop.F |
21 |
THE_THIRD_LEVEL_LOOP |
+myTime, myIter,myThid ) |
./verification/OpenAD/code_oad_all/the_third_level_loop.F |
223 |
THE_THIRD_LEVEL_PLAIN |
IF (debugMode) CALL DEBUG_CALL('THE_SECOND_LEVEL_PLAIN',myThid) |
./verification/OpenAD/code_oad_all/the_third_level_loop.F |
231 |
THE_THIRD_LEVEL_PLAIN |
IF (debugMode) CALL DEBUG_LEAVE('THE_THIRD_LEVEL_PLAIN',myThid) |
./verification/OpenAD/code_oad_all/the_third_level_loop.F |
90 |
THE_THIRD_LEVEL_LOOP |
INTEGER myThid |
./verification/OpenAD/code_oad_all/the_third_level_loop.F |
99 |
THE_THIRD_LEVEL_LOOP |
IF (debugMode) CALL DEBUG_ENTER('THE_THIRD_LEVEL_LOOP',myThid) |
./verification/OpenAD/code_oad_all/write_state.F |
104 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'U', uVel,iRec,myIter,myThid) |
./verification/OpenAD/code_oad_all/write_state.F |
105 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'V', vVel,iRec,myIter,myThid) |
./verification/OpenAD/code_oad_all/write_state.F |
106 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'T', theta,iRec,myIter,myThid) |
./verification/OpenAD/code_oad_all/write_state.F |
107 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'S', salt,iRec,myIter,myThid) |
./verification/OpenAD/code_oad_all/write_state.F |
108 |
WRITE_STATE |
CALL WRITE_REC_XY_RL('Eta',etaN,iRec,myIter,myThid) |
./verification/OpenAD/code_oad_all/write_state.F |
109 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'W',wVel,iRec,myIter,myThid) |
./verification/OpenAD/code_oad_all/write_state.F |
112 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'PNH',phi_nh,iRec,myIter,myThid) |
./verification/OpenAD/code_oad_all/write_state.F |
127 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'U.',suff,uVelv,myIter,myThid) |
./verification/OpenAD/code_oad_all/write_state.F |
128 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'V.',suff,vVelv,myIter,myThid) |
./verification/OpenAD/code_oad_all/write_state.F |
129 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'T.',suff,thetav,myIter,myThid) |
./verification/OpenAD/code_oad_all/write_state.F |
130 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'S.',suff,saltv,myIter,myThid) |
./verification/OpenAD/code_oad_all/write_state.F |
131 |
WRITE_STATE |
CALL WRITE_FLD_XY_RL('Eta.',suff,etaNv,myIter,myThid) |
./verification/OpenAD/code_oad_all/write_state.F |
132 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'W.',suff,wVelv,myIter,myThid) |
./verification/OpenAD/code_oad_all/write_state.F |
134 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL('PH.',suff,totPhiHydv,myIter,myThid) |
./verification/OpenAD/code_oad_all/write_state.F |
137 |
WRITE_STATE |
CALL WRITE_FLD_XY_RL('PHL.',suff,phiHydLow,myIter,myThid) |
./verification/OpenAD/code_oad_all/write_state.F |
141 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'PNH.',suff,phi_nh,myIter,myThid) |
./verification/OpenAD/code_oad_all/write_state.F |
14 |
WRITE_STATE |
SUBROUTINE WRITE_STATE ( myTime, myIter, myThid ) |
./verification/OpenAD/code_oad_all/write_state.F |
167 |
WRITE_STATE |
CALL MNC_CW_SET_UDIM('state', -1, myThid) |
./verification/OpenAD/code_oad_all/write_state.F |
168 |
WRITE_STATE |
CALL MNC_CW_RL_W_S('D','state',0,0,'T', myTime, myThid) |
./verification/OpenAD/code_oad_all/write_state.F |
169 |
WRITE_STATE |
CALL MNC_CW_SET_UDIM('state', 0, myThid) |
./verification/OpenAD/code_oad_all/write_state.F |
170 |
WRITE_STATE |
CALL MNC_CW_I_W_S('I','state',0,0,'iter', myIter, myThid) |
./verification/OpenAD/code_oad_all/write_state.F |
172 |
WRITE_STATE |
CALL MNC_CW_RL_W(pf,'state',0,0,'U', uVel, myThid) |
./verification/OpenAD/code_oad_all/write_state.F |
173 |
WRITE_STATE |
CALL MNC_CW_RL_W(pf,'state',0,0,'V', vVel, myThid) |
./verification/OpenAD/code_oad_all/write_state.F |
174 |
WRITE_STATE |
CALL MNC_CW_RL_W(pf,'state',0,0,'Temp', theta, myThid) |
./verification/OpenAD/code_oad_all/write_state.F |
175 |
WRITE_STATE |
CALL MNC_CW_RL_W(pf,'state',0,0,'S', salt, myThid) |
./verification/OpenAD/code_oad_all/write_state.F |
176 |
WRITE_STATE |
CALL MNC_CW_RL_W(pf,'state',0,0,'Eta', etaN, myThid) |
./verification/OpenAD/code_oad_all/write_state.F |
177 |
WRITE_STATE |
CALL MNC_CW_RL_W(pf,'state',0,0,'W', wVel, myThid) |
./verification/OpenAD/code_oad_all/write_state.F |
179 |
WRITE_STATE |
CALL MNC_CW_SET_UDIM('phiHyd', -1, myThid) |
./verification/OpenAD/code_oad_all/write_state.F |
180 |
WRITE_STATE |
CALL MNC_CW_RL_W_S('D','phiHyd',0,0,'T',myTime,myThid) |
./verification/OpenAD/code_oad_all/write_state.F |
181 |
WRITE_STATE |
CALL MNC_CW_SET_UDIM('phiHyd', 0, myThid) |
./verification/OpenAD/code_oad_all/write_state.F |
182 |
WRITE_STATE |
CALL MNC_CW_I_W_S('I','phiHyd',0,0,'iter',myIter,myThid) |
./verification/OpenAD/code_oad_all/write_state.F |
184 |
WRITE_STATE |
& totPhiHyd, myThid) |
./verification/OpenAD/code_oad_all/write_state.F |
187 |
WRITE_STATE |
CALL MNC_CW_SET_UDIM('phiHydLow', -1, myThid) |
./verification/OpenAD/code_oad_all/write_state.F |
188 |
WRITE_STATE |
CALL MNC_CW_RL_W_S('D','phiHydLow',0,0,'T', myTime, myThid) |
./verification/OpenAD/code_oad_all/write_state.F |
189 |
WRITE_STATE |
CALL MNC_CW_SET_UDIM('phiHydLow', 0, myThid) |
./verification/OpenAD/code_oad_all/write_state.F |
190 |
WRITE_STATE |
CALL MNC_CW_I_W_S('I','phiHydLow',0,0,'iter',myIter,myThid) |
./verification/OpenAD/code_oad_all/write_state.F |
192 |
WRITE_STATE |
& phiHydLow, myThid) |
./verification/OpenAD/code_oad_all/write_state.F |
196 |
WRITE_STATE |
CALL MNC_CW_RL_W(pf,'state',0,0,'phi_nh',phi_nh,myThid) |
./verification/OpenAD/code_oad_all/write_state.F |
71 |
WRITE_STATE |
INTEGER myThid |
./verification/adjustment.cs-32x32x1/code_min/main.F |
110 |
NO PROCEDURE |
INTEGER myThid |
./verification/adjustment.cs-32x32x1/code_min/main.F |
169 |
NO PROCEDURE |
myThid = I |
./verification/adjustment.cs-32x32x1/code_min/main.F |
173 |
NO PROCEDURE |
CALL CHECK_THREADS( myThid ) |
./verification/adjustment.cs-32x32x1/code_min/main.F |
179 |
NO PROCEDURE |
CALL ADMTLM_DSVD(myThid) |
./verification/adjustment.cs-32x32x1/code_min/main.F |
181 |
NO PROCEDURE |
WRITE(0,'(3(A,I4))') '-- PId=', myProcId, ' , TId=', myThid, |
./verification/adjustment.cs-32x32x1/code_min/main.F |
188 |
NO PROCEDURE |
threadIsComplete(myThid) = .TRUE. |
./verification/adjustment.cs-32x32x1/code_min/main.F |
221 |
PTREENTRY |
I myThid ) |
./verification/adjustment.cs-32x32x1/code_min/main.F |
234 |
PTREENTRY |
integer myThid |
./verification/adjustment.cs-32x32x1/code_min/main.F |
237 |
PTREENTRY |
write(*,*) 'myThid = ', myThid |
./verification/adjustment.cs-32x32x1/code_min/main.F |
238 |
PTREENTRY |
CALL CHECK_THREADS( myThid ) |
./verification/adjustment.cs-32x32x1/code_min/main.F |
242 |
PTREENTRY |
threadIsComplete(myThid) = .TRUE. |
./model/src/ini_depths.F |
10 |
INI_DEPTHS |
SUBROUTINE INI_DEPTHS( myThid ) |
./model/src/ini_depths.F |
110 |
INI_DEPTHS |
CALL MNC_CW_ADD_VNAME('bathy', 'Cen_xy_Hn__-__-', 3,4, myThid) |
./model/src/ini_depths.F |
111 |
INI_DEPTHS |
CALL MNC_FILE_CLOSE_ALL_MATCHING(bathyFile, myThid) |
./model/src/ini_depths.F |
112 |
INI_DEPTHS |
CALL MNC_CW_SET_UDIM(bathyFile, 1, myThid) |
./model/src/ini_depths.F |
113 |
INI_DEPTHS |
CALL MNC_CW_SET_CITER(bathyFile, 2, -1, -1, -1, myThid) |
./model/src/ini_depths.F |
114 |
INI_DEPTHS |
CALL MNC_CW_SET_UDIM(bathyFile, 1, myThid) |
./model/src/ini_depths.F |
115 |
INI_DEPTHS |
CALL MNC_CW_RS_R('D',bathyFile,0,0,'bathy',R_low, myThid) |
./model/src/ini_depths.F |
116 |
INI_DEPTHS |
CALL MNC_FILE_CLOSE_ALL_MATCHING(bathyFile, myThid) |
./model/src/ini_depths.F |
117 |
INI_DEPTHS |
CALL MNC_CW_DEL_VNAME('bathy', myThid) |
./model/src/ini_depths.F |
122 |
INI_DEPTHS |
CALL READ_REC_XY_RS( bathyFile, R_low, 1, 0, myThid ) |
./model/src/ini_depths.F |
139 |
INI_DEPTHS |
_EXCH_XY_RS(R_low, myThid ) |
./model/src/ini_depths.F |
144 |
INI_DEPTHS |
& -1, myThid ) |
./model/src/ini_depths.F |
157 |
INI_DEPTHS |
CALL READ_REC_XY_RS( bathyFile, Ro_surf, 1, 0, myThid ) |
./model/src/ini_depths.F |
162 |
INI_DEPTHS |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/ini_depths.F |
163 |
INI_DEPTHS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/ini_depths.F |
177 |
INI_DEPTHS |
CALL READ_REC_XY_RS( topoFile, topoZ, 1, 0, myThid ) |
./model/src/ini_depths.F |
188 |
INI_DEPTHS |
I myThid ) |
./model/src/ini_depths.F |
197 |
INI_DEPTHS |
CALL PRINT_ERROR( msgBuf , myThid) |
./model/src/ini_depths.F |
204 |
INI_DEPTHS |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/ini_depths.F |
205 |
INI_DEPTHS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/ini_depths.F |
220 |
INI_DEPTHS |
_EXCH_XY_RS(Ro_surf, myThid ) |
./model/src/ini_depths.F |
228 |
INI_DEPTHS |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/ini_depths.F |
229 |
INI_DEPTHS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/ini_depths.F |
250 |
INI_DEPTHS |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/ini_depths.F |
251 |
INI_DEPTHS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/ini_depths.F |
277 |
INI_DEPTHS |
& -1, myThid ) |
./model/src/ini_depths.F |
289 |
INI_DEPTHS |
CALL OBCS_CHECK_DEPTHS( myThid ) |
./model/src/ini_depths.F |
291 |
INI_DEPTHS |
_EXCH_XY_RS( R_low, myThid ) |
./model/src/ini_depths.F |
297 |
INI_DEPTHS |
CALL EXCH2_CHECK_DEPTHS( R_low, Ro_surf, myThid ) |
./model/src/ini_depths.F |
48 |
INI_DEPTHS |
INTEGER myThid |
./model/src/ini_depths.F |
68 |
INI_DEPTHS |
CALL PRINT_ERROR( msgBuf , myThid) |
./model/src/ini_depths.F |
75 |
INI_DEPTHS |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/ini_depths.F |
76 |
INI_DEPTHS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/ini_depths.F |
97 |
INI_DEPTHS |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/ini_depths.F |
98 |
INI_DEPTHS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./verification/advect_cs/code/ini_vel.F |
30 |
INI_VEL |
INTEGER myThid |
./verification/advect_cs/code/ini_vel.F |
52 |
INI_VEL |
DO bj = myByLo(myThid), myByHi(myThid) |
./verification/advect_cs/code/ini_vel.F |
53 |
INI_VEL |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./verification/advect_cs/code/ini_vel.F |
73 |
INI_VEL |
& CALL READ_FLD_XYZ_RL( uVelInitFile, ' ', uVel, 0, myThid ) |
./verification/advect_cs/code/ini_vel.F |
76 |
INI_VEL |
& CALL READ_FLD_XYZ_RL( vVelInitFile, ' ', vVel, 0, myThid ) |
./verification/advect_cs/code/ini_vel.F |
78 |
INI_VEL |
CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid) |
./verification/advect_cs/code/ini_vel.F |
81 |
INI_VEL |
DO bj = myByLo(myThid), myByHi(myThid) |
./verification/advect_cs/code/ini_vel.F |
82 |
INI_VEL |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./verification/advect_cs/code/ini_vel.F |
9 |
INI_VEL |
SUBROUTINE INI_VEL( myThid ) |
./verification/advect_xy/code/ini_salt.F |
112 |
INI_SALT |
CALL PRINT_ERROR( msgBuf , myThid) |
./verification/advect_xy/code/ini_salt.F |
116 |
INI_SALT |
CALL PRINT_ERROR( msgBuf , myThid) |
./verification/advect_xy/code/ini_salt.F |
123 |
INI_SALT |
& SQUEEZE_RIGHT, myThid ) |
./verification/advect_xy/code/ini_salt.F |
129 |
INI_SALT |
& Nr, 1, myThid ) |
./verification/advect_xy/code/ini_salt.F |
39 |
INI_SALT |
INTEGER myThid |
./verification/advect_xy/code/ini_salt.F |
53 |
INI_SALT |
DO bj = myByLo(myThid), myByHi(myThid) |
./verification/advect_xy/code/ini_salt.F |
54 |
INI_SALT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./verification/advect_xy/code/ini_salt.F |
78 |
INI_SALT |
CALL READ_FLD_XYZ_RL( hydrogSaltFile, ' ', salt, 0, myThid ) |
./verification/advect_xy/code/ini_salt.F |
79 |
INI_SALT |
_EXCH_XYZ_RL( salt, myThid ) |
./verification/advect_xy/code/ini_salt.F |
84 |
INI_SALT |
DO bj = myByLo(myThid), myByHi(myThid) |
./verification/advect_xy/code/ini_salt.F |
85 |
INI_SALT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./verification/advect_xy/code/ini_salt.F |
9 |
INI_SALT |
SUBROUTINE INI_SALT( myThid ) |
./verification/advect_xy/code/ini_theta.F |
116 |
INI_THETA |
CALL PRINT_ERROR( msgBuf , myThid) |
./verification/advect_xy/code/ini_theta.F |
120 |
INI_THETA |
CALL PRINT_ERROR( msgBuf , myThid) |
./verification/advect_xy/code/ini_theta.F |
127 |
INI_THETA |
& SQUEEZE_RIGHT, myThid ) |
./verification/advect_xy/code/ini_theta.F |
134 |
INI_THETA |
DO bj = myByLo(myThid), myByHi(myThid) |
./verification/advect_xy/code/ini_theta.F |
135 |
INI_THETA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./verification/advect_xy/code/ini_theta.F |
151 |
INI_THETA |
& Nr, 1, myThid ) |
./verification/advect_xy/code/ini_theta.F |
39 |
INI_THETA |
INTEGER myThid |
./verification/advect_xy/code/ini_theta.F |
54 |
INI_THETA |
DO bj = myByLo(myThid), myByHi(myThid) |
./verification/advect_xy/code/ini_theta.F |
55 |
INI_THETA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./verification/advect_xy/code/ini_theta.F |
78 |
INI_THETA |
_EXCH_XYZ_RL( theta, myThid ) |
./verification/advect_xy/code/ini_theta.F |
82 |
INI_THETA |
CALL READ_FLD_XYZ_RL( hydrogThetaFile, ' ', theta, 0, myThid ) |
./verification/advect_xy/code/ini_theta.F |
83 |
INI_THETA |
_EXCH_XYZ_RL(theta,myThid) |
./verification/advect_xy/code/ini_theta.F |
88 |
INI_THETA |
DO bj = myByLo(myThid), myByHi(myThid) |
./verification/advect_xy/code/ini_theta.F |
89 |
INI_THETA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./verification/advect_xy/code/ini_theta.F |
9 |
INI_THETA |
SUBROUTINE INI_THETA( myThid ) |
./verification/advect_xy/code/ini_vel.F |
30 |
INI_VEL |
INTEGER myThid |
./verification/advect_xy/code/ini_vel.F |
46 |
INI_VEL |
DO bj = myByLo(myThid), myByHi(myThid) |
./verification/advect_xy/code/ini_vel.F |
47 |
INI_VEL |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./verification/advect_xy/code/ini_vel.F |
63 |
INI_VEL |
& CALL READ_FLD_XYZ_RL( uVelInitFile, ' ', uVel, 0, myThid ) |
./verification/advect_xy/code/ini_vel.F |
66 |
INI_VEL |
& CALL READ_FLD_XYZ_RL( vVelInitFile, ' ', vVel, 0, myThid ) |
./verification/advect_xy/code/ini_vel.F |
68 |
INI_VEL |
CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid) |
./verification/advect_xy/code/ini_vel.F |
71 |
INI_VEL |
DO bj = myByLo(myThid), myByHi(myThid) |
./verification/advect_xy/code/ini_vel.F |
72 |
INI_VEL |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./verification/advect_xy/code/ini_vel.F |
9 |
INI_VEL |
SUBROUTINE INI_VEL( myThid ) |
./model/src/ini_dynvars.F |
32 |
INI_DYNVARS |
INTEGER myThid |
./model/src/ini_dynvars.F |
43 |
INI_DYNVARS |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/ini_dynvars.F |
44 |
INI_DYNVARS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/ini_dynvars.F |
9 |
INI_DYNVARS |
SUBROUTINE INI_DYNVARS( myThid ) |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
114 |
AIM_SURF_BC |
fMask1(I2,1,myThid) = aim_landFr(i,j,bi,bj) |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
12 |
AIM_SURF_BC |
I bi, bj, myTime, myIter, myThid ) |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
154 |
AIM_SURF_BC |
sst1(I2,myThid) = aim_sWght0*aim_sst0(i,j,bi,bj) |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
156 |
AIM_SURF_BC |
stl1(I2,myThid) = aim_sWght0*aim_lst0(i,j,bi,bj) |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
180 |
AIM_SURF_BC |
soilw1(I2,myThid) = aim_sWght0*soilw_0 |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
182 |
AIM_SURF_BC |
soilw1(I2,myThid) = MIN(1. _d 0, soilw1(I2,myThid) ) |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
202 |
AIM_SURF_BC |
sti1(J,myThid) = sst1(J,myThid) |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
204 |
AIM_SURF_BC |
sst1(J,myThid) = MAX(sst1(J,myThid),oceTfreez) |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
205 |
AIM_SURF_BC |
sti1(J,myThid) = sst1(J,myThid) |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
206 |
AIM_SURF_BC |
& +(sti1(J,myThid)-sst1(J,myThid))/oice1(J) |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
213 |
AIM_SURF_BC |
sti1(J,myThid) = sst1(J,myThid) |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
262 |
AIM_SURF_BC |
alb1(I2,1,myThid) = alb_land |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
264 |
AIM_SURF_BC |
alb1(I2,2,myThid) = 0.5 _d 0 * ALBSEA |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
266 |
AIM_SURF_BC |
alb1(I2,3,myThid) = ALBICE |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
291 |
AIM_SURF_BC |
alb1(I2,1,myThid) = aim_albedo(i,j,bi,bj) |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
292 |
AIM_SURF_BC |
alb1(I2,2,myThid) = aim_albedo(i,j,bi,bj) |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
293 |
AIM_SURF_BC |
alb1(I2,3,myThid) = aim_albedo(i,j,bi,bj) |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
300 |
AIM_SURF_BC |
alb1(I2,1,myThid) = 0. |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
301 |
AIM_SURF_BC |
alb1(I2,2,myThid) = 0. |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
302 |
AIM_SURF_BC |
alb1(I2,3,myThid) = 0. |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
311 |
AIM_SURF_BC |
sst1(I2,myThid) = aim_sst0(i,j,bi,bj) |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
312 |
AIM_SURF_BC |
stl1(I2,myThid) = aim_sst0(i,j,bi,bj) |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
313 |
AIM_SURF_BC |
sti1(I2,myThid) = aim_sst0(i,j,bi,bj) |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
320 |
AIM_SURF_BC |
sst1(I2,myThid) = 300. |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
321 |
AIM_SURF_BC |
stl1(I2,myThid) = 300. |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
322 |
AIM_SURF_BC |
sti1(I2,myThid) = 300. |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
324 |
AIM_SURF_BC |
sst1(I2,myThid) = 280. |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
327 |
AIM_SURF_BC |
stl1(I2,myThid) = sst1(I2,myThid) |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
328 |
AIM_SURF_BC |
sti1(I2,myThid) = sst1(I2,myThid) |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
336 |
AIM_SURF_BC |
& 1, bi, bj, 1, myIter, myThid ) |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
346 |
AIM_SURF_BC |
soilw1(I2,myThid) = aim_sw10(i,j,bi,bj) |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
353 |
AIM_SURF_BC |
soilw1(I2,myThid) = 0. |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
377 |
AIM_SURF_BC |
U sst1(1,myThid), oice1, |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
378 |
AIM_SURF_BC |
I myTime, myIter, bi, bj, myThid ) |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
386 |
AIM_SURF_BC |
aim_CO2(I2,myThid)= atm_pCO2 |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
392 |
AIM_SURF_BC |
CALL DIAGNOSTICS_SCALE_FILL( aim_CO2(1,myThid), pCO2scl, 1, |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
393 |
AIM_SURF_BC |
& 'aim_pCO2', 1, 1, 3, bi, bj, myThid ) |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
403 |
AIM_SURF_BC |
U stl1(1,myThid), soilw1(1,myThid), alb1(1,1,myThid), |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
404 |
AIM_SURF_BC |
I myTime, myIter, bi, bj, myThid ) |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
413 |
AIM_SURF_BC |
U sst1(1,myThid), oice1, |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
414 |
AIM_SURF_BC |
O sti1(1,myThid), alb1(1,3,myThid), |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
415 |
AIM_SURF_BC |
I myTime, myIter, bi, bj, myThid ) |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
421 |
AIM_SURF_BC |
fMask1(J,3,myThid) =(1. _d 0 - fMask1(J,1,myThid)) |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
423 |
AIM_SURF_BC |
fMask1(J,2,myThid) = 1. _d 0 - fMask1(J,1,myThid) |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
424 |
AIM_SURF_BC |
& - fMask1(J,3,myThid) |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
429 |
AIM_SURF_BC |
alb1(J,0,myThid) = fMask1(J,1,myThid)*alb1(J,1,myThid) |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
430 |
AIM_SURF_BC |
& + fMask1(J,2,myThid)*alb1(J,2,myThid) |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
431 |
AIM_SURF_BC |
& + fMask1(J,3,myThid)*alb1(J,3,myThid) |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
437 |
AIM_SURF_BC |
dTsurf(J,k,myThid) = 0. |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
443 |
AIM_SURF_BC |
fMask1(J,3,myThid) = 0. _d 0 |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
444 |
AIM_SURF_BC |
fMask1(J,2,myThid) = 1. _d 0 - fMask1(J,1,myThid) |
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
70 |
AIM_SURF_BC |
INTEGER myIter, myThid |
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
10 |
INI_DEPTHS |
SUBROUTINE INI_DEPTHS( myThid ) |
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
110 |
INI_DEPTHS |
CALL MNC_CW_ADD_VNAME('bathy', 'Cen_xy_Hn__-__-', 3,4, myThid) |
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
111 |
INI_DEPTHS |
CALL MNC_FILE_CLOSE_ALL_MATCHING(bathyFile, myThid) |
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
112 |
INI_DEPTHS |
CALL MNC_CW_SET_UDIM(bathyFile, 1, myThid) |
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
113 |
INI_DEPTHS |
CALL MNC_CW_SET_CITER(bathyFile, 2, -1, -1, -1, myThid) |
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
114 |
INI_DEPTHS |
CALL MNC_CW_SET_UDIM(bathyFile, 1, myThid) |
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
115 |
INI_DEPTHS |
CALL MNC_CW_RS_R('D',bathyFile,0,0,'bathy',R_low, myThid) |
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
116 |
INI_DEPTHS |
CALL MNC_FILE_CLOSE_ALL_MATCHING(bathyFile, myThid) |
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
117 |
INI_DEPTHS |
CALL MNC_CW_DEL_VNAME('bathy', myThid) |
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
122 |
INI_DEPTHS |
CALL READ_REC_XY_RS( bathyFile, R_low, 1, 0, myThid ) |
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
139 |
INI_DEPTHS |
_EXCH_XY_RS(R_low, myThid ) |
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
144 |
INI_DEPTHS |
& -1, myThid ) |
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
157 |
INI_DEPTHS |
CALL READ_REC_XY_RS( bathyFile, Ro_surf, 1, 0, myThid ) |
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
162 |
INI_DEPTHS |
DO bj = myByLo(myThid), myByHi(myThid) |
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
163 |
INI_DEPTHS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
177 |
INI_DEPTHS |
CALL READ_REC_XY_RS( topoFile, topoZ, 1, 0, myThid ) |
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
188 |
INI_DEPTHS |
I myThid ) |
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
197 |
INI_DEPTHS |
CALL PRINT_ERROR( msgBuf , myThid) |
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
204 |
INI_DEPTHS |
DO bj = myByLo(myThid), myByHi(myThid) |
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
205 |
INI_DEPTHS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
220 |
INI_DEPTHS |
_EXCH_XY_RS(Ro_surf, myThid ) |
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
228 |
INI_DEPTHS |
DO bj = myByLo(myThid), myByHi(myThid) |
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
229 |
INI_DEPTHS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
250 |
INI_DEPTHS |
DO bj = myByLo(myThid), myByHi(myThid) |
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
251 |
INI_DEPTHS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
277 |
INI_DEPTHS |
& -1, myThid ) |
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
289 |
INI_DEPTHS |
CALL OBCS_CHECK_DEPTHS( myThid ) |
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
291 |
INI_DEPTHS |
_EXCH_XY_RS( R_low, myThid ) |
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
297 |
INI_DEPTHS |
CALL EXCH2_CHECK_DEPTHS( R_low, Ro_surf, myThid ) |
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
48 |
INI_DEPTHS |
INTEGER myThid |
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
68 |
INI_DEPTHS |
CALL PRINT_ERROR( msgBuf , myThid) |
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
75 |
INI_DEPTHS |
DO bj = myByLo(myThid), myByHi(myThid) |
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
76 |
INI_DEPTHS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
97 |
INI_DEPTHS |
DO bj = myByLo(myThid), myByHi(myThid) |
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
98 |
INI_DEPTHS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
28 |
MOM_VI_HFACZ_DISS |
INTEGER myThid |
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
9 |
MOM_VI_HFACZ_DISS |
I myThid) |
./model/src/ini_eos.F |
106 |
INI_EOS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./model/src/ini_eos.F |
109 |
INI_EOS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./model/src/ini_eos.F |
112 |
INI_EOS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./model/src/ini_eos.F |
16 |
INI_EOS |
SUBROUTINE INI_EOS( myThid ) |
./model/src/ini_eos.F |
170 |
INI_EOS |
& SQUEEZE_RIGHT , myThid ) |
./model/src/ini_eos.F |
175 |
INI_EOS |
& SQUEEZE_RIGHT , myThid ) |
./model/src/ini_eos.F |
179 |
INI_EOS |
& SQUEEZE_RIGHT , myThid ) |
./model/src/ini_eos.F |
183 |
INI_EOS |
& SQUEEZE_RIGHT , myThid ) |
./model/src/ini_eos.F |
187 |
INI_EOS |
& SQUEEZE_RIGHT , myThid ) |
./model/src/ini_eos.F |
258 |
INI_EOS |
CALL PRINT_ERROR( msgbuf, myThid ) |
./model/src/ini_eos.F |
265 |
INI_EOS |
CALL EOS_CHECK( myThid ) |
./model/src/ini_eos.F |
267 |
INI_EOS |
_END_MASTER( myThid ) |
./model/src/ini_eos.F |
276 |
EOS_CHECK |
SUBROUTINE EOS_CHECK( myThid ) |
./model/src/ini_eos.F |
297 |
EOS_CHECK |
INTEGER myThid |
./model/src/ini_eos.F |
36 |
INI_EOS |
INTEGER myThid |
./model/src/ini_eos.F |
389 |
EOS_CHECK |
& SQUEEZE_RIGHT , myThid ) |
./model/src/ini_eos.F |
415 |
EOS_CHECK |
I k, bi, bj, myThid ) |
./model/src/ini_eos.F |
424 |
EOS_CHECK |
I myThid ) |
./model/src/ini_eos.F |
431 |
EOS_CHECK |
& SQUEEZE_RIGHT , myThid ) |
./model/src/ini_eos.F |
436 |
EOS_CHECK |
& SQUEEZE_RIGHT , myThid ) |
./model/src/ini_eos.F |
441 |
EOS_CHECK |
& SQUEEZE_RIGHT , myThid ) |
./model/src/ini_eos.F |
449 |
EOS_CHECK |
& SQUEEZE_RIGHT , myThid ) |
./model/src/ini_eos.F |
454 |
EOS_CHECK |
& SQUEEZE_RIGHT , myThid ) |
./model/src/ini_eos.F |
457 |
EOS_CHECK |
& pLoc(kcheck), rhoLoc(i,j), myThid ) |
./model/src/ini_eos.F |
462 |
EOS_CHECK |
& SQUEEZE_RIGHT , myThid ) |
./model/src/ini_eos.F |
471 |
EOS_CHECK |
& SQUEEZE_RIGHT , myThid ) |
./model/src/ini_eos.F |
47 |
INI_EOS |
_BEGIN_MASTER(myThid) |
./model/src/ini_eos.F |
82 |
INI_EOS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./model/src/ini_eos.F |
85 |
INI_EOS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F |
10 |
MOM_VI_MASK_VORT3 |
I myThid) |
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F |
27 |
MOM_VI_MASK_VORT3 |
INTEGER myThid |
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
102 |
ADDUMMY_IN_STEPPING |
& 'ADJtheta.',suff, adtheta, myIter, myThid) |
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
104 |
ADDUMMY_IN_STEPPING |
& 'ADJsalt.',suff, adsalt, myIter, myThid) |
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
106 |
ADDUMMY_IN_STEPPING |
& 'ADJuvel.',suff, aduvel, myIter, myThid) |
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
108 |
ADDUMMY_IN_STEPPING |
& 'ADJvvel.',suff, advvel, myIter, myThid) |
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
110 |
ADDUMMY_IN_STEPPING |
& 'ADJwvel.',suff, adwvel, myIter, myThid) |
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
130 |
ADDUMMY_IN_STEPPING |
& adhfacc, myIter, myThid) |
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
132 |
ADDUMMY_IN_STEPPING |
& adhfacs, myIter, myThid) |
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
134 |
ADDUMMY_IN_STEPPING |
& adhfacw, myIter, myThid) |
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
136 |
ADDUMMY_IN_STEPPING |
& adrecip_hfacc, myIter, myThid) |
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
138 |
ADDUMMY_IN_STEPPING |
& adrecip_hfacs, myIter, myThid) |
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
140 |
ADDUMMY_IN_STEPPING |
& adrecip_hfacw, myIter, myThid) |
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
147 |
ADDUMMY_IN_STEPPING |
endIOErrCount = IO_ERRCOUNT(myThid) |
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
167 |
ADDUMMY_IN_STEPPING |
_END_MASTER( myThid ) |
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
172 |
ADDUMMY_IN_STEPPING |
call TIMER_STOP( 'I/O (WRITE) [ADJOINT LOOP]', myThid ) |
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
44 |
ADDUMMY_IN_STEPPING |
integer myThid |
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
65 |
ADDUMMY_IN_STEPPING |
call TIMER_START('I/O (WRITE) [ADJOINT LOOP]', myThid ) |
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
74 |
ADDUMMY_IN_STEPPING |
_BEGIN_MASTER( myThid ) |
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
81 |
ADDUMMY_IN_STEPPING |
beginIOErrCount = IO_ERRCOUNT(myThid) |
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
9 |
ADDUMMY_IN_STEPPING |
subroutine ADDUMMY_IN_STEPPING( mytime, myiter, myThid ) |
./verification/bottom_ctrl_5x5/code_ad/cost_test.F |
30 |
COST_TEST |
integer myThid |
./verification/bottom_ctrl_5x5/code_ad/cost_test.F |
6 |
COST_TEST |
subroutine COST_TEST( myThid ) |
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
100 |
ADDUMMY_IN_HFAC |
_BEGIN_MASTER( myThid ) |
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
107 |
ADDUMMY_IN_HFAC |
beginIOErrCount = IO_ERRCOUNT(myThid) |
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
112 |
ADDUMMY_IN_HFAC |
& myIter, myThid) |
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
116 |
ADDUMMY_IN_HFAC |
& myIter, myThid) |
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
120 |
ADDUMMY_IN_HFAC |
& myIter, myThid) |
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
125 |
ADDUMMY_IN_HFAC |
endIOErrCount = IO_ERRCOUNT(myThid) |
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
145 |
ADDUMMY_IN_HFAC |
_END_MASTER( myThid ) |
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
150 |
ADDUMMY_IN_HFAC |
call TIMER_STOP( 'I/O (WRITE) [ADJOINT LOOP]', myThid ) |
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
19 |
DUMMY_IN_HFAC |
INTEGER myThid |
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
23 |
DUMMY_IN_HFAC |
call TIMER_START('I/O (WRITE) [ADJOINT LOOP]', myThid ) |
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
25 |
DUMMY_IN_HFAC |
call TIMER_STOP( 'I/O (WRITE) [ADJOINT LOOP]', myThid ) |
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
32 |
ADDUMMY_IN_HFAC |
subroutine ADDUMMY_IN_HFAC( myname, myIter, myThid ) |
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
67 |
ADDUMMY_IN_HFAC |
integer myThid |
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
6 |
DUMMY_IN_HFAC |
subroutine DUMMY_IN_HFAC( myname, myIter, myThid ) |
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
92 |
ADDUMMY_IN_HFAC |
call TIMER_START('I/O (WRITE) [ADJOINT LOOP]', myThid ) |
./model/src/ini_fields.F |
12 |
INI_FIELDS |
SUBROUTINE INI_FIELDS( myThid ) |
./model/src/ini_fields.F |
26 |
INI_FIELDS |
INTEGER myThid |
./model/src/ini_fields.F |
32 |
INI_FIELDS |
CALL INI_VEL( myThid ) |
./model/src/ini_fields.F |
33 |
INI_FIELDS |
CALL INI_THETA( myThid ) |
./model/src/ini_fields.F |
34 |
INI_FIELDS |
CALL INI_SALT( myThid ) |
./model/src/ini_fields.F |
35 |
INI_FIELDS |
CALL INI_PSURF( myThid ) |
./model/src/ini_fields.F |
36 |
INI_FIELDS |
CALL INI_PRESSURE( myThid ) |
./model/src/ini_fields.F |
38 |
INI_FIELDS |
CALL INI_EP( myThid ) |
./model/src/ini_fields.F |
41 |
INI_FIELDS |
CALL READ_PICKUP( nIter0, myThid ) |
./model/src/ini_fields.F |
52 |
INI_FIELDS |
CALL INI_NH_FIELDS( myThid ) |
./model/src/ini_forcing.F |
10 |
INI_FORCING |
SUBROUTINE INI_FORCING( myThid ) |
./model/src/ini_forcing.F |
117 |
INI_FORCING |
CALL READ_FLD_XY_RS( zonalWindFile, ' ', fu, 0, myThid ) |
./model/src/ini_forcing.F |
120 |
INI_FORCING |
CALL READ_FLD_XY_RS( meridWindFile, ' ', fv, 0, myThid ) |
./model/src/ini_forcing.F |
123 |
INI_FORCING |
CALL READ_FLD_XY_RS( surfQFile, ' ', Qnet, 0, myThid ) |
./model/src/ini_forcing.F |
125 |
INI_FORCING |
CALL READ_FLD_XY_RS( surfQnetFile, ' ', Qnet, 0, myThid ) |
./model/src/ini_forcing.F |
128 |
INI_FORCING |
CALL READ_FLD_XY_RS( EmPmRfile, ' ', EmPmR, 0, myThid ) |
./model/src/ini_forcing.F |
131 |
INI_FORCING |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/ini_forcing.F |
132 |
INI_FORCING |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/ini_forcing.F |
143 |
INI_FORCING |
CALL READ_FLD_XY_RS( saltFluxFile, ' ', saltFlux, 0, myThid ) |
./model/src/ini_forcing.F |
146 |
INI_FORCING |
CALL READ_FLD_XY_RS( thetaClimFile, ' ', SST, 0, myThid ) |
./model/src/ini_forcing.F |
149 |
INI_FORCING |
CALL READ_FLD_XY_RS( saltClimFile, ' ', SSS, 0, myThid ) |
./model/src/ini_forcing.F |
153 |
INI_FORCING |
& lambdaThetaClimRelax, 0, myThid ) |
./model/src/ini_forcing.F |
157 |
INI_FORCING |
& lambdaSaltClimRelax, 0, myThid ) |
./model/src/ini_forcing.F |
161 |
INI_FORCING |
CALL READ_FLD_XY_RS( surfQswFile, ' ', Qsw, 0, myThid ) |
./model/src/ini_forcing.F |
164 |
INI_FORCING |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/ini_forcing.F |
165 |
INI_FORCING |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/ini_forcing.F |
178 |
INI_FORCING |
CALL READ_FLD_XY_RS( pLoadFile, ' ', pLoad, 0, myThid ) |
./model/src/ini_forcing.F |
182 |
INI_FORCING |
CALL EXCH_UV_XY_RS( fu,fv, .TRUE., myThid ) |
./model/src/ini_forcing.F |
183 |
INI_FORCING |
CALL EXCH_XY_RS( Qnet , myThid ) |
./model/src/ini_forcing.F |
184 |
INI_FORCING |
CALL EXCH_XY_RS( EmPmR, myThid ) |
./model/src/ini_forcing.F |
185 |
INI_FORCING |
CALL EXCH_XY_RS( saltFlux, myThid ) |
./model/src/ini_forcing.F |
186 |
INI_FORCING |
CALL EXCH_XY_RS( SST , myThid ) |
./model/src/ini_forcing.F |
187 |
INI_FORCING |
CALL EXCH_XY_RS( SSS , myThid ) |
./model/src/ini_forcing.F |
188 |
INI_FORCING |
CALL EXCH_XY_RS( lambdaThetaClimRelax, myThid ) |
./model/src/ini_forcing.F |
189 |
INI_FORCING |
CALL EXCH_XY_RS( lambdaSaltClimRelax , myThid ) |
./model/src/ini_forcing.F |
191 |
INI_FORCING |
CALL EXCH_XY_RS(Qsw , myThid ) |
./model/src/ini_forcing.F |
194 |
INI_FORCING |
CALL EXCH_XY_RS(pLoad , myThid ) |
./model/src/ini_forcing.F |
208 |
INI_FORCING |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/ini_forcing.F |
209 |
INI_FORCING |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/ini_forcing.F |
32 |
INI_FORCING |
INTEGER myThid |
./model/src/ini_forcing.F |
43 |
INI_FORCING |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/ini_forcing.F |
44 |
INI_FORCING |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/ini_forcing.F |
91 |
INI_FORCING |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/ini_forcing.F |
92 |
INI_FORCING |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/ini_grid.F |
113 |
INI_GRID |
CALL MNC_CW_SET_UDIM(mon_fname, 1, myThid) |
./model/src/ini_grid.F |
11 |
INI_GRID |
SUBROUTINE INI_GRID( myThid ) |
./model/src/ini_grid.F |
122 |
INI_GRID |
CALL MON_PRINTSTATS_RS(1,xC,'XC',myThid) |
./model/src/ini_grid.F |
123 |
INI_GRID |
CALL MON_PRINTSTATS_RS(1,xG,'XG',myThid) |
./model/src/ini_grid.F |
124 |
INI_GRID |
CALL MON_PRINTSTATS_RS(1,dxC,'DXC',myThid) |
./model/src/ini_grid.F |
125 |
INI_GRID |
CALL MON_PRINTSTATS_RS(1,dxF,'DXF',myThid) |
./model/src/ini_grid.F |
126 |
INI_GRID |
CALL MON_PRINTSTATS_RS(1,dxG,'DXG',myThid) |
./model/src/ini_grid.F |
127 |
INI_GRID |
CALL MON_PRINTSTATS_RS(1,dxV,'DXV',myThid) |
./model/src/ini_grid.F |
128 |
INI_GRID |
CALL MON_PRINTSTATS_RS(1,yC,'YC',myThid) |
./model/src/ini_grid.F |
129 |
INI_GRID |
CALL MON_PRINTSTATS_RS(1,yG,'YG',myThid) |
./model/src/ini_grid.F |
130 |
INI_GRID |
CALL MON_PRINTSTATS_RS(1,dyC,'DYC',myThid) |
./model/src/ini_grid.F |
131 |
INI_GRID |
CALL MON_PRINTSTATS_RS(1,dyF,'DYF',myThid) |
./model/src/ini_grid.F |
132 |
INI_GRID |
CALL MON_PRINTSTATS_RS(1,dyG,'DYG',myThid) |
./model/src/ini_grid.F |
133 |
INI_GRID |
CALL MON_PRINTSTATS_RS(1,dyU,'DYU',myThid) |
./model/src/ini_grid.F |
134 |
INI_GRID |
CALL MON_PRINTSTATS_RS(1,rA,'RA',myThid) |
./model/src/ini_grid.F |
135 |
INI_GRID |
CALL MON_PRINTSTATS_RS(1,rAw,'RAW',myThid) |
./model/src/ini_grid.F |
136 |
INI_GRID |
CALL MON_PRINTSTATS_RS(1,rAs,'RAS',myThid) |
./model/src/ini_grid.F |
137 |
INI_GRID |
CALL MON_PRINTSTATS_RS(1,rAz,'RAZ',myThid) |
./model/src/ini_grid.F |
138 |
INI_GRID |
CALL MON_PRINTSTATS_RS(1,angleCosC,'AngleCS',myThid) |
./model/src/ini_grid.F |
139 |
INI_GRID |
CALL MON_PRINTSTATS_RS(1,angleSinC,'AngleSN',myThid) |
./model/src/ini_grid.F |
141 |
INI_GRID |
IF ( MASTER_CPU_IO(myThid) ) THEN |
./model/src/ini_grid.F |
42 |
INI_GRID |
INTEGER myThid |
./model/src/ini_grid.F |
57 |
INI_GRID |
CALL LOAD_GRID_SPACING( myThid ) |
./model/src/ini_grid.F |
60 |
INI_GRID |
CALL INI_VERTICAL_GRID( myThid ) |
./model/src/ini_grid.F |
80 |
INI_GRID |
CALL INI_CARTESIAN_GRID( myThid ) |
./model/src/ini_grid.F |
82 |
INI_GRID |
CALL INI_SPHERICAL_POLAR_GRID( myThid ) |
./model/src/ini_grid.F |
84 |
INI_GRID |
CALL INI_CURVILINEAR_GRID( myThid ) |
./model/src/ini_grid.F |
86 |
INI_GRID |
CALL INI_CYLINDER_GRID( myThid ) |
./model/src/ini_grid.F |
88 |
INI_GRID |
_BEGIN_MASTER(myThid) |
./model/src/ini_grid.F |
91 |
INI_GRID |
CALL PRINT_ERROR( msgBuf , myThid) |
./model/src/ini_grid.F |
93 |
INI_GRID |
_END_MASTER(myThid) |
./model/src/ini_grid.F |
97 |
INI_GRID |
IF ( MASTER_CPU_IO(myThid) ) THEN |
./eesupp/src/check_threads.F |
10 |
CHECK_THREADS |
SUBROUTINE CHECK_THREADS( myThid ) |
./eesupp/src/check_threads.F |
44 |
CHECK_THREADS |
INTEGER myThid |
./eesupp/src/check_threads.F |
61 |
CHECK_THREADS |
threadIsRunning(myThid) = .TRUE. |
./eesupp/src/check_threads.F |
72 |
CHECK_THREADS |
thError(myThid) = .TRUE. |
./eesupp/src/check_threads.F |
77 |
CHECK_THREADS |
CALL PRINT_ERROR( msgBuffer , myThid) |
./eesupp/src/check_threads.F |
84 |
CHECK_THREADS |
IF ( myThid .EQ. 1 ) THEN |
./eesupp/src/check_threads.F |
98 |
CHECK_THREADS |
CALL BAR_CHECK( 1, myThid ) |
./model/src/ini_hfac.F |
27 |
INI_HFAC |
INTEGER myThid |
./model/src/ini_hfac.F |
38 |
INI_HFAC |
DO bj=myByLo(myThid), myByHi(myThid) |
./model/src/ini_hfac.F |
39 |
INI_HFAC |
DO bi=myBxLo(myThid), myBxHi(myThid) |
./model/src/ini_hfac.F |
9 |
INI_HFAC |
SUBROUTINE INI_HFAC( myThid ) |
./verification/dome/code/obcs_calc.F |
127 |
OBCS_CALC |
& myThid ) |
./verification/dome/code/obcs_calc.F |
146 |
OBCS_CALC |
& myThid ) |
./verification/dome/code/obcs_calc.F |
207 |
OBCS_CALC |
& myThid ) |
./verification/dome/code/obcs_calc.F |
34 |
OBCS_CALC |
INTEGER myThid |
./verification/dome/code/obcs_calc.F |
87 |
OBCS_CALC |
DO bj=myByLo(myThid),myByHi(myThid) |
./verification/dome/code/obcs_calc.F |
88 |
OBCS_CALC |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./verification/dome/code/obcs_calc.F |
8 |
OBCS_CALC |
& myThid ) |
./verification/dome/code/obcs_calc.F |
95 |
OBCS_CALC |
& myThid ) |
./model/src/ini_linear_phisurf.F |
101 |
INI_LINEAR_PHISURF |
CALL GLOBAL_SUM_TILE_RL( tileArea, threadArea, myThid ) |
./model/src/ini_linear_phisurf.F |
103 |
INI_LINEAR_PHISURF |
_BEGIN_MASTER( myThid ) |
./model/src/ini_linear_phisurf.F |
10 |
INI_LINEAR_PHISURF |
SUBROUTINE INI_LINEAR_PHISURF( myThid ) |
./model/src/ini_linear_phisurf.F |
117 |
INI_LINEAR_PHISURF |
& SQUEEZE_RIGHT, myThid ) |
./model/src/ini_linear_phisurf.F |
124 |
INI_LINEAR_PHISURF |
& SQUEEZE_RIGHT, myThid ) |
./model/src/ini_linear_phisurf.F |
126 |
INI_LINEAR_PHISURF |
_END_MASTER( myThid ) |
./model/src/ini_linear_phisurf.F |
143 |
INI_LINEAR_PHISURF |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/ini_linear_phisurf.F |
144 |
INI_LINEAR_PHISURF |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/ini_linear_phisurf.F |
155 |
INI_LINEAR_PHISURF |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/ini_linear_phisurf.F |
156 |
INI_LINEAR_PHISURF |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/ini_linear_phisurf.F |
168 |
INI_LINEAR_PHISURF |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/ini_linear_phisurf.F |
169 |
INI_LINEAR_PHISURF |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/ini_linear_phisurf.F |
178 |
INI_LINEAR_PHISURF |
O rhoLoc, myThid ) |
./model/src/ini_linear_phisurf.F |
196 |
INI_LINEAR_PHISURF |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/ini_linear_phisurf.F |
197 |
INI_LINEAR_PHISURF |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/ini_linear_phisurf.F |
221 |
INI_LINEAR_PHISURF |
_EXCH_XY_RL(Bo_surf, myThid) |
./model/src/ini_linear_phisurf.F |
222 |
INI_LINEAR_PHISURF |
_EXCH_XY_RL(recip_Bo, myThid) |
./model/src/ini_linear_phisurf.F |
228 |
INI_LINEAR_PHISURF |
CALL WRITE_FLD_XY_RL( 'Bo_surf',' ',Bo_surf,0,myThid) |
./model/src/ini_linear_phisurf.F |
237 |
INI_LINEAR_PHISURF |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/ini_linear_phisurf.F |
238 |
INI_LINEAR_PHISURF |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/ini_linear_phisurf.F |
261 |
INI_LINEAR_PHISURF |
I Ro_surf, myThid ) |
./model/src/ini_linear_phisurf.F |
265 |
INI_LINEAR_PHISURF |
_EXCH_XY_RS(phi0surf, myThid) |
./model/src/ini_linear_phisurf.F |
266 |
INI_LINEAR_PHISURF |
CALL WRITE_FLD_XY_RS( 'phi0surf',' ',phi0surf,0,myThid) |
./model/src/ini_linear_phisurf.F |
269 |
INI_LINEAR_PHISURF |
CALL WRITE_FLD_XY_RS( 'topo_H',' ',topoHloc,0,myThid) |
./model/src/ini_linear_phisurf.F |
42 |
INI_LINEAR_PHISURF |
INTEGER myThid |
./model/src/ini_linear_phisurf.F |
65 |
INI_LINEAR_PHISURF |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/ini_linear_phisurf.F |
66 |
INI_LINEAR_PHISURF |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/ini_linear_phisurf.F |
83 |
INI_LINEAR_PHISURF |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/ini_linear_phisurf.F |
84 |
INI_LINEAR_PHISURF |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
121 |
FIZHI_INIT_FIXED |
do bj = myByLo(myThid), myByHi(myThid) |
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
122 |
FIZHI_INIT_FIXED |
do bi = myBxLo(myThid), myBxHi(myThid) |
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
134 |
FIZHI_INIT_FIXED |
call MDSFINDUNIT( kice, myThid ) |
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
136 |
FIZHI_INIT_FIXED |
call MDSFINDUNIT( ksst, myThid ) |
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
38 |
FIZHI_INIT_FIXED |
integer myThid |
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
5 |
FIZHI_INIT_FIXED |
subroutine FIZHI_INIT_FIXED (myThid) |
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
60 |
FIZHI_INIT_FIXED |
call FIZHI_MNC_INIT(myThid) |
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
66 |
FIZHI_INIT_FIXED |
call FIZHI_DIAGNOSTICS_INIT( myThid ) |
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
72 |
FIZHI_INIT_FIXED |
do bj = myByLo(myThid), myByHi(myThid) |
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
73 |
FIZHI_INIT_FIXED |
do bi = myBxLo(myThid), myBxHi(myThid) |
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
88 |
FIZHI_INIT_FIXED |
do bj = myByLo(myThid), myByHi(myThid) |
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F |
89 |
FIZHI_INIT_FIXED |
do bi = myBxLo(myThid), myBxHi(myThid) |
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
100 |
FIZHI_INIT_VEG |
DO BJ = myByLo(myThid), myByHi(myThid) |
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
101 |
FIZHI_INIT_VEG |
DO BI = myBxLo(myThid), myBxHi(myThid) |
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
68 |
FIZHI_INIT_VEG |
DO BJ = myByLo(myThid), myByHi(myThid) |
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
69 |
FIZHI_INIT_VEG |
DO BI = myBxLo(myThid), myBxHi(myThid) |
./verification/fizhi-cs-aqualev20/code/fizhi_init_vegsurftiles.F |
10 |
FIZHI_INIT_VEGSURFTILES |
& nymd,nhms,prec,myThid) |
./verification/fizhi-cs-aqualev20/code/fizhi_init_vegsurftiles.F |
34 |
FIZHI_INIT_VEGSURFTILES |
INTEGER myThid |
./verification/fizhi-cs-aqualev20/code/fizhi_init_vegsurftiles.F |
40 |
FIZHI_INIT_VEGSURFTILES |
DO bj = myByLo(myThid), myByHi(myThid) |
./verification/fizhi-cs-aqualev20/code/fizhi_init_vegsurftiles.F |
41 |
FIZHI_INIT_VEGSURFTILES |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
102 |
INI_SALT |
DO bj = myByLo(myThid), myByHi(myThid) |
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
103 |
INI_SALT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
117 |
INI_SALT |
_EXCH_XYZ_RL(salt , myThid ) |
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
123 |
INI_SALT |
DO bj = myByLo(myThid), myByHi(myThid) |
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
124 |
INI_SALT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
142 |
INI_SALT |
CALL PRINT_ERROR( msgBuf , myThid) |
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
146 |
INI_SALT |
CALL PLOT_FIELD_XYZRL( salt, 'Initial Salinity' , Nr, 1, myThid ) |
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
39 |
INI_SALT |
INTEGER myThid |
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
71 |
INI_SALT |
DO bj = myByLo(myThid), myByHi(myThid) |
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
72 |
INI_SALT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
84 |
INI_SALT |
DO bj = myByLo(myThid), myByHi(myThid) |
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
85 |
INI_SALT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
97 |
INI_SALT |
_BEGIN_MASTER( myThid ) |
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
98 |
INI_SALT |
CALL READ_FLD_XYZ_RL( hydrogSaltFile, ' ', rhum, 0, myThid ) |
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
99 |
INI_SALT |
_END_MASTER(myThid) |
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
9 |
INI_SALT |
SUBROUTINE INI_SALT ( myThid ) |
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
111 |
UPDATE_OCEAN_EXPORTS |
_EXCH_XY_RL(sst,myThid) |
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
112 |
UPDATE_OCEAN_EXPORTS |
_EXCH_XY_RL(sice,myThid) |
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
25 |
UPDATE_OCEAN_EXPORTS |
integer myIter, myThid |
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
5 |
UPDATE_OCEAN_EXPORTS |
subroutine UPDATE_OCEAN_EXPORTS (myTime, myIter, myThid) |
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
79 |
UPDATE_OCEAN_EXPORTS |
DO BJ = myByLo(myThid),myByHi(myThid) |
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
80 |
UPDATE_OCEAN_EXPORTS |
DO BI = myBxLo(myThid),myBxHi(myThid) |
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
93 |
UPDATE_OCEAN_EXPORTS |
. ssttimes(1,bi,bj),sst,myThid) |
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
98 |
UPDATE_OCEAN_EXPORTS |
. sicetimes(1,bi,bj),sice,myThid) |
./model/src/ini_masks_etc.F |
10 |
INI_MASKS_ETC |
SUBROUTINE INI_MASKS_ETC( myThid ) |
./model/src/ini_masks_etc.F |
131 |
INI_MASKS_ETC |
DO bj=myByLo(myThid), myByHi(myThid) |
./model/src/ini_masks_etc.F |
132 |
INI_MASKS_ETC |
DO bi=myBxLo(myThid), myBxHi(myThid) |
./model/src/ini_masks_etc.F |
166 |
INI_MASKS_ETC |
I myThid ) |
./model/src/ini_masks_etc.F |
173 |
INI_MASKS_ETC |
DO bj=myByLo(myThid), myByHi(myThid) |
./model/src/ini_masks_etc.F |
174 |
INI_MASKS_ETC |
DO bi=myBxLo(myThid), myBxHi(myThid) |
./model/src/ini_masks_etc.F |
208 |
INI_MASKS_ETC |
& 'Model R_low (ini_masks_etc)', 1, myThid ) |
./model/src/ini_masks_etc.F |
210 |
INI_MASKS_ETC |
& 'Model Ro_surf (ini_masks_etc)', 1, myThid ) |
./model/src/ini_masks_etc.F |
214 |
INI_MASKS_ETC |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/ini_masks_etc.F |
215 |
INI_MASKS_ETC |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/ini_masks_etc.F |
233 |
INI_MASKS_ETC |
DO bj=myByLo(myThid), myByHi(myThid) |
./model/src/ini_masks_etc.F |
234 |
INI_MASKS_ETC |
DO bi=myBxLo(myThid), myBxHi(myThid) |
./model/src/ini_masks_etc.F |
283 |
INI_MASKS_ETC |
CALL EXCH_UV_XYZ_RS(hFacW,hFacS,.FALSE.,myThid) |
./model/src/ini_masks_etc.F |
284 |
INI_MASKS_ETC |
CALL EXCH_UV_XY_RS( rSurfW, rSurfS, .FALSE., myThid ) |
./model/src/ini_masks_etc.F |
285 |
INI_MASKS_ETC |
CALL EXCH_UV_XY_RS( rLowW, rLowS, .FALSE., myThid ) |
./model/src/ini_masks_etc.F |
290 |
INI_MASKS_ETC |
DO bj=myByLo(myThid), myByHi(myThid) |
./model/src/ini_masks_etc.F |
291 |
INI_MASKS_ETC |
DO bi=myBxLo(myThid), myBxHi(myThid) |
./model/src/ini_masks_etc.F |
304 |
INI_MASKS_ETC |
DO bj=myByLo(myThid), myByHi(myThid) |
./model/src/ini_masks_etc.F |
305 |
INI_MASKS_ETC |
DO bi=myBxLo(myThid), myBxHi(myThid) |
./model/src/ini_masks_etc.F |
326 |
INI_MASKS_ETC |
CALL INI_SIGMA_HFAC( myThid ) |
./model/src/ini_masks_etc.F |
340 |
INI_MASKS_ETC |
CALL PLOT_FIELD_XYZRS( hFacC, 'hFacC' , Nr, 1, myThid ) |
./model/src/ini_masks_etc.F |
341 |
INI_MASKS_ETC |
CALL PLOT_FIELD_XYZRS( hFacW, 'hFacW' , Nr, 1, myThid ) |
./model/src/ini_masks_etc.F |
342 |
INI_MASKS_ETC |
CALL PLOT_FIELD_XYZRS( hFacS, 'hFacS' , Nr, 1, myThid ) |
./model/src/ini_masks_etc.F |
346 |
INI_MASKS_ETC |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/ini_masks_etc.F |
347 |
INI_MASKS_ETC |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/ini_masks_etc.F |
36 |
INI_MASKS_ETC |
INTEGER myThid |
./model/src/ini_masks_etc.F |
51 |
INI_MASKS_ETC |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/ini_masks_etc.F |
52 |
INI_MASKS_ETC |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/ini_masks_etc.F |
91 |
INI_MASKS_ETC |
DO bj=myByLo(myThid), myByHi(myThid) |
./model/src/ini_masks_etc.F |
92 |
INI_MASKS_ETC |
DO bi=myBxLo(myThid), myBxHi(myThid) |
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
115 |
FIZHI_INIT_FIXED |
do bj = myByLo(myThid), myByHi(myThid) |
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
116 |
FIZHI_INIT_FIXED |
do bi = myBxLo(myThid), myBxHi(myThid) |
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
38 |
FIZHI_INIT_FIXED |
integer myThid |
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
5 |
FIZHI_INIT_FIXED |
subroutine FIZHI_INIT_FIXED (myThid) |
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
60 |
FIZHI_INIT_FIXED |
call FIZHI_MNC_INIT(myThid) |
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
66 |
FIZHI_INIT_FIXED |
do bj = myByLo(myThid), myByHi(myThid) |
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
67 |
FIZHI_INIT_FIXED |
do bi = myBxLo(myThid), myBxHi(myThid) |
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
82 |
FIZHI_INIT_FIXED |
do bj = myByLo(myThid), myByHi(myThid) |
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F |
83 |
FIZHI_INIT_FIXED |
do bi = myBxLo(myThid), myBxHi(myThid) |
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
135 |
FIZHI_INIT_VARS |
call CTOA(myThid,uvel,vvel,maskW,maskS,im1,im2,jm1,jm2,Nr, |
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
138 |
FIZHI_INIT_VARS |
do bj = myByLo(myThid), myByHi(myThid) |
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
139 |
FIZHI_INIT_VARS |
do bi = myBxLo(myThid), myBxHi(myThid) |
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
285 |
FIZHI_INIT_VARS |
call FIZHI_READ_PICKUP( nIter0, myThid ) |
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
286 |
FIZHI_INIT_VARS |
CALL FIZHI_READ_VEGTILES( nIter0, 'D', myThid ) |
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
38 |
FIZHI_INIT_VARS |
integer myThid |
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
5 |
FIZHI_INIT_VARS |
subroutine FIZHI_INIT_VARS (myThid) |
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
76 |
FIZHI_INIT_VARS |
do bj = myByLo(myThid), myByHi(myThid) |
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
77 |
FIZHI_INIT_VARS |
do bi = myBxLo(myThid), myBxHi(myThid) |
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
112 |
FIZHI_INIT_VEG |
DO BJ = myByLo(myThid), myByHi(myThid) |
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
113 |
FIZHI_INIT_VEG |
DO BI = myBxLo(myThid), myBxHi(myThid) |
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
71 |
FIZHI_INIT_VEG |
CALL READ_REC_XY_RS(aim_LandFile,aim_landFr,1,0,myThid) |
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
73 |
FIZHI_INIT_VEG |
DO BJ = myByLo(myThid), myByHi(myThid) |
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
74 |
FIZHI_INIT_VEG |
DO BI = myBxLo(myThid), myBxHi(myThid) |
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
113 |
FIZHI_TENDENCY_APPLY_T |
integer iMin, iMax, jMin, jMax, kLev, bi, bj, myThid |
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
128 |
FIZHI_TENDENCY_APPLY_S |
. bi,bj,kLev,myTime,myThid) |
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
153 |
FIZHI_TENDENCY_APPLY_S |
integer iMin, iMax, jMin, jMax, kLev, bi, bj, myThid |
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
32 |
FIZHI_TENDENCY_APPLY_U |
integer iMin, iMax, jMin, jMax, kLev, bi, bj, myThid |
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
47 |
FIZHI_TENDENCY_APPLY_V |
. bi,bj,kLev,myTime,myThid) |
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
6 |
FIZHI_TENDENCY_APPLY_U |
. bi,bj,kLev,myTime,myThid) |
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
73 |
FIZHI_TENDENCY_APPLY_V |
integer iMin, iMax, jMin, jMax, kLev, bi, bj, myThid |
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
88 |
FIZHI_TENDENCY_APPLY_T |
. bi,bj,kLev,myTime,myThid) |
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
21 |
UPDATE_OCEAN_EXPORTS |
integer myIter, myThid |
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
43 |
UPDATE_OCEAN_EXPORTS |
DO BJ = myByLo(myThid),myByHi(myThid) |
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
44 |
UPDATE_OCEAN_EXPORTS |
DO BI = myBxLo(myThid),myBxHi(myThid) |
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
5 |
UPDATE_OCEAN_EXPORTS |
subroutine UPDATE_OCEAN_EXPORTS (myTime, myIter, myThid) |
./model/src/ini_mixing.F |
14 |
INI_MIXING |
SUBROUTINE INI_MIXING( myThid ) |
./model/src/ini_mixing.F |
37 |
INI_MIXING |
INTEGER myThid |
./model/src/ini_mixing.F |
47 |
INI_MIXING |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/ini_mixing.F |
48 |
INI_MIXING |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/ini_mixing.F |
68 |
INI_MIXING |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/ini_mixing.F |
69 |
INI_MIXING |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/ini_mixing.F |
84 |
INI_MIXING |
CALL READ_FLD_XYZ_RL(diffKrFile,' ',diffKr,0,myThid) |
./model/src/ini_mixing.F |
85 |
INI_MIXING |
_EXCH_XYZ_RL(diffKr , myThid ) |
./model/src/ini_mixing.F |
89 |
INI_MIXING |
_EXCH_XYZ_RL(KapGM, myThid ) |
./model/src/ini_mixing.F |
92 |
INI_MIXING |
_EXCH_XYZ_RL(kapredi, myThid ) |
./model/src/ini_mnc_vars.F |
101 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('RC', '-_-_--__C__-', 0,0, myThid) |
./model/src/ini_mnc_vars.F |
103 |
INI_MNC_VARS |
& 'R coordinate of cell center',myThid) |
./model/src/ini_mnc_vars.F |
105 |
INI_MNC_VARS |
& 'units', 'm', myThid) |
./model/src/ini_mnc_vars.F |
108 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('RF', '-_-_--__I__-', 0,0, myThid) |
./model/src/ini_mnc_vars.F |
110 |
INI_MNC_VARS |
& 'R coordinate of cell interface',myThid) |
./model/src/ini_mnc_vars.F |
112 |
INI_MNC_VARS |
& 'units', 'm', myThid) |
./model/src/ini_mnc_vars.F |
115 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('RL', '-_-_--__L__-', 0,0, myThid) |
./model/src/ini_mnc_vars.F |
117 |
INI_MNC_VARS |
& 'R coordinate of lower interface',myThid) |
./model/src/ini_mnc_vars.F |
119 |
INI_MNC_VARS |
& 'units', 'm', myThid) |
./model/src/ini_mnc_vars.F |
122 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('RU', '-_-_--__U__-', 0,0, myThid) |
./model/src/ini_mnc_vars.F |
124 |
INI_MNC_VARS |
& 'R coordinate of upper interface',myThid) |
./model/src/ini_mnc_vars.F |
126 |
INI_MNC_VARS |
& 'units', 'm', myThid) |
./model/src/ini_mnc_vars.F |
131 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('drC', '-_-_--__C__-', 0,0, myThid) |
./model/src/ini_mnc_vars.F |
132 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('drF', '-_-_--__C__-', 0,0, myThid) |
./model/src/ini_mnc_vars.F |
133 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('dxC', 'U_xy_Hn__-__-', 3,4, myThid) |
./model/src/ini_mnc_vars.F |
134 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('dyC', 'V_xy_Hn__-__-', 3,4, myThid) |
./model/src/ini_mnc_vars.F |
135 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('dxF', 'Cen_xy_Hn__-__-', 3,4, myThid) |
./model/src/ini_mnc_vars.F |
136 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('dyF', 'Cen_xy_Hn__-__-', 3,4, myThid) |
./model/src/ini_mnc_vars.F |
137 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('dxG', 'V_xy_Hn__-__-', 3,4, myThid) |
./model/src/ini_mnc_vars.F |
138 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('dyG', 'U_xy_Hn__-__-', 3,4, myThid) |
./model/src/ini_mnc_vars.F |
139 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('dxV', 'Cor_xy_Hn__-__-', 3,4, myThid) |
./model/src/ini_mnc_vars.F |
13 |
INI_MNC_VARS |
SUBROUTINE INI_MNC_VARS( myThid ) |
./model/src/ini_mnc_vars.F |
140 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('dyU', 'Cor_xy_Hn__-__-', 3,4, myThid) |
./model/src/ini_mnc_vars.F |
141 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('rA', 'Cen_xy_Hn__-__-', 3,4, myThid) |
./model/src/ini_mnc_vars.F |
142 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('rAw', 'U_xy_Hn__-__-', 3,4, myThid) |
./model/src/ini_mnc_vars.F |
143 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('rAs', 'V_xy_Hn__-__-', 3,4, myThid) |
./model/src/ini_mnc_vars.F |
144 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('rAz', 'Cor_xy_Hn__-__-', 3,4, myThid) |
./model/src/ini_mnc_vars.F |
145 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('AngleCS','Cen_xy_Hn__-__-', 3,4,myThid) |
./model/src/ini_mnc_vars.F |
146 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('AngleSN','Cen_xy_Hn__-__-', 3,4,myThid) |
./model/src/ini_mnc_vars.F |
147 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('fCori', 'Cen_xy_Hn__-__-', 3,4,myThid) |
./model/src/ini_mnc_vars.F |
148 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('fCoriG','Cor_xy_Hn__-__-', 3,4,myThid) |
./model/src/ini_mnc_vars.F |
149 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('R_low', 'Cen_xy_Hn__-__-', 3,4,myThid) |
./model/src/ini_mnc_vars.F |
150 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('Ro_surf','Cen_xy_Hn__-__-',3,4,myThid) |
./model/src/ini_mnc_vars.F |
151 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('Depth', 'Cen_xy_Hn__-__-', 3,4,myThid) |
./model/src/ini_mnc_vars.F |
152 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('HFacC', 'Cen_xy_Hn__C__-', 4,5,myThid) |
./model/src/ini_mnc_vars.F |
153 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('HFacW', 'U_xy_Hn__C__-', 4,5,myThid) |
./model/src/ini_mnc_vars.F |
154 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('HFacS', 'V_xy_Hn__C__-', 4,5,myThid) |
./model/src/ini_mnc_vars.F |
157 |
INI_MNC_VARS |
& 'r cell center separation',myThid) |
./model/src/ini_mnc_vars.F |
159 |
INI_MNC_VARS |
& 'r cell face separation',myThid) |
./model/src/ini_mnc_vars.F |
161 |
INI_MNC_VARS |
& 'x cell center separation',myThid) |
./model/src/ini_mnc_vars.F |
163 |
INI_MNC_VARS |
& 'y cell center separation',myThid) |
./model/src/ini_mnc_vars.F |
165 |
INI_MNC_VARS |
& 'x cell face separation',myThid) |
./model/src/ini_mnc_vars.F |
167 |
INI_MNC_VARS |
& 'y cell face separation',myThid) |
./model/src/ini_mnc_vars.F |
169 |
INI_MNC_VARS |
& 'x cell corner separation',myThid) |
./model/src/ini_mnc_vars.F |
171 |
INI_MNC_VARS |
& 'y cell corner separation',myThid) |
./model/src/ini_mnc_vars.F |
173 |
INI_MNC_VARS |
& 'x v-velocity separation',myThid) |
./model/src/ini_mnc_vars.F |
175 |
INI_MNC_VARS |
& 'y u-velocity separation',myThid) |
./model/src/ini_mnc_vars.F |
177 |
INI_MNC_VARS |
& 'r-face area at cell center',myThid) |
./model/src/ini_mnc_vars.F |
179 |
INI_MNC_VARS |
& 'r-face area at U point',myThid) |
./model/src/ini_mnc_vars.F |
181 |
INI_MNC_VARS |
& 'r-face area at V point',myThid) |
./model/src/ini_mnc_vars.F |
183 |
INI_MNC_VARS |
& 'r-face area at cell corner',myThid) |
./model/src/ini_mnc_vars.F |
185 |
INI_MNC_VARS |
& 'Cos of grid orientation angle at cell center',myThid) |
./model/src/ini_mnc_vars.F |
187 |
INI_MNC_VARS |
& 'Sin of grid orientation angle at cell center',myThid) |
./model/src/ini_mnc_vars.F |
189 |
INI_MNC_VARS |
& 'Coriolis f at cell center',myThid) |
./model/src/ini_mnc_vars.F |
191 |
INI_MNC_VARS |
& 'Coriolis f at cell corner',myThid) |
./model/src/ini_mnc_vars.F |
193 |
INI_MNC_VARS |
& 'base of fluid in r-units',myThid) |
./model/src/ini_mnc_vars.F |
195 |
INI_MNC_VARS |
& 'surface reference (at rest) position',myThid) |
./model/src/ini_mnc_vars.F |
197 |
INI_MNC_VARS |
& 'fluid thickness in r coordinates (at rest)',myThid) |
./model/src/ini_mnc_vars.F |
199 |
INI_MNC_VARS |
& 'vertical fraction of open cell at cell center',myThid) |
./model/src/ini_mnc_vars.F |
201 |
INI_MNC_VARS |
& 'vertical fraction of open cell at West face', myThid) |
./model/src/ini_mnc_vars.F |
203 |
INI_MNC_VARS |
& 'vertical fraction of open cell at South face',myThid) |
./model/src/ini_mnc_vars.F |
207 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('T', '-_-_--__-__t', 0,0, myThid) |
./model/src/ini_mnc_vars.F |
209 |
INI_MNC_VARS |
& 'long_name','model_time', myThid) |
./model/src/ini_mnc_vars.F |
222 |
INI_MNC_VARS |
& 'units',timeUnits, myThid) |
./model/src/ini_mnc_vars.F |
228 |
INI_MNC_VARS |
& 'units','s', myThid) |
./model/src/ini_mnc_vars.F |
231 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('iter', '-_-_--__-__t', 0,0, myThid) |
./model/src/ini_mnc_vars.F |
233 |
INI_MNC_VARS |
& 'long_name','iteration_count', myThid) |
./model/src/ini_mnc_vars.F |
235 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('model_time', '-_-_--__-__t', 0,0, myThid) |
./model/src/ini_mnc_vars.F |
237 |
INI_MNC_VARS |
& 'long_name','Model Time', myThid) |
./model/src/ini_mnc_vars.F |
238 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VATTR_TEXT('model_time','units','s', myThid) |
./model/src/ini_mnc_vars.F |
240 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('U', 'U_xy_Hn__C__t', 4,5, myThid) |
./model/src/ini_mnc_vars.F |
241 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VATTR_TEXT('U','units','m/s', myThid) |
./model/src/ini_mnc_vars.F |
243 |
INI_MNC_VARS |
& 'coordinates','XU YU RC iter', myThid) |
./model/src/ini_mnc_vars.F |
245 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('V', 'V_xy_Hn__C__t', 4,5, myThid) |
./model/src/ini_mnc_vars.F |
246 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VATTR_TEXT('V','units','m/s', myThid) |
./model/src/ini_mnc_vars.F |
248 |
INI_MNC_VARS |
& 'coordinates','XV YV RC iter', myThid) |
./model/src/ini_mnc_vars.F |
250 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('Temp', 'Cen_xy_Hn__C__t', 4,5, myThid) |
./model/src/ini_mnc_vars.F |
251 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VATTR_TEXT('Temp','units','degC', myThid) |
./model/src/ini_mnc_vars.F |
253 |
INI_MNC_VARS |
& 'potential_temperature', myThid) |
./model/src/ini_mnc_vars.F |
255 |
INI_MNC_VARS |
& 'coordinates','XC YC RC iter', myThid) |
./model/src/ini_mnc_vars.F |
257 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('S', 'Cen_xy_Hn__C__t', 4,5, myThid) |
./model/src/ini_mnc_vars.F |
259 |
INI_MNC_VARS |
& 'salinity', myThid) |
./model/src/ini_mnc_vars.F |
261 |
INI_MNC_VARS |
& 'coordinates','XC YC RC iter', myThid) |
./model/src/ini_mnc_vars.F |
263 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('gUnm1', 'U_xy_Hn__C__t', 4,5, myThid) |
./model/src/ini_mnc_vars.F |
264 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('gVnm1', 'V_xy_Hn__C__t', 4,5, myThid) |
./model/src/ini_mnc_vars.F |
265 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('gTnm1', 'Cen_xy_Hn__C__t', 4,5, myThid) |
./model/src/ini_mnc_vars.F |
266 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('gSnm1', 'Cen_xy_Hn__C__t', 4,5, myThid) |
./model/src/ini_mnc_vars.F |
268 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('Eta', 'Cen_xy_Hn__-__t', 3,4, myThid) |
./model/src/ini_mnc_vars.F |
270 |
INI_MNC_VARS |
& 'free-surface_r-anomaly', myThid) |
./model/src/ini_mnc_vars.F |
271 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VATTR_TEXT('Eta','units','m', myThid) |
./model/src/ini_mnc_vars.F |
273 |
INI_MNC_VARS |
& 'coordinates','XC YC iter', myThid) |
./model/src/ini_mnc_vars.F |
275 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('EtaH', 'Cen_xy_Hn__-__t', 3,4, myThid) |
./model/src/ini_mnc_vars.F |
277 |
INI_MNC_VARS |
& 'column-thickness_r-anomaly', myThid) |
./model/src/ini_mnc_vars.F |
278 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VATTR_TEXT('EtaH','units','m', myThid) |
./model/src/ini_mnc_vars.F |
280 |
INI_MNC_VARS |
& 'coordinates','XC YC iter', myThid) |
./model/src/ini_mnc_vars.F |
281 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('dEtaHdt', 'Cen_xy_Hn__-__t', 3,4, myThid) |
./model/src/ini_mnc_vars.F |
283 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('W', 'Cen_xy_Hn__L__t', 4,5, myThid) |
./model/src/ini_mnc_vars.F |
284 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VATTR_TEXT('W','units','m/s', myThid) |
./model/src/ini_mnc_vars.F |
286 |
INI_MNC_VARS |
& 'coordinates','XC YC RC iter', myThid) |
./model/src/ini_mnc_vars.F |
288 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('phiHyd', 'Cen_xy_Hn__C__t', 4,5, myThid) |
./model/src/ini_mnc_vars.F |
289 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('phiHydLow', 'Cen_xy_Hn__-__t', 3,4, myThid) |
./model/src/ini_mnc_vars.F |
290 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('phi_nh', 'Cen_xy_Hn__C__t', 4,5, myThid) |
./model/src/ini_mnc_vars.F |
291 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('gW', 'Cen_xy_Hn__L__t', 4,5, myThid) |
./model/src/ini_mnc_vars.F |
292 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('gWnm1', 'Cen_xy_Hn__L__t', 4,5, myThid) |
./model/src/ini_mnc_vars.F |
313 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('fV', 'V_xy_Hn__C__t', 0,0, myThid) |
./model/src/ini_mnc_vars.F |
314 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VATTR_TEXT('fV','units','m/s^2', myThid) |
./model/src/ini_mnc_vars.F |
316 |
INI_MNC_VARS |
& 'Merid. Planetary Coriolis Acceleration (f x U)', myThid) |
./model/src/ini_mnc_vars.F |
318 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('fU', 'U_xy_Hn__C__t', 0,0, myThid) |
./model/src/ini_mnc_vars.F |
319 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VATTR_TEXT('fU','units','m/s^2', myThid) |
./model/src/ini_mnc_vars.F |
31 |
INI_MNC_VARS |
INTEGER myThid |
./model/src/ini_mnc_vars.F |
321 |
INI_MNC_VARS |
& 'Zonal. Planetary Coriolis Acceleration (f x V)', myThid) |
./model/src/ini_mnc_vars.F |
323 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('zV', 'V_xy_Hn__C__t', 0,0, myThid) |
./model/src/ini_mnc_vars.F |
324 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VATTR_TEXT('zV','units','m/s^2', myThid) |
./model/src/ini_mnc_vars.F |
326 |
INI_MNC_VARS |
& 'Merid. Relative Coriolis Acceleration (Zeta x U)', myThid) |
./model/src/ini_mnc_vars.F |
328 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('zU', 'U_xy_Hn__C__t', 0,0, myThid) |
./model/src/ini_mnc_vars.F |
329 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VATTR_TEXT('zU','units','m/s^2', myThid) |
./model/src/ini_mnc_vars.F |
331 |
INI_MNC_VARS |
& 'Zonal. Relative Coriolis Acceleration (Zeta x V)', myThid) |
./model/src/ini_mnc_vars.F |
333 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('KEx','U_xy_Hn__C__t', 0,0, myThid) |
./model/src/ini_mnc_vars.F |
334 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VATTR_TEXT('KEx','units','m/s^2', myThid) |
./model/src/ini_mnc_vars.F |
336 |
INI_MNC_VARS |
& 'Kinetic Energy Gradient Zonal Acceleration', myThid) |
./model/src/ini_mnc_vars.F |
338 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('KEy','V_xy_Hn__C__t', 0,0, myThid) |
./model/src/ini_mnc_vars.F |
339 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VATTR_TEXT('KEx','units','m/s^2', myThid) |
./model/src/ini_mnc_vars.F |
341 |
INI_MNC_VARS |
& 'Kinetic Energy Gradient Merid. Acceleration', myThid) |
./model/src/ini_mnc_vars.F |
343 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('Ds', 'Cor_xy_Hn__C__t', 0,0, myThid) |
./model/src/ini_mnc_vars.F |
344 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VATTR_TEXT('Ds','units','1/s', myThid) |
./model/src/ini_mnc_vars.F |
346 |
INI_MNC_VARS |
& 'Horiz. Velocity Shear Strain Rate (u_y+v_x)', myThid) |
./model/src/ini_mnc_vars.F |
348 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('Dt', 'Cen_xy_Hn__C__t', 0,0, myThid) |
./model/src/ini_mnc_vars.F |
349 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VATTR_TEXT('Dt','units','1/s', myThid) |
./model/src/ini_mnc_vars.F |
351 |
INI_MNC_VARS |
& 'Horiz. Velocity Tension Rate (u_x-v_y)', myThid) |
./model/src/ini_mnc_vars.F |
353 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('Du', 'U_xy_Hn__C__t', 0,0, myThid) |
./model/src/ini_mnc_vars.F |
354 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VATTR_TEXT('Du','units','m/s^2', myThid) |
./model/src/ini_mnc_vars.F |
356 |
INI_MNC_VARS |
& 'Explicit Viscous Zonal Acceleration', myThid) |
./model/src/ini_mnc_vars.F |
358 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('Dv', 'V_xy_Hn__C__t', 0,0, myThid) |
./model/src/ini_mnc_vars.F |
359 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VATTR_TEXT('Dv','units','m/s^2', myThid) |
./model/src/ini_mnc_vars.F |
361 |
INI_MNC_VARS |
& 'Explicit Viscous Merid. Acceleration', myThid) |
./model/src/ini_mnc_vars.F |
363 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('Z3', 'Cor_xy_Hn__C__t', 0,0, myThid) |
./model/src/ini_mnc_vars.F |
364 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VATTR_TEXT('Z3','units','1/s', myThid) |
./model/src/ini_mnc_vars.F |
366 |
INI_MNC_VARS |
& 'Vertical Relative Vorticity (v_x-u_y)', myThid) |
./model/src/ini_mnc_vars.F |
368 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('W3', 'Cor_xy_Hn__C__t', 0,0, myThid) |
./model/src/ini_mnc_vars.F |
369 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VATTR_TEXT('W3','units','1/s', myThid) |
./model/src/ini_mnc_vars.F |
371 |
INI_MNC_VARS |
& 'Vertical Absolute Vorticity (v_x-u_y+f)', myThid) |
./model/src/ini_mnc_vars.F |
373 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('KE', 'Cen_xy_Hn__C__t', 0,0, myThid) |
./model/src/ini_mnc_vars.F |
374 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VATTR_TEXT('KE','units','1/s', myThid) |
./model/src/ini_mnc_vars.F |
376 |
INI_MNC_VARS |
& 'Kinetic Energy of Horiz. Vel. (u^2+v^2)/2', myThid) |
./model/src/ini_mnc_vars.F |
378 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('D', 'Cen_xy_Hn__C__t', 0,0, myThid) |
./model/src/ini_mnc_vars.F |
379 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VATTR_TEXT('D','units','1/s', myThid) |
./model/src/ini_mnc_vars.F |
381 |
INI_MNC_VARS |
& 'Divergence of Horiz. Vel. (u_x+v_y)', myThid) |
./model/src/ini_mnc_vars.F |
384 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('fu', 'U_xy_Hn__-__t', 3,4, myThid) |
./model/src/ini_mnc_vars.F |
385 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VATTR_TEXT('fu','units','N/m^2', myThid) |
./model/src/ini_mnc_vars.F |
387 |
INI_MNC_VARS |
& 'Zonal surface wind stress', myThid) |
./model/src/ini_mnc_vars.F |
389 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('fv', 'V_xy_Hn__-__t', 3,4, myThid) |
./model/src/ini_mnc_vars.F |
390 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VATTR_TEXT('fv','units','N/m^2', myThid) |
./model/src/ini_mnc_vars.F |
392 |
INI_MNC_VARS |
& 'Meridional surface wind stress', myThid) |
./model/src/ini_mnc_vars.F |
394 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('Qnet', 'Cen_xy_Hn__-__t', 3,4, myThid) |
./model/src/ini_mnc_vars.F |
395 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VATTR_TEXT('Qnet','units','W/m^2', myThid) |
./model/src/ini_mnc_vars.F |
398 |
INI_MNC_VARS |
& myThid) |
./model/src/ini_mnc_vars.F |
400 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('Qsw', 'Cen_xy_Hn__-__t', 3,4, myThid) |
./model/src/ini_mnc_vars.F |
401 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VATTR_TEXT('Qsw','units','W/m^2', myThid) |
./model/src/ini_mnc_vars.F |
403 |
INI_MNC_VARS |
& 'Net upward shortwave radiation', myThid) |
./model/src/ini_mnc_vars.F |
405 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('dQdt', 'Cen_xy_Hn__-__t', 3,4, myThid) |
./model/src/ini_mnc_vars.F |
407 |
INI_MNC_VARS |
& 'W/m^2/degrees', myThid) |
./model/src/ini_mnc_vars.F |
409 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('EmPmR', 'Cen_xy_Hn__-__t', 3,4, myThid) |
./model/src/ini_mnc_vars.F |
410 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VATTR_TEXT('EmPmR','units','kg/m^2/s', myThid) |
./model/src/ini_mnc_vars.F |
412 |
INI_MNC_VARS |
& 'Net upward freshwater flux', myThid) |
./model/src/ini_mnc_vars.F |
414 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('saltFlux', 'Cen_xy_Hn__-__t', 3,4, myThid) |
./model/src/ini_mnc_vars.F |
416 |
INI_MNC_VARS |
& 'psu.kg/m^2/s', myThid) |
./model/src/ini_mnc_vars.F |
418 |
INI_MNC_VARS |
& 'Net upward salt flux', myThid) |
./model/src/ini_mnc_vars.F |
420 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('SST', 'Cen_xy_Hn__-__t', 3,4, myThid) |
./model/src/ini_mnc_vars.F |
421 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VATTR_TEXT('SST','units','deg C', myThid) |
./model/src/ini_mnc_vars.F |
423 |
INI_MNC_VARS |
& ' Sea surface temperature for relaxation', myThid) |
./model/src/ini_mnc_vars.F |
425 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('SSS', 'Cen_xy_Hn__-__t', 3,4, myThid) |
./model/src/ini_mnc_vars.F |
426 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VATTR_TEXT('SSS','units','psu', myThid) |
./model/src/ini_mnc_vars.F |
428 |
INI_MNC_VARS |
& 'Sea surface salinity for relaxation', myThid) |
./model/src/ini_mnc_vars.F |
45 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('XC', 'Cen_xy_Hn__-__-', 3,4, myThid) |
./model/src/ini_mnc_vars.F |
47 |
INI_MNC_VARS |
& 'X coordinate of cell center (T-P point)',myThid) |
./model/src/ini_mnc_vars.F |
49 |
INI_MNC_VARS |
& 'units', 'degree_east', myThid) |
./model/src/ini_mnc_vars.F |
52 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('YC', 'Cen_xy_Hn__-__-', 3,4, myThid) |
./model/src/ini_mnc_vars.F |
54 |
INI_MNC_VARS |
& 'Y coordinate of cell center (T-P point)',myThid) |
./model/src/ini_mnc_vars.F |
56 |
INI_MNC_VARS |
& 'units', 'degree_north', myThid) |
./model/src/ini_mnc_vars.F |
59 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('XU', 'U_xy_Hn__-__-', 3,4, myThid) |
./model/src/ini_mnc_vars.F |
61 |
INI_MNC_VARS |
& 'X coordinate of U point',myThid) |
./model/src/ini_mnc_vars.F |
63 |
INI_MNC_VARS |
& 'units', 'degree_east', myThid) |
./model/src/ini_mnc_vars.F |
66 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('YU', 'U_xy_Hn__-__-', 3,4, myThid) |
./model/src/ini_mnc_vars.F |
68 |
INI_MNC_VARS |
& 'Y coordinate of U point',myThid) |
./model/src/ini_mnc_vars.F |
70 |
INI_MNC_VARS |
& 'units', 'degree_north', myThid) |
./model/src/ini_mnc_vars.F |
73 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('XV', 'V_xy_Hn__-__-', 3,4, myThid) |
./model/src/ini_mnc_vars.F |
75 |
INI_MNC_VARS |
& 'X coordinate of V point',myThid) |
./model/src/ini_mnc_vars.F |
77 |
INI_MNC_VARS |
& 'units', 'degree_east', myThid) |
./model/src/ini_mnc_vars.F |
80 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('YV', 'V_xy_Hn__-__-', 3,4, myThid) |
./model/src/ini_mnc_vars.F |
82 |
INI_MNC_VARS |
& 'Y coordinate of V point',myThid) |
./model/src/ini_mnc_vars.F |
84 |
INI_MNC_VARS |
& 'units', 'degree_north', myThid) |
./model/src/ini_mnc_vars.F |
87 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('XG', 'Cor_xy_Hn__-__-', 3,4, myThid) |
./model/src/ini_mnc_vars.F |
89 |
INI_MNC_VARS |
& 'X coordinate of cell corner (Vorticity point)',myThid) |
./model/src/ini_mnc_vars.F |
91 |
INI_MNC_VARS |
& 'units', 'degree_east', myThid) |
./model/src/ini_mnc_vars.F |
94 |
INI_MNC_VARS |
CALL MNC_CW_ADD_VNAME('YG', 'Cor_xy_Hn__-__-', 3,4, myThid) |
./model/src/ini_mnc_vars.F |
96 |
INI_MNC_VARS |
& 'Y coordinate of cell corner (Vorticity point)',myThid) |
./model/src/ini_mnc_vars.F |
98 |
INI_MNC_VARS |
& 'units', 'degree_north', myThid) |
./model/src/ini_model_io.F |
106 |
INI_MODEL_IO |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_model_io.F |
110 |
INI_MODEL_IO |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_model_io.F |
118 |
INI_MODEL_IO |
_BEGIN_MASTER( myThid ) |
./model/src/ini_model_io.F |
11 |
INI_MODEL_IO |
SUBROUTINE INI_MODEL_IO( myThid ) |
./model/src/ini_model_io.F |
164 |
INI_MODEL_IO |
CALL READ_MFLDS_INIT( myThid ) |
./model/src/ini_model_io.F |
175 |
INI_MODEL_IO |
& SQUEEZE_RIGHT, myThid ) |
./model/src/ini_model_io.F |
183 |
INI_MODEL_IO |
_END_MASTER( myThid ) |
./model/src/ini_model_io.F |
189 |
INI_MODEL_IO |
_BEGIN_MASTER( myThid ) |
./model/src/ini_model_io.F |
194 |
INI_MODEL_IO |
_END_MASTER( myThid ) |
./model/src/ini_model_io.F |
203 |
INI_MODEL_IO |
CALL MNC_INIT( myThid ) |
./model/src/ini_model_io.F |
205 |
INI_MODEL_IO |
& Nr,myThid ) |
./model/src/ini_model_io.F |
212 |
INI_MODEL_IO |
CALL INI_MNC_VARS( myThid ) |
./model/src/ini_model_io.F |
215 |
INI_MODEL_IO |
CALL AUTODIFF_INI_MODEL_IO( myThid ) |
./model/src/ini_model_io.F |
223 |
INI_MODEL_IO |
CALL MON_INIT( myThid ) |
./model/src/ini_model_io.F |
36 |
INI_MODEL_IO |
INTEGER myThid |
./model/src/ini_model_io.F |
59 |
INI_MODEL_IO |
_BEGIN_MASTER( myThid ) |
./model/src/ini_model_io.F |
83 |
INI_MODEL_IO |
& SQUEEZE_RIGHT, myThid ) |
./model/src/ini_model_io.F |
87 |
INI_MODEL_IO |
& SQUEEZE_RIGHT, myThid ) |
./model/src/ini_model_io.F |
88 |
INI_MODEL_IO |
_END_MASTER( myThid ) |
./verification/global1x1_tot/code/autodiff_inadmode_set_ad.F |
19 |
ADAUTODIFF_INADMODE_SET |
integer myThid |
./verification/global1x1_tot/code/autodiff_inadmode_set_ad.F |
6 |
ADAUTODIFF_INADMODE_SET |
subroutine ADAUTODIFF_INADMODE_SET( myThid ) |
./verification/global1x1_tot/code/autodiff_inadmode_unset_ad.F |
19 |
ADAUTODIFF_INADMODE_UNSET |
integer myThid |
./verification/global1x1_tot/code/autodiff_inadmode_unset_ad.F |
6 |
ADAUTODIFF_INADMODE_UNSET |
subroutine ADAUTODIFF_INADMODE_UNSET( myThid ) |
./verification/global1x1_tot/code/ecco_cost_weights.F |
219 |
ECCO_COST_WEIGHTS |
_BEGIN_MASTER(myThid) |
./verification/global1x1_tot/code/ecco_cost_weights.F |
226 |
ECCO_COST_WEIGHTS |
I myThid ) |
./verification/global1x1_tot/code/ecco_cost_weights.F |
261 |
ECCO_COST_WEIGHTS |
_END_MASTER(myThid) |
./model/src/ini_nh_fields.F |
124 |
INI_NH_FIELDS |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/ini_nh_fields.F |
125 |
INI_NH_FIELDS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/ini_nh_fields.F |
38 |
INI_NH_FIELDS |
INTEGER myThid |
./model/src/ini_nh_fields.F |
65 |
INI_NH_FIELDS |
& SQUEEZE_RIGHT, myThid ) |
./model/src/ini_nh_fields.F |
70 |
INI_NH_FIELDS |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/ini_nh_fields.F |
71 |
INI_NH_FIELDS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/ini_nh_fields.F |
9 |
INI_NH_FIELDS |
SUBROUTINE INI_NH_FIELDS( myThid ) |
./verification/global1x1_tot/code_bulk_adj/autodiff_inadmode_set_ad.F |
18 |
ADAUTODIFF_INADMODE_SET |
integer myThid |
./verification/global1x1_tot/code_bulk_adj/autodiff_inadmode_set_ad.F |
5 |
ADAUTODIFF_INADMODE_SET |
subroutine ADAUTODIFF_INADMODE_SET( myThid ) |
./verification/global1x1_tot/code_bulk_adj/autodiff_inadmode_unset_ad.F |
18 |
ADAUTODIFF_INADMODE_UNSET |
integer myThid |
./verification/global1x1_tot/code_bulk_adj/autodiff_inadmode_unset_ad.F |
5 |
ADAUTODIFF_INADMODE_UNSET |
subroutine ADAUTODIFF_INADMODE_UNSET( myThid ) |
./model/src/ini_nh_vars.F |
30 |
INI_NH_VARS |
INTEGER myThid |
./model/src/ini_nh_vars.F |
44 |
INI_NH_VARS |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/ini_nh_vars.F |
45 |
INI_NH_VARS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/ini_nh_vars.F |
9 |
INI_NH_VARS |
SUBROUTINE INI_NH_VARS ( myThid ) |
./verification/global1x1_tot/code_seaice_adj/autodiff_inadmode_set_ad.F |
18 |
ADAUTODIFF_INADMODE_SET |
integer myThid |
./verification/global1x1_tot/code_seaice_adj/autodiff_inadmode_set_ad.F |
5 |
ADAUTODIFF_INADMODE_SET |
subroutine ADAUTODIFF_INADMODE_SET( myThid ) |
./verification/global1x1_tot/code_seaice_adj/autodiff_inadmode_unset_ad.F |
18 |
ADAUTODIFF_INADMODE_UNSET |
integer myThid |
./verification/global1x1_tot/code_seaice_adj/autodiff_inadmode_unset_ad.F |
5 |
ADAUTODIFF_INADMODE_UNSET |
subroutine ADAUTODIFF_INADMODE_UNSET( myThid ) |
./model/src/ini_nlfs_vars.F |
146 |
INI_NLFS_VARS |
CALL EXCH_UV_XY_RL( etaHw, etaHs, .FALSE., myThid ) |
./model/src/ini_nlfs_vars.F |
147 |
INI_NLFS_VARS |
CALL EXCH_XY_RL( Rmin_surf, myThid ) |
./model/src/ini_nlfs_vars.F |
152 |
INI_NLFS_VARS |
IF (debugMode) CALL DEBUG_LEAVE('INI_NLFS_VARS',myThid) |
./model/src/ini_nlfs_vars.F |
31 |
INI_NLFS_VARS |
INTEGER myThid |
./model/src/ini_nlfs_vars.F |
47 |
INI_NLFS_VARS |
IF (debugMode) CALL DEBUG_ENTER('INI_NLFS_VARS',myThid) |
./model/src/ini_nlfs_vars.F |
52 |
INI_NLFS_VARS |
DO bj=myByLo(myThid), myByHi(myThid) |
./model/src/ini_nlfs_vars.F |
53 |
INI_NLFS_VARS |
DO bi=myBxLo(myThid), myBxHi(myThid) |
./model/src/ini_nlfs_vars.F |
98 |
INI_NLFS_VARS |
DO bj=myByLo(myThid), myByHi(myThid) |
./model/src/ini_nlfs_vars.F |
99 |
INI_NLFS_VARS |
DO bi=myBxLo(myThid), myBxHi(myThid) |
./model/src/ini_nlfs_vars.F |
9 |
INI_NLFS_VARS |
SUBROUTINE INI_NLFS_VARS( myThid ) |
./verification/global1x1_tot/code_taueddy/autodiff_inadmode_set_ad.F |
18 |
ADAUTODIFF_INADMODE_SET |
integer myThid |
./verification/global1x1_tot/code_taueddy/autodiff_inadmode_set_ad.F |
5 |
ADAUTODIFF_INADMODE_SET |
subroutine ADAUTODIFF_INADMODE_SET( myThid ) |
./verification/global1x1_tot/code_taueddy/autodiff_inadmode_unset_ad.F |
18 |
ADAUTODIFF_INADMODE_UNSET |
integer myThid |
./verification/global1x1_tot/code_taueddy/autodiff_inadmode_unset_ad.F |
5 |
ADAUTODIFF_INADMODE_UNSET |
subroutine ADAUTODIFF_INADMODE_UNSET( myThid ) |
./verification/global1x1_tot/code_taueddy/cfc_atmos.F |
24 |
CFC_ATMOS |
INTEGER myThid |
./verification/global1x1_tot/code_taueddy/cfc_atmos.F |
37 |
CFC_ATMOS |
DO bj = myByLo(myThid), myByHi(myThid) |
./verification/global1x1_tot/code_taueddy/cfc_atmos.F |
38 |
CFC_ATMOS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./verification/global1x1_tot/code_taueddy/cfc_atmos.F |
6 |
CFC_ATMOS |
SUBROUTINE CFC_ATMOS( myThid ) |
./verification/global1x1_tot/code_taueddy/cfc_atmos.F |
74 |
CFC_ATMOS |
_END_MASTER(myThid) |
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
217 |
ECCO_COST_WEIGHTS |
_BEGIN_MASTER(myThid) |
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
224 |
ECCO_COST_WEIGHTS |
I myThid ) |
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
259 |
ECCO_COST_WEIGHTS |
_END_MASTER(myThid) |
./model/src/ini_p_ground.F |
103 |
INI_P_GROUND |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/ini_p_ground.F |
104 |
INI_P_GROUND |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/ini_p_ground.F |
12 |
INI_P_GROUND |
I myThid ) |
./model/src/ini_p_ground.F |
173 |
INI_P_GROUND |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/ini_p_ground.F |
174 |
INI_P_GROUND |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/ini_p_ground.F |
208 |
INI_P_GROUND |
CALL PRINT_ERROR( msgBuf , myThid) |
./model/src/ini_p_ground.F |
212 |
INI_P_GROUND |
CALL PRINT_ERROR( msgBuf , myThid) |
./model/src/ini_p_ground.F |
264 |
INI_P_GROUND |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/ini_p_ground.F |
265 |
INI_P_GROUND |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/ini_p_ground.F |
367 |
ANALYLIC_THETA |
I kSize,myThid) |
./model/src/ini_p_ground.F |
398 |
ANALYLIC_THETA |
INTEGER myThid |
./model/src/ini_p_ground.F |
42 |
INI_P_GROUND |
INTEGER myThid |
./model/src/ini_p_ground.F |
84 |
INI_P_GROUND |
CALL PRINT_ERROR( msgBuf , myThid) |
./model/src/ini_parms.F |
1000 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1007 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1014 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1021 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1032 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1048 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1071 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1079 |
INI_PARMS |
& SQUEEZE_RIGHT, myThid ) |
./model/src/ini_parms.F |
1083 |
INI_PARMS |
& SQUEEZE_RIGHT, myThid ) |
./model/src/ini_parms.F |
1100 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1113 |
INI_PARMS |
& SQUEEZE_RIGHT, myThid ) |
./model/src/ini_parms.F |
1149 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1157 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1175 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1183 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1196 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
11 |
INI_PARMS |
SUBROUTINE INI_PARMS( myThid ) |
./model/src/ini_parms.F |
1204 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1213 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1228 |
INI_PARMS |
& SQUEEZE_RIGHT, myThid ) |
./model/src/ini_parms.F |
1233 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1235 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1240 |
INI_PARMS |
& SQUEEZE_RIGHT, myThid ) |
./model/src/ini_parms.F |
1248 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1254 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1257 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1266 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1269 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1276 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1279 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1320 |
INI_PARMS |
& SQUEEZE_RIGHT , myThid ) |
./model/src/ini_parms.F |
1327 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1330 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1334 |
INI_PARMS |
_END_MASTER(myThid) |
./model/src/ini_parms.F |
25 |
INI_PARMS |
INTEGER myThid |
./model/src/ini_parms.F |
269 |
INI_PARMS |
_BEGIN_MASTER(myThid) |
./model/src/ini_parms.F |
275 |
INI_PARMS |
I myThid ) |
./model/src/ini_parms.F |
312 |
INI_PARMS |
& SQUEEZE_RIGHT, myThid ) |
./model/src/ini_parms.F |
315 |
INI_PARMS |
O iUnit, myThid ) |
./model/src/ini_parms.F |
359 |
INI_PARMS |
& SQUEEZE_RIGHT, myThid ) |
./model/src/ini_parms.F |
364 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
366 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
371 |
INI_PARMS |
& SQUEEZE_RIGHT, myThid ) |
./model/src/ini_parms.F |
392 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
402 |
INI_PARMS |
& SQUEEZE_RIGHT, myThid ) |
./model/src/ini_parms.F |
406 |
INI_PARMS |
& SQUEEZE_RIGHT, myThid ) |
./model/src/ini_parms.F |
434 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
466 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
471 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
492 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
497 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
518 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
523 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
552 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
561 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
572 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
578 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
586 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
594 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
602 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
621 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
624 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
630 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
633 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
639 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
642 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
649 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
653 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
660 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
666 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
672 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
678 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
681 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
687 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
690 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
697 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
700 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
707 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
710 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
717 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
724 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
730 |
INI_PARMS |
& SQUEEZE_RIGHT, myThid ) |
./model/src/ini_parms.F |
735 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
737 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
742 |
INI_PARMS |
& SQUEEZE_RIGHT, myThid ) |
./model/src/ini_parms.F |
753 |
INI_PARMS |
& SQUEEZE_RIGHT, myThid ) |
./model/src/ini_parms.F |
758 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
760 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
765 |
INI_PARMS |
& SQUEEZE_RIGHT, myThid ) |
./model/src/ini_parms.F |
772 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
775 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
781 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
784 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
790 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
793 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
802 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
827 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
834 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
840 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
846 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
867 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
922 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
925 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
931 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
934 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
941 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
944 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
979 |
INI_PARMS |
& SQUEEZE_RIGHT, myThid ) |
./model/src/ini_parms.F |
984 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
986 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
991 |
INI_PARMS |
& SQUEEZE_RIGHT, myThid ) |
./model/src/ini_pressure.F |
117 |
INI_PRESSURE |
I startTime, -1, myThid ) |
./model/src/ini_pressure.F |
136 |
INI_PRESSURE |
_GLOBAL_SUM_RL( rmspp, myThid ) |
./model/src/ini_pressure.F |
137 |
INI_PRESSURE |
_GLOBAL_SUM_RL( count, myThid ) |
./model/src/ini_pressure.F |
143 |
INI_PRESSURE |
_BEGIN_MASTER( myThid ) |
./model/src/ini_pressure.F |
147 |
INI_PRESSURE |
& SQUEEZE_RIGHT , myThid) |
./model/src/ini_pressure.F |
148 |
INI_PRESSURE |
_END_MASTER( myThid ) |
./model/src/ini_pressure.F |
153 |
INI_PRESSURE |
_BEGIN_MASTER( myThid ) |
./model/src/ini_pressure.F |
159 |
INI_PRESSURE |
& SQUEEZE_RIGHT , myThid) |
./model/src/ini_pressure.F |
163 |
INI_PRESSURE |
& SQUEEZE_RIGHT , myThid) |
./model/src/ini_pressure.F |
167 |
INI_PRESSURE |
& SQUEEZE_RIGHT , myThid) |
./model/src/ini_pressure.F |
172 |
INI_PRESSURE |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_pressure.F |
179 |
INI_PRESSURE |
& SQUEEZE_RIGHT , myThid) |
./model/src/ini_pressure.F |
180 |
INI_PRESSURE |
_END_MASTER( myThid ) |
./model/src/ini_pressure.F |
187 |
INI_PRESSURE |
_BEGIN_MASTER( myThid ) |
./model/src/ini_pressure.F |
192 |
INI_PRESSURE |
& SQUEEZE_RIGHT , myThid) |
./model/src/ini_pressure.F |
193 |
INI_PRESSURE |
_END_MASTER( myThid ) |
./model/src/ini_pressure.F |
197 |
INI_PRESSURE |
_BEGIN_MASTER( myThid ) |
./model/src/ini_pressure.F |
200 |
INI_PRESSURE |
& SQUEEZE_RIGHT , myThid) |
./model/src/ini_pressure.F |
201 |
INI_PRESSURE |
_END_MASTER( myThid ) |
./model/src/ini_pressure.F |
36 |
INI_PRESSURE |
INTEGER myThid |
./model/src/ini_pressure.F |
61 |
INI_PRESSURE |
_BEGIN_MASTER( myThid ) |
./model/src/ini_pressure.F |
65 |
INI_PRESSURE |
& SQUEEZE_RIGHT , myThid) |
./model/src/ini_pressure.F |
66 |
INI_PRESSURE |
_END_MASTER( myThid ) |
./model/src/ini_pressure.F |
68 |
INI_PRESSURE |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/ini_pressure.F |
69 |
INI_PRESSURE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/ini_pressure.F |
96 |
INI_PRESSURE |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/ini_pressure.F |
97 |
INI_PRESSURE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/ini_pressure.F |
9 |
INI_PRESSURE |
SUBROUTINE INI_PRESSURE( myThid ) |
./model/src/ini_psurf.F |
10 |
INI_PSURF |
SUBROUTINE INI_PSURF( myThid ) |
./model/src/ini_psurf.F |
40 |
INI_PSURF |
INTEGER myThid |
./model/src/ini_psurf.F |
51 |
INI_PSURF |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/ini_psurf.F |
52 |
INI_PSURF |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/ini_psurf.F |
62 |
INI_PSURF |
CALL READ_FLD_XY_RL( pSurfInitFile, ' ', etaN, 0, myThid ) |
./model/src/ini_psurf.F |
64 |
INI_PSURF |
_EXCH_XY_RL(etaN, myThid) |
./model/src/ini_psurf.F |
69 |
INI_PSURF |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/ini_psurf.F |
70 |
INI_PSURF |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/ini_psurf.F |
84 |
INI_PSURF |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/ini_psurf.F |
85 |
INI_PSURF |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/ini_salt.F |
10 |
INI_SALT |
SUBROUTINE INI_SALT( myThid ) |
./model/src/ini_salt.F |
115 |
INI_SALT |
CALL PRINT_ERROR( msgBuf , myThid) |
./model/src/ini_salt.F |
119 |
INI_SALT |
CALL PRINT_ERROR( msgBuf , myThid) |
./model/src/ini_salt.F |
126 |
INI_SALT |
& SQUEEZE_RIGHT, myThid ) |
./model/src/ini_salt.F |
132 |
INI_SALT |
& Nr, 1, myThid ) |
./model/src/ini_salt.F |
43 |
INI_SALT |
INTEGER myThid |
./model/src/ini_salt.F |
55 |
INI_SALT |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/ini_salt.F |
56 |
INI_SALT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/ini_salt.F |
70 |
INI_SALT |
CALL MNC_FILE_CLOSE_ALL_MATCHING(hydrogSaltFile, myThid) |
./model/src/ini_salt.F |
71 |
INI_SALT |
CALL MNC_CW_SET_UDIM(hydrogSaltFile, 1, myThid) |
./model/src/ini_salt.F |
72 |
INI_SALT |
CALL MNC_CW_SET_CITER(hydrogSaltFile, 2, -1, -1, -1, myThid) |
./model/src/ini_salt.F |
73 |
INI_SALT |
CALL MNC_CW_SET_UDIM(hydrogSaltFile, 1, myThid) |
./model/src/ini_salt.F |
74 |
INI_SALT |
CALL MNC_CW_RL_R('D',hydrogSaltFile,0,0,'S',salt, myThid) |
./model/src/ini_salt.F |
75 |
INI_SALT |
CALL MNC_FILE_CLOSE_ALL_MATCHING(hydrogSaltFile, myThid) |
./model/src/ini_salt.F |
78 |
INI_SALT |
CALL READ_FLD_XYZ_RL( hydrogSaltFile, ' ', salt, 0, myThid ) |
./model/src/ini_salt.F |
82 |
INI_SALT |
_EXCH_XYZ_RL( salt, myThid ) |
./model/src/ini_salt.F |
87 |
INI_SALT |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/ini_salt.F |
88 |
INI_SALT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
30 |
COST_TEST |
integer myThid |
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
57 |
COST_TEST |
CALL READ_FLD_XYZ_RL( hydrogThetaFile, ' ', thetaLev, 0, myThid ) |
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
6 |
COST_TEST |
subroutine COST_TEST( myThid ) |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
108 |
PLOT_FIELD_XYRL |
I fld, fldNam , myIter, myThid ) |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
137 |
PLOT_FIELD_XYRL |
INTEGER myThid |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
14 |
PLOT_FIELD_XYRS |
I fld, fldNam , myIter, myThid ) |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
154 |
PLOT_FIELD_XYRL |
IF ( myThid .EQ. 1 ) THEN |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
202 |
PLOT_FIELD_XYZRS |
I fld, fldNam , fldNz, myIter, myThid ) |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
236 |
PLOT_FIELD_XYZRS |
INTEGER myThid |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
250 |
PLOT_FIELD_XYZRS |
IF ( myThid .EQ. 1 ) THEN |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
295 |
PLOT_FIELD_XYZRL |
I fld, fldNam , fldNz, myIter, myThid ) |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
329 |
PLOT_FIELD_XYZRL |
INTEGER myThid |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
343 |
PLOT_FIELD_XYZRL |
IF ( myThid .EQ. 1 ) THEN |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
389 |
PLOT_FIELD_XZRS |
I fld, fldNam , fldNz, myIter, myThid ) |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
423 |
PLOT_FIELD_XZRS |
INTEGER myThid |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
437 |
PLOT_FIELD_XZRS |
IF ( myThid .EQ. 1 ) THEN |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
43 |
PLOT_FIELD_XYRS |
INTEGER myThid |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
477 |
PLOT_FIELD_XZRL |
I fld, fldNam , fldNz, myIter, myThid ) |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
511 |
PLOT_FIELD_XZRL |
INTEGER myThid |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
525 |
PLOT_FIELD_XZRL |
IF ( myThid .EQ. 1 ) THEN |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
567 |
PLOT_FIELD_YZRS |
I fld, fldNam , fldNz, myIter, myThid ) |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
601 |
PLOT_FIELD_YZRS |
INTEGER myThid |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
60 |
PLOT_FIELD_XYRS |
IF ( myThid .EQ. 1 ) THEN |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
615 |
PLOT_FIELD_YZRS |
IF ( myThid .EQ. 1 ) THEN |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
656 |
PLOT_FIELD_YZRL |
I fld, fldNam , fldNz, myIter, myThid ) |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
690 |
PLOT_FIELD_YZRL |
INTEGER myThid |
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F |
704 |
PLOT_FIELD_YZRL |
IF ( myThid .EQ. 1 ) THEN |
./model/src/ini_sigma_hfac.F |
10 |
INI_SIGMA_HFAC |
SUBROUTINE INI_SIGMA_HFAC( myThid ) |
./model/src/ini_sigma_hfac.F |
123 |
INI_SIGMA_HFAC |
& SQUEEZE_RIGHT, myThid ) |
./model/src/ini_sigma_hfac.F |
131 |
INI_SIGMA_HFAC |
DO bj=myByLo(myThid), myByHi(myThid) |
./model/src/ini_sigma_hfac.F |
132 |
INI_SIGMA_HFAC |
DO bi=myBxLo(myThid), myBxHi(myThid) |
./model/src/ini_sigma_hfac.F |
194 |
INI_SIGMA_HFAC |
CALL EXCH_UV_XY_RS( rSurfW, rSurfS, .FALSE., myThid ) |
./model/src/ini_sigma_hfac.F |
195 |
INI_SIGMA_HFAC |
CALL EXCH_UV_XY_RS( rLowW, rLowS, .FALSE., myThid ) |
./model/src/ini_sigma_hfac.F |
196 |
INI_SIGMA_HFAC |
CALL EXCH_UV_XY_RS( maskInW, maskInS, .FALSE., myThid ) |
./model/src/ini_sigma_hfac.F |
201 |
INI_SIGMA_HFAC |
DO bj=myByLo(myThid), myByHi(myThid) |
./model/src/ini_sigma_hfac.F |
202 |
INI_SIGMA_HFAC |
DO bi=myBxLo(myThid), myBxHi(myThid) |
./model/src/ini_sigma_hfac.F |
213 |
INI_SIGMA_HFAC |
DO bj=myByLo(myThid), myByHi(myThid) |
./model/src/ini_sigma_hfac.F |
214 |
INI_SIGMA_HFAC |
DO bi=myBxLo(myThid), myBxHi(myThid) |
./model/src/ini_sigma_hfac.F |
33 |
INI_SIGMA_HFAC |
INTEGER myThid |
./model/src/ini_sigma_hfac.F |
63 |
INI_SIGMA_HFAC |
DO bj=myByLo(myThid), myByHi(myThid) |
./model/src/ini_sigma_hfac.F |
64 |
INI_SIGMA_HFAC |
DO bi=myBxLo(myThid), myBxHi(myThid) |
./model/src/ini_spherical_polar_grid.F |
12 |
INI_SPHERICAL_POLAR_GRID |
SUBROUTINE INI_SPHERICAL_POLAR_GRID( myThid ) |
./model/src/ini_spherical_polar_grid.F |
354 |
INI_SPHERICAL_POLAR_GRID |
CALL ROTATE_SPHERICAL_POLAR_GRID( xC, yC, myThid ) |
./model/src/ini_spherical_polar_grid.F |
355 |
INI_SPHERICAL_POLAR_GRID |
CALL ROTATE_SPHERICAL_POLAR_GRID( xG, yG, myThid ) |
./model/src/ini_spherical_polar_grid.F |
356 |
INI_SPHERICAL_POLAR_GRID |
CALL CALC_ANGLES( myThid ) |
./model/src/ini_spherical_polar_grid.F |
45 |
INI_SPHERICAL_POLAR_GRID |
INTEGER myThid |
./model/src/ini_spherical_polar_grid.F |
93 |
INI_SPHERICAL_POLAR_GRID |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/ini_spherical_polar_grid.F |
94 |
INI_SPHERICAL_POLAR_GRID |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./verification/hs94.128x64x5/code/external_forcing.F |
110 |
EXTERNAL_FORCING_V |
INTEGER myThid |
./verification/hs94.128x64x5/code/external_forcing.F |
11 |
EXTERNAL_FORCING_U |
I myTime, myThid ) |
./verification/hs94.128x64x5/code/external_forcing.F |
147 |
EXTERNAL_FORCING_T |
I myTime, myThid ) |
./verification/hs94.128x64x5/code/external_forcing.F |
178 |
EXTERNAL_FORCING_T |
INTEGER myThid |
./verification/hs94.128x64x5/code/external_forcing.F |
220 |
EXTERNAL_FORCING_S |
I myTime, myThid ) |
./verification/hs94.128x64x5/code/external_forcing.F |
252 |
EXTERNAL_FORCING_S |
INTEGER myThid |
./verification/hs94.128x64x5/code/external_forcing.F |
42 |
EXTERNAL_FORCING_U |
INTEGER myThid |
./verification/hs94.128x64x5/code/external_forcing.F |
79 |
EXTERNAL_FORCING_V |
I myTime, myThid ) |
./verification/hs94.1x64x5/code/external_forcing.F |
110 |
EXTERNAL_FORCING_V |
INTEGER myThid |
./verification/hs94.1x64x5/code/external_forcing.F |
11 |
EXTERNAL_FORCING_U |
I myTime, myThid ) |
./verification/hs94.1x64x5/code/external_forcing.F |
147 |
EXTERNAL_FORCING_T |
I myTime, myThid ) |
./verification/hs94.1x64x5/code/external_forcing.F |
178 |
EXTERNAL_FORCING_T |
INTEGER myThid |
./verification/hs94.1x64x5/code/external_forcing.F |
220 |
EXTERNAL_FORCING_S |
I myTime, myThid ) |
./verification/hs94.1x64x5/code/external_forcing.F |
252 |
EXTERNAL_FORCING_S |
INTEGER myThid |
./verification/hs94.1x64x5/code/external_forcing.F |
42 |
EXTERNAL_FORCING_U |
INTEGER myThid |
./verification/hs94.1x64x5/code/external_forcing.F |
79 |
EXTERNAL_FORCING_V |
I myTime, myThid ) |
./verification/hs94.1x64x5/code/ini_theta.F |
10 |
INI_THETA |
SUBROUTINE INI_THETA( myThid ) |
./verification/hs94.1x64x5/code/ini_theta.F |
121 |
INI_THETA |
CALL PRINT_ERROR( msgBuf , myThid) |
./verification/hs94.1x64x5/code/ini_theta.F |
125 |
INI_THETA |
_EXCH_XYZ_RL(theta , myThid ) |
./verification/hs94.1x64x5/code/ini_theta.F |
129 |
INI_THETA |
& Nr, 1, myThid ) |
./verification/hs94.1x64x5/code/ini_theta.F |
41 |
INI_THETA |
INTEGER myThid |
./verification/hs94.1x64x5/code/ini_theta.F |
57 |
INI_THETA |
J = 99+myBxLo(myThid)+nPx*myByLo(myThid) |
./verification/hs94.1x64x5/code/ini_theta.F |
63 |
INI_THETA |
DO bj = myByLo(myThid), myByHi(myThid) |
./verification/hs94.1x64x5/code/ini_theta.F |
64 |
INI_THETA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./verification/hs94.1x64x5/code/ini_theta.F |
86 |
INI_THETA |
I 1, sNy, Nr, bi, bj, 1, myThid ) |
./verification/hs94.1x64x5/code/ini_theta.F |
92 |
INI_THETA |
CALL READ_FLD_XYZ_RL( hydrogThetaFile, ' ', theta, 0, myThid ) |
./verification/hs94.1x64x5/code/ini_theta.F |
96 |
INI_THETA |
DO bj = myByLo(myThid), myByHi(myThid) |
./verification/hs94.1x64x5/code/ini_theta.F |
97 |
INI_THETA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/ini_theta.F |
10 |
INI_THETA |
SUBROUTINE INI_THETA( myThid ) |
./model/src/ini_theta.F |
116 |
INI_THETA |
CALL PRINT_ERROR( msgBuf , myThid) |
./model/src/ini_theta.F |
120 |
INI_THETA |
CALL PRINT_ERROR( msgBuf , myThid) |
./model/src/ini_theta.F |
127 |
INI_THETA |
& SQUEEZE_RIGHT, myThid ) |
./model/src/ini_theta.F |
134 |
INI_THETA |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/ini_theta.F |
135 |
INI_THETA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/ini_theta.F |
151 |
INI_THETA |
& Nr, 1, myThid ) |
./model/src/ini_theta.F |
43 |
INI_THETA |
INTEGER myThid |
./model/src/ini_theta.F |
56 |
INI_THETA |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/ini_theta.F |
57 |
INI_THETA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/ini_theta.F |
71 |
INI_THETA |
CALL MNC_FILE_CLOSE_ALL_MATCHING(hydrogThetaFile, myThid) |
./model/src/ini_theta.F |
72 |
INI_THETA |
CALL MNC_CW_SET_UDIM(hydrogThetaFile, 1, myThid) |
./model/src/ini_theta.F |
73 |
INI_THETA |
CALL MNC_CW_SET_CITER(hydrogThetaFile, 2, -1, -1, -1, myThid) |
./model/src/ini_theta.F |
74 |
INI_THETA |
CALL MNC_CW_SET_UDIM(hydrogThetaFile, 1, myThid) |
./model/src/ini_theta.F |
75 |
INI_THETA |
CALL MNC_CW_RL_R('D',hydrogThetaFile,0,0,'Temp',theta,myThid) |
./model/src/ini_theta.F |
76 |
INI_THETA |
CALL MNC_FILE_CLOSE_ALL_MATCHING(hydrogThetaFile, myThid) |
./model/src/ini_theta.F |
79 |
INI_THETA |
CALL READ_FLD_XYZ_RL( hydrogThetaFile, ' ', theta, 0, myThid ) |
./model/src/ini_theta.F |
83 |
INI_THETA |
_EXCH_XYZ_RL(theta,myThid) |
./model/src/ini_theta.F |
88 |
INI_THETA |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/ini_theta.F |
89 |
INI_THETA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./verification/hs94.1x64x5/code_ad/cost_test.F |
33 |
COST_TEST |
integer myThid |
./verification/hs94.1x64x5/code_ad/cost_test.F |
6 |
COST_TEST |
subroutine COST_TEST( myThid ) |
./verification/hs94.1x64x5/code_ad/external_forcing.F |
110 |
EXTERNAL_FORCING_V |
INTEGER myThid |
./verification/hs94.1x64x5/code_ad/external_forcing.F |
11 |
EXTERNAL_FORCING_U |
I myTime, myThid ) |
./verification/hs94.1x64x5/code_ad/external_forcing.F |
147 |
EXTERNAL_FORCING_T |
I myTime, myThid ) |
./verification/hs94.1x64x5/code_ad/external_forcing.F |
178 |
EXTERNAL_FORCING_T |
INTEGER myThid |
./verification/hs94.1x64x5/code_ad/external_forcing.F |
220 |
EXTERNAL_FORCING_S |
I myTime, myThid ) |
./verification/hs94.1x64x5/code_ad/external_forcing.F |
252 |
EXTERNAL_FORCING_S |
INTEGER myThid |
./verification/hs94.1x64x5/code_ad/external_forcing.F |
42 |
EXTERNAL_FORCING_U |
INTEGER myThid |
./verification/hs94.1x64x5/code_ad/external_forcing.F |
79 |
EXTERNAL_FORCING_V |
I myTime, myThid ) |
./verification/hs94.1x64x5/code_ad/ini_theta.F |
10 |
INI_THETA |
SUBROUTINE INI_THETA( myThid ) |
./verification/hs94.1x64x5/code_ad/ini_theta.F |
121 |
INI_THETA |
CALL PRINT_ERROR( msgBuf , myThid) |
./verification/hs94.1x64x5/code_ad/ini_theta.F |
125 |
INI_THETA |
_EXCH_XYZ_RL(theta , myThid ) |
./verification/hs94.1x64x5/code_ad/ini_theta.F |
129 |
INI_THETA |
& Nr, 1, myThid ) |
./verification/hs94.1x64x5/code_ad/ini_theta.F |
41 |
INI_THETA |
INTEGER myThid |
./verification/hs94.1x64x5/code_ad/ini_theta.F |
57 |
INI_THETA |
J = 99+myBxLo(myThid)+nPx*myByLo(myThid) |
./verification/hs94.1x64x5/code_ad/ini_theta.F |
63 |
INI_THETA |
DO bj = myByLo(myThid), myByHi(myThid) |
./verification/hs94.1x64x5/code_ad/ini_theta.F |
64 |
INI_THETA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./verification/hs94.1x64x5/code_ad/ini_theta.F |
86 |
INI_THETA |
I 1, sNy, Nr, bi, bj, 1, myThid ) |
./verification/hs94.1x64x5/code_ad/ini_theta.F |
92 |
INI_THETA |
CALL READ_FLD_XYZ_RL( hydrogThetaFile, ' ', theta, 0, myThid ) |
./verification/hs94.1x64x5/code_ad/ini_theta.F |
96 |
INI_THETA |
DO bj = myByLo(myThid), myByHi(myThid) |
./verification/hs94.1x64x5/code_ad/ini_theta.F |
97 |
INI_THETA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./verification/hs94.cs-32x32x5/code/external_forcing.F |
11 |
EXTERNAL_FORCING_U |
I myTime, myThid ) |
./verification/hs94.cs-32x32x5/code/external_forcing.F |
127 |
EXTERNAL_FORCING_V |
INTEGER myThid |
./verification/hs94.cs-32x32x5/code/external_forcing.F |
179 |
EXTERNAL_FORCING_T |
I myTime, myThid ) |
./verification/hs94.cs-32x32x5/code/external_forcing.F |
210 |
EXTERNAL_FORCING_T |
INTEGER myThid |
./verification/hs94.cs-32x32x5/code/external_forcing.F |
268 |
EXTERNAL_FORCING_S |
I myTime, myThid ) |
./verification/hs94.cs-32x32x5/code/external_forcing.F |
300 |
EXTERNAL_FORCING_S |
INTEGER myThid |
./verification/hs94.cs-32x32x5/code/external_forcing.F |
43 |
EXTERNAL_FORCING_U |
INTEGER myThid |
./verification/hs94.cs-32x32x5/code/external_forcing.F |
95 |
EXTERNAL_FORCING_V |
I myTime, myThid ) |
./model/src/ini_vel.F |
30 |
INI_VEL |
INTEGER myThid |
./model/src/ini_vel.F |
46 |
INI_VEL |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/ini_vel.F |
47 |
INI_VEL |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/ini_vel.F |
62 |
INI_VEL |
& CALL READ_FLD_XYZ_RL( uVelInitFile, ' ', uVel, 0, myThid ) |
./model/src/ini_vel.F |
65 |
INI_VEL |
& CALL READ_FLD_XYZ_RL( vVelInitFile, ' ', vVel, 0, myThid ) |
./model/src/ini_vel.F |
67 |
INI_VEL |
CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid) |
./model/src/ini_vel.F |
70 |
INI_VEL |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/ini_vel.F |
71 |
INI_VEL |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/ini_vel.F |
9 |
INI_VEL |
SUBROUTINE INI_VEL( myThid ) |
./verification/hs94.cs-32x32x5/code/ini_theta.F |
10 |
INI_THETA |
SUBROUTINE INI_THETA( myThid ) |
./verification/hs94.cs-32x32x5/code/ini_theta.F |
121 |
INI_THETA |
CALL PRINT_ERROR( msgBuf , myThid) |
./verification/hs94.cs-32x32x5/code/ini_theta.F |
125 |
INI_THETA |
_EXCH_XYZ_RL(theta , myThid ) |
./verification/hs94.cs-32x32x5/code/ini_theta.F |
129 |
INI_THETA |
& Nr, 1, myThid ) |
./verification/hs94.cs-32x32x5/code/ini_theta.F |
41 |
INI_THETA |
INTEGER myThid |
./verification/hs94.cs-32x32x5/code/ini_theta.F |
57 |
INI_THETA |
J = 99+myBxLo(myThid)+nPx*myByLo(myThid) |
./verification/hs94.cs-32x32x5/code/ini_theta.F |
63 |
INI_THETA |
DO bj = myByLo(myThid), myByHi(myThid) |
./verification/hs94.cs-32x32x5/code/ini_theta.F |
64 |
INI_THETA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./verification/hs94.cs-32x32x5/code/ini_theta.F |
86 |
INI_THETA |
I 1, sNy, Nr, bi, bj, 1, myThid ) |
./verification/hs94.cs-32x32x5/code/ini_theta.F |
92 |
INI_THETA |
CALL READ_FLD_XYZ_RL( hydrogThetaFile, ' ', theta, 0, myThid ) |
./verification/hs94.cs-32x32x5/code/ini_theta.F |
96 |
INI_THETA |
DO bj = myByLo(myThid), myByHi(myThid) |
./verification/hs94.cs-32x32x5/code/ini_theta.F |
97 |
INI_THETA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./verification/internal_wave/code/obcs_calc.F |
102 |
OBCS_CALC |
& myThid ) |
./verification/internal_wave/code/obcs_calc.F |
155 |
OBCS_CALC |
& myThid ) |
./verification/internal_wave/code/obcs_calc.F |
175 |
OBCS_CALC |
& myThid ) |
./verification/internal_wave/code/obcs_calc.F |
33 |
OBCS_CALC |
INTEGER myThid |
./verification/internal_wave/code/obcs_calc.F |
74 |
OBCS_CALC |
DO bj=myByLo(myThid),myByHi(myThid) |
./verification/internal_wave/code/obcs_calc.F |
75 |
OBCS_CALC |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./verification/internal_wave/code/obcs_calc.F |
82 |
OBCS_CALC |
& myThid ) |
./verification/internal_wave/code/obcs_calc.F |
8 |
OBCS_CALC |
& myThid ) |
./model/src/ini_vertical_grid.F |
112 |
INI_VERTICAL_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_vertical_grid.F |
115 |
INI_VERTICAL_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_vertical_grid.F |
153 |
INI_VERTICAL_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_vertical_grid.F |
157 |
INI_VERTICAL_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_vertical_grid.F |
29 |
INI_VERTICAL_GRID |
INTEGER myThid |
./model/src/ini_vertical_grid.F |
334 |
INI_VERTICAL_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_vertical_grid.F |
339 |
INI_VERTICAL_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_vertical_grid.F |
350 |
INI_VERTICAL_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_vertical_grid.F |
355 |
INI_VERTICAL_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_vertical_grid.F |
362 |
INI_VERTICAL_GRID |
& SQUEEZE_RIGHT, myThid ) |
./model/src/ini_vertical_grid.F |
366 |
INI_VERTICAL_GRID |
& SQUEEZE_RIGHT, myThid ) |
./model/src/ini_vertical_grid.F |
370 |
INI_VERTICAL_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_vertical_grid.F |
377 |
INI_VERTICAL_GRID |
_END_MASTER(myThid) |
./model/src/ini_vertical_grid.F |
43 |
INI_VERTICAL_GRID |
_BEGIN_MASTER(myThid) |
./model/src/ini_vertical_grid.F |
49 |
INI_VERTICAL_GRID |
& SQUEEZE_RIGHT, myThid ) |
./model/src/ini_vertical_grid.F |
65 |
INI_VERTICAL_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_vertical_grid.F |
68 |
INI_VERTICAL_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_vertical_grid.F |
84 |
INI_VERTICAL_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_vertical_grid.F |
87 |
INI_VERTICAL_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_vertical_grid.F |
9 |
INI_VERTICAL_GRID |
SUBROUTINE INI_VERTICAL_GRID( myThid ) |
./model/src/initialise_fixed.F |
103 |
INITIALISE_FIXED |
CALL INI_PARMS( myThid ) |
./model/src/initialise_fixed.F |
106 |
INITIALISE_FIXED |
CALL PACKAGES_BOOT( myThid ) |
./model/src/initialise_fixed.F |
109 |
INITIALISE_FIXED |
CALL PACKAGES_READPARMS( myThid ) |
./model/src/initialise_fixed.F |
10 |
INITIALISE_FIXED |
SUBROUTINE INITIALISE_FIXED( myThid ) |
./model/src/initialise_fixed.F |
113 |
INITIALISE_FIXED |
CALL SET_PARMS( myThid ) |
./model/src/initialise_fixed.F |
116 |
INITIALISE_FIXED |
CALL INI_MODEL_IO( myThid ) |
./model/src/initialise_fixed.F |
120 |
INITIALISE_FIXED |
CALL INI_GRID( myThid ) |
./model/src/initialise_fixed.F |
123 |
INITIALISE_FIXED |
CALL LOAD_REF_FILES( myThid ) |
./model/src/initialise_fixed.F |
126 |
INITIALISE_FIXED |
CALL INI_EOS( myThid ) |
./model/src/initialise_fixed.F |
129 |
INITIALISE_FIXED |
CALL SET_REF_STATE( myThid ) |
./model/src/initialise_fixed.F |
132 |
INITIALISE_FIXED |
CALL SET_GRID_FACTORS( myThid ) |
./model/src/initialise_fixed.F |
135 |
INITIALISE_FIXED |
CALL INI_DEPTHS( myThid ) |
./model/src/initialise_fixed.F |
139 |
INITIALISE_FIXED |
CALL INI_MASKS_ETC( myThid ) |
./model/src/initialise_fixed.F |
145 |
INITIALISE_FIXED |
CALL PACKAGES_INIT_FIXED( myThid ) |
./model/src/initialise_fixed.F |
148 |
INITIALISE_FIXED |
CALL INI_LINEAR_PHISURF( myThid ) |
./model/src/initialise_fixed.F |
151 |
INITIALISE_FIXED |
CALL INI_CORI( myThid ) |
./model/src/initialise_fixed.F |
154 |
INITIALISE_FIXED |
CALL INI_CG2D( myThid ) |
./model/src/initialise_fixed.F |
158 |
INITIALISE_FIXED |
CALL INI_CG3D( myThid ) |
./model/src/initialise_fixed.F |
162 |
INITIALISE_FIXED |
CALL CONFIG_SUMMARY( myThid ) |
./model/src/initialise_fixed.F |
165 |
INITIALISE_FIXED |
CALL PACKAGES_CHECK( myThid ) |
./model/src/initialise_fixed.F |
168 |
INITIALISE_FIXED |
CALL CONFIG_CHECK( myThid ) |
./model/src/initialise_fixed.F |
172 |
INITIALISE_FIXED |
& startTime.EQ.baseTime ) CALL WRITE_GRID( myThid ) |
./model/src/initialise_fixed.F |
177 |
INITIALISE_FIXED |
IF ( useCoupler ) CALL CPL_EXCH_CONFIGS( myThid ) |
./model/src/initialise_fixed.F |
181 |
INITIALISE_FIXED |
CALL BAR_CHECK( 3, myThid ) |
./model/src/initialise_fixed.F |
88 |
INITIALISE_FIXED |
INTEGER myThid |
./model/src/initialise_fixed.F |
98 |
INITIALISE_FIXED |
CALL BAR_CHECK( 2, myThid ) |
./verification/lab_sea/code_ad/autodiff_inadmode_set_ad.F |
19 |
ADAUTODIFF_INADMODE_SET |
integer myThid |
./verification/lab_sea/code_ad/autodiff_inadmode_set_ad.F |
6 |
ADAUTODIFF_INADMODE_SET |
subroutine ADAUTODIFF_INADMODE_SET( myThid ) |
./verification/lab_sea/code_ad/autodiff_inadmode_unset_ad.F |
19 |
ADAUTODIFF_INADMODE_UNSET |
integer myThid |
./verification/lab_sea/code_ad/autodiff_inadmode_unset_ad.F |
6 |
ADAUTODIFF_INADMODE_UNSET |
subroutine ADAUTODIFF_INADMODE_UNSET( myThid ) |
./model/src/initialise_varia.F |
104 |
INITIALISE_VARIA |
INTEGER myThid |
./model/src/initialise_varia.F |
10 |
INITIALISE_VARIA |
SUBROUTINE INITIALISE_VARIA( myThid ) |
./model/src/initialise_varia.F |
112 |
INITIALISE_VARIA |
IF (debugMode) CALL DEBUG_ENTER('INITIALISE_VARIA',myThid) |
./model/src/initialise_varia.F |
120 |
INITIALISE_VARIA |
CALL INI_HFAC( myThid ) |
./model/src/initialise_varia.F |
121 |
INITIALISE_VARIA |
CALL INI_DEPTHS( myThid ) |
./model/src/initialise_varia.F |
122 |
INITIALISE_VARIA |
CALL INI_MASKS_ETC( myThid ) |
./model/src/initialise_varia.F |
126 |
INITIALISE_VARIA |
IF (debugMode) CALL DEBUG_CALL('INI_LINEAR_PHISURF',myThid) |
./model/src/initialise_varia.F |
128 |
INITIALISE_VARIA |
CALL INI_LINEAR_PHISURF( myThid ) |
./model/src/initialise_varia.F |
132 |
INITIALISE_VARIA |
IF (debugMode) CALL DEBUG_CALL('INI_CG2D',myThid) |
./model/src/initialise_varia.F |
134 |
INITIALISE_VARIA |
CALL INI_CG2D( myThid ) |
./model/src/initialise_varia.F |
138 |
INITIALISE_VARIA |
CALL CTRL_DEPTH_INI( myThid ) |
./model/src/initialise_varia.F |
140 |
INITIALISE_VARIA |
CALL UPDATE_MASKS_ETC( myThid ) |
./model/src/initialise_varia.F |
142 |
INITIALISE_VARIA |
CALL UPDATE_CG2D( startTime, nIter0, myThid ) |
./model/src/initialise_varia.F |
148 |
INITIALISE_VARIA |
IF (debugMode) CALL DEBUG_CALL('INI_CG3D',myThid) |
./model/src/initialise_varia.F |
150 |
INITIALISE_VARIA |
CALL INI_CG3D( myThid ) |
./model/src/initialise_varia.F |
157 |
INITIALISE_VARIA |
IF (debugMode) CALL DEBUG_CALL('INI_DYNVARS',myThid) |
./model/src/initialise_varia.F |
159 |
INITIALISE_VARIA |
CALL INI_DYNVARS( myThid ) |
./model/src/initialise_varia.F |
163 |
INITIALISE_VARIA |
CALL INI_NH_VARS( myThid ) |
./model/src/initialise_varia.F |
171 |
INITIALISE_VARIA |
IF (debugMode) CALL DEBUG_CALL('INI_FIELDS',myThid) |
./model/src/initialise_varia.F |
173 |
INITIALISE_VARIA |
CALL INI_FIELDS( myThid ) |
./model/src/initialise_varia.F |
177 |
INITIALISE_VARIA |
IF (debugMode) CALL DEBUG_CALL('INI_MIXING',myThid) |
./model/src/initialise_varia.F |
179 |
INITIALISE_VARIA |
CALL INI_MIXING( myThid ) |
./model/src/initialise_varia.F |
183 |
INITIALISE_VARIA |
CALL TAUEDDY_INIT_VARIA( myThid ) |
./model/src/initialise_varia.F |
188 |
INITIALISE_VARIA |
IF (debugMode) CALL DEBUG_CALL('INI_FORCING',myThid) |
./model/src/initialise_varia.F |
190 |
INITIALISE_VARIA |
CALL INI_FORCING( myThid ) |
./model/src/initialise_varia.F |
194 |
INITIALISE_VARIA |
CALL INI_AUTODIFF( myThid ) |
./model/src/initialise_varia.F |
199 |
INITIALISE_VARIA |
IF (debugMode) CALL DEBUG_CALL('PACKAGES_INIT_VARIABLES',myThid) |
./model/src/initialise_varia.F |
201 |
INITIALISE_VARIA |
CALL PACKAGES_INIT_VARIABLES( myThid ) |
./model/src/initialise_varia.F |
216 |
INITIALISE_VARIA |
IF (debugMode) CALL DEBUG_CALL('CONVECTIVE_ADJUSTMENT_INI',myThid) |
./model/src/initialise_varia.F |
219 |
INITIALISE_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/initialise_varia.F |
221 |
INITIALISE_VARIA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/initialise_varia.F |
223 |
INITIALISE_VARIA |
I bi, bj, startTime, nIter0, myThid ) |
./model/src/initialise_varia.F |
231 |
INITIALISE_VARIA |
CALL INI_NLFS_VARS( myThid ) |
./model/src/initialise_varia.F |
237 |
INITIALISE_VARIA |
& CALL CALC_R_STAR(etaH, startTime, -1 , myThid ) |
./model/src/initialise_varia.F |
242 |
INITIALISE_VARIA |
CALL UPDATE_R_STAR( startTime, nIter0, myThid ) |
./model/src/initialise_varia.F |
246 |
INITIALISE_VARIA |
CALL UPDATE_SIGMA( etaH, startTime, nIter0, myThid ) |
./model/src/initialise_varia.F |
249 |
INITIALISE_VARIA |
CALL CALC_SURF_DR(etaH, startTime, -1 , myThid ) |
./model/src/initialise_varia.F |
250 |
INITIALISE_VARIA |
CALL UPDATE_SURF_DR( startTime, nIter0, myThid ) |
./model/src/initialise_varia.F |
255 |
INITIALISE_VARIA |
CALL UPDATE_CG2D( startTime, nIter0, myThid ) |
./model/src/initialise_varia.F |
260 |
INITIALISE_VARIA |
IF (debugMode) CALL DEBUG_CALL('INTEGR_CONTINUITY',myThid) |
./model/src/initialise_varia.F |
262 |
INITIALISE_VARIA |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/initialise_varia.F |
263 |
INITIALISE_VARIA |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/initialise_varia.F |
267 |
INITIALISE_VARIA |
I startTime, nIter0, myThid ) |
./model/src/initialise_varia.F |
275 |
INITIALISE_VARIA |
IF (debugMode) CALL DEBUG_CALL('UPDATE_ETAH',myThid) |
./model/src/initialise_varia.F |
278 |
INITIALISE_VARIA |
CALL UPDATE_ETAH( startTime, nIter0, myThid ) |
./model/src/initialise_varia.F |
286 |
INITIALISE_VARIA |
CALL CALC_R_STAR(etaH, startTime, nIter0, myThid ) |
./model/src/initialise_varia.F |
290 |
INITIALISE_VARIA |
CALL CALC_SURF_DR(etaH, startTime, nIter0, myThid ) |
./model/src/initialise_varia.F |
311 |
INITIALISE_VARIA |
CALL TIMER_START('GRIDALT_UPDATE [INITIALISE_VARIA]',myThid) |
./model/src/initialise_varia.F |
312 |
INITIALISE_VARIA |
CALL GRIDALT_UPDATE(myThid) |
./model/src/initialise_varia.F |
313 |
INITIALISE_VARIA |
CALL TIMER_STOP ('GRIDALT_UPDATE [INITIALISE_VARIA]',myThid) |
./model/src/initialise_varia.F |
318 |
INITIALISE_VARIA |
_EXCH_XYZ_RL(wVel,myThid) |
./model/src/initialise_varia.F |
322 |
INITIALISE_VARIA |
IF (debugMode) CALL DEBUG_CALL('STATE_SUMMARY',myThid) |
./model/src/initialise_varia.F |
324 |
INITIALISE_VARIA |
CALL STATE_SUMMARY( myThid ) |
./model/src/initialise_varia.F |
328 |
INITIALISE_VARIA |
IF (debugMode) CALL DEBUG_CALL('MONITOR',myThid) |
./model/src/initialise_varia.F |
331 |
INITIALISE_VARIA |
CALL MONITOR( startTime, nIter0, myThid ) |
./model/src/initialise_varia.F |
336 |
INITIALISE_VARIA |
IF (debugMode) CALL DEBUG_CALL('DO_STATEVARS_TAVE',myThid) |
./model/src/initialise_varia.F |
339 |
INITIALISE_VARIA |
CALL DO_STATEVARS_TAVE( startTime, nIter0, myThid ) |
./model/src/initialise_varia.F |
344 |
INITIALISE_VARIA |
IF (debugMode) CALL DEBUG_CALL('DO_THE_MODEL_IO',myThid) |
./model/src/initialise_varia.F |
346 |
INITIALISE_VARIA |
CALL DO_THE_MODEL_IO( .FALSE., startTime, nIter0, myThid ) |
./model/src/initialise_varia.F |
349 |
INITIALISE_VARIA |
IF (debugMode) CALL DEBUG_LEAVE('INITIALISE_VARIA',myThid) |
./model/src/initialise_varia.F |
353 |
INITIALISE_VARIA |
CALL BAR_CHECK( 4, myThid ) |
./verification/lab_sea/code_ad_seaice_ocean/autodiff_inadmode_set_ad.F |
18 |
ADAUTODIFF_INADMODE_SET |
integer myThid |
./verification/lab_sea/code_ad_seaice_ocean/autodiff_inadmode_set_ad.F |
5 |
ADAUTODIFF_INADMODE_SET |
subroutine ADAUTODIFF_INADMODE_SET( myThid ) |
./verification/lab_sea/code_ad_seaice_ocean/autodiff_inadmode_unset_ad.F |
18 |
ADAUTODIFF_INADMODE_UNSET |
integer myThid |
./verification/lab_sea/code_ad_seaice_ocean/autodiff_inadmode_unset_ad.F |
5 |
ADAUTODIFF_INADMODE_UNSET |
subroutine ADAUTODIFF_INADMODE_UNSET( myThid ) |
./model/src/integr_continuity.F |
12 |
INTEGR_CONTINUITY |
I myTime, myIter, myThid ) |
./model/src/integr_continuity.F |
198 |
INTEGR_CONTINUITY |
IF ( useOBCS ) CALL OBCS_APPLY_ETA( bi, bj, etaN, myThid ) |
./model/src/integr_continuity.F |
232 |
INTEGR_CONTINUITY |
I myThid ) |
./model/src/integr_continuity.F |
250 |
INTEGR_CONTINUITY |
IF ( useOBCS ) CALL OBCS_APPLY_W( bi, bj, k, wVel, myThid ) |
./model/src/integr_continuity.F |
43 |
INTEGR_CONTINUITY |
INTEGER myThid |
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
169 |
THE_MAIN_LOOP |
& CALL DEBUG_ENTER('THE_MAIN_LOOP',myThid) |
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
203 |
THE_MAIN_LOOP |
& CALL DEBUG_CALL('INITIALISE_VARIA',myThid) |
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
354 |
THE_MAIN_LOOP |
CALL AUTODIFF_INADMODE_UNSET( myThid ) |
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
379 |
THE_MAIN_LOOP |
& CALL DEBUG_CALL('EXF_GETFORCING',myThid) |
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
387 |
THE_MAIN_LOOP |
CALL DUMMY_IN_STEPPING( myTime, myIter, myThid ) |
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
396 |
THE_MAIN_LOOP |
& CALL DEBUG_CALL('SEAICE_MODEL',myThid) |
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
409 |
THE_MAIN_LOOP |
CALL TIMER_START('SEAICE_MODEL [FORWARD_STEP]',myThid) |
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
410 |
THE_MAIN_LOOP |
CALL SEAICE_MODEL( myTime, myIter, myThid ) |
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
411 |
THE_MAIN_LOOP |
CALL TIMER_STOP ('SEAICE_MODEL [FORWARD_STEP]',myThid) |
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
413 |
THE_MAIN_LOOP |
CALL COST_ICE_TEST ( myTime, myIter, myThid ) |
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
428 |
THE_MAIN_LOOP |
& CALL DEBUG_CALL('DO_OCEANIC_PHYS',myThid) |
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
431 |
THE_MAIN_LOOP |
CALL DO_OCEANIC_PHYS( myTime, myIter, myThid ) |
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
443 |
THE_MAIN_LOOP |
CALL AUTODIFF_INADMODE_SET( myThid ) |
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
447 |
THE_MAIN_LOOP |
CALL TIMER_START('DO_STATEVARS_DIAGS [FORWARD_STEP]',myThid) |
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
448 |
THE_MAIN_LOOP |
CALL DO_STATEVARS_DIAGS( myTime, myIter, myThid ) |
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
449 |
THE_MAIN_LOOP |
CALL TIMER_STOP ('DO_STATEVARS_DIAGS [FORWARD_STEP]',myThid) |
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
453 |
THE_MAIN_LOOP |
CALL TIMER_START('MONITOR [FORWARD_STEP]',myThid) |
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
454 |
THE_MAIN_LOOP |
CALL MONITOR( myIter, myTime, myThid ) |
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
455 |
THE_MAIN_LOOP |
CALL TIMER_STOP ('MONITOR [FORWARD_STEP]',myThid) |
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
460 |
THE_MAIN_LOOP |
CALL TIMER_START('OFFLINE_MODEL_IO [FORWARD_STEP]',myThid) |
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
461 |
THE_MAIN_LOOP |
CALL OFFLINE_MODEL_IO( myTime, myIter, myThid ) |
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
462 |
THE_MAIN_LOOP |
CALL TIMER_STOP ('OFFLINE_MODEL_IO [FORWARD_STEP]',myThid) |
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
464 |
THE_MAIN_LOOP |
CALL TIMER_START('DO_THE_MODEL_IO [FORWARD_STEP]',myThid) |
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
465 |
THE_MAIN_LOOP |
CALL DO_THE_MODEL_IO( myTime, myIter, myThid ) |
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
466 |
THE_MAIN_LOOP |
CALL TIMER_STOP ('DO_THE_MODEL_IO [FORWARD_STEP]',myThid) |
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
500 |
THE_MAIN_LOOP |
& CALL DEBUG_CALL('cost_averagesfields',myThid) |
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
515 |
THE_MAIN_LOOP |
& CALL DEBUG_CALL('cost_atlantic',myThid) |
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
526 |
THE_MAIN_LOOP |
& CALL DEBUG_CALL('cost_forcing',myThid) |
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
535 |
THE_MAIN_LOOP |
& CALL DEBUG_CALL('cost_hyd',myThid) |
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
544 |
THE_MAIN_LOOP |
& CALL DEBUG_CALL('seaice_cost_driver',myThid) |
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
554 |
THE_MAIN_LOOP |
& CALL DEBUG_CALL('cost_obcs',myThid) |
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
564 |
THE_MAIN_LOOP |
& CALL DEBUG_CALL('cost_curmtr',myThid) |
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
575 |
THE_MAIN_LOOP |
& CALL DEBUG_CALL('cost_ssh',myThid) |
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
586 |
THE_MAIN_LOOP |
& CALL DEBUG_CALL('cost_drifter',myThid) |
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
597 |
THE_MAIN_LOOP |
& CALL DEBUG_CALL('cost_scat',myThid) |
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
623 |
THE_MAIN_LOOP |
& CALL DEBUG_CALL('cost_drift',myThid) |
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
632 |
THE_MAIN_LOOP |
& CALL DEBUG_CALL('cost_driftw',myThid) |
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
659 |
THE_MAIN_LOOP |
& CALL DEBUG_CALL('cost_final',myThid) |
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
671 |
THE_MAIN_LOOP |
& CALL DEBUG_LEAVE('THE_MAIN_LOOP',myThid) |
./model/src/integrate_for_w.F |
12 |
INTEGRATE_FOR_W |
I myThid ) |
./model/src/integrate_for_w.F |
44 |
INTEGRATE_FOR_W |
INTEGER myThid |
./model/src/load_fields_driver.F |
117 |
LOAD_FIELDS_DRIVER |
INTEGER myThid |
./model/src/load_fields_driver.F |
123 |
LOAD_FIELDS_DRIVER |
IF (debugMode) CALL DEBUG_ENTER( 'LOAD_FIELDS_DRIVER', myThid ) |
./model/src/load_fields_driver.F |
130 |
LOAD_FIELDS_DRIVER |
IF (debugMode) CALL DEBUG_CALL('BULKF_FIELDS_LOAD',myThid) |
./model/src/load_fields_driver.F |
132 |
LOAD_FIELDS_DRIVER |
CALL TIMER_START('BULKF_FIELDS_LOAD [LOAD_FLDS_DRIVER]',myThid) |
./model/src/load_fields_driver.F |
133 |
LOAD_FIELDS_DRIVER |
CALL BULKF_FIELDS_LOAD( myTime, myIter, myThid ) |
./model/src/load_fields_driver.F |
134 |
LOAD_FIELDS_DRIVER |
CALL TIMER_STOP ('BULKF_FIELDS_LOAD [LOAD_FLDS_DRIVER]',myThid) |
./model/src/load_fields_driver.F |
142 |
LOAD_FIELDS_DRIVER |
IF (debugMode) CALL DEBUG_CALL('EXF_GETFORCING',myThid) |
./model/src/load_fields_driver.F |
144 |
LOAD_FIELDS_DRIVER |
CALL TIMER_START('EXF_GETFORCING [LOAD_FLDS_DRIVER]',myThid) |
./model/src/load_fields_driver.F |
145 |
LOAD_FIELDS_DRIVER |
CALL EXF_GETFORCING( myTime, myIter, myThid ) |
./model/src/load_fields_driver.F |
146 |
LOAD_FIELDS_DRIVER |
CALL TIMER_STOP ('EXF_GETFORCING [LOAD_FLDS_DRIVER]',myThid) |
./model/src/load_fields_driver.F |
154 |
LOAD_FIELDS_DRIVER |
IF (debugMode) CALL DEBUG_CALL('CHEAPAML_FIELDS_LOAD',myThid) |
./model/src/load_fields_driver.F |
156 |
LOAD_FIELDS_DRIVER |
CALL CHEAPAML_FIELDS_LOAD( myTime, myIter, myThid ) |
./model/src/load_fields_driver.F |
164 |
LOAD_FIELDS_DRIVER |
IF (debugMode) CALL DEBUG_CALL('EXTERNAL_FIELDS_LOAD',myThid) |
./model/src/load_fields_driver.F |
166 |
LOAD_FIELDS_DRIVER |
CALL TIMER_START('EXTERNAL_FLDS_LOAD [LOAD_FLDS_DRIVER]',myThid) |
./model/src/load_fields_driver.F |
167 |
LOAD_FIELDS_DRIVER |
CALL EXTERNAL_FIELDS_LOAD( myTime, myIter, myThid ) |
./model/src/load_fields_driver.F |
168 |
LOAD_FIELDS_DRIVER |
CALL TIMER_STOP ('EXTERNAL_FLDS_LOAD [LOAD_FLDS_DRIVER]',myThid) |
./model/src/load_fields_driver.F |
181 |
LOAD_FIELDS_DRIVER |
IF (debugMode) CALL DEBUG_CALL('OFFLINE_FIELDS_LOAD',myThid) |
./model/src/load_fields_driver.F |
183 |
LOAD_FIELDS_DRIVER |
CALL TIMER_START('OFFLINE_FLDS_LOAD [LOAD_FLDS_DRIVER]',myThid) |
./model/src/load_fields_driver.F |
184 |
LOAD_FIELDS_DRIVER |
CALL OFFLINE_FIELDS_LOAD( myTime, myIter, myThid ) |
./model/src/load_fields_driver.F |
185 |
LOAD_FIELDS_DRIVER |
CALL TIMER_STOP ('OFFLINE_FLDS_LOAD [LOAD_FLDS_DRIVER]',myThid) |
./model/src/load_fields_driver.F |
18 |
LOAD_FIELDS_DRIVER |
SUBROUTINE LOAD_FIELDS_DRIVER( myTime, myIter, myThid ) |
./model/src/load_fields_driver.F |
192 |
LOAD_FIELDS_DRIVER |
IF (debugMode) CALL DEBUG_CALL('GCHEM_FIELDS_LOAD',myThid) |
./model/src/load_fields_driver.F |
194 |
LOAD_FIELDS_DRIVER |
CALL GCHEM_FIELDS_LOAD( myTime, myIter, myThid ) |
./model/src/load_fields_driver.F |
200 |
LOAD_FIELDS_DRIVER |
CALL RBCS_FIELDS_LOAD( myTime, myIter, myThid ) |
./model/src/load_fields_driver.F |
207 |
LOAD_FIELDS_DRIVER |
CALL AIM_FIELDS_LOAD( myTime, myIter, myThid ) |
./model/src/load_fields_driver.F |
212 |
LOAD_FIELDS_DRIVER |
IF (debugMode) CALL DEBUG_LEAVE( 'LOAD_FIELDS_DRIVER', myThid ) |
./verification/natl_box_adjoint/code_pack/the_model_main.F |
408 |
THE_MODEL_MAIN |
SUBROUTINE THE_MODEL_MAIN(myThid) |
./verification/natl_box_adjoint/code_pack/the_model_main.F |
477 |
THE_MODEL_MAIN |
INTEGER myThid |
./verification/natl_box_adjoint/code_pack/the_model_main.F |
497 |
THE_MODEL_MAIN |
IF (debugMode) CALL DEBUG_ENTER('THE_MODEL_MAIN',myThid) |
./verification/natl_box_adjoint/code_pack/the_model_main.F |
501 |
THE_MODEL_MAIN |
IF (debugMode) CALL DEBUG_CALL('INITIALISE_FIXED',myThid) |
./verification/natl_box_adjoint/code_pack/the_model_main.F |
505 |
THE_MODEL_MAIN |
CALL TIMER_START('INITIALISE_FIXED [THE_MODEL_MAIN]',myThid) |
./verification/natl_box_adjoint/code_pack/the_model_main.F |
506 |
THE_MODEL_MAIN |
CALL INITIALISE_FIXED( myThid ) |
./verification/natl_box_adjoint/code_pack/the_model_main.F |
507 |
THE_MODEL_MAIN |
CALL TIMER_STOP ('INITIALISE_FIXED [THE_MODEL_MAIN]',myThid) |
./verification/natl_box_adjoint/code_pack/the_model_main.F |
548 |
THE_MODEL_MAIN |
CALL BAR_CHECK( 9, myThid ) |
./verification/natl_box_adjoint/code_pack/the_model_main.F |
551 |
THE_MODEL_MAIN |
IF (debugMode) CALL DEBUG_LEAVE('THE_MODEL_MAIN',myThid) |
./model/src/load_grid_spacing.F |
106 |
LOAD_GRID_SPACING |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/load_grid_spacing.F |
113 |
LOAD_GRID_SPACING |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/load_grid_spacing.F |
119 |
LOAD_GRID_SPACING |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/load_grid_spacing.F |
11 |
LOAD_GRID_SPACING |
SUBROUTINE LOAD_GRID_SPACING( myThid ) |
./model/src/load_grid_spacing.F |
131 |
LOAD_GRID_SPACING |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/load_grid_spacing.F |
138 |
LOAD_GRID_SPACING |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/load_grid_spacing.F |
144 |
LOAD_GRID_SPACING |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/load_grid_spacing.F |
150 |
LOAD_GRID_SPACING |
_END_MASTER(myThid) |
./model/src/load_grid_spacing.F |
25 |
LOAD_GRID_SPACING |
INTEGER myThid |
./model/src/load_grid_spacing.F |
40 |
LOAD_GRID_SPACING |
_BEGIN_MASTER( myThid ) |
./model/src/load_grid_spacing.F |
45 |
LOAD_GRID_SPACING |
CALL READ_GLVEC_RL( delXFile, ' ', delX, Nx, 1, myThid ) |
./model/src/load_grid_spacing.F |
49 |
LOAD_GRID_SPACING |
& SQUEEZE_RIGHT , myThid ) |
./model/src/load_grid_spacing.F |
55 |
LOAD_GRID_SPACING |
CALL READ_GLVEC_RL( delYFile, ' ', delY, Ny, 1, myThid ) |
./model/src/load_grid_spacing.F |
59 |
LOAD_GRID_SPACING |
& SQUEEZE_RIGHT , myThid ) |
./model/src/load_grid_spacing.F |
65 |
LOAD_GRID_SPACING |
CALL READ_GLVEC_RL( delRFile, ' ', delR, Nr, 1, myThid ) |
./model/src/load_grid_spacing.F |
69 |
LOAD_GRID_SPACING |
& SQUEEZE_RIGHT , myThid ) |
./model/src/load_grid_spacing.F |
74 |
LOAD_GRID_SPACING |
CALL READ_GLVEC_RL( delRcFile, ' ', delRc, Nr+1, 1, myThid ) |
./model/src/load_grid_spacing.F |
78 |
LOAD_GRID_SPACING |
& SQUEEZE_RIGHT , myThid ) |
./model/src/load_grid_spacing.F |
84 |
LOAD_GRID_SPACING |
CALL READ_GLVEC_RS( hybSigmFile,' ',aHybSigmF,Nr+1, 1,myThid ) |
./model/src/load_grid_spacing.F |
85 |
LOAD_GRID_SPACING |
CALL READ_GLVEC_RS( hybSigmFile,' ',bHybSigmF,Nr+1, 2,myThid ) |
./model/src/load_grid_spacing.F |
89 |
LOAD_GRID_SPACING |
& SQUEEZE_RIGHT , myThid ) |
./model/src/load_ref_files.F |
100 |
LOAD_REF_FILES |
CALL READ_GLVEC_RL( sRefFile, ' ', sRef, Nr, 1, myThid ) |
./model/src/load_ref_files.F |
104 |
LOAD_REF_FILES |
& SQUEEZE_RIGHT , myThid ) |
./model/src/load_ref_files.F |
10 |
LOAD_REF_FILES |
SUBROUTINE LOAD_REF_FILES( myThid ) |
./model/src/load_ref_files.F |
111 |
LOAD_REF_FILES |
CALL READ_GLVEC_RL( rhoRefFile, ' ', rho1Ref, Nr, 1, myThid ) |
./model/src/load_ref_files.F |
115 |
LOAD_REF_FILES |
& SQUEEZE_RIGHT , myThid) |
./model/src/load_ref_files.F |
118 |
LOAD_REF_FILES |
_END_MASTER(myThid) |
./model/src/load_ref_files.F |
30 |
LOAD_REF_FILES |
INTEGER myThid |
./model/src/load_ref_files.F |
45 |
LOAD_REF_FILES |
_BEGIN_MASTER( myThid ) |
./model/src/load_ref_files.F |
62 |
LOAD_REF_FILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/load_ref_files.F |
70 |
LOAD_REF_FILES |
CALL READ_GLVEC_RL( tRefFile, ' ', tRef, Nr, 1, myThid ) |
./model/src/load_ref_files.F |
74 |
LOAD_REF_FILES |
& SQUEEZE_RIGHT , myThid ) |
./model/src/load_ref_files.F |
92 |
LOAD_REF_FILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
125 |
THE_MAIN_LOOP |
INTEGER myThid |
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
146 |
THE_MAIN_LOOP |
IF (debugMode) CALL DEBUG_ENTER('THE_MAIN_LOOP',myThid) |
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
182 |
THE_MAIN_LOOP |
IF (debugMode) CALL DEBUG_CALL('INITIALISE_VARIA',myThid) |
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
192 |
THE_MAIN_LOOP |
CALL SHOWFLOPS_INIT( myThid ) |
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
19 |
THE_MAIN_LOOP |
SUBROUTINE THE_MAIN_LOOP( myTime, myIter, myThid ) |
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
222 |
THE_MAIN_LOOP |
CALL AUTODIFF_STORE( myThid ) |
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
224 |
THE_MAIN_LOOP |
CALL AUTODIFF_RESTORE( myThid ) |
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
234 |
THE_MAIN_LOOP |
CALL AUTODIFF_STORE( myThid ) |
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
236 |
THE_MAIN_LOOP |
CALL AUTODIFF_RESTORE( myThid ) |
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
245 |
THE_MAIN_LOOP |
CALL AUTODIFF_STORE( myThid ) |
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
247 |
THE_MAIN_LOOP |
CALL AUTODIFF_RESTORE( myThid ) |
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
387 |
THE_MAIN_LOOP |
CALL AUTODIFF_INADMODE_UNSET( myThid ) |
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
395 |
THE_MAIN_LOOP |
IF (debugMode) CALL DEBUG_CALL('FORWARD_STEP',myThid) |
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
408 |
THE_MAIN_LOOP |
CALL DIAGNOSTICS_SWITCH_ONOFF( myTime, myIter, myThid ) |
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
410 |
THE_MAIN_LOOP |
CALL TIMER_START('DO_STATEVARS_DIAGS [FORWARD_STEP]',myThid) |
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
411 |
THE_MAIN_LOOP |
CALL DO_STATEVARS_DIAGS( myTime, 0, myIter, myThid ) |
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
412 |
THE_MAIN_LOOP |
CALL TIMER_STOP ('DO_STATEVARS_DIAGS [FORWARD_STEP]',myThid) |
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
419 |
THE_MAIN_LOOP |
& CALL DEBUG_CALL('LOAD_FIELDS_DRIVER',myThid) |
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
421 |
THE_MAIN_LOOP |
CALL TIMER_START('LOAD_FIELDS_DRIVER [FORWARD_STEP]',myThid) |
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
422 |
THE_MAIN_LOOP |
CALL LOAD_FIELDS_DRIVER( myTime, myIter, myThid ) |
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
423 |
THE_MAIN_LOOP |
CALL TIMER_STOP ('LOAD_FIELDS_DRIVER [FORWARD_STEP]',myThid) |
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
430 |
THE_MAIN_LOOP |
& CALL DEBUG_CALL('BULKF_FORCING',myThid) |
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
432 |
THE_MAIN_LOOP |
CALL TIMER_START('BULKF_FORCING [FORWARD_STEP]',myThid) |
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
434 |
THE_MAIN_LOOP |
CALL BULKF_FORCING( myTime, myIter, myThid ) |
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
435 |
THE_MAIN_LOOP |
CALL TIMER_STOP ('BULKF_FORCING [FORWARD_STEP]',myThid) |
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
442 |
THE_MAIN_LOOP |
& CALL CTRL_MAP_FORCING (myThid) |
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
447 |
THE_MAIN_LOOP |
CALL DUMMY_IN_STEPPING( myTime, myIter, myThid ) |
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
453 |
THE_MAIN_LOOP |
& CALL DEBUG_CALL('DO_OCEANIC_PHYS',myThid) |
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
455 |
THE_MAIN_LOOP |
CALL TIMER_START('DO_OCEANIC_PHYS [FORWARD_STEP]',myThid) |
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
456 |
THE_MAIN_LOOP |
CALL DO_OCEANIC_PHYS( myTime, myIter, myThid ) |
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
457 |
THE_MAIN_LOOP |
CALL TIMER_STOP ('DO_OCEANIC_PHYS [FORWARD_STEP]',myThid) |
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
472 |
THE_MAIN_LOOP |
CALL TIMER_START('COST_TILE [FORWARD_STEP]',myThid) |
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
473 |
THE_MAIN_LOOP |
CALL COST_TILE ( myTime, myIter, myThid ) |
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
474 |
THE_MAIN_LOOP |
CALL TIMER_STOP ('COST_TILE [FORWARD_STEP]',myThid) |
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
480 |
THE_MAIN_LOOP |
CALL TIMER_START('DO_STATEVARS_DIAGS [FORWARD_STEP]',myThid) |
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
481 |
THE_MAIN_LOOP |
CALL DO_STATEVARS_DIAGS( myTime, 1, myIter, myThid ) |
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
482 |
THE_MAIN_LOOP |
CALL TIMER_STOP ('DO_STATEVARS_DIAGS [FORWARD_STEP]',myThid) |
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
484 |
THE_MAIN_LOOP |
CALL TIMER_START('DO_STATEVARS_DIAGS [FORWARD_STEP]',myThid) |
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
485 |
THE_MAIN_LOOP |
CALL DO_STATEVARS_DIAGS( myTime, 2, myIter, myThid ) |
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
486 |
THE_MAIN_LOOP |
CALL TIMER_STOP ('DO_STATEVARS_DIAGS [FORWARD_STEP]',myThid) |
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
492 |
THE_MAIN_LOOP |
CALL TIMER_START('MONITOR [FORWARD_STEP]',myThid) |
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
493 |
THE_MAIN_LOOP |
CALL MONITOR( myIter, myTime, myThid ) |
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
494 |
THE_MAIN_LOOP |
CALL TIMER_STOP ('MONITOR [FORWARD_STEP]',myThid) |
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
497 |
THE_MAIN_LOOP |
CALL TIMER_START('DO_THE_MODEL_IO [FORWARD_STEP]',myThid) |
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
498 |
THE_MAIN_LOOP |
CALL DO_THE_MODEL_IO( .FALSE., myTime, myIter, myThid ) |
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
499 |
THE_MAIN_LOOP |
CALL TIMER_STOP ('DO_THE_MODEL_IO [FORWARD_STEP]',myThid) |
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
502 |
THE_MAIN_LOOP |
CALL AUTODIFF_INADMODE_SET( myThid ) |
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
539 |
THE_MAIN_LOOP |
+myTime, myIter, myThid ) |
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
562 |
THE_MAIN_LOOP |
IF (debugMode) CALL DEBUG_LEAVE('THE_MAIN_LOOP',myThid) |
./model/src/momentum_correction_step.F |
105 |
MOMENTUM_CORRECTION_STEP |
I phiSurfX,phiSurfY,myTime,myThid ) |
./model/src/momentum_correction_step.F |
10 |
MOMENTUM_CORRECTION_STEP |
SUBROUTINE MOMENTUM_CORRECTION_STEP(myTime, myIter, myThid) |
./model/src/momentum_correction_step.F |
118 |
MOMENTUM_CORRECTION_STEP |
CALL OBCS_APPLY_UV( bi, bj, 0, uVel, vVel, myThid ) |
./model/src/momentum_correction_step.F |
132 |
MOMENTUM_CORRECTION_STEP |
CALL TIMER_START('SHAP_FILT_UV [MOM_CORR_STEP]',myThid) |
./model/src/momentum_correction_step.F |
133 |
MOMENTUM_CORRECTION_STEP |
CALL SHAP_FILT_APPLY_UV( uVel, vVel, myTime, myIter, myThid ) |
./model/src/momentum_correction_step.F |
134 |
MOMENTUM_CORRECTION_STEP |
CALL TIMER_STOP ('SHAP_FILT_UV [MOM_CORR_STEP]',myThid) |
./model/src/momentum_correction_step.F |
141 |
MOMENTUM_CORRECTION_STEP |
CALL TIMER_START('ZONAL_FILT_UV [MOM_CORR_STEP]',myThid) |
./model/src/momentum_correction_step.F |
142 |
MOMENTUM_CORRECTION_STEP |
CALL ZONAL_FILT_APPLY_UV( uVel, vVel, myThid ) |
./model/src/momentum_correction_step.F |
143 |
MOMENTUM_CORRECTION_STEP |
CALL TIMER_STOP ('ZONAL_FILT_UV [MOM_CORR_STEP]',myThid) |
./model/src/momentum_correction_step.F |
153 |
MOMENTUM_CORRECTION_STEP |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/momentum_correction_step.F |
154 |
MOMENTUM_CORRECTION_STEP |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/momentum_correction_step.F |
157 |
MOMENTUM_CORRECTION_STEP |
act1 = bi - myBxLo(myThid) |
./model/src/momentum_correction_step.F |
158 |
MOMENTUM_CORRECTION_STEP |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
./model/src/momentum_correction_step.F |
159 |
MOMENTUM_CORRECTION_STEP |
act2 = bj - myByLo(myThid) |
./model/src/momentum_correction_step.F |
160 |
MOMENTUM_CORRECTION_STEP |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
./model/src/momentum_correction_step.F |
161 |
MOMENTUM_CORRECTION_STEP |
act3 = myThid - 1 |
./model/src/momentum_correction_step.F |
180 |
MOMENTUM_CORRECTION_STEP |
I myTime, myIter, myThid ) |
./model/src/momentum_correction_step.F |
187 |
MOMENTUM_CORRECTION_STEP |
& _EXCH_XY_RL( etaN , myThid ) |
./model/src/momentum_correction_step.F |
189 |
MOMENTUM_CORRECTION_STEP |
& _EXCH_XYZ_RL( wVel , myThid ) |
./model/src/momentum_correction_step.F |
62 |
MOMENTUM_CORRECTION_STEP |
INTEGER myThid |
./model/src/momentum_correction_step.F |
74 |
MOMENTUM_CORRECTION_STEP |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/momentum_correction_step.F |
75 |
MOMENTUM_CORRECTION_STEP |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/momentum_correction_step.F |
97 |
MOMENTUM_CORRECTION_STEP |
I myThid ) |
./verification/offline_exf_seaice/code_ad/the_model_main.F |
408 |
THE_MODEL_MAIN |
SUBROUTINE THE_MODEL_MAIN(myThid) |
./verification/offline_exf_seaice/code_ad/the_model_main.F |
477 |
THE_MODEL_MAIN |
INTEGER myThid |
./verification/offline_exf_seaice/code_ad/the_model_main.F |
497 |
THE_MODEL_MAIN |
IF (debugMode) CALL DEBUG_ENTER('THE_MODEL_MAIN',myThid) |
./verification/offline_exf_seaice/code_ad/the_model_main.F |
501 |
THE_MODEL_MAIN |
CALL TIMER_CONTROL('','INIT','THE_MODEL_MAIN',myThid) |
./verification/offline_exf_seaice/code_ad/the_model_main.F |
504 |
THE_MODEL_MAIN |
CALL TIMER_START('ALL [THE_MODEL_MAIN]',myThid) |
./verification/offline_exf_seaice/code_ad/the_model_main.F |
507 |
THE_MODEL_MAIN |
IF (debugMode) CALL DEBUG_CALL('INITIALISE_FIXED',myThid) |
./verification/offline_exf_seaice/code_ad/the_model_main.F |
511 |
THE_MODEL_MAIN |
CALL TIMER_START('INITIALISE_FIXED [THE_MODEL_MAIN]',myThid) |
./verification/offline_exf_seaice/code_ad/the_model_main.F |
512 |
THE_MODEL_MAIN |
CALL INITIALISE_FIXED( myThid ) |
./verification/offline_exf_seaice/code_ad/the_model_main.F |
513 |
THE_MODEL_MAIN |
CALL TIMER_STOP ('INITIALISE_FIXED [THE_MODEL_MAIN]',myThid) |
./verification/offline_exf_seaice/code_ad/the_model_main.F |
548 |
THE_MODEL_MAIN |
CALL G_THE_MAIN_LOOP ( myCurrentTime, myCurrentIter, myThid ) |
./verification/offline_exf_seaice/code_ad/the_model_main.F |
582 |
THE_MODEL_MAIN |
IF (debugMode) CALL DEBUG_CALL('THE_MAIN_LOOP',myThid) |
./verification/offline_exf_seaice/code_ad/the_model_main.F |
585 |
THE_MODEL_MAIN |
CALL TIMER_START('THE_MAIN_LOOP [THE_MODEL_MAIN]',myThid) |
./verification/offline_exf_seaice/code_ad/the_model_main.F |
586 |
THE_MODEL_MAIN |
CALL THE_MAIN_LOOP( myCurrentTime, myCurrentIter, myThid ) |
./verification/offline_exf_seaice/code_ad/the_model_main.F |
587 |
THE_MODEL_MAIN |
CALL TIMER_STOP ('THE_MAIN_LOOP [THE_MODEL_MAIN]',myThid) |
./verification/offline_exf_seaice/code_ad/the_model_main.F |
621 |
THE_MODEL_MAIN |
IF (debugMode) CALL DEBUG_CALL('THE_MAIN_LOOP',myThid) |
./verification/offline_exf_seaice/code_ad/the_model_main.F |
624 |
THE_MODEL_MAIN |
CALL TIMER_START('THE_MAIN_LOOP [THE_MODEL_MAIN]',myThid) |
./verification/offline_exf_seaice/code_ad/the_model_main.F |
625 |
THE_MODEL_MAIN |
CALL THE_MAIN_LOOP( myCurrentTime, myCurrentIter, myThid ) |
./verification/offline_exf_seaice/code_ad/the_model_main.F |
626 |
THE_MODEL_MAIN |
CALL TIMER_STOP ('THE_MAIN_LOOP [THE_MODEL_MAIN]',myThid) |
./verification/offline_exf_seaice/code_ad/the_model_main.F |
633 |
THE_MODEL_MAIN |
CALL DIAGSTATS_CLOSE_IO( myThid ) |
./verification/offline_exf_seaice/code_ad/the_model_main.F |
641 |
THE_MODEL_MAIN |
CALL MNC_FILE_CLOSE_ALL( myThid ) |
./verification/offline_exf_seaice/code_ad/the_model_main.F |
647 |
THE_MODEL_MAIN |
CALL TIMER_STOP ('ALL [THE_MODEL_MAIN]',myThid) |
./verification/offline_exf_seaice/code_ad/the_model_main.F |
650 |
THE_MODEL_MAIN |
IF ( myThid .EQ. 1 ) THEN |
./verification/offline_exf_seaice/code_ad/the_model_main.F |
651 |
THE_MODEL_MAIN |
CALL TIMER_PRINTALL( myThid ) |
./verification/offline_exf_seaice/code_ad/the_model_main.F |
656 |
THE_MODEL_MAIN |
CALL BAR_CHECK( 9, myThid ) |
./verification/offline_exf_seaice/code_ad/the_model_main.F |
659 |
THE_MODEL_MAIN |
IF (debugMode) CALL DEBUG_LEAVE('THE_MODEL_MAIN',myThid) |
./verification/rotating_tank/code/external_forcing.F |
110 |
EXTERNAL_FORCING_V |
I myTime, myThid ) |
./verification/rotating_tank/code/external_forcing.F |
12 |
EXTERNAL_FORCING_U |
I myTime, myThid ) |
./verification/rotating_tank/code/external_forcing.F |
141 |
EXTERNAL_FORCING_V |
INTEGER myThid |
./verification/rotating_tank/code/external_forcing.F |
163 |
EXTERNAL_FORCING_V |
& myTime, myThid ) |
./verification/rotating_tank/code/external_forcing.F |
169 |
EXTERNAL_FORCING_V |
& myTime, myThid ) |
./verification/rotating_tank/code/external_forcing.F |
188 |
EXTERNAL_FORCING_V |
I myTime, myThid ) |
./verification/rotating_tank/code/external_forcing.F |
195 |
EXTERNAL_FORCING_V |
I myTime, myThid ) |
./verification/rotating_tank/code/external_forcing.F |
208 |
EXTERNAL_FORCING_T |
I myTime, myThid ) |
./verification/rotating_tank/code/external_forcing.F |
239 |
EXTERNAL_FORCING_T |
INTEGER myThid |
./verification/rotating_tank/code/external_forcing.F |
311 |
EXTERNAL_FORCING_T |
& myTime, myThid ) |
./verification/rotating_tank/code/external_forcing.F |
317 |
EXTERNAL_FORCING_T |
& myTime, myThid ) |
./verification/rotating_tank/code/external_forcing.F |
339 |
EXTERNAL_FORCING_T |
I myTime, 1, myThid ) |
./verification/rotating_tank/code/external_forcing.F |
428 |
EXTERNAL_FORCING_T |
I myTime, myThid ) |
./verification/rotating_tank/code/external_forcing.F |
43 |
EXTERNAL_FORCING_U |
INTEGER myThid |
./verification/rotating_tank/code/external_forcing.F |
441 |
EXTERNAL_FORCING_S |
I myTime, myThid ) |
./verification/rotating_tank/code/external_forcing.F |
473 |
EXTERNAL_FORCING_S |
INTEGER myThid |
./verification/rotating_tank/code/external_forcing.F |
495 |
EXTERNAL_FORCING_S |
& myTime, myThid ) |
./verification/rotating_tank/code/external_forcing.F |
501 |
EXTERNAL_FORCING_S |
& myTime, myThid ) |
./verification/rotating_tank/code/external_forcing.F |
519 |
EXTERNAL_FORCING_S |
I myTime, myThid ) |
./verification/rotating_tank/code/external_forcing.F |
65 |
EXTERNAL_FORCING_U |
& myTime, myThid ) |
./verification/rotating_tank/code/external_forcing.F |
71 |
EXTERNAL_FORCING_U |
& myTime, myThid ) |
./verification/rotating_tank/code/external_forcing.F |
90 |
EXTERNAL_FORCING_U |
I myTime, myThid ) |
./verification/rotating_tank/code/external_forcing.F |
97 |
EXTERNAL_FORCING_U |
I myTime, myThid ) |
./model/src/packages_boot.F |
102 |
PACKAGES_BOOT |
I myThid ) |
./model/src/packages_boot.F |
10 |
PACKAGES_BOOT |
SUBROUTINE PACKAGES_BOOT( myThid ) |
./model/src/packages_boot.F |
155 |
PACKAGES_BOOT |
& SQUEEZE_RIGHT , myThid ) |
./model/src/packages_boot.F |
180 |
PACKAGES_BOOT |
_END_MASTER(myThid) |
./model/src/packages_boot.F |
37 |
PACKAGES_BOOT |
INTEGER myThid |
./model/src/packages_boot.F |
92 |
PACKAGES_BOOT |
_BEGIN_MASTER(myThid) |
./model/src/packages_boot.F |
96 |
PACKAGES_BOOT |
& SQUEEZE_RIGHT , myThid ) |
./verification/solid-body.cs-32x32x1/code/ini_psurf.F |
28 |
INI_PSURF |
INTEGER myThid |
./verification/solid-body.cs-32x32x1/code/ini_psurf.F |
41 |
INI_PSURF |
DO bj = myByLo(myThid), myByHi(myThid) |
./verification/solid-body.cs-32x32x1/code/ini_psurf.F |
42 |
INI_PSURF |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./verification/solid-body.cs-32x32x1/code/ini_psurf.F |
52 |
INI_PSURF |
_BEGIN_MASTER( myThid ) |
./verification/solid-body.cs-32x32x1/code/ini_psurf.F |
53 |
INI_PSURF |
CALL READ_FLD_XY_RL( pSurfInitFile, ' ', etaN, 0, myThid ) |
./verification/solid-body.cs-32x32x1/code/ini_psurf.F |
54 |
INI_PSURF |
_END_MASTER(myThid) |
./verification/solid-body.cs-32x32x1/code/ini_psurf.F |
57 |
INI_PSURF |
_EXCH_XY_RL(etaN, myThid) |
./verification/solid-body.cs-32x32x1/code/ini_psurf.F |
61 |
INI_PSURF |
DO bj=myByLo(myThid),myByHi(myThid) |
./verification/solid-body.cs-32x32x1/code/ini_psurf.F |
62 |
INI_PSURF |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./verification/solid-body.cs-32x32x1/code/ini_psurf.F |
7 |
INI_PSURF |
SUBROUTINE INI_PSURF( myThid ) |
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
30 |
INI_VEL |
INTEGER myThid |
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
49 |
INI_VEL |
DO bj = myByLo(myThid), myByHi(myThid) |
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
50 |
INI_VEL |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
69 |
INI_VEL |
_BEGIN_MASTER( myThid ) |
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
70 |
INI_VEL |
CALL READ_FLD_XYZ_RL( uVelInitFile, ' ', uVel, 0, myThid ) |
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
71 |
INI_VEL |
_END_MASTER(myThid) |
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
76 |
INI_VEL |
_BEGIN_MASTER( myThid ) |
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
77 |
INI_VEL |
CALL READ_FLD_XYZ_RL( vVelInitFile, ' ', vVel, 0, myThid ) |
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
78 |
INI_VEL |
_END_MASTER(myThid) |
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
83 |
INI_VEL |
CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid) |
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
86 |
INI_VEL |
DO bj = myByLo(myThid), myByHi(myThid) |
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
87 |
INI_VEL |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
9 |
INI_VEL |
SUBROUTINE INI_VEL( myThid ) |
./verification/tidal_basin_2d/code/external_forcing.F |
121 |
EXTERNAL_FORCING_U |
I myTime, myThid ) |
./verification/tidal_basin_2d/code/external_forcing.F |
128 |
EXTERNAL_FORCING_U |
I myTime, myThid ) |
./verification/tidal_basin_2d/code/external_forcing.F |
12 |
EXTERNAL_FORCING_U |
I myTime, myThid ) |
./verification/tidal_basin_2d/code/external_forcing.F |
141 |
EXTERNAL_FORCING_V |
I myTime, myThid ) |
./verification/tidal_basin_2d/code/external_forcing.F |
172 |
EXTERNAL_FORCING_V |
INTEGER myThid |
./verification/tidal_basin_2d/code/external_forcing.F |
194 |
EXTERNAL_FORCING_V |
& myTime, myThid ) |
./verification/tidal_basin_2d/code/external_forcing.F |
200 |
EXTERNAL_FORCING_V |
& myTime, myThid ) |
./verification/tidal_basin_2d/code/external_forcing.F |
219 |
EXTERNAL_FORCING_V |
I myTime, myThid ) |
./verification/tidal_basin_2d/code/external_forcing.F |
226 |
EXTERNAL_FORCING_V |
I myTime, myThid ) |
./verification/tidal_basin_2d/code/external_forcing.F |
239 |
EXTERNAL_FORCING_T |
I myTime, myThid ) |
./verification/tidal_basin_2d/code/external_forcing.F |
270 |
EXTERNAL_FORCING_T |
INTEGER myThid |
./verification/tidal_basin_2d/code/external_forcing.F |
299 |
EXTERNAL_FORCING_T |
& myTime, myThid ) |
./verification/tidal_basin_2d/code/external_forcing.F |
305 |
EXTERNAL_FORCING_T |
& myTime, myThid ) |
./verification/tidal_basin_2d/code/external_forcing.F |
327 |
EXTERNAL_FORCING_T |
I myTime, 1, myThid ) |
./verification/tidal_basin_2d/code/external_forcing.F |
349 |
EXTERNAL_FORCING_T |
I myTime, myThid ) |
./verification/tidal_basin_2d/code/external_forcing.F |
362 |
EXTERNAL_FORCING_S |
I myTime, myThid ) |
./verification/tidal_basin_2d/code/external_forcing.F |
394 |
EXTERNAL_FORCING_S |
INTEGER myThid |
./verification/tidal_basin_2d/code/external_forcing.F |
416 |
EXTERNAL_FORCING_S |
& myTime, myThid ) |
./verification/tidal_basin_2d/code/external_forcing.F |
422 |
EXTERNAL_FORCING_S |
& myTime, myThid ) |
./verification/tidal_basin_2d/code/external_forcing.F |
43 |
EXTERNAL_FORCING_U |
INTEGER myThid |
./verification/tidal_basin_2d/code/external_forcing.F |
440 |
EXTERNAL_FORCING_S |
I myTime, myThid ) |
./verification/tidal_basin_2d/code/external_forcing.F |
67 |
EXTERNAL_FORCING_U |
& myTime, myThid ) |
./verification/tidal_basin_2d/code/external_forcing.F |
73 |
EXTERNAL_FORCING_U |
& myTime, myThid ) |
./model/src/packages_check.F |
106 |
PACKAGES_CHECK |
& 'MONITOR', 'monitorFreq <> 0', myThid ) |
./model/src/packages_check.F |
10 |
PACKAGES_CHECK |
SUBROUTINE PACKAGES_CHECK( myThid ) |
./model/src/packages_check.F |
112 |
PACKAGES_CHECK |
& 'TIMEAVE', 'taveFreq <> 0', myThid ) |
./model/src/packages_check.F |
117 |
PACKAGES_CHECK |
& 'CD_CODE', 'useCDscheme=.T.', myThid ) |
./model/src/packages_check.F |
123 |
PACKAGES_CHECK |
IF (useRunClock) CALL RUNCLOCK_CHECK( myThid ) |
./model/src/packages_check.F |
125 |
PACKAGES_CHECK |
IF (useRunClock) CALL PACKAGES_ERROR_MSG('RunClock',' ',myThid) |
./model/src/packages_check.F |
129 |
PACKAGES_CHECK |
IF (useKPP) CALL KPP_CHECK( myThid ) |
./model/src/packages_check.F |
131 |
PACKAGES_CHECK |
IF (useKPP) CALL PACKAGES_ERROR_MSG('KPP',' ',myThid) |
./model/src/packages_check.F |
135 |
PACKAGES_CHECK |
IF (usePP81) CALL PP81_CHECK( myThid ) |
./model/src/packages_check.F |
137 |
PACKAGES_CHECK |
IF (usePP81) CALL PACKAGES_ERROR_MSG('PP81',' ',myThid) |
./model/src/packages_check.F |
141 |
PACKAGES_CHECK |
IF (useMY82) CALL MY82_CHECK( myThid ) |
./model/src/packages_check.F |
143 |
PACKAGES_CHECK |
IF (useMY82) CALL PACKAGES_ERROR_MSG('MY82',' ',myThid) |
./model/src/packages_check.F |
147 |
PACKAGES_CHECK |
IF (useGGL90) CALL GGL90_CHECK( myThid ) |
./model/src/packages_check.F |
149 |
PACKAGES_CHECK |
IF (useGGL90) CALL PACKAGES_ERROR_MSG('GGL90',' ',myThid) |
./model/src/packages_check.F |
153 |
PACKAGES_CHECK |
IF (useOPPS) CALL OPPS_CHECK( myThid ) |
./model/src/packages_check.F |
155 |
PACKAGES_CHECK |
IF (useOPPS) CALL PACKAGES_ERROR_MSG('OPPS',' ',myThid) |
./model/src/packages_check.F |
159 |
PACKAGES_CHECK |
IF (useGMRedi) CALL GMREDI_CHECK( myThid ) |
./model/src/packages_check.F |
161 |
PACKAGES_CHECK |
IF (useGMRedi) CALL PACKAGES_ERROR_MSG('GMRedi',' ',myThid) |
./model/src/packages_check.F |
166 |
PACKAGES_CHECK |
& CALL PACKAGES_ERROR_MSG('DOWN_SLOPE',' ',myThid) |
./model/src/packages_check.F |
170 |
PACKAGES_CHECK |
IF (useOBCS) CALL OBCS_CHECK( myThid ) |
./model/src/packages_check.F |
172 |
PACKAGES_CHECK |
IF (useOBCS) CALL PACKAGES_ERROR_MSG('OBCS',' ',myThid) |
./model/src/packages_check.F |
176 |
PACKAGES_CHECK |
IF (useEXF) CALL PACKAGES_ERROR_MSG('EXF',' ',myThid) |
./model/src/packages_check.F |
181 |
PACKAGES_CHECK |
& 'BULK_FORCE', 'useBulkForce=.T.', myThid ) |
./model/src/packages_check.F |
185 |
PACKAGES_CHECK |
IF (useEBM) CALL PACKAGES_ERROR_MSG('EBM',' ',myThid) |
./model/src/packages_check.F |
189 |
PACKAGES_CHECK |
IF (useCheapAML) CALL PACKAGES_ERROR_MSG('CheapAML',' ',myThid) |
./model/src/packages_check.F |
193 |
PACKAGES_CHECK |
IF (useThSIce) CALL THSICE_CHECK( myThid ) |
./model/src/packages_check.F |
195 |
PACKAGES_CHECK |
IF (useThSIce) CALL PACKAGES_ERROR_MSG('ThSIce',' ',myThid) |
./model/src/packages_check.F |
199 |
PACKAGES_CHECK |
IF (useATM2D) CALL PACKAGES_ERROR_MSG('ATM2D',' ',myThid) |
./model/src/packages_check.F |
203 |
PACKAGES_CHECK |
IF (useAIM) CALL PACKAGES_ERROR_MSG('AIM',' ',myThid) |
./model/src/packages_check.F |
207 |
PACKAGES_CHECK |
IF (useLand) CALL PACKAGES_ERROR_MSG('Land',' ',myThid) |
./model/src/packages_check.F |
211 |
PACKAGES_CHECK |
IF (useFizhi) CALL PACKAGES_ERROR_MSG('Fizhi',' ',myThid) |
./model/src/packages_check.F |
215 |
PACKAGES_CHECK |
IF (useGridAlt) CALL PACKAGES_ERROR_MSG('GridAlt',' ',myThid) |
./model/src/packages_check.F |
219 |
PACKAGES_CHECK |
IF (usePTRACERS) CALL PACKAGES_ERROR_MSG('PTRACERS',' ',myThid) |
./model/src/packages_check.F |
223 |
PACKAGES_CHECK |
IF (useGCHEM) CALL GCHEM_CHECK( myThid ) |
./model/src/packages_check.F |
225 |
PACKAGES_CHECK |
IF (useGCHEM) CALL PACKAGES_ERROR_MSG('GCHEM',' ',myThid) |
./model/src/packages_check.F |
229 |
PACKAGES_CHECK |
IF (useRBCS) CALL PACKAGES_ERROR_MSG('RBCS',' ',myThid) |
./model/src/packages_check.F |
233 |
PACKAGES_CHECK |
IF (useOffLine) CALL PACKAGES_ERROR_MSG('OffLine',' ',myThid) |
./model/src/packages_check.F |
237 |
PACKAGES_CHECK |
IF (useMATRIX) CALL PACKAGES_ERROR_MSG('MATRIX',' ',myThid) |
./model/src/packages_check.F |
242 |
PACKAGES_CHECK |
& CALL PACKAGES_ERROR_MSG( 'SHAP_FILT', ' ', myThid ) |
./model/src/packages_check.F |
247 |
PACKAGES_CHECK |
& CALL PACKAGES_ERROR_MSG( 'ZONAL_FILT', ' ', myThid ) |
./model/src/packages_check.F |
251 |
PACKAGES_CHECK |
IF (useFLT) CALL PACKAGES_ERROR_MSG('FLT',' ',myThid) |
./model/src/packages_check.F |
255 |
PACKAGES_CHECK |
IF (useSBO) CALL SBO_CHECK( myThid ) |
./model/src/packages_check.F |
257 |
PACKAGES_CHECK |
IF (useSBO) CALL PACKAGES_ERROR_MSG('SBO',' ',myThid) |
./model/src/packages_check.F |
261 |
PACKAGES_CHECK |
IF (useSEAICE) CALL SEAICE_CHECK( myThid ) |
./model/src/packages_check.F |
263 |
PACKAGES_CHECK |
IF (useSEAICE) CALL PACKAGES_ERROR_MSG('SEAICE',' ',myThid) |
./model/src/packages_check.F |
267 |
PACKAGES_CHECK |
IF (useSALT_PLUME)CALL SALT_PLUME_CHECK( myThid ) |
./model/src/packages_check.F |
269 |
PACKAGES_CHECK |
IF (useSALT_PLUME)CALL PACKAGES_ERROR_MSG('SALT_PLUME',' ',myThid) |
./model/src/packages_check.F |
273 |
PACKAGES_CHECK |
IF (useShelfIce) CALL SHELFICE_CHECK( myThid ) |
./model/src/packages_check.F |
275 |
PACKAGES_CHECK |
IF (useShelfIce) CALL PACKAGES_ERROR_MSG('ShelfIce',' ',myThid) |
./model/src/packages_check.F |
279 |
PACKAGES_CHECK |
IF (useICEFRONT) CALL ICEFRONT_CHECK( myThid ) |
./model/src/packages_check.F |
281 |
PACKAGES_CHECK |
IF (useICEFRONT) CALL PACKAGES_ERROR_MSG('ICEFRONT',' ',myThid) |
./model/src/packages_check.F |
285 |
PACKAGES_CHECK |
CALL AUTODIFF_CHECK( myThid ) |
./model/src/packages_check.F |
289 |
PACKAGES_CHECK |
CALL CTRL_CHECK( myThid ) |
./model/src/packages_check.F |
293 |
PACKAGES_CHECK |
CALL COST_CHECK( myThid ) |
./model/src/packages_check.F |
297 |
PACKAGES_CHECK |
IF (useGRDCHK) CALL GRDCHK_CHECK( myThid ) |
./model/src/packages_check.F |
301 |
PACKAGES_CHECK |
IF (useSMOOTH) CALL PACKAGES_ERROR_MSG('SMOOTH',' ',myThid) |
./model/src/packages_check.F |
305 |
PACKAGES_CHECK |
IF (useDiagnostics) CALL DIAGNOSTICS_CHECK( myThid ) |
./model/src/packages_check.F |
308 |
PACKAGES_CHECK |
& CALL PACKAGES_ERROR_MSG( 'Diagnostics', ' ', myThid ) |
./model/src/packages_check.F |
312 |
PACKAGES_CHECK |
IF (useREGRID) CALL REGRID_CHECK( myThid ) |
./model/src/packages_check.F |
314 |
PACKAGES_CHECK |
IF (useREGRID) CALL PACKAGES_ERROR_MSG('REGRID',' ',myThid) |
./model/src/packages_check.F |
318 |
PACKAGES_CHECK |
IF ( useLayers ) CALL LAYERS_CHECK( myThid ) |
./model/src/packages_check.F |
320 |
PACKAGES_CHECK |
IF ( useLayers ) CALL PACKAGES_ERROR_MSG('LAYERS',' ',myThid) |
./model/src/packages_check.F |
324 |
PACKAGES_CHECK |
IF (useNEST_CHILD) CALL NEST_CHILD_CHECK( myThid ) |
./model/src/packages_check.F |
327 |
PACKAGES_CHECK |
& 'NEST_CHILD',' ',myThid) |
./model/src/packages_check.F |
331 |
PACKAGES_CHECK |
IF (useNEST_PARENT) CALL NEST_PARENT_CHECK( myThid ) |
./model/src/packages_check.F |
334 |
PACKAGES_CHECK |
& 'NEST_PARENT',' ',myThid) |
./model/src/packages_check.F |
338 |
PACKAGES_CHECK |
IF (useOASIS) CALL OASIS_CHECK( myThid ) |
./model/src/packages_check.F |
340 |
PACKAGES_CHECK |
IF (useOASIS) CALL PACKAGES_ERROR_MSG('OASIS',' ',myThid) |
./model/src/packages_check.F |
344 |
PACKAGES_CHECK |
CALL ECCO_CHECK( myThid ) |
./model/src/packages_check.F |
349 |
PACKAGES_CHECK |
& 'EMBED_FILES',' ',myThid) |
./model/src/packages_check.F |
34 |
PACKAGES_CHECK |
INTEGER myThid |
./model/src/packages_check.F |
353 |
PACKAGES_CHECK |
IF (useMYPACKAGE) CALL MYPACKAGE_CHECK( myThid ) |
./model/src/packages_check.F |
355 |
PACKAGES_CHECK |
IF (useMYPACKAGE) CALL PACKAGES_ERROR_MSG('MYPACKAGE',' ',myThid) |
./model/src/packages_check.F |
361 |
PACKAGES_CHECK |
IF (useGAD) CALL GAD_CHECK( myThid ) |
./model/src/packages_check.F |
368 |
PACKAGES_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./model/src/packages_check.F |
371 |
PACKAGES_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./model/src/packages_check.F |
379 |
PACKAGES_CHECK |
_BEGIN_MASTER( myThid ) |
./model/src/packages_check.F |
381 |
PACKAGES_CHECK |
_END_MASTER( myThid ) |
./model/src/packages_check.F |
45 |
PACKAGES_CHECK |
& SQUEEZE_RIGHT, myThid ) |
./model/src/packages_check.F |
48 |
PACKAGES_CHECK |
& SQUEEZE_RIGHT, myThid ) |
./model/src/packages_check.F |
57 |
PACKAGES_CHECK |
& SQUEEZE_RIGHT , myThid) |
./model/src/packages_check.F |
61 |
PACKAGES_CHECK |
& SQUEEZE_RIGHT , myThid) |
./model/src/packages_check.F |
70 |
PACKAGES_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./model/src/packages_check.F |
73 |
PACKAGES_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./model/src/packages_check.F |
82 |
PACKAGES_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./model/src/packages_check.F |
85 |
PACKAGES_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./model/src/packages_check.F |
95 |
PACKAGES_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./model/src/packages_check.F |
98 |
PACKAGES_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./model/src/packages_error_msg.F |
34 |
PACKAGES_ERROR_MSG |
INTEGER myThid |
./model/src/packages_error_msg.F |
56 |
PACKAGES_ERROR_MSG |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/packages_error_msg.F |
59 |
PACKAGES_ERROR_MSG |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/packages_error_msg.F |
63 |
PACKAGES_ERROR_MSG |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/packages_error_msg.F |
9 |
PACKAGES_ERROR_MSG |
SUBROUTINE PACKAGES_ERROR_MSG( msg1, msg2, myThid ) |
./model/src/packages_init_fixed.F |
10 |
PACKAGES_INIT_FIXED |
SUBROUTINE PACKAGES_INIT_FIXED( myThid ) |
./model/src/packages_init_fixed.F |
110 |
PACKAGES_INIT_FIXED |
INTEGER myThid |
./model/src/packages_init_fixed.F |
115 |
PACKAGES_INIT_FIXED |
CALL RUNCLOCK_INIT( myThid ) |
./model/src/packages_init_fixed.F |
122 |
PACKAGES_INIT_FIXED |
CALL DIAGNOSTICS_INIT_EARLY( myThid ) |
./model/src/packages_init_fixed.F |
123 |
PACKAGES_INIT_FIXED |
CALL DIAGNOSTICS_MAIN_INIT( myThid ) |
./model/src/packages_init_fixed.F |
129 |
PACKAGES_INIT_FIXED |
CALL GAD_INIT_FIXED( myThid ) |
./model/src/packages_init_fixed.F |
135 |
PACKAGES_INIT_FIXED |
CALL MOM_INIT_FIXED( myThid ) |
./model/src/packages_init_fixed.F |
141 |
PACKAGES_INIT_FIXED |
CALL CD_CODE_INIT_FIXED(myThid) |
./model/src/packages_init_fixed.F |
148 |
PACKAGES_INIT_FIXED |
CALL EXF_INIT_FIXED( myThid ) |
./model/src/packages_init_fixed.F |
155 |
PACKAGES_INIT_FIXED |
CALL GMREDI_INIT_FIXED( myThid ) |
./model/src/packages_init_fixed.F |
162 |
PACKAGES_INIT_FIXED |
CALL DWNSLP_INIT_FIXED( myThid ) |
./model/src/packages_init_fixed.F |
169 |
PACKAGES_INIT_FIXED |
CALL KPP_INIT_FIXED( myThid ) |
./model/src/packages_init_fixed.F |
176 |
PACKAGES_INIT_FIXED |
CALL MY82_INIT_FIXED( myThid ) |
./model/src/packages_init_fixed.F |
183 |
PACKAGES_INIT_FIXED |
CALL GGL90_INIT_FIXED( myThid ) |
./model/src/packages_init_fixed.F |
188 |
PACKAGES_INIT_FIXED |
IF (useOPPS) CALL OPPS_INIT( myThid ) |
./model/src/packages_init_fixed.F |
194 |
PACKAGES_INIT_FIXED |
CALL OBCS_INIT_FIXED( myThid ) |
./model/src/packages_init_fixed.F |
201 |
PACKAGES_INIT_FIXED |
CALL TIMEAVE_INIT_FIXED( myThid ) |
./model/src/packages_init_fixed.F |
208 |
PACKAGES_INIT_FIXED |
CALL SHAP_FILT_INIT_FIXED( myThid ) |
./model/src/packages_init_fixed.F |
215 |
PACKAGES_INIT_FIXED |
CALL ZONAL_FILT_INIT(myThid) |
./model/src/packages_init_fixed.F |
221 |
PACKAGES_INIT_FIXED |
IF (useAIM) CALL AIM_INITIALISE( myThid ) |
./model/src/packages_init_fixed.F |
228 |
PACKAGES_INIT_FIXED |
CALL TIMER_START('GRIDALT_INITIALISE [PACKAGES_INIT_F]',myThid) |
./model/src/packages_init_fixed.F |
229 |
PACKAGES_INIT_FIXED |
CALL GRIDALT_INITIALISE( myThid ) |
./model/src/packages_init_fixed.F |
230 |
PACKAGES_INIT_FIXED |
CALL TIMER_STOP ('GRIDALT_INITIALISE [PACKAGES_INIT_F]',myThid) |
./model/src/packages_init_fixed.F |
237 |
PACKAGES_INIT_FIXED |
IF (useFIZHI) CALL FIZHI_INIT_FIXED( myThid ) |
./model/src/packages_init_fixed.F |
243 |
PACKAGES_INIT_FIXED |
IF (useLand) CALL LAND_INITIALISE( myThid ) |
./model/src/packages_init_fixed.F |
250 |
PACKAGES_INIT_FIXED |
IF (useSEAICE) CALL SEAICE_COST_INIT_FIXED( myThid ) |
./model/src/packages_init_fixed.F |
254 |
PACKAGES_INIT_FIXED |
CALL SMOOTH_INIT_FIXED(myThid) |
./model/src/packages_init_fixed.F |
261 |
PACKAGES_INIT_FIXED |
CALL ECCO_COST_INIT_FIXED( myThid ) |
./model/src/packages_init_fixed.F |
265 |
PACKAGES_INIT_FIXED |
CALL PROFILES_INIT_FIXED( myThid ) |
./model/src/packages_init_fixed.F |
270 |
PACKAGES_INIT_FIXED |
CALL CTRL_INIT( myThid ) |
./model/src/packages_init_fixed.F |
275 |
PACKAGES_INIT_FIXED |
CALL CTRL_ADMTLM( myThid ) |
./model/src/packages_init_fixed.F |
280 |
PACKAGES_INIT_FIXED |
IF ( useFLT ) CALL FLT_INIT_FIXED( myThid ) |
./model/src/packages_init_fixed.F |
284 |
PACKAGES_INIT_FIXED |
IF (usePTRACERS) CALL LONGSTEP_INIT_FIXED(myThid) |
./model/src/packages_init_fixed.F |
288 |
PACKAGES_INIT_FIXED |
IF (usePTRACERS) CALL PTRACERS_INIT_FIXED(myThid) |
./model/src/packages_init_fixed.F |
292 |
PACKAGES_INIT_FIXED |
IF (useGCHEM) CALL GCHEM_INIT_FIXED(myThid) |
./model/src/packages_init_fixed.F |
296 |
PACKAGES_INIT_FIXED |
IF (useRBCS) CALL RBCS_INIT_FIXED(myThid) |
./model/src/packages_init_fixed.F |
300 |
PACKAGES_INIT_FIXED |
IF (useThSIce) CALL THSICE_INIT_FIXED(myThid) |
./model/src/packages_init_fixed.F |
304 |
PACKAGES_INIT_FIXED |
IF (useSEAICE) CALL SEAICE_INIT_FIXED(myThid) |
./model/src/packages_init_fixed.F |
308 |
PACKAGES_INIT_FIXED |
IF (useShelfIce) CALL SHELFICE_INIT_FIXED( myThid ) |
./model/src/packages_init_fixed.F |
312 |
PACKAGES_INIT_FIXED |
IF (useICEFRONT) CALL ICEFRONT_INIT_FIXED( myThid ) |
./model/src/packages_init_fixed.F |
316 |
PACKAGES_INIT_FIXED |
IF ( useEMBED_FILES ) CALL EMBED_FILES_INIT( myThid ) |
./model/src/packages_init_fixed.F |
320 |
PACKAGES_INIT_FIXED |
IF ( useREGRID ) CALL REGRID_INIT_FIXED( myThid ) |
./model/src/packages_init_fixed.F |
324 |
PACKAGES_INIT_FIXED |
IF ( useLayers ) CALL LAYERS_INIT_FIXED( myThid ) |
./model/src/packages_init_fixed.F |
328 |
PACKAGES_INIT_FIXED |
IF ( useCoupler ) CALL CPL_INIT_FIXED( myThid ) |
./model/src/packages_init_fixed.F |
332 |
PACKAGES_INIT_FIXED |
IF ( useAtm2d ) CALL ATM2D_INIT_FIXED( myThid ) |
./model/src/packages_init_fixed.F |
336 |
PACKAGES_INIT_FIXED |
IF (useSALT_PLUME) CALL SALT_PLUME_INIT_FIXED(myThid) |
./model/src/packages_init_fixed.F |
341 |
PACKAGES_INIT_FIXED |
IF (useOASIS) CALL OASIS_INIT_FIXED(myThid) |
./model/src/packages_init_fixed.F |
345 |
PACKAGES_INIT_FIXED |
IF (useMYPACKAGE) CALL MYPACKAGE_INIT_FIXED(myThid) |
./model/src/packages_init_fixed.F |
350 |
PACKAGES_INIT_FIXED |
IF ( useDiagnostics ) CALL DIAGNOSTICS_INIT_FIXED( myThid ) |
./model/src/packages_init_variables.F |
111 |
PACKAGES_INIT_VARIABLES |
INTEGER myThid |
./model/src/packages_init_variables.F |
116 |
PACKAGES_INIT_VARIABLES |
& CALL DEBUG_ENTER('PACKAGES_INIT_VARIABLES',myThid) |
./model/src/packages_init_variables.F |
11 |
PACKAGES_INIT_VARIABLES |
SUBROUTINE PACKAGES_INIT_VARIABLES( myThid ) |
./model/src/packages_init_variables.F |
121 |
PACKAGES_INIT_VARIABLES |
CALL DIAGNOSTICS_INIT_VARIA( myThid ) |
./model/src/packages_init_variables.F |
128 |
PACKAGES_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('GAD_INIT_VARIA',myThid) |
./model/src/packages_init_variables.F |
130 |
PACKAGES_INIT_VARIABLES |
CALL GAD_INIT_VARIA( myThid ) |
./model/src/packages_init_variables.F |
140 |
PACKAGES_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('CD_CODE_INI_VARS',myThid) |
./model/src/packages_init_variables.F |
142 |
PACKAGES_INIT_VARIABLES |
CALL CD_CODE_INI_VARS( myThid ) |
./model/src/packages_init_variables.F |
150 |
PACKAGES_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('GMREDI_INIT_VARIA',myThid) |
./model/src/packages_init_variables.F |
152 |
PACKAGES_INIT_VARIABLES |
CALL GMREDI_INIT_VARIA( myThid ) |
./model/src/packages_init_variables.F |
158 |
PACKAGES_INIT_VARIABLES |
CALL DWNSLP_INIT_VARIA( myThid ) |
./model/src/packages_init_variables.F |
166 |
PACKAGES_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('KPP_INIT_VARIA',myThid) |
./model/src/packages_init_variables.F |
168 |
PACKAGES_INIT_VARIABLES |
CALL KPP_INIT_VARIA( myThid ) |
./model/src/packages_init_variables.F |
176 |
PACKAGES_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('PP81_INIT_VARIA',myThid) |
./model/src/packages_init_variables.F |
178 |
PACKAGES_INIT_VARIABLES |
CALL PP81_INIT_VARIA( myThid ) |
./model/src/packages_init_variables.F |
185 |
PACKAGES_INIT_VARIABLES |
CALL MY82_INIT_VARIA( myThid ) |
./model/src/packages_init_variables.F |
193 |
PACKAGES_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('GGL90_INIT_VARIA',myThid) |
./model/src/packages_init_variables.F |
195 |
PACKAGES_INIT_VARIABLES |
CALL GGL90_INIT_VARIA( myThid ) |
./model/src/packages_init_variables.F |
205 |
PACKAGES_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('SEAICE_INIT_VARIA',myThid) |
./model/src/packages_init_variables.F |
207 |
PACKAGES_INIT_VARIABLES |
CALL SEAICE_INIT_VARIA( myThid ) |
./model/src/packages_init_variables.F |
216 |
PACKAGES_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('SHELFICE_INIT_VARIA',myThid) |
./model/src/packages_init_variables.F |
218 |
PACKAGES_INIT_VARIABLES |
CALL SHELFICE_INIT_VARIA( myThid ) |
./model/src/packages_init_variables.F |
225 |
PACKAGES_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('ICEFRONT_INIT_VARIA',myThid) |
./model/src/packages_init_variables.F |
227 |
PACKAGES_INIT_VARIABLES |
CALL ICEFRONT_INIT_VARIA( myThid ) |
./model/src/packages_init_variables.F |
236 |
PACKAGES_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('PTRACERS_INIT_VARIA',myThid) |
./model/src/packages_init_variables.F |
238 |
PACKAGES_INIT_VARIABLES |
CALL PTRACERS_INIT_VARIA( myThid ) |
./model/src/packages_init_variables.F |
241 |
PACKAGES_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('LONGSTEP_INIT_VARIA',myThid) |
./model/src/packages_init_variables.F |
243 |
PACKAGES_INIT_VARIABLES |
CALL LONGSTEP_INIT_VARIA( myThid ) |
./model/src/packages_init_variables.F |
254 |
PACKAGES_INIT_VARIABLES |
CALL OFFLINE_INIT_VARIA( myThid ) |
./model/src/packages_init_variables.F |
264 |
PACKAGES_INIT_VARIABLES |
CALL GCHEM_INIT_VARI( myThid ) |
./model/src/packages_init_variables.F |
273 |
PACKAGES_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('LAND_INI_VARS',myThid) |
./model/src/packages_init_variables.F |
275 |
PACKAGES_INIT_VARIABLES |
CALL LAND_INI_VARS( myThid ) |
./model/src/packages_init_variables.F |
280 |
PACKAGES_INIT_VARIABLES |
CALL SMOOTH_INIT_VARIA(myThid) |
./model/src/packages_init_variables.F |
286 |
PACKAGES_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('CTRL_INIT_VARIABLES',myThid) |
./model/src/packages_init_variables.F |
287 |
PACKAGES_INIT_VARIABLES |
CALL CTRL_INIT_VARIABLES ( myThid ) |
./model/src/packages_init_variables.F |
290 |
PACKAGES_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('CTRL_MAP_INI_ECCO',myThid) |
./model/src/packages_init_variables.F |
291 |
PACKAGES_INIT_VARIABLES |
CALL CTRL_MAP_INI_ECCO( myThid ) |
./model/src/packages_init_variables.F |
293 |
PACKAGES_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('CTRL_MAP_INI',myThid) |
./model/src/packages_init_variables.F |
294 |
PACKAGES_INIT_VARIABLES |
CALL CTRL_MAP_INI( myThid ) |
./model/src/packages_init_variables.F |
302 |
PACKAGES_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('EXF_INIT',myThid) |
./model/src/packages_init_variables.F |
304 |
PACKAGES_INIT_VARIABLES |
CALL EXF_INIT( myThid ) |
./model/src/packages_init_variables.F |
313 |
PACKAGES_INIT_VARIABLES |
CALL EBM_INI_VARS( myThid ) |
./model/src/packages_init_variables.F |
320 |
PACKAGES_INIT_VARIABLES |
CALL COST_INIT_VARIA( myThid ) |
./model/src/packages_init_variables.F |
326 |
PACKAGES_INIT_VARIABLES |
CALL PROFILES_INIT_VARIA( myThid ) |
./model/src/packages_init_variables.F |
333 |
PACKAGES_INIT_VARIABLES |
CALL FLT_INIT_VARIA( myThid ) |
./model/src/packages_init_variables.F |
339 |
PACKAGES_INIT_VARIABLES |
CALL BULKF_INIT_VARIA( myThid ) |
./model/src/packages_init_variables.F |
346 |
PACKAGES_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('THSICE_INI_VARS',myThid) |
./model/src/packages_init_variables.F |
348 |
PACKAGES_INIT_VARIABLES |
CALL THSICE_INI_VARS( myThid) |
./model/src/packages_init_variables.F |
357 |
PACKAGES_INIT_VARIABLES |
& CALL DEBUG_CALL('NEST_CHILD_INIT_VARIA',myThid) |
./model/src/packages_init_variables.F |
359 |
PACKAGES_INIT_VARIABLES |
CALL NEST_CHILD_INIT_VARIA( myThid ) |
./model/src/packages_init_variables.F |
368 |
PACKAGES_INIT_VARIABLES |
& CALL DEBUG_CALL('NEST_PARENT_INIT',myThid) |
./model/src/packages_init_variables.F |
370 |
PACKAGES_INIT_VARIABLES |
CALL NEST_PARENT_INIT_VARIA( myThid ) |
./model/src/packages_init_variables.F |
377 |
PACKAGES_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('CPL_INI_VARS',myThid) |
./model/src/packages_init_variables.F |
379 |
PACKAGES_INIT_VARIABLES |
CALL CPL_INI_VARS( myThid ) |
./model/src/packages_init_variables.F |
386 |
PACKAGES_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('ATM2D_INIT_VARS',myThid) |
./model/src/packages_init_variables.F |
388 |
PACKAGES_INIT_VARIABLES |
CALL ATM2D_INIT_VARS( myThid ) |
./model/src/packages_init_variables.F |
396 |
PACKAGES_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('FIZHI_INIT_VARS',myThid) |
./model/src/packages_init_variables.F |
398 |
PACKAGES_INIT_VARIABLES |
CALL FIZHI_INIT_VARS( myThid ) |
./model/src/packages_init_variables.F |
405 |
PACKAGES_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('MATRIX_INIT',myThid) |
./model/src/packages_init_variables.F |
407 |
PACKAGES_INIT_VARIABLES |
CALL MATRIX_INIT( myThid ) |
./model/src/packages_init_variables.F |
413 |
PACKAGES_INIT_VARIABLES |
CALL RBCS_INIT_VARIA( myThid ) |
./model/src/packages_init_variables.F |
419 |
PACKAGES_INIT_VARIABLES |
CALL REGRID_INIT_VARIA( myThid ) |
./model/src/packages_init_variables.F |
424 |
PACKAGES_INIT_VARIABLES |
IF ( useLayers ) CALL LAYERS_INIT_VARIA( myThid ) |
./model/src/packages_init_variables.F |
429 |
PACKAGES_INIT_VARIABLES |
CALL SALT_PLUME_INIT_VARIA( myThid ) |
./model/src/packages_init_variables.F |
435 |
PACKAGES_INIT_VARIABLES |
CALL CHEAPAML_INIT_VARIA( myThid ) |
./model/src/packages_init_variables.F |
441 |
PACKAGES_INIT_VARIABLES |
CALL MYPACKAGE_INIT_VARIA( myThid ) |
./model/src/packages_init_variables.F |
449 |
PACKAGES_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('OBCS_INIT_VARIABLES',myThid) |
./model/src/packages_init_variables.F |
451 |
PACKAGES_INIT_VARIABLES |
CALL OBCS_INIT_VARIABLES( myThid ) |
./model/src/packages_init_variables.F |
457 |
PACKAGES_INIT_VARIABLES |
& CALL DEBUG_LEAVE('PACKAGES_INIT_VARIABLES',myThid) |
./verification/tutorial_global_oce_biogeo/code_ad/cost_tracer.F |
37 |
COST_TRACER |
integer myThid |
./verification/tutorial_global_oce_biogeo/code_ad/cost_tracer.F |
6 |
COST_TRACER |
subroutine COST_TRACER( bi, bj, myThid ) |
./verification/tutorial_global_oce_latlon/code/ptracers_forcing.F |
13 |
PTRACERS_FORCING |
I myIter,myTime,myThid ) |
./verification/tutorial_global_oce_latlon/code/ptracers_forcing.F |
44 |
PTRACERS_FORCING |
INTEGER myThid |
./verification/tutorial_global_oce_latlon/code/ptracers_forcing.F |
73 |
PTRACERS_FORCING |
I myTime,myIter, myThid) |
./verification/tutorial_global_oce_latlon/code/ptracers_forcing.F |
97 |
PTRACERS_FORCING |
I myTime, myThid ) |
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
104 |
PTRACERS_FORCING_SURF |
CALL DIAGNOSTICS_FILL(add2EmP,'Add2EmP ',0,1,2,bi,bj,myThid) |
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
13 |
PTRACERS_FORCING_SURF |
I myTime,myIter,myThid ) |
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
43 |
PTRACERS_FORCING_SURF |
INTEGER myThid |
./model/src/packages_readparms.F |
11 |
PACKAGES_READPARMS |
SUBROUTINE PACKAGES_READPARMS(myThid) |
./model/src/packages_readparms.F |
129 |
PACKAGES_READPARMS |
INTEGER myThid |
./model/src/packages_readparms.F |
135 |
PACKAGES_READPARMS |
CALL MNC_READPARMS( myThid ) |
./model/src/packages_readparms.F |
141 |
PACKAGES_READPARMS |
IF (useRunClock) CALL RUNCLOCK_READPARMS( myThid ) |
./model/src/packages_readparms.F |
146 |
PACKAGES_READPARMS |
IF ( useCAL ) CALL CAL_READPARMS( myThid ) |
./model/src/packages_readparms.F |
151 |
PACKAGES_READPARMS |
IF (useEXF) CALL EXF_READPARMS ( myThid ) |
./model/src/packages_readparms.F |
156 |
PACKAGES_READPARMS |
IF (useGMRedi) CALL GMREDI_READPARMS( myThid ) |
./model/src/packages_readparms.F |
161 |
PACKAGES_READPARMS |
IF (useDOWN_SLOPE) CALL DWNSLP_READPARMS( myThid ) |
./model/src/packages_readparms.F |
166 |
PACKAGES_READPARMS |
IF (useKPP) CALL KPP_READPARMS( myThid ) |
./model/src/packages_readparms.F |
171 |
PACKAGES_READPARMS |
IF (usePP81) CALL PP81_READPARMS( myThid ) |
./model/src/packages_readparms.F |
176 |
PACKAGES_READPARMS |
IF (useMY82) CALL MY82_READPARMS( myThid ) |
./model/src/packages_readparms.F |
181 |
PACKAGES_READPARMS |
IF (useGGL90) CALL GGL90_READPARMS( myThid ) |
./model/src/packages_readparms.F |
186 |
PACKAGES_READPARMS |
IF (useOPPS) CALL OPPS_READPARMS( myThid ) |
./model/src/packages_readparms.F |
191 |
PACKAGES_READPARMS |
IF (useSBO) CALL SBO_READPARMS( myThid ) |
./model/src/packages_readparms.F |
196 |
PACKAGES_READPARMS |
IF (useSEAICE) CALL SEAICE_READPARMS( myThid ) |
./model/src/packages_readparms.F |
201 |
PACKAGES_READPARMS |
IF (useShelfIce) CALL SHELFICE_READPARMS( myThid ) |
./model/src/packages_readparms.F |
206 |
PACKAGES_READPARMS |
IF (useICEFRONT) CALL ICEFRONT_READPARMS( myThid ) |
./model/src/packages_readparms.F |
210 |
PACKAGES_READPARMS |
IF (useSHAP_FILT) CALL SHAP_FILT_READPARMS( myThid ) |
./model/src/packages_readparms.F |
214 |
PACKAGES_READPARMS |
IF (useZONAL_FILT) CALL ZONAL_FILT_READPARMS( myThid ) |
./model/src/packages_readparms.F |
218 |
PACKAGES_READPARMS |
IF (useOBCS) CALL OBCS_READPARMS( myThid ) |
./model/src/packages_readparms.F |
222 |
PACKAGES_READPARMS |
IF (useOffLine) CALL OFFLINE_READPARMS( myThid ) |
./model/src/packages_readparms.F |
227 |
PACKAGES_READPARMS |
IF (useBulkForce) CALL BULKF_READPARMS( myThid ) |
./model/src/packages_readparms.F |
232 |
PACKAGES_READPARMS |
IF (useThSIce) CALL THSICE_READPARMS( myThid ) |
./model/src/packages_readparms.F |
237 |
PACKAGES_READPARMS |
IF (usePTRACERS) CALL LONGSTEP_READPARMS( myThid ) |
./model/src/packages_readparms.F |
240 |
PACKAGES_READPARMS |
IF (usePTRACERS) CALL PTRACERS_READPARMS( myThid ) |
./model/src/packages_readparms.F |
244 |
PACKAGES_READPARMS |
IF (useGCHEM) CALL GCHEM_READPARMS( myThid ) |
./model/src/packages_readparms.F |
248 |
PACKAGES_READPARMS |
IF (useRBCS) CALL RBCS_READPARMS( myThid ) |
./model/src/packages_readparms.F |
252 |
PACKAGES_READPARMS |
IF (useSALT_PLUME) CALL SALT_PLUME_READPARMS( myThid ) |
./model/src/packages_readparms.F |
257 |
PACKAGES_READPARMS |
IF (useCheapAML) CALL CHEAPAML_READPARMS( myThid ) |
./model/src/packages_readparms.F |
262 |
PACKAGES_READPARMS |
CALL OPTIM_READPARMS( myThid ) |
./model/src/packages_readparms.F |
264 |
PACKAGES_READPARMS |
CALL CTRL_READPARMS( myThid ) |
./model/src/packages_readparms.F |
269 |
PACKAGES_READPARMS |
CALL COST_READPARMS( myThid ) |
./model/src/packages_readparms.F |
274 |
PACKAGES_READPARMS |
if (useGrdchk) CALL GRDCHK_READPARMS( myThid ) |
./model/src/packages_readparms.F |
278 |
PACKAGES_READPARMS |
IF (useEBM) CALL EBM_READPARMS( myThid ) |
./model/src/packages_readparms.F |
283 |
PACKAGES_READPARMS |
IF ( useSMOOTH ) CALL SMOOTH_READPARMS ( myThid ) |
./model/src/packages_readparms.F |
288 |
PACKAGES_READPARMS |
CALL ECCO_READPARMS ( myThid ) |
./model/src/packages_readparms.F |
293 |
PACKAGES_READPARMS |
CALL PROFILES_READPARMS ( myThid ) |
./model/src/packages_readparms.F |
297 |
PACKAGES_READPARMS |
IF ( useFLT ) CALL FLT_READPARMS( myThid ) |
./model/src/packages_readparms.F |
302 |
PACKAGES_READPARMS |
IF (useNEST_CHILD) CALL NEST_CHILD_READPARMS ( myThid ) |
./model/src/packages_readparms.F |
307 |
PACKAGES_READPARMS |
IF (useNEST_PARENT) CALL NEST_PARENT_READPARMS ( myThid ) |
./model/src/packages_readparms.F |
312 |
PACKAGES_READPARMS |
IF ( useCoupler ) CALL CPL_READPARMS( myThid ) |
./model/src/packages_readparms.F |
317 |
PACKAGES_READPARMS |
IF ( useFizhi ) CALL FIZHI_READPARMS( myThid ) |
./model/src/packages_readparms.F |
322 |
PACKAGES_READPARMS |
IF ( useDiagnostics ) CALL DIAGNOSTICS_READPARMS( myThid ) |
./model/src/packages_readparms.F |
327 |
PACKAGES_READPARMS |
IF (useMATRIX) CALL MATRIX_READPARMS ( myThid ) |
./model/src/packages_readparms.F |
331 |
PACKAGES_READPARMS |
IF ( useREGRID ) CALL REGRID_READPARMS( myThid ) |
./model/src/packages_readparms.F |
335 |
PACKAGES_READPARMS |
IF ( useLayers ) CALL LAYERS_READPARMS( myThid ) |
./model/src/packages_readparms.F |
339 |
PACKAGES_READPARMS |
IF (useOASIS) CALL OASIS_READPARMS ( myThid ) |
./model/src/packages_readparms.F |
343 |
PACKAGES_READPARMS |
IF (useMYPACKAGE) CALL MYPACKAGE_READPARMS( myThid ) |
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
34 |
COST_HFLUX |
integer myThid |
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
43 |
COST_HFLUX |
DO bj=myByLo(myThid),myByHi(myThid) |
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
44 |
COST_HFLUX |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
52 |
COST_HFLUX |
_GLOBAL_SUM_RL( tmpC , myThid ) |
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
55 |
COST_HFLUX |
DO bj=myByLo(myThid),myByHi(myThid) |
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
56 |
COST_HFLUX |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
59 |
COST_HFLUX |
act1 = bi - myBxLo(myThid) |
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
60 |
COST_HFLUX |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
61 |
COST_HFLUX |
act2 = bj - myByLo(myThid) |
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
62 |
COST_HFLUX |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
63 |
COST_HFLUX |
act3 = myThid - 1 |
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
7 |
COST_HFLUX |
SUBROUTINE COST_HFLUX( myThid ) |
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
30 |
COST_TEMP |
INTEGER myThid |
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
43 |
COST_TEMP |
CALL READ_FLD_XYZ_RL('lev_t_an.bin',' ',thetalev,0,myThid) |
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
47 |
COST_TEMP |
DO bj=myByLo(myThid),myByHi(myThid) |
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
48 |
COST_TEMP |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
58 |
COST_TEMP |
_GLOBAL_SUM_RL( tmp , myThid ) |
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
61 |
COST_TEMP |
DO bj=myByLo(myThid),myByHi(myThid) |
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
62 |
COST_TEMP |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
65 |
COST_TEMP |
act1 = bi - myBxLo(myThid) |
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
66 |
COST_TEMP |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
67 |
COST_TEMP |
act2 = bj - myByLo(myThid) |
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
68 |
COST_TEMP |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
69 |
COST_TEMP |
act3 = myThid - 1 |
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
6 |
COST_TEMP |
SUBROUTINE COST_TEMP( myThid ) |
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
116 |
COST_WEIGHTS |
& whfluxm, 1, 0, myThid ) |
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
117 |
COST_WEIGHTS |
_EXCH_XY_RL(whfluxm , myThid ) |
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
134 |
COST_WEIGHTS |
CALL ACTIVE_WRITE_XY('whfluxm',whfluxm,1,0,myThid,dummy) |
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
28 |
COST_WEIGHTS |
INTEGER myThid |
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
48 |
COST_WEIGHTS |
jtlo = myByLo(myThid) |
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
49 |
COST_WEIGHTS |
jthi = myByHi(myThid) |
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
50 |
COST_WEIGHTS |
itlo = myBxLo(myThid) |
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
51 |
COST_WEIGHTS |
ithi = myBxHi(myThid) |
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
6 |
COST_WEIGHTS |
SUBROUTINE COST_WEIGHTS( myThid ) |
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
80 |
COST_WEIGHTS |
_BEGIN_MASTER(myThid) |
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
81 |
COST_WEIGHTS |
CALL MDSFINDUNIT( iUnit, myThid ) |
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
82 |
COST_WEIGHTS |
length_of_rec = MDS_RECLEN( precFloat64, Nr, myThid ) |
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
90 |
COST_WEIGHTS |
_END_MASTER(myThid) |
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
99 |
COST_WEIGHTS |
& SQUEEZE_RIGHT , myThid ) |
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
12 |
EXTERNAL_FORCING_SURF |
I myTime, myIter, myThid ) |
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
154 |
EXTERNAL_FORCING_SURF |
& 'TRELAX ',0, 1,2,bi,bj,myThid) |
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
160 |
EXTERNAL_FORCING_SURF |
& 'SRELAX ',0, 1,2,bi,bj,myThid) |
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
226 |
EXTERNAL_FORCING_SURF |
I myTime,myIter,myThid ) |
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
356 |
EXTERNAL_FORCING_SURF |
I myTime,myIter,myThid ) |
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
419 |
EXTERNAL_FORCING_SURF |
I myTime,myIter,myThid ) |
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
51 |
EXTERNAL_FORCING_SURF |
INTEGER myThid |
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
10 |
INI_FORCING |
SUBROUTINE INI_FORCING( myThid ) |
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
118 |
INI_FORCING |
CALL READ_FLD_XY_RS( zonalWindFile, ' ', fu, 0, myThid ) |
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
121 |
INI_FORCING |
CALL READ_FLD_XY_RS( meridWindFile, ' ', fv, 0, myThid ) |
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
124 |
INI_FORCING |
CALL READ_FLD_XY_RS( surfQFile, ' ', Qnet, 0, myThid ) |
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
126 |
INI_FORCING |
CALL READ_FLD_XY_RS( surfQnetFile, ' ', Qnet, 0, myThid ) |
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
129 |
INI_FORCING |
CALL READ_FLD_XY_RS( EmPmRfile, ' ', EmPmR, 0, myThid ) |
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
133 |
INI_FORCING |
DO bj = myByLo(myThid), myByHi(myThid) |
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
134 |
INI_FORCING |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
145 |
INI_FORCING |
CALL READ_FLD_XY_RS( saltFluxFile, ' ', saltFlux, 0, myThid ) |
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
148 |
INI_FORCING |
CALL READ_FLD_XY_RS( thetaClimFile, ' ', SST, 0, myThid ) |
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
151 |
INI_FORCING |
CALL READ_FLD_XY_RS( saltClimFile, ' ', SSS, 0, myThid ) |
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
155 |
INI_FORCING |
& lambdaThetaClimRelax, 0, myThid ) |
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
159 |
INI_FORCING |
& lambdaSaltClimRelax, 0, myThid ) |
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
163 |
INI_FORCING |
CALL READ_FLD_XY_RS( surfQswFile, ' ', Qsw, 0, myThid ) |
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
167 |
INI_FORCING |
DO bj = myByLo(myThid), myByHi(myThid) |
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
168 |
INI_FORCING |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
181 |
INI_FORCING |
CALL READ_FLD_XY_RS( pLoadFile, ' ', pLoad, 0, myThid ) |
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
185 |
INI_FORCING |
CALL EXCH_UV_XY_RS( fu,fv, .TRUE., myThid ) |
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
186 |
INI_FORCING |
CALL EXCH_XY_RS( Qnet , myThid ) |
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
187 |
INI_FORCING |
CALL EXCH_XY_RS( EmPmR, myThid ) |
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
188 |
INI_FORCING |
CALL EXCH_XY_RS( saltFlux, myThid ) |
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
189 |
INI_FORCING |
CALL EXCH_XY_RS( SST , myThid ) |
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
190 |
INI_FORCING |
CALL EXCH_XY_RS( SSS , myThid ) |
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
191 |
INI_FORCING |
CALL EXCH_XY_RS( lambdaThetaClimRelax, myThid ) |
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
192 |
INI_FORCING |
CALL EXCH_XY_RS( lambdaSaltClimRelax , myThid ) |
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
194 |
INI_FORCING |
CALL EXCH_XY_RS(Qsw , myThid ) |
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
197 |
INI_FORCING |
CALL EXCH_XY_RS(pLoad , myThid ) |
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
201 |
INI_FORCING |
CALL EXCH_XY_RS( Qnetm, myThid ) |
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
31 |
INI_FORCING |
INTEGER myThid |
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
42 |
INI_FORCING |
DO bj = myByLo(myThid), myByHi(myThid) |
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
43 |
INI_FORCING |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
93 |
INI_FORCING |
DO bj = myByLo(myThid), myByHi(myThid) |
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
94 |
INI_FORCING |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/packages_write_pickup.F |
105 |
PACKAGES_WRITE_PICKUP |
& suffix, myTime, myIter, myThid ) |
./model/src/packages_write_pickup.F |
113 |
PACKAGES_WRITE_PICKUP |
& suffix, myTime, myIter, myThid ) |
./model/src/packages_write_pickup.F |
120 |
PACKAGES_WRITE_PICKUP |
CALL FIZHI_WRITE_PICKUP(suffix,myTime,myIter,myThid) |
./model/src/packages_write_pickup.F |
121 |
PACKAGES_WRITE_PICKUP |
CALL FIZHI_WRITE_VEGTILES(suffix,0,myTime,myIter,myThid) |
./model/src/packages_write_pickup.F |
122 |
PACKAGES_WRITE_PICKUP |
CALL FIZHI_WRITE_DATETIME(myTime,myIter,myThid) |
./model/src/packages_write_pickup.F |
130 |
PACKAGES_WRITE_PICKUP |
I suffix, myTime, myIter, myThid ) |
./model/src/packages_write_pickup.F |
137 |
PACKAGES_WRITE_PICKUP |
I suffix, myTime, myIter, myThid ) |
./model/src/packages_write_pickup.F |
145 |
PACKAGES_WRITE_PICKUP |
I suffix, myTime, myIter, myThid ) |
./model/src/packages_write_pickup.F |
153 |
PACKAGES_WRITE_PICKUP |
I suffix, myTime, myIter, myThid ) |
./model/src/packages_write_pickup.F |
161 |
PACKAGES_WRITE_PICKUP |
I suffix, myTime, myIter, myThid) |
./model/src/packages_write_pickup.F |
168 |
PACKAGES_WRITE_PICKUP |
I suffix, myTime, myIter, myThid ) |
./model/src/packages_write_pickup.F |
16 |
PACKAGES_WRITE_PICKUP |
I myTime, myIter, myThid ) |
./model/src/packages_write_pickup.F |
39 |
PACKAGES_WRITE_PICKUP |
INTEGER myThid |
./model/src/packages_write_pickup.F |
62 |
PACKAGES_WRITE_PICKUP |
I suffix, myTime, myIter, myThid ) |
./model/src/packages_write_pickup.F |
69 |
PACKAGES_WRITE_PICKUP |
I suffix, myTime, myIter, myThid ) |
./model/src/packages_write_pickup.F |
76 |
PACKAGES_WRITE_PICKUP |
& suffix, myTime, myIter, myThid ) |
./model/src/packages_write_pickup.F |
83 |
PACKAGES_WRITE_PICKUP |
I suffix, myTime, myIter, myThid ) |
./model/src/packages_write_pickup.F |
90 |
PACKAGES_WRITE_PICKUP |
I suffix, myTime, myIter, myThid ) |
./model/src/packages_write_pickup.F |
97 |
PACKAGES_WRITE_PICKUP |
& suffix, myTime, myIter, myThid ) |
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
110 |
EXTERNAL_FORCING_V |
INTEGER myThid |
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
11 |
EXTERNAL_FORCING_U |
I myTime, myThid ) |
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
147 |
EXTERNAL_FORCING_T |
I myTime, myThid ) |
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
178 |
EXTERNAL_FORCING_T |
INTEGER myThid |
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
220 |
EXTERNAL_FORCING_S |
I myTime, myThid ) |
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
252 |
EXTERNAL_FORCING_S |
INTEGER myThid |
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
42 |
EXTERNAL_FORCING_U |
INTEGER myThid |
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
79 |
EXTERNAL_FORCING_V |
I myTime, myThid ) |
./model/src/plot_field.F |
126 |
PLOT_FIELD_XYRL |
INTEGER myThid |
./model/src/plot_field.F |
140 |
PLOT_FIELD_XYRL |
IF ( myThid .EQ. 1 ) THEN |
./model/src/plot_field.F |
14 |
PLOT_FIELD_XYRS |
I fld, fldNam , myIter, myThid ) |
./model/src/plot_field.F |
180 |
PLOT_FIELD_XYZRS |
I fld, fldNam , fldNz, myIter, myThid ) |
./model/src/plot_field.F |
214 |
PLOT_FIELD_XYZRS |
INTEGER myThid |
./model/src/plot_field.F |
228 |
PLOT_FIELD_XYZRS |
IF ( myThid .EQ. 1 ) THEN |
./model/src/plot_field.F |
273 |
PLOT_FIELD_XYZRL |
I fld, fldNam , fldNz, myIter, myThid ) |
./model/src/plot_field.F |
307 |
PLOT_FIELD_XYZRL |
INTEGER myThid |
./model/src/plot_field.F |
321 |
PLOT_FIELD_XYZRL |
IF ( myThid .EQ. 1 ) THEN |
./model/src/plot_field.F |
367 |
PLOT_FIELD_XZRS |
I fld, fldNam , fldNz, myIter, myThid ) |
./model/src/plot_field.F |
401 |
PLOT_FIELD_XZRS |
INTEGER myThid |
./model/src/plot_field.F |
415 |
PLOT_FIELD_XZRS |
IF ( myThid .EQ. 1 ) THEN |
./model/src/plot_field.F |
43 |
PLOT_FIELD_XYRS |
INTEGER myThid |
./model/src/plot_field.F |
455 |
PLOT_FIELD_XZRL |
I fld, fldNam , fldNz, myIter, myThid ) |
./model/src/plot_field.F |
489 |
PLOT_FIELD_XZRL |
INTEGER myThid |
./model/src/plot_field.F |
503 |
PLOT_FIELD_XZRL |
IF ( myThid .EQ. 1 ) THEN |
./model/src/plot_field.F |
545 |
PLOT_FIELD_YZRS |
I fld, fldNam , fldNz, myIter, myThid ) |
./model/src/plot_field.F |
579 |
PLOT_FIELD_YZRS |
INTEGER myThid |
./model/src/plot_field.F |
57 |
PLOT_FIELD_XYRS |
IF ( myThid .EQ. 1 ) THEN |
./model/src/plot_field.F |
593 |
PLOT_FIELD_YZRS |
IF ( myThid .EQ. 1 ) THEN |
./model/src/plot_field.F |
634 |
PLOT_FIELD_YZRL |
I fld, fldNam , fldNz, myIter, myThid ) |
./model/src/plot_field.F |
668 |
PLOT_FIELD_YZRL |
INTEGER myThid |
./model/src/plot_field.F |
682 |
PLOT_FIELD_YZRL |
IF ( myThid .EQ. 1 ) THEN |
./model/src/plot_field.F |
97 |
PLOT_FIELD_XYRL |
I fld, fldNam , myIter, myThid ) |
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
103 |
PTRACERS_FORCING_SURF |
CALL DIAGNOSTICS_FILL(add2EmP,'Add2EmP ',0,1,2,bi,bj,myThid) |
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
13 |
PTRACERS_FORCING_SURF |
I myTime,myIter,myThid ) |
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
43 |
PTRACERS_FORCING_SURF |
INTEGER myThid |
./model/src/post_cg3d.F |
11 |
POST_CG3D |
I myTime, myIter, myThid ) |
./model/src/post_cg3d.F |
124 |
POST_CG3D |
CALL EXCH_XY_RL( dPhiNH, myThid ) |
./model/src/post_cg3d.F |
132 |
POST_CG3D |
CALL WRITE_FLD_XYZ_RL( 'cg3d_x.',sufx, phi_nh, myIter, myThid ) |
./model/src/post_cg3d.F |
134 |
POST_CG3D |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/post_cg3d.F |
135 |
POST_CG3D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/post_cg3d.F |
45 |
POST_CG3D |
INTEGER myThid |
./model/src/post_cg3d.F |
60 |
POST_CG3D |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/post_cg3d.F |
61 |
POST_CG3D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/pre_cg3d.F |
14 |
PRE_CG3D |
I myTime, myIter, myThid ) |
./model/src/pre_cg3d.F |
54 |
PRE_CG3D |
INTEGER myThid |
./model/src/pre_cg3d.F |
76 |
PRE_CG3D |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/pre_cg3d.F |
77 |
PRE_CG3D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/pressure_for_eos.F |
11 |
PRESSURE_FOR_EOS |
I myThid ) |
./model/src/pressure_for_eos.F |
38 |
PRESSURE_FOR_EOS |
INTEGER myThid |
./model/src/read_pickup.F |
105 |
READ_PICKUP |
I Nr, myIter, myThid ) |
./model/src/read_pickup.F |
107 |
READ_PICKUP |
_BEGIN_MASTER( myThid ) |
./model/src/read_pickup.F |
112 |
READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/read_pickup.F |
115 |
READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/read_pickup.F |
118 |
READ_PICKUP |
_END_MASTER( myThid ) |
./model/src/read_pickup.F |
12 |
READ_PICKUP |
I myIter, myThid ) |
./model/src/read_pickup.F |
130 |
READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/read_pickup.F |
134 |
READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/read_pickup.F |
139 |
READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/read_pickup.F |
144 |
READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/read_pickup.F |
149 |
READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/read_pickup.F |
152 |
READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/read_pickup.F |
163 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, uVel, 1, myIter,myThid ) |
./model/src/read_pickup.F |
164 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gU, 2, myIter,myThid ) |
./model/src/read_pickup.F |
165 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, guNm1, 3, myIter,myThid ) |
./model/src/read_pickup.F |
166 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, vVel, 4, myIter,myThid ) |
./model/src/read_pickup.F |
167 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gV, 5, myIter,myThid ) |
./model/src/read_pickup.F |
168 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gvNm1, 6, myIter,myThid ) |
./model/src/read_pickup.F |
169 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, theta, 7, myIter,myThid ) |
./model/src/read_pickup.F |
170 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gT, 8, myIter,myThid ) |
./model/src/read_pickup.F |
171 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gtNm1, 9, myIter,myThid ) |
./model/src/read_pickup.F |
172 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, salt, 10, myIter,myThid ) |
./model/src/read_pickup.F |
173 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gS, 11, myIter,myThid ) |
./model/src/read_pickup.F |
174 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gsNm1,12, myIter,myThid ) |
./model/src/read_pickup.F |
177 |
READ_PICKUP |
& 12*Nr+1, myIter,myThid ) |
./model/src/read_pickup.F |
181 |
READ_PICKUP |
& 12*Nr+2, myIter,myThid ) |
./model/src/read_pickup.F |
189 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, uVel, nj+1, myIter,myThid ) |
./model/src/read_pickup.F |
191 |
READ_PICKUP |
& nj+2, myIter,myThid ) |
./model/src/read_pickup.F |
193 |
READ_PICKUP |
& nj+j, myIter,myThid ) |
./model/src/read_pickup.F |
195 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, vVel, nj+1, myIter,myThid ) |
./model/src/read_pickup.F |
197 |
READ_PICKUP |
& nj+2, myIter,myThid ) |
./model/src/read_pickup.F |
199 |
READ_PICKUP |
& nj+j, myIter,myThid ) |
./model/src/read_pickup.F |
201 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, theta,nj+1, myIter,myThid ) |
./model/src/read_pickup.F |
203 |
READ_PICKUP |
& nj+2, myIter,myThid ) |
./model/src/read_pickup.F |
205 |
READ_PICKUP |
& nj+j, myIter,myThid ) |
./model/src/read_pickup.F |
207 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, salt, nj+1, myIter,myThid ) |
./model/src/read_pickup.F |
209 |
READ_PICKUP |
& nj+2, myIter,myThid ) |
./model/src/read_pickup.F |
211 |
READ_PICKUP |
& nj+j, myIter,myThid ) |
./model/src/read_pickup.F |
214 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, uVel, 1, myIter,myThid ) |
./model/src/read_pickup.F |
215 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, guNm1, 2, myIter,myThid ) |
./model/src/read_pickup.F |
216 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, vVel, 3, myIter,myThid ) |
./model/src/read_pickup.F |
217 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gvNm1, 4, myIter,myThid ) |
./model/src/read_pickup.F |
218 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, theta, 5, myIter,myThid ) |
./model/src/read_pickup.F |
219 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gtNm1, 6, myIter,myThid ) |
./model/src/read_pickup.F |
220 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, salt, 7, myIter,myThid ) |
./model/src/read_pickup.F |
221 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gsNm1, 8, myIter,myThid ) |
./model/src/read_pickup.F |
224 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn,fp,1, etaN, nj*Nr+1, myIter,myThid ) |
./model/src/read_pickup.F |
227 |
READ_PICKUP |
CALL READ_REC_3D_RL(fn,fp,1,dEtaHdt,nj*Nr+2,myIter,myThid ) |
./model/src/read_pickup.F |
230 |
READ_PICKUP |
CALL READ_REC_3D_RL(fn,fp,1, etaH, nj*Nr+3, myIter,myThid ) |
./model/src/read_pickup.F |
237 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, totPhiHyd,1,myIter,myThid ) |
./model/src/read_pickup.F |
242 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, phi_nh, 1, myIter,myThid ) |
./model/src/read_pickup.F |
245 |
READ_PICKUP |
& 2, myIter,myThid ) |
./model/src/read_pickup.F |
247 |
READ_PICKUP |
& 2, myIter,myThid ) |
./model/src/read_pickup.F |
249 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, gwNm1, 2, myIter,myThid ) |
./model/src/read_pickup.F |
258 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
260 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
262 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
264 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
273 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
277 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
282 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
286 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
293 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
297 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
302 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
306 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
313 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
317 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
322 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
326 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
334 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
338 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
346 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
349 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
354 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
359 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
364 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
372 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
377 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
384 |
READ_PICKUP |
& nj, fp, Nr, myIter, myThid ) |
./model/src/read_pickup.F |
391 |
READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
./model/src/read_pickup.F |
395 |
READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
./model/src/read_pickup.F |
401 |
READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
./model/src/read_pickup.F |
405 |
READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
./model/src/read_pickup.F |
416 |
READ_PICKUP |
I myIter, myThid ) |
./model/src/read_pickup.F |
420 |
READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/read_pickup.F |
426 |
READ_PICKUP |
I myIter, myThid ) |
./model/src/read_pickup.F |
42 |
READ_PICKUP |
INTEGER myThid |
./model/src/read_pickup.F |
434 |
READ_PICKUP |
CALL MNC_FILE_CLOSE_ALL_MATCHING(fn, myThid) |
./model/src/read_pickup.F |
435 |
READ_PICKUP |
CALL MNC_CW_SET_UDIM(fn, 1, myThid) |
./model/src/read_pickup.F |
436 |
READ_PICKUP |
CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, -1, myThid) |
./model/src/read_pickup.F |
437 |
READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'U',uVel, myThid) |
./model/src/read_pickup.F |
438 |
READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'V',vVel, myThid) |
./model/src/read_pickup.F |
439 |
READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'Temp',theta, myThid) |
./model/src/read_pickup.F |
440 |
READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'S',salt, myThid) |
./model/src/read_pickup.F |
441 |
READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'Eta',etaN, myThid) |
./model/src/read_pickup.F |
443 |
READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'gUnm1',guNm1, myThid) |
./model/src/read_pickup.F |
444 |
READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'gVnm1',gvNm1, myThid) |
./model/src/read_pickup.F |
445 |
READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'gTnm1',gtNm1, myThid) |
./model/src/read_pickup.F |
446 |
READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'gSnm1',gsNm1, myThid) |
./model/src/read_pickup.F |
454 |
READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'dEtaHdt',dEtaHdt,myThid) |
./model/src/read_pickup.F |
457 |
READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'EtaH', etaH, myThid) |
./model/src/read_pickup.F |
462 |
READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'phi_nh', phi_nh, myThid) |
./model/src/read_pickup.F |
465 |
READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'gWnm1', gwNm1, myThid) |
./model/src/read_pickup.F |
470 |
READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'phiHyd',totPhiHyd,myThid) |
./model/src/read_pickup.F |
478 |
READ_PICKUP |
CALL EXCH_UV_3D_RL( uVel, vVel, .TRUE., Nr, myThid ) |
./model/src/read_pickup.F |
479 |
READ_PICKUP |
CALL EXCH_3D_RL( theta, Nr, myThid ) |
./model/src/read_pickup.F |
480 |
READ_PICKUP |
CALL EXCH_3D_RL( salt, Nr, myThid ) |
./model/src/read_pickup.F |
483 |
READ_PICKUP |
& gvNm(1-Olx,1-Oly,1,1,1,1),.TRUE.,Nr,myThid ) |
./model/src/read_pickup.F |
485 |
READ_PICKUP |
& gvNm(1-Olx,1-Oly,1,1,1,2),.TRUE.,Nr,myThid ) |
./model/src/read_pickup.F |
486 |
READ_PICKUP |
CALL EXCH_3D_RL( gtNm(1-Olx,1-Oly,1,1,1,1), Nr, myThid ) |
./model/src/read_pickup.F |
487 |
READ_PICKUP |
CALL EXCH_3D_RL( gtNm(1-Olx,1-Oly,1,1,1,2), Nr, myThid ) |
./model/src/read_pickup.F |
488 |
READ_PICKUP |
CALL EXCH_3D_RL( gsNm(1-Olx,1-Oly,1,1,1,1), Nr, myThid ) |
./model/src/read_pickup.F |
489 |
READ_PICKUP |
CALL EXCH_3D_RL( gsNm(1-Olx,1-Oly,1,1,1,2), Nr, myThid ) |
./model/src/read_pickup.F |
491 |
READ_PICKUP |
CALL EXCH_UV_3D_RL( guNm1, gvNm1, .TRUE., Nr, myThid ) |
./model/src/read_pickup.F |
492 |
READ_PICKUP |
CALL EXCH_3D_RL( gtNm1, Nr, myThid ) |
./model/src/read_pickup.F |
493 |
READ_PICKUP |
CALL EXCH_3D_RL( gsNm1, Nr, myThid ) |
./model/src/read_pickup.F |
495 |
READ_PICKUP |
CALL EXCH_XY_RL( etaN, myThid ) |
./model/src/read_pickup.F |
496 |
READ_PICKUP |
CALL EXCH_XY_RL( etaH, myThid ) |
./model/src/read_pickup.F |
498 |
READ_PICKUP |
CALL EXCH_XY_RL( detaHdt, myThid ) |
./model/src/read_pickup.F |
502 |
READ_PICKUP |
& CALL EXCH_3D_RL( totPhiHyd, Nr, myThid ) |
./model/src/read_pickup.F |
506 |
READ_PICKUP |
CALL EXCH_3D_RL( phi_nh, Nr, myThid ) |
./model/src/read_pickup.F |
510 |
READ_PICKUP |
CALL EXCH_3D_RL( gwNm(1-Olx,1-Oly,1,1,1,1), Nr, myThid ) |
./model/src/read_pickup.F |
511 |
READ_PICKUP |
CALL EXCH_3D_RL( gwNm(1-Olx,1-Oly,1,1,1,2), Nr, myThid ) |
./model/src/read_pickup.F |
513 |
READ_PICKUP |
CALL EXCH_3D_RL( gwNm1, Nr, myThid ) |
./model/src/read_pickup.F |
517 |
READ_PICKUP |
CALL EXCH_XY_RL( dPhiNH, myThid ) |
./model/src/remove_mean.F |
104 |
REMOVE_MEAN_RL |
_END_MASTER( myThid ) |
./model/src/remove_mean.F |
117 |
REMOVE_MEAN_RS |
I myThid ) |
./model/src/remove_mean.F |
12 |
REMOVE_MEAN_RL |
I myThid ) |
./model/src/remove_mean.F |
146 |
REMOVE_MEAN_RS |
INTEGER myThid |
./model/src/remove_mean.F |
161 |
REMOVE_MEAN_RS |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/remove_mean.F |
162 |
REMOVE_MEAN_RS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/remove_mean.F |
178 |
REMOVE_MEAN_RS |
_GLOBAL_SUM_RS(theVol,myThid) |
./model/src/remove_mean.F |
179 |
REMOVE_MEAN_RS |
_GLOBAL_SUM_RS(theMean,myThid) |
./model/src/remove_mean.F |
184 |
REMOVE_MEAN_RS |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/remove_mean.F |
185 |
REMOVE_MEAN_RS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/remove_mean.F |
203 |
REMOVE_MEAN_RS |
_BEGIN_MASTER( myThid ) |
./model/src/remove_mean.F |
209 |
REMOVE_MEAN_RS |
_END_MASTER( myThid ) |
./model/src/remove_mean.F |
41 |
REMOVE_MEAN_RL |
INTEGER myThid |
./model/src/remove_mean.F |
56 |
REMOVE_MEAN_RL |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/remove_mean.F |
57 |
REMOVE_MEAN_RL |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/remove_mean.F |
73 |
REMOVE_MEAN_RL |
_GLOBAL_SUM_RL(theVol,myThid) |
./model/src/remove_mean.F |
74 |
REMOVE_MEAN_RL |
_GLOBAL_SUM_RL(theMean,myThid) |
./model/src/remove_mean.F |
79 |
REMOVE_MEAN_RL |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/remove_mean.F |
80 |
REMOVE_MEAN_RL |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/remove_mean.F |
98 |
REMOVE_MEAN_RL |
_BEGIN_MASTER( myThid ) |
./model/src/rotate_spherical_polar_grid.F |
11 |
ROTATE_SPHERICAL_POLAR_GRID |
I myThid ) |
./model/src/rotate_spherical_polar_grid.F |
136 |
ROTATE_SPHERICAL_POLAR_GRID |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/rotate_spherical_polar_grid.F |
137 |
ROTATE_SPHERICAL_POLAR_GRID |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/rotate_spherical_polar_grid.F |
188 |
CALC_ANGLES |
I myThid ) |
./model/src/rotate_spherical_polar_grid.F |
208 |
CALC_ANGLES |
INTEGER myThid |
./model/src/rotate_spherical_polar_grid.F |
226 |
CALC_ANGLES |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/rotate_spherical_polar_grid.F |
227 |
CALC_ANGLES |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/rotate_spherical_polar_grid.F |
47 |
ROTATE_SPHERICAL_POLAR_GRID |
INTEGER myThid |
./model/src/rotate_uv2en.F |
253 |
ROTATE_UV2EN_RS |
CALL PRINT_ERROR(msgBuf, myThid) |
./model/src/rotate_uv2en.F |
72 |
ROTATE_UV2EN_RL |
CALL PRINT_ERROR(msgBuf, myThid) |
./model/src/set_defaults.F |
13 |
SET_DEFAULTS |
I myThid ) |
./model/src/set_defaults.F |
28 |
SET_DEFAULTS |
INTEGER myThid |
./model/src/set_grid_factors.F |
29 |
SET_GRID_FACTORS |
INTEGER myThid |
./model/src/set_grid_factors.F |
40 |
SET_GRID_FACTORS |
_BEGIN_MASTER(myThid) |
./model/src/set_grid_factors.F |
97 |
SET_GRID_FACTORS |
_END_MASTER(myThid) |
./model/src/set_grid_factors.F |
9 |
SET_GRID_FACTORS |
SUBROUTINE SET_GRID_FACTORS( myThid ) |
./model/src/set_parms.F |
11 |
SET_PARMS |
SUBROUTINE SET_PARMS( myThid ) |
./model/src/set_parms.F |
164 |
SET_PARMS |
& SQUEEZE_RIGHT, myThid ) |
./model/src/set_parms.F |
168 |
SET_PARMS |
& SQUEEZE_RIGHT, myThid ) |
./model/src/set_parms.F |
172 |
SET_PARMS |
& SQUEEZE_RIGHT, myThid ) |
./model/src/set_parms.F |
179 |
SET_PARMS |
CALL LONGSTEP_CHECK_ITERS(myThid) |
./model/src/set_parms.F |
188 |
SET_PARMS |
_END_MASTER(myThid) |
./model/src/set_parms.F |
27 |
SET_PARMS |
INTEGER myThid |
./model/src/set_parms.F |
38 |
SET_PARMS |
_BEGIN_MASTER(myThid) |
./model/src/set_parms.F |
75 |
SET_PARMS |
& SQUEEZE_RIGHT, myThid ) |
./model/src/set_parms.F |
89 |
SET_PARMS |
& SQUEEZE_RIGHT, myThid ) |
./model/src/set_ref_state.F |
102 |
SET_REF_STATE |
& SQUEEZE_RIGHT , myThid ) |
./model/src/set_ref_state.F |
106 |
SET_REF_STATE |
& SQUEEZE_RIGHT , myThid) |
./model/src/set_ref_state.F |
10 |
SET_REF_STATE |
I myThid ) |
./model/src/set_ref_state.F |
116 |
SET_REF_STATE |
O rhoRef(k), myThid ) |
./model/src/set_ref_state.F |
125 |
SET_REF_STATE |
O rhoUp, myThid ) |
./model/src/set_ref_state.F |
128 |
SET_REF_STATE |
O rhoDw, myThid ) |
./model/src/set_ref_state.F |
148 |
SET_REF_STATE |
O rhoRef(k), myThid ) |
./model/src/set_ref_state.F |
157 |
SET_REF_STATE |
O rhoDw, myThid ) |
./model/src/set_ref_state.F |
160 |
SET_REF_STATE |
O rhoUp, myThid ) |
./model/src/set_ref_state.F |
304 |
SET_REF_STATE |
CALL PRINT_MESSAGE( msgBuf, stdUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/set_ref_state.F |
307 |
SET_REF_STATE |
CALL PRINT_MESSAGE( msgBuf, stdUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/set_ref_state.F |
310 |
SET_REF_STATE |
CALL PRINT_MESSAGE( msgBuf, stdUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/set_ref_state.F |
315 |
SET_REF_STATE |
CALL PRINT_MESSAGE(msgBuf, stdUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/set_ref_state.F |
319 |
SET_REF_STATE |
CALL WRITE_GLVEC_RL( 'RhoRef',' ',rhoRef, Nr, -1, myThid ) |
./model/src/set_ref_state.F |
323 |
SET_REF_STATE |
_END_MASTER( myThid ) |
./model/src/set_ref_state.F |
35 |
SET_REF_STATE |
INTEGER myThid |
./model/src/set_ref_state.F |
48 |
SET_REF_STATE |
_BEGIN_MASTER( myThid ) |
./model/src/set_ref_state.F |
84 |
SET_REF_STATE |
CALL PRINT_ERROR( msgBuf , myThid ) |
./model/src/set_ref_state.F |
87 |
SET_REF_STATE |
CALL PRINT_ERROR( msgBuf , myThid ) |
./model/src/set_ref_state.F |
93 |
SET_REF_STATE |
CALL PRINT_ERROR( msgBuf , myThid ) |
./model/src/set_ref_state.F |
96 |
SET_REF_STATE |
CALL PRINT_ERROR( msgBuf , myThid ) |
./model/src/solve_for_pressure.F |
103 |
SOLVE_FOR_PRESSURE |
_BEGIN_MASTER( myThid ) |
./model/src/solve_for_pressure.F |
107 |
SOLVE_FOR_PRESSURE |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/solve_for_pressure.F |
10 |
SOLVE_FOR_PRESSURE |
SUBROUTINE SOLVE_FOR_PRESSURE( myTime, myIter, myThid ) |
./model/src/solve_for_pressure.F |
111 |
SOLVE_FOR_PRESSURE |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/solve_for_pressure.F |
114 |
SOLVE_FOR_PRESSURE |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/solve_for_pressure.F |
116 |
SOLVE_FOR_PRESSURE |
_END_MASTER( myThid ) |
./model/src/solve_for_pressure.F |
121 |
SOLVE_FOR_PRESSURE |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/solve_for_pressure.F |
122 |
SOLVE_FOR_PRESSURE |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/solve_for_pressure.F |
156 |
SOLVE_FOR_PRESSURE |
CALL GLOBAL_SUM_TILE_RL( tileEmP, sumEmP, myThid ) |
./model/src/solve_for_pressure.F |
159 |
SOLVE_FOR_PRESSURE |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/solve_for_pressure.F |
160 |
SOLVE_FOR_PRESSURE |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/solve_for_pressure.F |
178 |
SOLVE_FOR_PRESSURE |
I myThid ) |
./model/src/solve_for_pressure.F |
183 |
SOLVE_FOR_PRESSURE |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/solve_for_pressure.F |
184 |
SOLVE_FOR_PRESSURE |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/solve_for_pressure.F |
268 |
SOLVE_FOR_PRESSURE |
& myThid) |
./model/src/solve_for_pressure.F |
273 |
SOLVE_FOR_PRESSURE |
CALL WRITE_FLD_XY_RL( 'cg2d_b.', sufx, cg2d_b, myIter, myThid ) |
./model/src/solve_for_pressure.F |
291 |
SOLVE_FOR_PRESSURE |
I myThid ) |
./model/src/solve_for_pressure.F |
302 |
SOLVE_FOR_PRESSURE |
I myThid ) |
./model/src/solve_for_pressure.F |
314 |
SOLVE_FOR_PRESSURE |
I myThid ) |
./model/src/solve_for_pressure.F |
317 |
SOLVE_FOR_PRESSURE |
_EXCH_XY_RL( cg2d_x, myThid ) |
./model/src/solve_for_pressure.F |
323 |
SOLVE_FOR_PRESSURE |
& myThid) |
./model/src/solve_for_pressure.F |
331 |
SOLVE_FOR_PRESSURE |
_BEGIN_MASTER( myThid ) |
./model/src/solve_for_pressure.F |
338 |
SOLVE_FOR_PRESSURE |
_END_MASTER( myThid ) |
./model/src/solve_for_pressure.F |
343 |
SOLVE_FOR_PRESSURE |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/solve_for_pressure.F |
344 |
SOLVE_FOR_PRESSURE |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/solve_for_pressure.F |
357 |
SOLVE_FOR_PRESSURE |
CALL WRITE_FLD_XY_RL( 'cg2d_x.',sufx, cg2d_x, myIter, myThid ) |
./model/src/solve_for_pressure.F |
371 |
SOLVE_FOR_PRESSURE |
I myTime, myIter, myThid ) |
./model/src/solve_for_pressure.F |
376 |
SOLVE_FOR_PRESSURE |
& myThid) |
./model/src/solve_for_pressure.F |
381 |
SOLVE_FOR_PRESSURE |
CALL WRITE_FLD_XYZ_RL('cg3d_b.',sufx, cg3d_b, myIter,myThid ) |
./model/src/solve_for_pressure.F |
387 |
SOLVE_FOR_PRESSURE |
CALL TIMER_START('CG3D [SOLVE_FOR_PRESSURE]',myThid) |
./model/src/solve_for_pressure.F |
394 |
SOLVE_FOR_PRESSURE |
I myIter, myThid ) |
./model/src/solve_for_pressure.F |
395 |
SOLVE_FOR_PRESSURE |
_EXCH_XYZ_RL( phi_nh, myThid ) |
./model/src/solve_for_pressure.F |
396 |
SOLVE_FOR_PRESSURE |
CALL TIMER_STOP ('CG3D [SOLVE_FOR_PRESSURE]',myThid) |
./model/src/solve_for_pressure.F |
401 |
SOLVE_FOR_PRESSURE |
_BEGIN_MASTER( myThid ) |
./model/src/solve_for_pressure.F |
408 |
SOLVE_FOR_PRESSURE |
_END_MASTER( myThid ) |
./model/src/solve_for_pressure.F |
417 |
SOLVE_FOR_PRESSURE |
CALL WRITE_FLD_XYZ_RL('cg3d_x.',sufx, phi_nh, myIter,myThid ) |
./model/src/solve_for_pressure.F |
421 |
SOLVE_FOR_PRESSURE |
I myTime, myIter, myThid ) |
./model/src/solve_for_pressure.F |
428 |
SOLVE_FOR_PRESSURE |
CALL SHOWFLOPS_INSOLVE( myThid) |
./model/src/solve_for_pressure.F |
53 |
SOLVE_FOR_PRESSURE |
INTEGER myThid |
./eesupp/src/eeboot_minimal.F |
138 |
EEBOOT_MINIMAL |
CALL PRINT_ERROR( msgBuffer , myThid) |
./eesupp/src/eeboot_minimal.F |
166 |
EEBOOT_MINIMAL |
CALL PRINT_ERROR( msgBuffer , myThid) |
./eesupp/src/eeboot_minimal.F |
177 |
EEBOOT_MINIMAL |
CALL PRINT_ERROR( msgBuffer , myThid) |
./eesupp/src/eeboot_minimal.F |
188 |
EEBOOT_MINIMAL |
CALL PRINT_ERROR( msgBuffer , myThid) |
./eesupp/src/eeboot_minimal.F |
192 |
EEBOOT_MINIMAL |
CALL PRINT_ERROR( msgBuffer , myThid) |
./eesupp/src/eeboot_minimal.F |
205 |
EEBOOT_MINIMAL |
CALL PRINT_ERROR( msgBuffer , myThid) |
./eesupp/src/eeboot_minimal.F |
44 |
EEBOOT_MINIMAL |
INTEGER myThid |
./eesupp/src/eeboot_minimal.F |
68 |
EEBOOT_MINIMAL |
myThid = 1 |
./eesupp/src/eeboot_minimal.F |
85 |
EEBOOT_MINIMAL |
CALL PRINT_ERROR( msgBuffer , myThid) |
./model/src/solve_pentadiagonal.F |
20 |
SOLVE_PENTADIAGONAL |
I bi, bj, myThid ) |
./model/src/solve_pentadiagonal.F |
61 |
SOLVE_PENTADIAGONAL |
INTEGER bi, bj, myThid |
./model/src/solve_tridiagonal.F |
20 |
SOLVE_TRIDIAGONAL |
I bi, bj, myThid ) |
./model/src/solve_tridiagonal.F |
49 |
SOLVE_TRIDIAGONAL |
INTEGER bi, bj, myThid |
./model/src/state_summary.F |
39 |
STATE_SUMMARY |
INTEGER myThid |
./model/src/state_summary.F |
46 |
STATE_SUMMARY |
_BEGIN_MASTER(myThid) |
./model/src/state_summary.F |
50 |
STATE_SUMMARY |
& SQUEEZE_RIGHT , myThid ) |
./model/src/state_summary.F |
53 |
STATE_SUMMARY |
& SQUEEZE_RIGHT , myThid ) |
./model/src/state_summary.F |
57 |
STATE_SUMMARY |
& SQUEEZE_RIGHT , myThid ) |
./model/src/state_summary.F |
60 |
STATE_SUMMARY |
& SQUEEZE_RIGHT , myThid ) |
./model/src/state_summary.F |
61 |
STATE_SUMMARY |
_END_MASTER(myThid) |
./model/src/state_summary.F |
9 |
STATE_SUMMARY |
SUBROUTINE STATE_SUMMARY( myThid ) |
./model/src/swfrac.F |
13 |
SWFRAC |
I myTime, myIter, myThid ) |
./model/src/swfrac.F |
50 |
SWFRAC |
INTEGER myThid |
./model/src/taueddy_external_forcing.F |
106 |
TAUEDDY_EXTERNAL_FORCING_V |
I myCurrentTime,myThid) |
./model/src/taueddy_external_forcing.F |
139 |
TAUEDDY_EXTERNAL_FORCING_V |
INTEGER myThid |
./model/src/taueddy_external_forcing.F |
16 |
TAUEDDY_EXTERNAL_FORCING_U |
I myCurrentTime,myThid) |
./model/src/taueddy_external_forcing.F |
49 |
TAUEDDY_EXTERNAL_FORCING_U |
INTEGER myThid |
./model/src/taueddy_init_varia.F |
28 |
TAUEDDY_INIT_VARIA |
INTEGER myThid |
./model/src/taueddy_init_varia.F |
41 |
TAUEDDY_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/taueddy_init_varia.F |
42 |
TAUEDDY_INIT_VARIA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/taueddy_init_varia.F |
56 |
TAUEDDY_INIT_VARIA |
& eddyPsiX, nIter0, myThid ) |
./model/src/taueddy_init_varia.F |
60 |
TAUEDDY_INIT_VARIA |
& eddyPsiY, nIter0, myThid ) |
./model/src/taueddy_init_varia.F |
63 |
TAUEDDY_INIT_VARIA |
CALL EXCH_UV_XYZ_RS(eddyPsiX,eddyPsiY,.TRUE.,myThid) |
./model/src/taueddy_init_varia.F |
9 |
TAUEDDY_INIT_VARIA |
SUBROUTINE TAUEDDY_INIT_VARIA( myThid ) |
./model/src/the_main_loop.F |
154 |
THE_MAIN_LOOP |
INTEGER myThid |
./model/src/the_main_loop.F |
173 |
THE_MAIN_LOOP |
IF (debugMode) CALL DEBUG_ENTER('THE_MAIN_LOOP',myThid) |
./model/src/the_main_loop.F |
19 |
THE_MAIN_LOOP |
SUBROUTINE THE_MAIN_LOOP( myTime, myIter, myThid ) |
./model/src/the_main_loop.F |
233 |
THE_MAIN_LOOP |
IF (debugMode) CALL DEBUG_CALL('INITIALISE_VARIA',myThid) |
./model/src/the_main_loop.F |
242 |
THE_MAIN_LOOP |
CALL SHOWFLOPS_INIT( myThid ) |
./model/src/the_main_loop.F |
272 |
THE_MAIN_LOOP |
CALL AUTODIFF_STORE( myThid ) |
./model/src/the_main_loop.F |
274 |
THE_MAIN_LOOP |
CALL AUTODIFF_RESTORE( myThid ) |
./model/src/the_main_loop.F |
284 |
THE_MAIN_LOOP |
CALL AUTODIFF_STORE( myThid ) |
./model/src/the_main_loop.F |
286 |
THE_MAIN_LOOP |
CALL AUTODIFF_RESTORE( myThid ) |
./model/src/the_main_loop.F |
295 |
THE_MAIN_LOOP |
CALL AUTODIFF_STORE( myThid ) |
./model/src/the_main_loop.F |
297 |
THE_MAIN_LOOP |
CALL AUTODIFF_RESTORE( myThid ) |
./model/src/the_main_loop.F |
454 |
THE_MAIN_LOOP |
IF (debugMode) CALL DEBUG_CALL('cost_averagesfields',myThid) |
./model/src/the_main_loop.F |
469 |
THE_MAIN_LOOP |
IF (debugMode) CALL DEBUG_CALL('FORWARD_STEP',myThid) |
./model/src/the_main_loop.F |
482 |
THE_MAIN_LOOP |
+myTime, myIter, myThid ) |
./model/src/the_main_loop.F |
515 |
THE_MAIN_LOOP |
+myTime, myIter, myThid ) |
./model/src/the_main_loop.F |
559 |
THE_MAIN_LOOP |
IF (debugMode) CALL DEBUG_LEAVE('THE_MAIN_LOOP',myThid) |
./model/src/the_model_main.F |
408 |
THE_MODEL_MAIN |
SUBROUTINE THE_MODEL_MAIN(myThid) |
./model/src/the_model_main.F |
477 |
THE_MODEL_MAIN |
INTEGER myThid |
./model/src/the_model_main.F |
498 |
THE_MODEL_MAIN |
CALL DEBUG_ENTER('THE_MODEL_MAIN',myThid) |
./model/src/the_model_main.F |
502 |
THE_MODEL_MAIN |
CALL TIMER_CONTROL('','INIT','THE_MODEL_MAIN',myThid) |
./model/src/the_model_main.F |
505 |
THE_MODEL_MAIN |
CALL TIMER_START('ALL [THE_MODEL_MAIN]',myThid) |
./model/src/the_model_main.F |
509 |
THE_MODEL_MAIN |
CALL DEBUG_CALL('INITIALISE_FIXED',myThid) |
./model/src/the_model_main.F |
513 |
THE_MODEL_MAIN |
CALL TIMER_START('INITIALISE_FIXED [THE_MODEL_MAIN]',myThid) |
./model/src/the_model_main.F |
514 |
THE_MODEL_MAIN |
CALL INITIALISE_FIXED( myThid ) |
./model/src/the_model_main.F |
515 |
THE_MODEL_MAIN |
CALL TIMER_STOP ('INITIALISE_FIXED [THE_MODEL_MAIN]',myThid) |
./model/src/the_model_main.F |
518 |
THE_MODEL_MAIN |
IF (debugMode) CALL DEBUG_LEAVE('INITIALISE_FIXED',myThid) |
./model/src/the_model_main.F |
550 |
THE_MODEL_MAIN |
IF (debugMode) CALL DEBUG_CALL('G_THE_MAIN_LOOP',myThid) |
./model/src/the_model_main.F |
553 |
THE_MODEL_MAIN |
CALL G_THE_MAIN_LOOP ( myCurrentTime, myCurrentIter, myThid ) |
./model/src/the_model_main.F |
564 |
THE_MODEL_MAIN |
IF (debugMode) CALL DEBUG_CALL('MDTHE_MAIN_LOOP',myThid) |
./model/src/the_model_main.F |
572 |
THE_MODEL_MAIN |
IF (debugMode) CALL DEBUG_CALL('ADTHE_MAIN_LOOP',myThid) |
./model/src/the_model_main.F |
582 |
THE_MODEL_MAIN |
IF (debugMode) CALL DEBUG_CALL('ADTHE_MAIN_LOOP',myThid) |
./model/src/the_model_main.F |
596 |
THE_MODEL_MAIN |
IF (debugMode) CALL DEBUG_CALL('THE_MAIN_LOOP',myThid) |
./model/src/the_model_main.F |
600 |
THE_MODEL_MAIN |
IF (debugMode) CALL DEBUG_CALL('THE_MAIN_LOOP',myThid) |
./model/src/the_model_main.F |
602 |
THE_MODEL_MAIN |
CALL TIMER_START('THE_MAIN_LOOP [THE_MODEL_MAIN]',myThid) |
./model/src/the_model_main.F |
603 |
THE_MODEL_MAIN |
CALL THE_MAIN_LOOP( myCurrentTime, myCurrentIter, myThid ) |
./model/src/the_model_main.F |
604 |
THE_MODEL_MAIN |
CALL TIMER_STOP ('THE_MAIN_LOOP [THE_MODEL_MAIN]',myThid) |
./model/src/the_model_main.F |
635 |
THE_MODEL_MAIN |
IF (debugMode) CALL DEBUG_CALL('THE_MAIN_LOOP',myThid) |
./model/src/the_model_main.F |
638 |
THE_MODEL_MAIN |
CALL TIMER_START('THE_MAIN_LOOP [THE_MODEL_MAIN]',myThid) |
./model/src/the_model_main.F |
639 |
THE_MODEL_MAIN |
CALL THE_MAIN_LOOP( myCurrentTime, myCurrentIter, myThid ) |
./model/src/the_model_main.F |
640 |
THE_MODEL_MAIN |
CALL TIMER_STOP ('THE_MAIN_LOOP [THE_MODEL_MAIN]',myThid) |
./model/src/the_model_main.F |
655 |
THE_MODEL_MAIN |
CALL MNC_FILE_CLOSE_ALL( myThid ) |
./model/src/the_model_main.F |
661 |
THE_MODEL_MAIN |
CALL TIMER_STOP ('ALL [THE_MODEL_MAIN]',myThid) |
./model/src/the_model_main.F |
664 |
THE_MODEL_MAIN |
IF ( myThid .EQ. 1 ) THEN |
./model/src/the_model_main.F |
665 |
THE_MODEL_MAIN |
CALL TIMER_PRINTALL( myThid ) |
./model/src/the_model_main.F |
670 |
THE_MODEL_MAIN |
CALL BAR_CHECK( 9, myThid ) |
./model/src/the_model_main.F |
673 |
THE_MODEL_MAIN |
IF (debugMode) CALL DEBUG_LEAVE('THE_MODEL_MAIN',myThid) |
./model/src/thermodynamics.F |
129 |
THERMODYNAMICS |
INTEGER myThid |
./model/src/thermodynamics.F |
199 |
THERMODYNAMICS |
IF (debugMode) CALL DEBUG_ENTER('THERMODYNAMICS',myThid) |
./model/src/thermodynamics.F |
223 |
THERMODYNAMICS |
& myTime,myIter,myThid) |
./model/src/thermodynamics.F |
226 |
THERMODYNAMICS |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/thermodynamics.F |
241 |
THERMODYNAMICS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/thermodynamics.F |
244 |
THERMODYNAMICS |
act1 = bi - myBxLo(myThid) |
./model/src/thermodynamics.F |
245 |
THERMODYNAMICS |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
./model/src/thermodynamics.F |
246 |
THERMODYNAMICS |
act2 = bj - myByLo(myThid) |
./model/src/thermodynamics.F |
247 |
THERMODYNAMICS |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
./model/src/thermodynamics.F |
248 |
THERMODYNAMICS |
act3 = myThid - 1 |
./model/src/thermodynamics.F |
25 |
THERMODYNAMICS |
SUBROUTINE THERMODYNAMICS(myTime, myIter, myThid) |
./model/src/thermodynamics.F |
327 |
THERMODYNAMICS |
I tempStartAB, iterNb, myThid ) |
./model/src/thermodynamics.F |
332 |
THERMODYNAMICS |
I saltStartAB, iterNb, myThid ) |
./model/src/thermodynamics.F |
376 |
THERMODYNAMICS |
IF (debugMode) CALL DEBUG_CALL('GAD_SOM_ADVECT',myThid) |
./model/src/thermodynamics.F |
384 |
THERMODYNAMICS |
I bi,bj,myTime,myIter,myThid) |
./model/src/thermodynamics.F |
390 |
THERMODYNAMICS |
IF (debugMode) CALL DEBUG_CALL('GAD_ADVECTION',myThid) |
./model/src/thermodynamics.F |
397 |
THERMODYNAMICS |
I bi,bj,myTime,myIter,myThid) |
./model/src/thermodynamics.F |
402 |
THERMODYNAMICS |
IF (debugMode) CALL DEBUG_CALL('GAD_SOM_ADVECT',myThid) |
./model/src/thermodynamics.F |
410 |
THERMODYNAMICS |
I bi,bj,myTime,myIter,myThid) |
./model/src/thermodynamics.F |
416 |
THERMODYNAMICS |
IF (debugMode) CALL DEBUG_CALL('GAD_ADVECTION',myThid) |
./model/src/thermodynamics.F |
423 |
THERMODYNAMICS |
I bi,bj,myTime,myIter,myThid) |
./model/src/thermodynamics.F |
433 |
THERMODYNAMICS |
IF (debugMode) CALL DEBUG_CALL('PTRACERS_ADVECTION',myThid) |
./model/src/thermodynamics.F |
435 |
THERMODYNAMICS |
CALL PTRACERS_ADVECTION( bi,bj,myTime,myIter,myThid ) |
./model/src/thermodynamics.F |
443 |
THERMODYNAMICS |
& CALL DEBUG_MSG('ENTERING DOWNWARD K LOOP',myThid) |
./model/src/thermodynamics.F |
500 |
THERMODYNAMICS |
I k,bi,bj, myThid ) |
./model/src/thermodynamics.F |
530 |
THERMODYNAMICS |
I k, bi, bj, myThid ) |
./model/src/thermodynamics.F |
534 |
THERMODYNAMICS |
I k, bi, bj, myThid ) |
./model/src/thermodynamics.F |
556 |
THERMODYNAMICS |
I myThid) |
./model/src/thermodynamics.F |
630 |
THERMODYNAMICS |
I myTime,myIter,myThid) |
./model/src/thermodynamics.F |
637 |
THERMODYNAMICS |
I myIter, myThid) |
./model/src/thermodynamics.F |
644 |
THERMODYNAMICS |
I myIter, myThid) |
./model/src/thermodynamics.F |
680 |
THERMODYNAMICS |
I myTime,myIter,myThid) |
./model/src/thermodynamics.F |
687 |
THERMODYNAMICS |
I myIter, myThid) |
./model/src/thermodynamics.F |
694 |
THERMODYNAMICS |
I myIter, myThid) |
./model/src/thermodynamics.F |
708 |
THERMODYNAMICS |
I myThid) |
./model/src/thermodynamics.F |
719 |
THERMODYNAMICS |
I myTime,myIter,myThid) |
./model/src/thermodynamics.F |
733 |
THERMODYNAMICS |
CALL FREEZE( bi, bj, iMin, iMax, jMin, jMax, k, myThid ) |
./model/src/thermodynamics.F |
748 |
THERMODYNAMICS |
I myTime, myIter, myThid ) |
./model/src/thermodynamics.F |
756 |
THERMODYNAMICS |
I myTime, myIter, myThid ) |
./model/src/thermodynamics.F |
767 |
THERMODYNAMICS |
I myTime, myIter, myThid ) |
./model/src/thermodynamics.F |
775 |
THERMODYNAMICS |
I myTime, myIter, myThid ) |
./model/src/thermodynamics.F |
782 |
THERMODYNAMICS |
I bi, bj, myTime, myIter, myThid ) |
./model/src/thermodynamics.F |
795 |
THERMODYNAMICS |
& CALL MATRIX_STORE_TENDENCY_EXP(bi,bj, myTime,myIter,myThid) |
./model/src/thermodynamics.F |
809 |
THERMODYNAMICS |
I myThid) |
./model/src/thermodynamics.F |
824 |
THERMODYNAMICS |
I bi, bj, myTime, myIter, myThid ) |
./model/src/thermodynamics.F |
837 |
THERMODYNAMICS |
I myThid ) |
./model/src/thermodynamics.F |
846 |
THERMODYNAMICS |
I Nr, 3, deltaTclock, bi, bj, myThid) |
./model/src/thermodynamics.F |
859 |
THERMODYNAMICS |
I myThid) |
./model/src/thermodynamics.F |
875 |
THERMODYNAMICS |
I bi, bj, myTime, myIter, myThid ) |
./model/src/thermodynamics.F |
888 |
THERMODYNAMICS |
I myThid ) |
./model/src/thermodynamics.F |
898 |
THERMODYNAMICS |
I bi, bj, myTime, myIter, myThid ) |
./model/src/thermodynamics.F |
906 |
THERMODYNAMICS |
CALL OBCS_APPLY_TS( bi, bj, 0, gT, gS, myThid ) |
./model/src/thermodynamics.F |
918 |
THERMODYNAMICS |
CALL DEBUG_STATS_RL(Nr,uVel,'Uvel (THERMODYNAMICS)',myThid) |
./model/src/thermodynamics.F |
919 |
THERMODYNAMICS |
CALL DEBUG_STATS_RL(Nr,vVel,'Vvel (THERMODYNAMICS)',myThid) |
./model/src/thermodynamics.F |
920 |
THERMODYNAMICS |
CALL DEBUG_STATS_RL(Nr,wVel,'Wvel (THERMODYNAMICS)',myThid) |
./model/src/thermodynamics.F |
921 |
THERMODYNAMICS |
CALL DEBUG_STATS_RL(Nr,theta,'Theta (THERMODYNAMICS)',myThid) |
./model/src/thermodynamics.F |
922 |
THERMODYNAMICS |
CALL DEBUG_STATS_RL(Nr,salt,'Salt (THERMODYNAMICS)',myThid) |
./model/src/thermodynamics.F |
923 |
THERMODYNAMICS |
CALL DEBUG_STATS_RL(Nr,gT,'Gt (THERMODYNAMICS)',myThid) |
./model/src/thermodynamics.F |
924 |
THERMODYNAMICS |
CALL DEBUG_STATS_RL(Nr,gS,'Gs (THERMODYNAMICS)',myThid) |
./model/src/thermodynamics.F |
926 |
THERMODYNAMICS |
CALL DEBUG_STATS_RL(Nr,gtNm1,'GtNm1 (THERMODYNAMICS)',myThid) |
./model/src/thermodynamics.F |
927 |
THERMODYNAMICS |
CALL DEBUG_STATS_RL(Nr,gsNm1,'GsNm1 (THERMODYNAMICS)',myThid) |
./model/src/thermodynamics.F |
932 |
THERMODYNAMICS |
CALL PTRACERS_DEBUG(myThid) |
./model/src/thermodynamics.F |
940 |
THERMODYNAMICS |
IF (debugMode) CALL DEBUG_LEAVE('THERMODYNAMICS',myThid) |
./model/src/timestep.F |
151 |
TIMESTEP |
I myTime,myThid) |
./model/src/timestep.F |
154 |
TIMESTEP |
I myTime,myThid) |
./model/src/timestep.F |
16 |
TIMESTEP |
I myTime, myIter, myThid ) |
./model/src/timestep.F |
186 |
TIMESTEP |
I mom_StartAB, myIter, myThid ) |
./model/src/timestep.F |
190 |
TIMESTEP |
I mom_StartAB, myIter, myThid ) |
./model/src/timestep.F |
195 |
TIMESTEP |
I mom_StartAB, myIter, myThid ) |
./model/src/timestep.F |
199 |
TIMESTEP |
I mom_StartAB, myIter, myThid ) |
./model/src/timestep.F |
218 |
TIMESTEP |
I myTime,myThid) |
./model/src/timestep.F |
221 |
TIMESTEP |
I myTime,myThid) |
./model/src/timestep.F |
272 |
TIMESTEP |
I myTime, myIter, myThid) |
./model/src/timestep.F |
412 |
TIMESTEP |
CALL DIAGNOSTICS_FILL( gUext,'Um_Ext ',k,1,2,bi,bj,myThid ) |
./model/src/timestep.F |
413 |
TIMESTEP |
CALL DIAGNOSTICS_FILL( gVext,'Vm_Ext ',k,1,2,bi,bj,myThid ) |
./model/src/timestep.F |
417 |
TIMESTEP |
CALL DIAGNOSTICS_FILL( guCor,'Um_Cori ',k,1,2,bi,bj,myThid ) |
./model/src/timestep.F |
418 |
TIMESTEP |
CALL DIAGNOSTICS_FILL( gvCor,'Vm_Cori ',k,1,2,bi,bj,myThid ) |
./model/src/timestep.F |
55 |
TIMESTEP |
INTEGER myIter, myThid |
./model/src/timestep.F |
93 |
TIMESTEP |
externForcDiagIsOn = DIAGNOSTICS_IS_ON('Um_Ext ',myThid) |
./model/src/timestep.F |
94 |
TIMESTEP |
& .OR. DIAGNOSTICS_IS_ON('Vm_Ext ',myThid) |
./model/src/timestep_tracer.F |
13 |
TIMESTEP_TRACER |
I myIter, myThid ) |
./model/src/timestep_tracer.F |
35 |
TIMESTEP_TRACER |
INTEGER myIter, myThid |
./model/src/timestep_wvel.F |
114 |
TIMESTEP_WVEL |
CALL OBCS_APPLY_W( bi, bj, k, wVel, myThid ) |
./model/src/timestep_wvel.F |
11 |
TIMESTEP_WVEL |
I bi,bj, myTime, myIter, myThid ) |
./model/src/timestep_wvel.F |
34 |
TIMESTEP_WVEL |
INTEGER myIter, myThid |
./model/src/tracers_correction_step.F |
100 |
TRACERS_CORRECTION_STEP |
CALL TIMER_STOP ('SHAP_FILT_TS [TRC_CORR_STEP]',myThid) |
./model/src/tracers_correction_step.F |
105 |
TRACERS_CORRECTION_STEP |
CALL TIMER_START('ZONAL_FILT_TS [TRC_CORR_STEP]',myThid) |
./model/src/tracers_correction_step.F |
106 |
TRACERS_CORRECTION_STEP |
CALL ZONAL_FILT_APPLY_TS( theta, salt, myThid ) |
./model/src/tracers_correction_step.F |
107 |
TRACERS_CORRECTION_STEP |
CALL TIMER_STOP ('ZONAL_FILT_TS [TRC_CORR_STEP]',myThid) |
./model/src/tracers_correction_step.F |
10 |
TRACERS_CORRECTION_STEP |
SUBROUTINE TRACERS_CORRECTION_STEP(myTime, myIter, myThid) |
./model/src/tracers_correction_step.F |
111 |
TRACERS_CORRECTION_STEP |
CALL PTRACERS_ZONAL_FILT_APPLY( myThid ) |
./model/src/tracers_correction_step.F |
119 |
TRACERS_CORRECTION_STEP |
CALL TIMER_START('SALT_FILL [TRC_CORR_STEP]',myThid) |
./model/src/tracers_correction_step.F |
120 |
TRACERS_CORRECTION_STEP |
CALL SALT_FILL( uVel,vVel,salt,1,myTime,myIter,myThid ) |
./model/src/tracers_correction_step.F |
121 |
TRACERS_CORRECTION_STEP |
CALL TIMER_STOP ('SALT_FILL [TRC_CORR_STEP]',myThid) |
./model/src/tracers_correction_step.F |
125 |
TRACERS_CORRECTION_STEP |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/tracers_correction_step.F |
126 |
TRACERS_CORRECTION_STEP |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/tracers_correction_step.F |
137 |
TRACERS_CORRECTION_STEP |
I myTime, myIter, myThid ) |
./model/src/tracers_correction_step.F |
143 |
TRACERS_CORRECTION_STEP |
I bi, bj, myTime, myIter, myThid ) |
./model/src/tracers_correction_step.F |
148 |
TRACERS_CORRECTION_STEP |
& CALL MATRIX_STORE_TENDENCY_IMP( bi, bj, myTime, myIter, myThid ) |
./model/src/tracers_correction_step.F |
47 |
TRACERS_CORRECTION_STEP |
INTEGER myThid |
./model/src/tracers_correction_step.F |
58 |
TRACERS_CORRECTION_STEP |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/tracers_correction_step.F |
59 |
TRACERS_CORRECTION_STEP |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/tracers_correction_step.F |
66 |
TRACERS_CORRECTION_STEP |
I myTime,myIter,myThid ) |
./model/src/tracers_correction_step.F |
71 |
TRACERS_CORRECTION_STEP |
I myTime,myIter,myThid ) |
./model/src/tracers_correction_step.F |
76 |
TRACERS_CORRECTION_STEP |
& CALL PTRACERS_CYCLE(bi,bj,myTime,myIter,myThid) |
./model/src/tracers_correction_step.F |
82 |
TRACERS_CORRECTION_STEP |
CALL TRACERS_IIGW_CORRECTION(bi,bj, myTime,myIter,myThid) |
./model/src/tracers_correction_step.F |
98 |
TRACERS_CORRECTION_STEP |
CALL TIMER_START('SHAP_FILT_TS [TRC_CORR_STEP]',myThid) |
./model/src/tracers_correction_step.F |
99 |
TRACERS_CORRECTION_STEP |
CALL SHAP_FILT_APPLY_TS( theta,salt, myTime, myIter, myThid ) |
./model/src/tracers_iigw_correction.F |
10 |
TRACERS_IIGW_CORRECTION |
I bi, bj, myTime, myIter, myThid ) |
./model/src/tracers_iigw_correction.F |
41 |
TRACERS_IIGW_CORRECTION |
INTEGER myThid |
./model/src/turnoff_model_io.F |
103 |
TURNOFF_MODEL_IO |
CALL PTRACERS_TURNOFF_IO( seqFlag, myThid ) |
./model/src/turnoff_model_io.F |
10 |
TURNOFF_MODEL_IO |
SUBROUTINE TURNOFF_MODEL_IO( seqFlag, myThid ) |
./model/src/turnoff_model_io.F |
42 |
TURNOFF_MODEL_IO |
INTEGER myThid |
./model/src/turnoff_model_io.F |
51 |
TURNOFF_MODEL_IO |
_BEGIN_MASTER( myThid ) |
./model/src/turnoff_model_io.F |
85 |
TURNOFF_MODEL_IO |
_END_MASTER( myThid ) |
./model/src/turnoff_model_io.F |
91 |
TURNOFF_MODEL_IO |
CALL SEAICE_TURNOFF_IO( seqFlag, myThid ) |
./model/src/turnoff_model_io.F |
97 |
TURNOFF_MODEL_IO |
CALL THSICE_TURNOFF_IO( seqFlag, myThid ) |
./model/src/update_cg2d.F |
10 |
UPDATE_CG2D |
SUBROUTINE UPDATE_CG2D( myTime, myIter, myThid ) |
./model/src/update_cg2d.F |
152 |
UPDATE_CG2D |
CALL EXCH_XY_RS(aC2d, myThid) |
./model/src/update_cg2d.F |
155 |
UPDATE_CG2D |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/update_cg2d.F |
156 |
UPDATE_CG2D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/update_cg2d.F |
43 |
UPDATE_CG2D |
INTEGER myThid |
./model/src/update_cg2d.F |
71 |
UPDATE_CG2D |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/update_cg2d.F |
72 |
UPDATE_CG2D |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/update_etah.F |
101 |
UPDATE_ETAH |
& CALL EXCH_XY_RL( etaH, myThid ) |
./model/src/update_etah.F |
10 |
UPDATE_ETAH |
SUBROUTINE UPDATE_ETAH( myTime, myIter, myThid ) |
./model/src/update_etah.F |
110 |
UPDATE_ETAH |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/update_etah.F |
111 |
UPDATE_ETAH |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/update_etah.F |
143 |
UPDATE_ETAH |
CALL EXCH_UV_XY_RL( etaHw, etaHs, .FALSE., myThid ) |
./model/src/update_etah.F |
144 |
UPDATE_ETAH |
CALL EXCH_XY_RL( dEtaHdt, myThid ) |
./model/src/update_etah.F |
146 |
UPDATE_ETAH |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/update_etah.F |
147 |
UPDATE_ETAH |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/update_etah.F |
37 |
UPDATE_ETAH |
INTEGER myThid |
./model/src/update_etah.F |
49 |
UPDATE_ETAH |
DO bj=myByLo(myThid),myByHi(myThid) |
./model/src/update_etah.F |
50 |
UPDATE_ETAH |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./model/src/update_etah.F |
91 |
UPDATE_ETAH |
IF ( useOBCS ) CALL OBCS_APPLY_ETA( bi, bj, etaH, myThid ) |
./model/src/update_masks_etc.F |
120 |
UPDATE_MASKS_ETC |
DO bj=myByLo(myThid), myByHi(myThid) |
./model/src/update_masks_etc.F |
121 |
UPDATE_MASKS_ETC |
DO bi=myBxLo(myThid), myBxHi(myThid) |
./model/src/update_masks_etc.F |
163 |
UPDATE_MASKS_ETC |
& 'Model R_low (update_masks_etc)', 1, myThid ) |
./model/src/update_masks_etc.F |
172 |
UPDATE_MASKS_ETC |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/update_masks_etc.F |
173 |
UPDATE_MASKS_ETC |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/update_masks_etc.F |
198 |
UPDATE_MASKS_ETC |
DO bj=myByLo(myThid), myByHi(myThid) |
./model/src/update_masks_etc.F |
199 |
UPDATE_MASKS_ETC |
DO bi=myBxLo(myThid), myBxHi(myThid) |
./model/src/update_masks_etc.F |
252 |
UPDATE_MASKS_ETC |
CALL EXCH_UV_XYZ_RS(hFacW,hFacS,.FALSE.,myThid) |
./model/src/update_masks_etc.F |
268 |
UPDATE_MASKS_ETC |
CALL WRITE_FLD_XY_RS( 'Depth.',suff,tmpfld,optimcycle,myThid) |
./model/src/update_masks_etc.F |
269 |
UPDATE_MASKS_ETC |
CALL WRITE_FLD_XYZ_RS( 'hFacC.',suff,hFacC,optimcycle,myThid) |
./model/src/update_masks_etc.F |
270 |
UPDATE_MASKS_ETC |
CALL WRITE_FLD_XYZ_RS( 'hFacW.',suff,hFacW,optimcycle,myThid) |
./model/src/update_masks_etc.F |
271 |
UPDATE_MASKS_ETC |
CALL WRITE_FLD_XYZ_RS( 'hFacS.',suff,hFacS,optimcycle,myThid) |
./model/src/update_masks_etc.F |
277 |
UPDATE_MASKS_ETC |
& Nr, 1, myThid ) |
./model/src/update_masks_etc.F |
279 |
UPDATE_MASKS_ETC |
& Nr, 1, myThid ) |
./model/src/update_masks_etc.F |
281 |
UPDATE_MASKS_ETC |
& Nr, 1, myThid ) |
./model/src/update_masks_etc.F |
291 |
UPDATE_MASKS_ETC |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/update_masks_etc.F |
292 |
UPDATE_MASKS_ETC |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/update_masks_etc.F |
42 |
UPDATE_MASKS_ETC |
INTEGER myThid |
./model/src/update_masks_etc.F |
65 |
UPDATE_MASKS_ETC |
DO bj=myByLo(myThid), myByHi(myThid) |
./model/src/update_masks_etc.F |
66 |
UPDATE_MASKS_ETC |
DO bi=myBxLo(myThid), myBxHi(myThid) |
./model/src/update_masks_etc.F |
9 |
UPDATE_MASKS_ETC |
SUBROUTINE UPDATE_MASKS_ETC( myThid ) |
./model/src/update_r_star.F |
10 |
UPDATE_R_STAR |
SUBROUTINE UPDATE_R_STAR( myTime, myIter, myThid ) |
./model/src/update_r_star.F |
40 |
UPDATE_R_STAR |
INTEGER myThid |
./model/src/update_r_star.F |
49 |
UPDATE_R_STAR |
DO bj=myByLo(myThid), myByHi(myThid) |
./model/src/update_r_star.F |
50 |
UPDATE_R_STAR |
DO bi=myBxLo(myThid), myBxHi(myThid) |
./model/src/update_r_star.F |
53 |
UPDATE_R_STAR |
act1 = bi - myBxLo(myThid) |
./model/src/update_r_star.F |
54 |
UPDATE_R_STAR |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
./model/src/update_r_star.F |
55 |
UPDATE_R_STAR |
act2 = bj - myByLo(myThid) |
./model/src/update_r_star.F |
56 |
UPDATE_R_STAR |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
./model/src/update_r_star.F |
57 |
UPDATE_R_STAR |
act3 = myThid - 1 |
./model/src/update_r_star.F |
81 |
UPDATE_R_STAR |
I myTime, myIter, myThid ) |
./model/src/update_sigma.F |
10 |
UPDATE_SIGMA |
SUBROUTINE UPDATE_SIGMA( etaHc, myTime, myIter, myThid ) |
./model/src/update_sigma.F |
42 |
UPDATE_SIGMA |
INTEGER myThid |
./model/src/update_sigma.F |
64 |
UPDATE_SIGMA |
DO bj=myByLo(myThid), myByHi(myThid) |
./model/src/update_sigma.F |
65 |
UPDATE_SIGMA |
DO bi=myBxLo(myThid), myBxHi(myThid) |
./model/src/update_surf_dr.F |
10 |
UPDATE_SURF_DR |
SUBROUTINE UPDATE_SURF_DR( myTime, myIter, myThid ) |
./model/src/update_surf_dr.F |
40 |
UPDATE_SURF_DR |
INTEGER myThid |
./model/src/update_surf_dr.F |
50 |
UPDATE_SURF_DR |
DO bj=myByLo(myThid), myByHi(myThid) |
./model/src/update_surf_dr.F |
51 |
UPDATE_SURF_DR |
DO bi=myBxLo(myThid), myBxHi(myThid) |
./model/src/update_surf_dr.F |
54 |
UPDATE_SURF_DR |
act1 = bi - myBxLo(myThid) |
./model/src/update_surf_dr.F |
55 |
UPDATE_SURF_DR |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
./model/src/update_surf_dr.F |
56 |
UPDATE_SURF_DR |
act2 = bj - myByLo(myThid) |
./model/src/update_surf_dr.F |
57 |
UPDATE_SURF_DR |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
./model/src/update_surf_dr.F |
58 |
UPDATE_SURF_DR |
act3 = myThid - 1 |
./model/src/update_surf_dr.F |
82 |
UPDATE_SURF_DR |
I myThid ) |
./model/src/write_grid.F |
100 |
WRITE_GRID |
CALL WRITE_FLD_XYZ_RS( 'hFacS',' ',hFacS, 0,myThid) |
./model/src/write_grid.F |
102 |
WRITE_GRID |
& CALL WRITE_FLD_XY_RS( 'topo_P',' ',Ro_surf,-1,myThid) |
./model/src/write_grid.F |
104 |
WRITE_GRID |
CALL WRITE_FLD_XY_RS( 'maskInC',' ', maskInC, -1, myThid ) |
./model/src/write_grid.F |
105 |
WRITE_GRID |
CALL WRITE_FLD_XY_RS( 'maskInW',' ', maskInW, -1, myThid ) |
./model/src/write_grid.F |
106 |
WRITE_GRID |
CALL WRITE_FLD_XY_RS( 'maskInS',' ', maskInS, -1, myThid ) |
./model/src/write_grid.F |
110 |
WRITE_GRID |
CALL WRITE_GLVEC_RS( 'RC', ' ', rC, Nr, -1, myThid ) |
./model/src/write_grid.F |
111 |
WRITE_GRID |
CALL WRITE_GLVEC_RS( 'RF', ' ', rF, 1+Nr,-1, myThid ) |
./model/src/write_grid.F |
112 |
WRITE_GRID |
CALL WRITE_GLVEC_RS( 'DRC',' ', drC, Nr, -1, myThid ) |
./model/src/write_grid.F |
113 |
WRITE_GRID |
CALL WRITE_GLVEC_RS( 'DRF',' ', drF, Nr, -1, myThid ) |
./model/src/write_grid.F |
115 |
WRITE_GRID |
CALL WRITE_GLVEC_RS( 'AHybSigF',' ',aHybSigmF,1+Nr,-1,myThid ) |
./model/src/write_grid.F |
116 |
WRITE_GRID |
CALL WRITE_GLVEC_RS( 'BHybSigF',' ',bHybSigmF,1+Nr,-1,myThid ) |
./model/src/write_grid.F |
117 |
WRITE_GRID |
CALL WRITE_GLVEC_RS( 'AHybSigC',' ',aHybSigmC, Nr, -1,myThid ) |
./model/src/write_grid.F |
118 |
WRITE_GRID |
CALL WRITE_GLVEC_RS( 'BHybSigC',' ',bHybSigmC, Nr, -1,myThid ) |
./model/src/write_grid.F |
119 |
WRITE_GRID |
CALL WRITE_GLVEC_RS('DAHybSigF',' ',dAHybSigF, Nr, -1,myThid ) |
./model/src/write_grid.F |
120 |
WRITE_GRID |
CALL WRITE_GLVEC_RS('DBHybSigF',' ',dBHybSigF, Nr, -1,myThid ) |
./model/src/write_grid.F |
121 |
WRITE_GRID |
CALL WRITE_GLVEC_RS('DAHybSigC',' ',dAHybSigC,1+Nr,-1,myThid ) |
./model/src/write_grid.F |
122 |
WRITE_GRID |
CALL WRITE_GLVEC_RS('DBHybSigC',' ',dBHybSigC,1+Nr,-1,myThid ) |
./model/src/write_grid.F |
129 |
WRITE_GRID |
CALL WRITE_GLVEC_RS( 'PHrefF',' ',tmpVar,1+Nr,-1, myThid ) |
./model/src/write_grid.F |
12 |
WRITE_GRID |
I myThid ) |
./model/src/write_grid.F |
133 |
WRITE_GRID |
CALL WRITE_GLVEC_RS( 'PHrefC',' ',tmpVar, Nr, -1, myThid ) |
./model/src/write_grid.F |
143 |
WRITE_GRID |
_BEGIN_MASTER( myThid ) |
./model/src/write_grid.F |
147 |
WRITE_GRID |
CALL MNC_CW_SET_UDIM(bfname, 0, myThid) |
./model/src/write_grid.F |
148 |
WRITE_GRID |
CALL MNC_CW_SET_CITER(bfname, 2, -1, -1, -1, myThid) |
./model/src/write_grid.F |
149 |
WRITE_GRID |
CALL MNC_CW_SET_UDIM(bfname, 1, myThid) |
./model/src/write_grid.F |
150 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'RC',rC,myThid) |
./model/src/write_grid.F |
151 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'RF',rF,myThid) |
./model/src/write_grid.F |
152 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'RU',rF(2),myThid) |
./model/src/write_grid.F |
153 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'RL',rF,myThid) |
./model/src/write_grid.F |
154 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'drC',drC,myThid) |
./model/src/write_grid.F |
155 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'drF',drF,myThid) |
./model/src/write_grid.F |
156 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'XC',xC,myThid) |
./model/src/write_grid.F |
157 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'YC',yC,myThid) |
./model/src/write_grid.F |
162 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'XG',xG,myThid) |
./model/src/write_grid.F |
163 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'YG',yG,myThid) |
./model/src/write_grid.F |
164 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'dxC',dxC,myThid) |
./model/src/write_grid.F |
165 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'dyC',dyC,myThid) |
./model/src/write_grid.F |
166 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'dxF',dxF,myThid) |
./model/src/write_grid.F |
167 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'dyF',dyF,myThid) |
./model/src/write_grid.F |
168 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'dxG',dxG,myThid) |
./model/src/write_grid.F |
169 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'dyG',dyG,myThid) |
./model/src/write_grid.F |
170 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'dxV',dxV,myThid) |
./model/src/write_grid.F |
171 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'dyU',dyU,myThid) |
./model/src/write_grid.F |
172 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'rA',rA,myThid) |
./model/src/write_grid.F |
173 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'rAw',rAw,myThid) |
./model/src/write_grid.F |
174 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'rAs',rAs,myThid) |
./model/src/write_grid.F |
175 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'rAz',rAz,myThid) |
./model/src/write_grid.F |
177 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'AngleCS',angleCosC,myThid) |
./model/src/write_grid.F |
178 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'AngleSN',angleSinC,myThid) |
./model/src/write_grid.F |
180 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'fCori',fCori,myThid) |
./model/src/write_grid.F |
181 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'fCoriG',fCoriG,myThid) |
./model/src/write_grid.F |
182 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'R_low',R_low,myThid) |
./model/src/write_grid.F |
183 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'Ro_surf',Ro_surf,myThid) |
./model/src/write_grid.F |
184 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'Depth',tmpfld,myThid) |
./model/src/write_grid.F |
185 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'HFacC',HFacC,myThid) |
./model/src/write_grid.F |
186 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'HFacW',HFacW,myThid) |
./model/src/write_grid.F |
187 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'HFacS',HFacS,myThid) |
./model/src/write_grid.F |
189 |
WRITE_GRID |
_END_MASTER(myThid) |
./model/src/write_grid.F |
198 |
WRITE_GRID |
& CALL MNC_CW_WRITE_GRID_COORD('state', myThid) |
./model/src/write_grid.F |
203 |
WRITE_GRID |
CALL MNC_CW_WRITE_GRID_COORD('adstate', myThid) |
./model/src/write_grid.F |
205 |
WRITE_GRID |
IF (useEXF) CALL MNC_CW_WRITE_GRID_COORD('adexf',myThid) |
./model/src/write_grid.F |
208 |
WRITE_GRID |
IF (useSEAICE) CALL MNC_CW_WRITE_GRID_COORD('adseaice',myThid) |
./model/src/write_grid.F |
38 |
WRITE_GRID |
INTEGER myThid |
./model/src/write_grid.F |
58 |
WRITE_GRID |
DO bj = myByLo(myThid), myByHi(myThid) |
./model/src/write_grid.F |
59 |
WRITE_GRID |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./model/src/write_grid.F |
80 |
WRITE_GRID |
CALL WRITE_FLD_XY_RS( 'XC',' ',xC,-1,myThid) |
./model/src/write_grid.F |
81 |
WRITE_GRID |
CALL WRITE_FLD_XY_RS( 'YC',' ',yC,-1,myThid) |
./model/src/write_grid.F |
82 |
WRITE_GRID |
CALL WRITE_FLD_XY_RS( 'XG',' ',xG,-1,myThid) |
./model/src/write_grid.F |
83 |
WRITE_GRID |
CALL WRITE_FLD_XY_RS( 'YG',' ',yG,-1,myThid) |
./model/src/write_grid.F |
84 |
WRITE_GRID |
CALL WRITE_FLD_XY_RS( 'RAC',' ',rA,-1,myThid) |
./model/src/write_grid.F |
85 |
WRITE_GRID |
CALL WRITE_FLD_XY_RS( 'RAW',' ',rAw,-1,myThid) |
./model/src/write_grid.F |
86 |
WRITE_GRID |
CALL WRITE_FLD_XY_RS( 'RAS',' ',rAs,-1,myThid) |
./model/src/write_grid.F |
87 |
WRITE_GRID |
CALL WRITE_FLD_XY_RS( 'RAZ',' ',rAz,-1,myThid) |
./model/src/write_grid.F |
88 |
WRITE_GRID |
CALL WRITE_FLD_XY_RS( 'DXG',' ',dxG,-1,myThid) |
./model/src/write_grid.F |
89 |
WRITE_GRID |
CALL WRITE_FLD_XY_RS( 'DYG',' ',dyG,-1,myThid) |
./model/src/write_grid.F |
90 |
WRITE_GRID |
CALL WRITE_FLD_XY_RS( 'DXC',' ',dxC,-1,myThid) |
./model/src/write_grid.F |
91 |
WRITE_GRID |
CALL WRITE_FLD_XY_RS( 'DYC',' ',dyC,-1,myThid) |
./model/src/write_grid.F |
93 |
WRITE_GRID |
CALL WRITE_FLD_XY_RS( 'AngleCS',' ',angleCosC,-1,myThid) |
./model/src/write_grid.F |
94 |
WRITE_GRID |
CALL WRITE_FLD_XY_RS( 'AngleSN',' ',angleSinC,-1,myThid) |
./model/src/write_grid.F |
97 |
WRITE_GRID |
CALL WRITE_FLD_XY_RS( 'Depth',' ',tmpfld,-1,myThid) |
./model/src/write_grid.F |
98 |
WRITE_GRID |
CALL WRITE_FLD_XYZ_RS( 'hFacC',' ',hFacC, 0,myThid) |
./model/src/write_grid.F |
99 |
WRITE_GRID |
CALL WRITE_FLD_XYZ_RS( 'hFacW',' ',hFacW, 0,myThid) |
./model/src/write_pickup.F |
112 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, uVel, -j, myIter, myThid ) |
./model/src/write_pickup.F |
115 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, vVel, -j, myIter, myThid ) |
./model/src/write_pickup.F |
119 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, theta, -j, myIter, myThid ) |
./model/src/write_pickup.F |
122 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, salt, -j, myIter, myThid ) |
./model/src/write_pickup.F |
133 |
WRITE_PICKUP |
& -j, myIter, myThid ) |
./model/src/write_pickup.F |
139 |
WRITE_PICKUP |
& -j, myIter, myThid ) |
./model/src/write_pickup.F |
13 |
WRITE_PICKUP |
I myTime, myIter, myThid ) |
./model/src/write_pickup.F |
146 |
WRITE_PICKUP |
& -j, myIter, myThid ) |
./model/src/write_pickup.F |
152 |
WRITE_PICKUP |
& -j, myIter, myThid ) |
./model/src/write_pickup.F |
161 |
WRITE_PICKUP |
& -j, myIter, myThid ) |
./model/src/write_pickup.F |
170 |
WRITE_PICKUP |
& -j, myIter, myThid ) |
./model/src/write_pickup.F |
182 |
WRITE_PICKUP |
& -j, myIter, myThid ) |
./model/src/write_pickup.F |
191 |
WRITE_PICKUP |
& -j, myIter, myThid ) |
./model/src/write_pickup.F |
204 |
WRITE_PICKUP |
& -j, myIter, myThid ) |
./model/src/write_pickup.F |
210 |
WRITE_PICKUP |
& -j, myIter, myThid ) |
./model/src/write_pickup.F |
218 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, guNm1, -j, myIter, myThid ) |
./model/src/write_pickup.F |
221 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gvNm1, -j, myIter, myThid ) |
./model/src/write_pickup.F |
226 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gtNm1, -j, myIter, myThid ) |
./model/src/write_pickup.F |
231 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gsNm1, -j, myIter, myThid ) |
./model/src/write_pickup.F |
237 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, gwNm1, -j, myIter, myThid ) |
./model/src/write_pickup.F |
246 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr,totPhiHyd,-j,myIter, myThid ) |
./model/src/write_pickup.F |
252 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, phi_nh, -j, myIter, myThid ) |
./model/src/write_pickup.F |
260 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr,addMass,-j,myIter, myThid ) |
./model/src/write_pickup.F |
269 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1 , etaN, nj, myIter, myThid ) |
./model/src/write_pickup.F |
275 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, dPhiNH, nj, myIter, myThid ) |
./model/src/write_pickup.F |
283 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, dEtaHdt, nj, myIter, myThid ) |
./model/src/write_pickup.F |
291 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, etaHnm1, nj, myIter, myThid ) |
./model/src/write_pickup.F |
300 |
WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/write_pickup.F |
303 |
WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/write_pickup.F |
316 |
WRITE_PICKUP |
& nj, myIter, myThid ) |
./model/src/write_pickup.F |
329 |
WRITE_PICKUP |
CALL MNC_CW_SET_UDIM(fn, 0, myThid) |
./model/src/write_pickup.F |
331 |
WRITE_PICKUP |
CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, 0, myThid) |
./model/src/write_pickup.F |
333 |
WRITE_PICKUP |
CALL MNC_CW_SET_CITER(fn, 2, -1, -1, -1, myThid) |
./model/src/write_pickup.F |
336 |
WRITE_PICKUP |
CALL MNC_CW_SET_UDIM(fn, 1, myThid) |
./model/src/write_pickup.F |
337 |
WRITE_PICKUP |
CALL MNC_CW_RL_W_S('D',fn,0,0,'T', myTime, myThid) |
./model/src/write_pickup.F |
338 |
WRITE_PICKUP |
CALL MNC_CW_I_W_S('I',fn,0,0,'iter', myIter, myThid) |
./model/src/write_pickup.F |
339 |
WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'U', uVel, myThid) |
./model/src/write_pickup.F |
340 |
WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'V', vVel, myThid) |
./model/src/write_pickup.F |
341 |
WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'Temp', theta, myThid) |
./model/src/write_pickup.F |
342 |
WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'S', salt, myThid) |
./model/src/write_pickup.F |
343 |
WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'Eta', etaN, myThid) |
./model/src/write_pickup.F |
345 |
WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'gUnm1', guNm1, myThid) |
./model/src/write_pickup.F |
346 |
WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'gVnm1', gvNm1, myThid) |
./model/src/write_pickup.F |
347 |
WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'gTnm1', gtNm1, myThid) |
./model/src/write_pickup.F |
348 |
WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'gSnm1', gsNm1, myThid) |
./model/src/write_pickup.F |
351 |
WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'dEtaHdt', dEtaHdt, myThid) |
./model/src/write_pickup.F |
352 |
WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'EtaH', etaHnm1, myThid) |
./model/src/write_pickup.F |
356 |
WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'phi_nh', phi_nh, myThid) |
./model/src/write_pickup.F |
359 |
WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'gWnm1', gwNm1, myThid) |
./model/src/write_pickup.F |
364 |
WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'phiHyd', totPhiHyd, myThid) |
./model/src/write_pickup.F |
366 |
WRITE_PICKUP |
CALL MNC_FILE_CLOSE_ALL_MATCHING(fn, myThid) |
./model/src/write_pickup.F |
48 |
WRITE_PICKUP |
INTEGER myThid |
./model/src/write_state.F |
104 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'U', uVel,iRec,myIter,myThid) |
./model/src/write_state.F |
105 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'V', vVel,iRec,myIter,myThid) |
./model/src/write_state.F |
106 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'T', theta,iRec,myIter,myThid) |
./model/src/write_state.F |
107 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'S', salt,iRec,myIter,myThid) |
./model/src/write_state.F |
108 |
WRITE_STATE |
CALL WRITE_REC_XY_RL('Eta',etaN,iRec,myIter,myThid) |
./model/src/write_state.F |
109 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'W',wVel,iRec,myIter,myThid) |
./model/src/write_state.F |
112 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'PNH',phi_nh,iRec,myIter,myThid) |
./model/src/write_state.F |
127 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'U.',suff,uVel,myIter,myThid) |
./model/src/write_state.F |
128 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'V.',suff,vVel,myIter,myThid) |
./model/src/write_state.F |
129 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'T.',suff,theta,myIter,myThid) |
./model/src/write_state.F |
130 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'S.',suff,salt,myIter,myThid) |
./model/src/write_state.F |
131 |
WRITE_STATE |
CALL WRITE_FLD_XY_RL('Eta.',suff,etaN,myIter,myThid) |
./model/src/write_state.F |
132 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'W.',suff,wVel,myIter,myThid) |
./model/src/write_state.F |
134 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL('PH.',suff,totPhiHyd,myIter,myThid) |
./model/src/write_state.F |
137 |
WRITE_STATE |
CALL WRITE_FLD_XY_RL('PHL.',suff,phiHydLow,myIter,myThid) |
./model/src/write_state.F |
141 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'PNH.',suff,phi_nh,myIter,myThid ) |
./model/src/write_state.F |
144 |
WRITE_STATE |
CALL WRITE_FLD_XY_RL( 'dPnh.',suff,dPhiNH,myIter,myThid ) |
./model/src/write_state.F |
14 |
WRITE_STATE |
SUBROUTINE WRITE_STATE ( myTime, myIter, myThid ) |
./model/src/write_state.F |
167 |
WRITE_STATE |
CALL MNC_CW_SET_UDIM('state', -1, myThid) |
./model/src/write_state.F |
168 |
WRITE_STATE |
CALL MNC_CW_RL_W_S('D','state',0,0,'T', myTime, myThid) |
./model/src/write_state.F |
169 |
WRITE_STATE |
CALL MNC_CW_SET_UDIM('state', 0, myThid) |
./model/src/write_state.F |
170 |
WRITE_STATE |
CALL MNC_CW_I_W_S('I','state',0,0,'iter', myIter, myThid) |
./model/src/write_state.F |
172 |
WRITE_STATE |
CALL MNC_CW_RL_W(pf,'state',0,0,'U', uVel, myThid) |
./model/src/write_state.F |
173 |
WRITE_STATE |
CALL MNC_CW_RL_W(pf,'state',0,0,'V', vVel, myThid) |
./model/src/write_state.F |
174 |
WRITE_STATE |
CALL MNC_CW_RL_W(pf,'state',0,0,'Temp', theta, myThid) |
./model/src/write_state.F |
175 |
WRITE_STATE |
CALL MNC_CW_RL_W(pf,'state',0,0,'S', salt, myThid) |
./model/src/write_state.F |
176 |
WRITE_STATE |
CALL MNC_CW_RL_W(pf,'state',0,0,'Eta', etaN, myThid) |
./model/src/write_state.F |
177 |
WRITE_STATE |
CALL MNC_CW_RL_W(pf,'state',0,0,'W', wVel, myThid) |
./model/src/write_state.F |
179 |
WRITE_STATE |
CALL MNC_CW_SET_UDIM('phiHyd', -1, myThid) |
./model/src/write_state.F |
180 |
WRITE_STATE |
CALL MNC_CW_RL_W_S('D','phiHyd',0,0,'T',myTime,myThid) |
./model/src/write_state.F |
181 |
WRITE_STATE |
CALL MNC_CW_SET_UDIM('phiHyd', 0, myThid) |
./model/src/write_state.F |
182 |
WRITE_STATE |
CALL MNC_CW_I_W_S('I','phiHyd',0,0,'iter',myIter,myThid) |
./model/src/write_state.F |
184 |
WRITE_STATE |
& totPhiHyd, myThid) |
./model/src/write_state.F |
187 |
WRITE_STATE |
CALL MNC_CW_SET_UDIM('phiHydLow', -1, myThid) |
./model/src/write_state.F |
188 |
WRITE_STATE |
CALL MNC_CW_RL_W_S('D','phiHydLow',0,0,'T', myTime, myThid) |
./model/src/write_state.F |
189 |
WRITE_STATE |
CALL MNC_CW_SET_UDIM('phiHydLow', 0, myThid) |
./model/src/write_state.F |
190 |
WRITE_STATE |
CALL MNC_CW_I_W_S('I','phiHydLow',0,0,'iter',myIter,myThid) |
./model/src/write_state.F |
192 |
WRITE_STATE |
& phiHydLow, myThid) |
./model/src/write_state.F |
196 |
WRITE_STATE |
CALL MNC_CW_RL_W(pf,'state',0,0,'phi_nh',phi_nh,myThid) |
./model/src/write_state.F |
71 |
WRITE_STATE |
INTEGER myThid |
./optim/utils.F |
120 |
DATE |
INTEGER FUNCTION IO_ERRCOUNT(myThid) |
./optim/utils.F |
131 |
DATE |
INTEGER myThid |
./optim/utils.F |
134 |
DATE |
IO_ERRCOUNT = ioErrorCount(myThid) |
./pkg/admtlm/admtlm_bypassad.F |
28 |
ADMTLM_BYPASSAD |
integer myThid |
./pkg/admtlm/admtlm_bypassad.F |
6 |
ADMTLM_BYPASSAD |
subroutine ADMTLM_BYPASSAD( myThid ) |
./pkg/admtlm/admtlm_driver.F |
11 |
ADMTLM_DRIVER |
SUBROUTINE ADMTLM_DRIVER( myThid ) |
./pkg/admtlm/admtlm_driver.F |
37 |
ADMTLM_DRIVER |
INTEGER myThid |
./pkg/admtlm/admtlm_driver.F |
46 |
ADMTLM_DRIVER |
IF (debugMode) CALL DEBUG_ENTER('ADMTLM_DRIVER',myThid) |
./pkg/admtlm/admtlm_driver.F |
58 |
ADMTLM_DRIVER |
CALL G_THE_MAIN_LOOP ( myCurrentTime, myCurrentIter, myThid ) |
./pkg/admtlm/admtlm_driver.F |
89 |
ADMTLM_DRIVER |
IF (debugMode) CALL DEBUG_LEAVE('ADMTLM_DRIVER',myThid) |
./pkg/admtlm/admtlm_dsvd.F |
387 |
ADMTLM_DSVD |
CALL INITIALISE_FIXED( myThid ) |
./pkg/admtlm/admtlm_init_fixed.F |
24 |
ADMTLM_INIT_FIXED |
integer myThid |
./pkg/admtlm/admtlm_init_fixed.F |
34 |
ADMTLM_INIT_FIXED |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/admtlm/admtlm_init_fixed.F |
35 |
ADMTLM_INIT_FIXED |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/admtlm/admtlm_init_fixed.F |
6 |
ADMTLM_INIT_FIXED |
subroutine ADMTLM_INIT_FIXED( myThid ) |
./pkg/admtlm/admtlm_map.F |
24 |
ADMTLM_MAP |
integer myThid |
./pkg/admtlm/admtlm_map.F |
31 |
ADMTLM_MAP |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/admtlm/admtlm_map.F |
32 |
ADMTLM_MAP |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/admtlm/admtlm_map.F |
6 |
ADMTLM_MAP |
subroutine ADMTLM_MAP( myThid ) |
./pkg/admtlm/admtlm_metric.F |
27 |
ADMTLM_METRIC |
integer myThid |
./pkg/admtlm/admtlm_metric.F |
51 |
ADMTLM_METRIC |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/admtlm/admtlm_metric.F |
52 |
ADMTLM_METRIC |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/admtlm/admtlm_metric.F |
69 |
ADMTLM_METRIC |
_GLOBAL_SUM_RL( myMetric , myThid ) |
./pkg/admtlm/admtlm_metric.F |
6 |
ADMTLM_METRIC |
subroutine ADMTLM_METRIC( myThid ) |
./pkg/admtlm/admtlm_metric.F |
73 |
ADMTLM_METRIC |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/admtlm/admtlm_metric.F |
74 |
ADMTLM_METRIC |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/aim_compon_interf/atm_apply_import.F |
13 |
ATM_APPLY_IMPORT |
I myTime, myIter, bi, bj, myThid ) |
./pkg/aim_compon_interf/atm_apply_import.F |
54 |
ATM_APPLY_IMPORT |
INTEGER myIter, bi, bj, myThid |
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
35 |
ATM_CPL_READ_PICKUP |
INTEGER myThid |
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
57 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, ocMxlD , 1, myIter,myThid ) |
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
58 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, SSTocn , 2, myIter,myThid ) |
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
59 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, SSSocn , 3, myIter,myThid ) |
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
60 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, vSqocn , 4, myIter,myThid ) |
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
62 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, atmSLPr , 5, myIter,myThid ) |
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
63 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, HeatFlux , 6, myIter,myThid ) |
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
64 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, qShortWave, 7, myIter,myThid ) |
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
65 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, tauX , 8, myIter,myThid ) |
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
66 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, tauY , 9, myIter,myThid ) |
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
67 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, EvMPrFlux , 10, myIter,myThid ) |
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
68 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, RunOffFlux, 11, myIter,myThid ) |
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
69 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, RunOffEnFx, 12, myIter,myThid ) |
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
70 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, iceSaltFlx, 13, myIter,myThid ) |
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
71 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, seaIceMass, 14, myIter,myThid ) |
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
74 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, flxCO2ocn , 15, myIter,myThid ) |
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
75 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, airCO2 , 16, myIter,myThid ) |
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
76 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, sWSpeed , 17, myIter,myThid ) |
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
77 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, fracIce , 18, myIter,myThid ) |
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
83 |
ATM_CPL_READ_PICKUP |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
84 |
ATM_CPL_READ_PICKUP |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
9 |
ATM_CPL_READ_PICKUP |
SUBROUTINE ATM_CPL_READ_PICKUP( myIter, myThid ) |
./pkg/aim_compon_interf/atm_export_atmconfig.F |
10 |
ATM_EXPORT_ATMCONFIG |
SUBROUTINE ATM_EXPORT_ATMCONFIG( myThid ) |
./pkg/aim_compon_interf/atm_export_atmconfig.F |
32 |
ATM_EXPORT_ATMCONFIG |
INTEGER myThid |
./pkg/aim_compon_interf/atm_export_atmconfig.F |
42 |
ATM_EXPORT_ATMCONFIG |
_BEGIN_MASTER( myThid ) |
./pkg/aim_compon_interf/atm_export_atmconfig.F |
57 |
ATM_EXPORT_ATMCONFIG |
_END_MASTER( myThid ) |
./pkg/aim_compon_interf/atm_export_fld.F |
12 |
ATM_EXPORT_FLD |
I myThid ) |
./pkg/aim_compon_interf/atm_export_fld.F |
44 |
ATM_EXPORT_FLD |
INTEGER myThid |
./pkg/aim_compon_interf/atm_export_fld.F |
56 |
ATM_EXPORT_FLD |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/aim_compon_interf/atm_export_fld.F |
57 |
ATM_EXPORT_FLD |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/aim_compon_interf/atm_export_fld.F |
75 |
ATM_EXPORT_FLD |
_BEGIN_MASTER( myThid ) |
./pkg/aim_compon_interf/atm_export_fld.F |
79 |
ATM_EXPORT_FLD |
_END_MASTER( myThid ) |
./pkg/aim_compon_interf/atm_export_fld.F |
83 |
ATM_EXPORT_FLD |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/aim_compon_interf/atm_export_fld.F |
84 |
ATM_EXPORT_FLD |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/aim_compon_interf/atm_import_fields.F |
34 |
ATM_IMPORT_FIELDS |
INTEGER myThid |
./pkg/aim_compon_interf/atm_import_fields.F |
46 |
ATM_IMPORT_FIELDS |
_BEGIN_MASTER( myThid ) |
./pkg/aim_compon_interf/atm_import_fields.F |
70 |
ATM_IMPORT_FIELDS |
_END_MASTER( myThid ) |
./pkg/aim_compon_interf/atm_import_fields.F |
9 |
ATM_IMPORT_FIELDS |
SUBROUTINE ATM_IMPORT_FIELDS( myThid ) |
./pkg/aim_compon_interf/atm_import_ocnconfig.F |
10 |
ATM_IMPORT_OCNCONFIG |
SUBROUTINE ATM_IMPORT_OCNCONFIG( myThid ) |
./pkg/aim_compon_interf/atm_import_ocnconfig.F |
33 |
ATM_IMPORT_OCNCONFIG |
INTEGER myThid |
./pkg/aim_compon_interf/atm_import_ocnconfig.F |
42 |
ATM_IMPORT_OCNCONFIG |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/aim_compon_interf/atm_import_ocnconfig.F |
43 |
ATM_IMPORT_OCNCONFIG |
DO bi=myBxLo(myThid),myByLo(myThid) |
./pkg/aim_compon_interf/atm_import_ocnconfig.F |
55 |
ATM_IMPORT_OCNCONFIG |
_BEGIN_MASTER( myThid ) |
./pkg/aim_compon_interf/atm_import_ocnconfig.F |
59 |
ATM_IMPORT_OCNCONFIG |
_END_MASTER( myThid ) |
./pkg/aim_compon_interf/atm_store_airco2.F |
14 |
ATM_STORE_AIRCO2 |
I myTime, myIter, myThid ) |
./pkg/aim_compon_interf/atm_store_airco2.F |
54 |
ATM_STORE_AIRCO2 |
INTEGER myThid |
./pkg/aim_compon_interf/atm_store_airco2.F |
72 |
ATM_STORE_AIRCO2 |
& + aim_CO2(ij,myThid)*cplTimeFraction |
./pkg/aim_compon_interf/atm_store_atmslp.F |
10 |
ATM_STORE_ATMSLP |
I myThid ) |
./pkg/aim_compon_interf/atm_store_atmslp.F |
39 |
ATM_STORE_ATMSLP |
INTEGER myThid |
./pkg/aim_compon_interf/atm_store_evmpr.F |
10 |
ATM_STORE_EVMPR |
I myThid ) |
./pkg/aim_compon_interf/atm_store_evmpr.F |
39 |
ATM_STORE_EVMPR |
INTEGER myThid |
./pkg/aim_compon_interf/atm_store_fracice.F |
11 |
ATM_STORE_FRACICE |
I myTime, myIter, myThid ) |
./pkg/aim_compon_interf/atm_store_fracice.F |
48 |
ATM_STORE_FRACICE |
INTEGER myThid |
./pkg/aim_compon_interf/atm_store_heatflux.F |
10 |
ATM_STORE_HEATFLUX |
I myThid ) |
./pkg/aim_compon_interf/atm_store_heatflux.F |
39 |
ATM_STORE_HEATFLUX |
INTEGER myThid |
./pkg/aim_compon_interf/atm_store_my_data.F |
10 |
ATM_STORE_MY_DATA |
I myTime, myIter, myThid ) |
./pkg/aim_compon_interf/atm_store_my_data.F |
40 |
ATM_STORE_MY_DATA |
INTEGER myThid |
./pkg/aim_compon_interf/atm_store_my_data.F |
47 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_ATMSLP( bi,bj, myTime, myIter, myThid ) |
./pkg/aim_compon_interf/atm_store_my_data.F |
48 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_HEATFLUX( bi,bj, myTime, myIter, myThid ) |
./pkg/aim_compon_interf/atm_store_my_data.F |
49 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_QSHORTWAVE( bi,bj, myTime, myIter, myThid ) |
./pkg/aim_compon_interf/atm_store_my_data.F |
57 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_EVMPR( bi,bj, myTime, myIter, myThid ) |
./pkg/aim_compon_interf/atm_store_my_data.F |
59 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_RUNOFF( bi,bj, myTime, myIter, myThid ) |
./pkg/aim_compon_interf/atm_store_my_data.F |
60 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_ROENFX( bi,bj, myTime, myIter, myThid ) |
./pkg/aim_compon_interf/atm_store_my_data.F |
63 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_SALTFX( bi,bj, myTime, myIter, myThid ) |
./pkg/aim_compon_interf/atm_store_my_data.F |
64 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_SEAICE( bi,bj, myTime, myIter, myThid ) |
./pkg/aim_compon_interf/atm_store_my_data.F |
67 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_WSPEED( bi,bj, myTime, myIter, myThid ) |
./pkg/aim_compon_interf/atm_store_my_data.F |
69 |
ATM_STORE_MY_DATA |
& CALL ATM_STORE_FRACICE( bi,bj, myTime, myIter, myThid ) |
./pkg/aim_compon_interf/atm_store_my_data.F |
70 |
ATM_STORE_MY_DATA |
CALL ATM_STORE_AIRCO2( bi,bj, myTime, myIter, myThid ) |
./eesupp/src/exch_cycle_ebl.F |
10 |
EXCH_CYCLE_EBL |
SUBROUTINE EXCH_CYCLE_EBL( myThid ) |
./eesupp/src/exch_cycle_ebl.F |
45 |
EXCH_CYCLE_EBL |
INTEGER myThid |
./eesupp/src/exch_cycle_ebl.F |
53 |
EXCH_CYCLE_EBL |
DO bj=myByLo(myThid),myByHi(myThid) |
./eesupp/src/exch_cycle_ebl.F |
54 |
EXCH_CYCLE_EBL |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/aim_compon_interf/atm_store_qshortwave.F |
10 |
ATM_STORE_QSHORTWAVE |
I myThid ) |
./pkg/aim_compon_interf/atm_store_qshortwave.F |
39 |
ATM_STORE_QSHORTWAVE |
INTEGER myThid |
./pkg/aim_compon_interf/atm_store_roenfx.F |
11 |
ATM_STORE_ROENFX |
I myThid ) |
./pkg/aim_compon_interf/atm_store_roenfx.F |
48 |
ATM_STORE_ROENFX |
INTEGER myThid |
./pkg/aim_compon_interf/atm_store_runoff.F |
11 |
ATM_STORE_RUNOFF |
I myThid ) |
./pkg/aim_compon_interf/atm_store_runoff.F |
48 |
ATM_STORE_RUNOFF |
INTEGER myThid |
./pkg/aim_compon_interf/atm_store_saltfx.F |
10 |
ATM_STORE_SALTFX |
I myThid ) |
./pkg/aim_compon_interf/atm_store_saltfx.F |
39 |
ATM_STORE_SALTFX |
INTEGER myThid |
./pkg/aim_compon_interf/atm_store_seaice.F |
11 |
ATM_STORE_SEAICE |
I myThid ) |
./pkg/aim_compon_interf/atm_store_seaice.F |
43 |
ATM_STORE_SEAICE |
INTEGER myThid |
./pkg/aim_compon_interf/atm_store_taux.F |
10 |
ATM_STORE_TAUX |
I myThid ) |
./pkg/aim_compon_interf/atm_store_taux.F |
45 |
ATM_STORE_TAUX |
INTEGER myThid |
./pkg/aim_compon_interf/atm_store_tauy.F |
10 |
ATM_STORE_TAUY |
I myThid ) |
./pkg/aim_compon_interf/atm_store_tauy.F |
45 |
ATM_STORE_TAUY |
INTEGER myThid |
./pkg/aim_compon_interf/atm_store_wspeed.F |
11 |
ATM_STORE_WSPEED |
I myTime, myIter, myThid ) |
./pkg/aim_compon_interf/atm_store_wspeed.F |
51 |
ATM_STORE_WSPEED |
INTEGER myThid |
./pkg/aim_compon_interf/atm_store_wspeed.F |
68 |
ATM_STORE_WSPEED |
& + SPEED0(ij,myThid)*cplTimeFraction |
./pkg/aim_compon_interf/cpl_exch_configs.F |
101 |
CPL_EXCH_CONFIGS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/aim_compon_interf/cpl_exch_configs.F |
104 |
CPL_EXCH_CONFIGS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/aim_compon_interf/cpl_exch_configs.F |
10 |
CPL_EXCH_CONFIGS |
SUBROUTINE CPL_EXCH_CONFIGS( myThid ) |
./pkg/aim_compon_interf/cpl_exch_configs.F |
46 |
CPL_EXCH_CONFIGS |
INTEGER myThid |
./pkg/aim_compon_interf/cpl_exch_configs.F |
60 |
CPL_EXCH_CONFIGS |
CALL ATM_EXPORT_ATMCONFIG( myThid ) |
./pkg/aim_compon_interf/cpl_exch_configs.F |
65 |
CPL_EXCH_CONFIGS |
CALL ATM_IMPORT_OCNCONFIG( myThid ) |
./pkg/aim_compon_interf/cpl_exch_configs.F |
71 |
CPL_EXCH_CONFIGS |
& 1, myThid ) |
./pkg/aim_compon_interf/cpl_exch_configs.F |
85 |
CPL_EXCH_CONFIGS |
DO bj=myByLo(myTHid),myByHi(myThid) |
./pkg/aim_compon_interf/cpl_exch_configs.F |
86 |
CPL_EXCH_CONFIGS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/aim_compon_interf/cpl_exch_configs.F |
98 |
CPL_EXCH_CONFIGS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/aim_compon_interf/cpl_export_my_data.F |
10 |
CPL_EXPORT_MY_DATA |
I myTime, myIter, myThid ) |
./pkg/aim_compon_interf/cpl_export_my_data.F |
40 |
CPL_EXPORT_MY_DATA |
INTEGER myThid |
./pkg/aim_compon_interf/cpl_export_my_data.F |
51 |
CPL_EXPORT_MY_DATA |
_BEGIN_MASTER( myThid ) |
./pkg/aim_compon_interf/cpl_export_my_data.F |
54 |
CPL_EXPORT_MY_DATA |
_END_MASTER( myThid ) |
./pkg/aim_compon_interf/cpl_export_my_data.F |
58 |
CPL_EXPORT_MY_DATA |
U atmSLPr, atmSLPrTime, myThid ) |
./pkg/aim_compon_interf/cpl_export_my_data.F |
61 |
CPL_EXPORT_MY_DATA |
U heatFlux, HeatFluxTime, myThid ) |
./pkg/aim_compon_interf/cpl_export_my_data.F |
64 |
CPL_EXPORT_MY_DATA |
U qShortWave, qShortWaveTime, myThid ) |
./pkg/aim_compon_interf/cpl_export_my_data.F |
67 |
CPL_EXPORT_MY_DATA |
U tauX, tauXTime, myThid ) |
./pkg/aim_compon_interf/cpl_export_my_data.F |
69 |
CPL_EXPORT_MY_DATA |
U tauY, tauYTime, myThid ) |
./pkg/aim_compon_interf/cpl_export_my_data.F |
72 |
CPL_EXPORT_MY_DATA |
U EvMPrFlux, EvMPrTime, myThid ) |
./pkg/aim_compon_interf/cpl_export_my_data.F |
75 |
CPL_EXPORT_MY_DATA |
U RunOffFlux, RunOffTime, myThid ) |
./pkg/aim_compon_interf/cpl_export_my_data.F |
78 |
CPL_EXPORT_MY_DATA |
U RunOffEnFx, ROEnFxTime, myThid ) |
./pkg/aim_compon_interf/cpl_export_my_data.F |
81 |
CPL_EXPORT_MY_DATA |
U iceSaltFlx, saltFxTime, myThid ) |
./pkg/aim_compon_interf/cpl_export_my_data.F |
84 |
CPL_EXPORT_MY_DATA |
U seaIceMass, seaIceTime, myThid ) |
./pkg/aim_compon_interf/cpl_export_my_data.F |
89 |
CPL_EXPORT_MY_DATA |
U airCO2, airCO2Time, myThid ) |
./pkg/aim_compon_interf/cpl_export_my_data.F |
93 |
CPL_EXPORT_MY_DATA |
U sWSpeed, sWSpeedTime, myThid ) |
./pkg/aim_compon_interf/cpl_export_my_data.F |
97 |
CPL_EXPORT_MY_DATA |
U fracIce, fracIceTime, myThid ) |
./pkg/aim_compon_interf/cpl_import_external_data.F |
10 |
CPL_IMPORT_EXTERNAL_DATA |
I myTime, myIter, myThid ) |
./pkg/aim_compon_interf/cpl_import_external_data.F |
36 |
CPL_IMPORT_EXTERNAL_DATA |
INTEGER myThid |
./pkg/aim_compon_interf/cpl_import_external_data.F |
48 |
CPL_IMPORT_EXTERNAL_DATA |
_BEGIN_MASTER( myThid ) |
./pkg/aim_compon_interf/cpl_import_external_data.F |
51 |
CPL_IMPORT_EXTERNAL_DATA |
_END_MASTER( myThid ) |
./pkg/aim_compon_interf/cpl_import_external_data.F |
52 |
CPL_IMPORT_EXTERNAL_DATA |
CALL ATM_IMPORT_FIELDS( myThid ) |
./pkg/aim_compon_interf/cpl_ini_vars.F |
100 |
CPL_INI_VARS |
CALL ATM_CPL_READ_PICKUP( nIter0, myThid ) |
./pkg/aim_compon_interf/cpl_ini_vars.F |
39 |
CPL_INI_VARS |
INTEGER myThid |
./pkg/aim_compon_interf/cpl_ini_vars.F |
47 |
CPL_INI_VARS |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/aim_compon_interf/cpl_ini_vars.F |
48 |
CPL_INI_VARS |
DO bi=myBxLo(myThid),myByLo(myThid) |
./pkg/aim_compon_interf/cpl_ini_vars.F |
9 |
CPL_INI_VARS |
SUBROUTINE CPL_INI_VARS( myThid ) |
./pkg/aim_compon_interf/cpl_init_fixed.F |
12 |
CPL_INIT_FIXED |
SUBROUTINE CPL_INIT_FIXED( myThid ) |
./pkg/aim_compon_interf/cpl_init_fixed.F |
26 |
CPL_INIT_FIXED |
INTEGER myThid |
./pkg/aim_compon_interf/cpl_output.F |
28 |
CPL_OUTPUT |
INTEGER myThid |
./pkg/aim_compon_interf/cpl_output.F |
7 |
CPL_OUTPUT |
SUBROUTINE CPL_OUTPUT( myTime, myIter, myThid ) |
./pkg/aim_compon_interf/cpl_readparms.F |
115 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/aim_compon_interf/cpl_readparms.F |
166 |
CPL_READPARMS |
_END_MASTER(myThid) |
./pkg/aim_compon_interf/cpl_readparms.F |
36 |
CPL_READPARMS |
INTEGER myThid |
./pkg/aim_compon_interf/cpl_readparms.F |
75 |
CPL_READPARMS |
_BEGIN_MASTER(myThid) |
./pkg/aim_compon_interf/cpl_readparms.F |
82 |
CPL_READPARMS |
O iUnit, myThid ) |
./pkg/aim_compon_interf/cpl_readparms.F |
9 |
CPL_READPARMS |
SUBROUTINE CPL_READPARMS( myThid ) |
./pkg/aim_compon_interf/cpl_write_pickup.F |
10 |
CPL_WRITE_PICKUP |
I suff, myTime, myIter, myThid ) |
./pkg/aim_compon_interf/cpl_write_pickup.F |
39 |
CPL_WRITE_PICKUP |
INTEGER myThid |
./pkg/aim_compon_interf/cpl_write_pickup.F |
64 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, ocMxlD , 1, myIter,myThid ) |
./pkg/aim_compon_interf/cpl_write_pickup.F |
65 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, SSTocn , 2, myIter,myThid ) |
./pkg/aim_compon_interf/cpl_write_pickup.F |
66 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, SSSocn , 3, myIter,myThid ) |
./pkg/aim_compon_interf/cpl_write_pickup.F |
67 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, vSqocn , 4, myIter,myThid ) |
./pkg/aim_compon_interf/cpl_write_pickup.F |
69 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, atmSLPr , 5, myIter,myThid ) |
./pkg/aim_compon_interf/cpl_write_pickup.F |
70 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, HeatFlux , 6, myIter,myThid ) |
./pkg/aim_compon_interf/cpl_write_pickup.F |
71 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, qShortWave, 7, myIter,myThid ) |
./pkg/aim_compon_interf/cpl_write_pickup.F |
72 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, tauX , 8, myIter,myThid ) |
./pkg/aim_compon_interf/cpl_write_pickup.F |
73 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, tauY , 9, myIter,myThid ) |
./pkg/aim_compon_interf/cpl_write_pickup.F |
74 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, EvMPrFlux , 10, myIter,myThid ) |
./pkg/aim_compon_interf/cpl_write_pickup.F |
75 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, RunOffFlux, 11, myIter,myThid ) |
./pkg/aim_compon_interf/cpl_write_pickup.F |
76 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, RunOffEnFx, 12, myIter,myThid ) |
./pkg/aim_compon_interf/cpl_write_pickup.F |
77 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, iceSaltFlx, 13, myIter,myThid ) |
./pkg/aim_compon_interf/cpl_write_pickup.F |
78 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, seaIceMass, 14, myIter,myThid ) |
./pkg/aim_compon_interf/cpl_write_pickup.F |
81 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,1, flxCO2ocn , 15, myIter,myThid ) |
./pkg/aim_compon_interf/cpl_write_pickup.F |
82 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,1, airCO2 , 16, myIter,myThid ) |
./pkg/aim_compon_interf/cpl_write_pickup.F |
83 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,1, sWSpeed , 17, myIter,myThid ) |
./pkg/aim_compon_interf/cpl_write_pickup.F |
84 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,1, fracIce , 18, myIter,myThid ) |
./eesupp/src/fill_cs_corner_ag_rl.F |
15 |
FILL_CS_CORNER_AG_RL |
I bi,bj, myThid) |
./eesupp/src/fill_cs_corner_ag_rl.F |
54 |
FILL_CS_CORNER_AG_RL |
INTEGER myThid |
./pkg/aim_v23/aim_aim2dyn.F |
103 |
AIM_AIM2DYN |
aim_dTdt(i,j,k,bi,bj) = ( TT_CNV(I2,Katm,myThid) |
./pkg/aim_v23/aim_aim2dyn.F |
104 |
AIM_AIM2DYN |
& +TT_PBL(I2,Katm,myThid) |
./pkg/aim_v23/aim_aim2dyn.F |
105 |
AIM_AIM2DYN |
& +TT_RSW(I2,Katm,myThid) |
./pkg/aim_v23/aim_aim2dyn.F |
106 |
AIM_AIM2DYN |
& +TT_RLW(I2,Katm,myThid) |
./pkg/aim_v23/aim_aim2dyn.F |
107 |
AIM_AIM2DYN |
& +TT_LSC(I2,Katm,myThid) |
./pkg/aim_v23/aim_aim2dyn.F |
10 |
AIM_AIM2DYN |
I bi, bj, myTime, myIter, myThid ) |
./pkg/aim_v23/aim_aim2dyn.F |
110 |
AIM_AIM2DYN |
aim_dSdt(i,j,k,bi,bj) = QT_CNV(I2,Katm,myThid) |
./pkg/aim_v23/aim_aim2dyn.F |
111 |
AIM_AIM2DYN |
& +QT_PBL(I2,Katm,myThid) |
./pkg/aim_v23/aim_aim2dyn.F |
112 |
AIM_AIM2DYN |
& +QT_LSC(I2,Katm,myThid) |
./pkg/aim_v23/aim_aim2dyn.F |
119 |
AIM_AIM2DYN |
& k, Nr, 1,bi,bj, myThid ) |
./pkg/aim_v23/aim_aim2dyn.F |
121 |
AIM_AIM2DYN |
& k, Nr, 1,bi,bj, myThid ) |
./pkg/aim_v23/aim_aim2dyn.F |
55 |
AIM_AIM2DYN |
INTEGER myIter, myThid |
./pkg/aim_v23/aim_aim2dyn.F |
80 |
AIM_AIM2DYN |
physTendDiag = DIAGNOSTICS_IS_ON( 'DIABT ', myThid ) |
./pkg/aim_v23/aim_aim2dyn.F |
81 |
AIM_AIM2DYN |
& .OR. DIAGNOSTICS_IS_ON( 'DIABQ ', myThid ) |
./pkg/aim_v23/aim_aim2dyn.F |
89 |
AIM_AIM2DYN |
aim_drag(i,j,bi,bj) = DRAG(I2,0,myThid) |
./pkg/aim_v23/aim_aim2dyn_exchanges.F |
13 |
AIM_AIM2DYN_EXCHANGES |
I myTime, myIter, myThid ) |
./pkg/aim_v23/aim_aim2dyn_exchanges.F |
44 |
AIM_AIM2DYN_EXCHANGES |
INTEGER myThid |
./pkg/aim_v23/aim_aim2dyn_exchanges.F |
53 |
AIM_AIM2DYN_EXCHANGES |
_EXCH_XY_RL( aim_drag, myThid ) |
./pkg/aim_v23/aim_aim2dyn_exchanges.F |
57 |
AIM_AIM2DYN_EXCHANGES |
CALL EXCH_XY_RL( iceMask, myThid ) |
./pkg/aim_v23/aim_aim2dyn_exchanges.F |
59 |
AIM_AIM2DYN_EXCHANGES |
CALL EXCH_XY_RL( iceHeight, myThid ) |
./pkg/aim_v23/aim_aim2dyn_exchanges.F |
60 |
AIM_AIM2DYN_EXCHANGES |
CALL EXCH_XY_RL( snowHeight, myThid ) |
./pkg/aim_v23/aim_aim2dyn_exchanges.F |
61 |
AIM_AIM2DYN_EXCHANGES |
CALL EXCH_XY_RL( Qice1, myThid ) |
./pkg/aim_v23/aim_aim2dyn_exchanges.F |
62 |
AIM_AIM2DYN_EXCHANGES |
CALL EXCH_XY_RL( Qice2, myThid ) |
./pkg/aim_v23/aim_aim2dyn_exchanges.F |
65 |
AIM_AIM2DYN_EXCHANGES |
& CALL EXCH_XY_RS( sIceLoad, myThid ) |
./pkg/aim_v23/aim_aim2dyn_exchanges.F |
73 |
AIM_AIM2DYN_EXCHANGES |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/aim_v23/aim_aim2dyn_exchanges.F |
74 |
AIM_AIM2DYN_EXCHANGES |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/aim_v23/aim_aim2dyn_exchanges.F |
75 |
AIM_AIM2DYN_EXCHANGES |
CALL ATM_STORE_TAUX( bi,bj, myTime, myIter, myThid ) |
./pkg/aim_v23/aim_aim2dyn_exchanges.F |
76 |
AIM_AIM2DYN_EXCHANGES |
CALL ATM_STORE_TAUY( bi,bj, myTime, myIter, myThid ) |
./pkg/aim_v23/aim_aim2land.F |
105 |
AIM_AIM2LAND |
& - EVAP(I2,1,myThid)*ALHF |
./pkg/aim_v23/aim_aim2land.F |
107 |
AIM_AIM2LAND |
& EVAP(I2,1,myThid)*ALHF |
./pkg/aim_v23/aim_aim2land.F |
124 |
AIM_AIM2LAND |
& + conv_precip*( PRECNV(I2,myThid) |
./pkg/aim_v23/aim_aim2land.F |
125 |
AIM_AIM2LAND |
& + PRECLS(I2,myThid) |
./pkg/aim_v23/aim_aim2land.F |
126 |
AIM_AIM2LAND |
& - EVAP(I2,1,myThid) |
./pkg/aim_v23/aim_aim2land.F |
139 |
AIM_AIM2LAND |
& + EnPrec(I2,myThid)*( PRECNV(I2,myThid) |
./pkg/aim_v23/aim_aim2land.F |
13 |
AIM_AIM2LAND |
I land_frc, bi, bj, myTime, myIter, myThid) |
./pkg/aim_v23/aim_aim2land.F |
140 |
AIM_AIM2LAND |
& +PRECLS(I2,myThid) ) |
./pkg/aim_v23/aim_aim2land.F |
51 |
AIM_AIM2LAND |
INTEGER bi, bj, myIter, myThid |
./pkg/aim_v23/aim_aim2land.F |
90 |
AIM_AIM2LAND |
& SSR(I2,k,myThid) |
./pkg/aim_v23/aim_aim2land.F |
91 |
AIM_AIM2LAND |
& - SLR(I2,k,myThid) |
./pkg/aim_v23/aim_aim2land.F |
92 |
AIM_AIM2LAND |
& - SHF(I2,1,myThid) |
./pkg/aim_v23/aim_aim2land.F |
93 |
AIM_AIM2LAND |
& - EVAP(I2,1,myThid)*ALHC |
./pkg/aim_v23/aim_aim2sioce.F |
111 |
AIM_AIM2SIOCE |
prcAtm(i,j) = ( PRECNV(I2,myThid) |
./pkg/aim_v23/aim_aim2sioce.F |
112 |
AIM_AIM2SIOCE |
& + PRECLS(I2,myThid) ) |
./pkg/aim_v23/aim_aim2sioce.F |
118 |
AIM_AIM2SIOCE |
& SSR(I2,2,myThid) |
./pkg/aim_v23/aim_aim2sioce.F |
119 |
AIM_AIM2SIOCE |
& - SLR(I2,2,myThid) |
./pkg/aim_v23/aim_aim2sioce.F |
120 |
AIM_AIM2SIOCE |
& - SHF(I2,2,myThid) |
./pkg/aim_v23/aim_aim2sioce.F |
121 |
AIM_AIM2SIOCE |
& - EVAP(I2,2,myThid)*ALHC |
./pkg/aim_v23/aim_aim2sioce.F |
124 |
AIM_AIM2SIOCE |
EmPmR(i,j,bi,bj) = ( EVAP(I2,2,myThid) |
./pkg/aim_v23/aim_aim2sioce.F |
128 |
AIM_AIM2SIOCE |
Qsw(i,j,bi,bj) = SSR(I2,2,myThid) |
./pkg/aim_v23/aim_aim2sioce.F |
144 |
AIM_AIM2SIOCE |
icFrwAtm(i,j,bi,bj) = EVAP(I2,3,myThid)*convPrcEvp |
./pkg/aim_v23/aim_aim2sioce.F |
15 |
AIM_AIM2SIOCE |
I bi, bj, myTime, myIter, myThid) |
./pkg/aim_v23/aim_aim2sioce.F |
164 |
AIM_AIM2SIOCE |
IF ( EnPrec(I2,myThid).GE.0. _d 0 ) THEN |
./pkg/aim_v23/aim_aim2sioce.F |
167 |
AIM_AIM2SIOCE |
& + EnPrec(I2,myThid)*prcAtm(i,j) |
./pkg/aim_v23/aim_aim2sioce.F |
195 |
AIM_AIM2SIOCE |
& + ( SSR(I2,3,myThid) |
./pkg/aim_v23/aim_aim2sioce.F |
196 |
AIM_AIM2SIOCE |
& - SLR(I2,3,myThid) |
./pkg/aim_v23/aim_aim2sioce.F |
197 |
AIM_AIM2SIOCE |
& - SHF(I2,3,myThid) |
./pkg/aim_v23/aim_aim2sioce.F |
198 |
AIM_AIM2SIOCE |
& - EVAP(I2,3,myThid)*ALHC |
./pkg/aim_v23/aim_aim2sioce.F |
202 |
AIM_AIM2SIOCE |
& + ( EVAP(I2,3,myThid) |
./pkg/aim_v23/aim_aim2sioce.F |
207 |
AIM_AIM2SIOCE |
& + icFrac*SSR(I2,3,myThid) |
./pkg/aim_v23/aim_aim2sioce.F |
222 |
AIM_AIM2SIOCE |
& + EnPrec(I2,myThid)*prcAtm(i,j) |
./pkg/aim_v23/aim_aim2sioce.F |
78 |
AIM_AIM2SIOCE |
INTEGER bi, bj, myIter, myThid |
./eesupp/src/fill_cs_corner_tr_rl.F |
15 |
FILL_CS_CORNER_TR_RL |
I bi,bj, myThid) |
./eesupp/src/fill_cs_corner_tr_rl.F |
54 |
FILL_CS_CORNER_TR_RL |
INTEGER myThid |
./pkg/aim_v23/aim_diagnostics.F |
101 |
AIM_DIAGNOSTICS |
& 0, bi, bj, 1, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
106 |
AIM_DIAGNOSTICS |
& 0, bi, bj, 1, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
108 |
AIM_DIAGNOSTICS |
& 0, bi, bj, 1, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
130 |
AIM_DIAGNOSTICS |
CALL MNC_CW_SET_UDIM(suff, -1, myThid) |
./pkg/aim_v23/aim_diagnostics.F |
131 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W_S('D',suff,0,0,'T',myTime,myThid) |
./pkg/aim_v23/aim_diagnostics.F |
132 |
AIM_DIAGNOSTICS |
CALL MNC_CW_SET_UDIM(suff, 0, myThid) |
./pkg/aim_v23/aim_diagnostics.F |
133 |
AIM_DIAGNOSTICS |
CALL MNC_CW_I_W_S('I',suff,0,0,'iter',myIter,myThid) |
./pkg/aim_v23/aim_diagnostics.F |
136 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dT_RSW',TT_RSW,myThid) |
./pkg/aim_v23/aim_diagnostics.F |
137 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dT_RLW',TT_RLW,myThid) |
./pkg/aim_v23/aim_diagnostics.F |
138 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dT_CNV',TT_CNV,myThid) |
./pkg/aim_v23/aim_diagnostics.F |
139 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dT_PBL',TT_PBL,myThid) |
./pkg/aim_v23/aim_diagnostics.F |
140 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dT_LSC',TT_LSC,myThid) |
./pkg/aim_v23/aim_diagnostics.F |
141 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dQ_CNV',QT_CNV,myThid) |
./pkg/aim_v23/aim_diagnostics.F |
142 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dQ_PBL',QT_PBL,myThid) |
./pkg/aim_v23/aim_diagnostics.F |
143 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dQ_LSC',QT_LSC,myThid) |
./pkg/aim_v23/aim_diagnostics.F |
164 |
AIM_DIAGNOSTICS |
& 0, bi, bj, 1, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
168 |
AIM_DIAGNOSTICS |
& 1, bi, bj, 1, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
170 |
AIM_DIAGNOSTICS |
& 1, bi, bj, 2, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
172 |
AIM_DIAGNOSTICS |
& 1, bi, bj, 3, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
174 |
AIM_DIAGNOSTICS |
& 1, bi, bj, 4, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
176 |
AIM_DIAGNOSTICS |
& 1, bi, bj, 5, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
178 |
AIM_DIAGNOSTICS |
& 1, bi, bj, 6, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
180 |
AIM_DIAGNOSTICS |
& 1, bi, bj, 7, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
182 |
AIM_DIAGNOSTICS |
& 1, bi, bj, 8, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
184 |
AIM_DIAGNOSTICS |
& 1, bi, bj, 9, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
186 |
AIM_DIAGNOSTICS |
& 1, bi, bj,10, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
188 |
AIM_DIAGNOSTICS |
& 1, bi, bj,11, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
190 |
AIM_DIAGNOSTICS |
& 1, bi, bj,12, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
192 |
AIM_DIAGNOSTICS |
& 1, bi, bj,13, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
194 |
AIM_DIAGNOSTICS |
& 1, bi, bj,14, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
196 |
AIM_DIAGNOSTICS |
& 1, bi, bj,15, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
198 |
AIM_DIAGNOSTICS |
& 1, bi, bj,16, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
200 |
AIM_DIAGNOSTICS |
& 1, bi, bj,17, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
202 |
AIM_DIAGNOSTICS |
& 1, bi, bj,18, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
207 |
AIM_DIAGNOSTICS |
& 1, bi, bj,19, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
209 |
AIM_DIAGNOSTICS |
& 1, bi, bj,20, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
211 |
AIM_DIAGNOSTICS |
& 1, bi, bj,21, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
213 |
AIM_DIAGNOSTICS |
& 1, bi, bj,22, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
232 |
AIM_DIAGNOSTICS |
CALL MNC_CW_SET_UDIM(suff, -1, myThid) |
./pkg/aim_v23/aim_diagnostics.F |
233 |
AIM_DIAGNOSTICS |
CALL MNC_CW_RL_W_S('D',suff,0,0,'T',myTime+deltaTClock,myThid) |
./pkg/aim_v23/aim_diagnostics.F |
234 |
AIM_DIAGNOSTICS |
CALL MNC_CW_SET_UDIM(suff, 0, myThid) |
./pkg/aim_v23/aim_diagnostics.F |
235 |
AIM_DIAGNOSTICS |
CALL MNC_CW_I_W_S('I',suff,0,0,'iter',myIter+1,myThid) |
./pkg/aim_v23/aim_diagnostics.F |
239 |
AIM_DIAGNOSTICS |
& 'aim_DRAG0',DRAG(1,0,myThid),myThid) |
./pkg/aim_v23/aim_diagnostics.F |
241 |
AIM_DIAGNOSTICS |
& 'aim_SPEED0',SPEED0(1,myThid),myThid) |
./pkg/aim_v23/aim_diagnostics.F |
243 |
AIM_DIAGNOSTICS |
& 'aim_TSR',TSR(1,myThid),myThid) |
./pkg/aim_v23/aim_diagnostics.F |
245 |
AIM_DIAGNOSTICS |
& 'aim_OLR',OLR(1,myThid),myThid) |
./pkg/aim_v23/aim_diagnostics.F |
247 |
AIM_DIAGNOSTICS |
& 'aim_SSR0',SSR(1,0,myThid),myThid) |
./pkg/aim_v23/aim_diagnostics.F |
249 |
AIM_DIAGNOSTICS |
& 'aim_SLR0',SLR(1,0,myThid),myThid) |
./pkg/aim_v23/aim_diagnostics.F |
251 |
AIM_DIAGNOSTICS |
& 'aim_SHF0',SHF(1,0,myThid),myThid) |
./pkg/aim_v23/aim_diagnostics.F |
253 |
AIM_DIAGNOSTICS |
& 'aim_EVAP0',EVAP(1,0,myThid),myThid) |
./pkg/aim_v23/aim_diagnostics.F |
255 |
AIM_DIAGNOSTICS |
& 'aim_PRECNV',PRECNV(1,myThid),myThid) |
./pkg/aim_v23/aim_diagnostics.F |
257 |
AIM_DIAGNOSTICS |
& 'aim_PRECLS',PRECLS(1,myThid),myThid) |
./pkg/aim_v23/aim_diagnostics.F |
259 |
AIM_DIAGNOSTICS |
& 'aim_CLOUDC',CLOUDC(1,myThid),myThid) |
./pkg/aim_v23/aim_diagnostics.F |
261 |
AIM_DIAGNOSTICS |
& 'aim_CLTOP',CLTOP(1,myThid),myThid) |
./pkg/aim_v23/aim_diagnostics.F |
263 |
AIM_DIAGNOSTICS |
& 'aim_CBMF',CBMF(1,myThid),myThid) |
./pkg/aim_v23/aim_diagnostics.F |
265 |
AIM_DIAGNOSTICS |
& 'aim_T0',T0(1,myThid),myThid) |
./pkg/aim_v23/aim_diagnostics.F |
267 |
AIM_DIAGNOSTICS |
& 'aim_Q0',Q0(1,myThid),myThid) |
./pkg/aim_v23/aim_diagnostics.F |
269 |
AIM_DIAGNOSTICS |
& 'aim_EnPrec',EnPrec(1,myThid),myThid) |
./pkg/aim_v23/aim_diagnostics.F |
271 |
AIM_DIAGNOSTICS |
& 'aim_alb10',alb1(1,0,myThid),myThid) |
./pkg/aim_v23/aim_diagnostics.F |
273 |
AIM_DIAGNOSTICS |
& 'aim_dTsurf1',dTsurf(1,1,myThid),myThid) |
./pkg/aim_v23/aim_diagnostics.F |
278 |
AIM_DIAGNOSTICS |
& 'aim_TSWclr',TSWclr(1,myThid),myThid) |
./pkg/aim_v23/aim_diagnostics.F |
280 |
AIM_DIAGNOSTICS |
& 'aim_OLWclr',OLWclr(1,myThid),myThid) |
./pkg/aim_v23/aim_diagnostics.F |
282 |
AIM_DIAGNOSTICS |
& 'aim_SSWclr',SSWclr(1,myThid),myThid) |
./pkg/aim_v23/aim_diagnostics.F |
284 |
AIM_DIAGNOSTICS |
& 'aim_SLWclr',SLWclr(1,myThid),myThid) |
./pkg/aim_v23/aim_diagnostics.F |
299 |
AIM_DIAGNOSTICS |
CLTOP(J,myThid)=CLTOP(J,mythid)*CLOUDC(J,myThid) |
./pkg/aim_v23/aim_diagnostics.F |
312 |
AIM_DIAGNOSTICS |
& + TSR(I2,myThid)*DDTT |
./pkg/aim_v23/aim_diagnostics.F |
314 |
AIM_DIAGNOSTICS |
& + OLR(I2,myThid)*DDTT |
./pkg/aim_v23/aim_diagnostics.F |
316 |
AIM_DIAGNOSTICS |
& + SSR(I2,0,myThid)*DDTT |
./pkg/aim_v23/aim_diagnostics.F |
318 |
AIM_DIAGNOSTICS |
& + SLR(I2,0,myThid)*DDTT |
./pkg/aim_v23/aim_diagnostics.F |
320 |
AIM_DIAGNOSTICS |
& + SHF(I2,0,myThid)*DDTT |
./pkg/aim_v23/aim_diagnostics.F |
322 |
AIM_DIAGNOSTICS |
& + EVAP(I2,0,myThid)*DDTT |
./pkg/aim_v23/aim_diagnostics.F |
324 |
AIM_DIAGNOSTICS |
& + PRECNV(I2,myThid)*DDTT |
./pkg/aim_v23/aim_diagnostics.F |
326 |
AIM_DIAGNOSTICS |
& + PRECLS(I2,myThid)*DDTT |
./pkg/aim_v23/aim_diagnostics.F |
328 |
AIM_DIAGNOSTICS |
& + CLOUDC(I2,myThid)*DDTT |
./pkg/aim_v23/aim_diagnostics.F |
330 |
AIM_DIAGNOSTICS |
& + CLTOP(I2,myThid)*DDTT |
./pkg/aim_v23/aim_diagnostics.F |
332 |
AIM_DIAGNOSTICS |
& + CBMF(I2,myThid)*DDTT |
./pkg/aim_v23/aim_diagnostics.F |
334 |
AIM_DIAGNOSTICS |
& + DRAG(I2,0,myThid)*DDTT |
./pkg/aim_v23/aim_diagnostics.F |
336 |
AIM_DIAGNOSTICS |
& + SPEED0(I2,myThid)*DDTT |
./pkg/aim_v23/aim_diagnostics.F |
338 |
AIM_DIAGNOSTICS |
& + T0(I2,myThid)*DDTT |
./pkg/aim_v23/aim_diagnostics.F |
340 |
AIM_DIAGNOSTICS |
& + Q0(I2,myThid)*DDTT |
./pkg/aim_v23/aim_diagnostics.F |
342 |
AIM_DIAGNOSTICS |
& + EnPrec(I2,myThid) |
./pkg/aim_v23/aim_diagnostics.F |
343 |
AIM_DIAGNOSTICS |
& *(PRECNV(I2,myThid)+ |
./pkg/aim_v23/aim_diagnostics.F |
344 |
AIM_DIAGNOSTICS |
& PRECLS(I2,myThid))*DDTT |
./pkg/aim_v23/aim_diagnostics.F |
346 |
AIM_DIAGNOSTICS |
& + alb1(I2,0,myThid)*DDTT |
./pkg/aim_v23/aim_diagnostics.F |
348 |
AIM_DIAGNOSTICS |
& + dTsurf(I2,1,myThid)*DDTT |
./pkg/aim_v23/aim_diagnostics.F |
359 |
AIM_DIAGNOSTICS |
& + RH(I2,Katm,myThid)*DDTT |
./pkg/aim_v23/aim_diagnostics.F |
375 |
AIM_DIAGNOSTICS |
CALL DIAGNOSTICS_FILL( TT_RSW(1,1,myThid), |
./pkg/aim_v23/aim_diagnostics.F |
376 |
AIM_DIAGNOSTICS |
& 'RADSW ',-1, Nr, 3,bi,bj, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
377 |
AIM_DIAGNOSTICS |
CALL DIAGNOSTICS_FILL( TT_RLW(1,1,myThid), |
./pkg/aim_v23/aim_diagnostics.F |
378 |
AIM_DIAGNOSTICS |
& 'RADLW ',-1, Nr, 3,bi,bj, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
379 |
AIM_DIAGNOSTICS |
CALL DIAGNOSTICS_FILL( TT_CNV(1,1,myThid), |
./pkg/aim_v23/aim_diagnostics.F |
380 |
AIM_DIAGNOSTICS |
& 'DTCONV ',-1, Nr, 3,bi,bj, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
381 |
AIM_DIAGNOSTICS |
CALL DIAGNOSTICS_FILL( TT_PBL(1,1,myThid), |
./pkg/aim_v23/aim_diagnostics.F |
382 |
AIM_DIAGNOSTICS |
& 'TURBT ',-1, Nr, 3,bi,bj, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
383 |
AIM_DIAGNOSTICS |
CALL DIAGNOSTICS_FILL( TT_LSC(1,1,myThid), |
./pkg/aim_v23/aim_diagnostics.F |
384 |
AIM_DIAGNOSTICS |
& 'DTLS ',-1, Nr, 3,bi,bj, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
385 |
AIM_DIAGNOSTICS |
CALL DIAGNOSTICS_FILL( QT_CNV(1,1,myThid), |
./pkg/aim_v23/aim_diagnostics.F |
386 |
AIM_DIAGNOSTICS |
& 'DQCONV ',-1, Nr, 3,bi,bj, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
387 |
AIM_DIAGNOSTICS |
CALL DIAGNOSTICS_FILL( QT_PBL(1,1,myThid), |
./pkg/aim_v23/aim_diagnostics.F |
388 |
AIM_DIAGNOSTICS |
& 'TURBQ ',-1, Nr, 3,bi,bj, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
389 |
AIM_DIAGNOSTICS |
CALL DIAGNOSTICS_FILL( QT_LSC(1,1,myThid), |
./pkg/aim_v23/aim_diagnostics.F |
390 |
AIM_DIAGNOSTICS |
& 'DQLS ',-1, Nr, 3,bi,bj, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
391 |
AIM_DIAGNOSTICS |
CALL DIAGNOSTICS_FILL( RH(1,1,myThid), |
./pkg/aim_v23/aim_diagnostics.F |
392 |
AIM_DIAGNOSTICS |
& 'RELHUM ',-1, Nr, 3,bi,bj, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
393 |
AIM_DIAGNOSTICS |
CALL DIAGNOSTICS_FILL( TSR(1,myThid), |
./pkg/aim_v23/aim_diagnostics.F |
394 |
AIM_DIAGNOSTICS |
& 'TSR ', 1, 1 , 3,bi,bj, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
395 |
AIM_DIAGNOSTICS |
CALL DIAGNOSTICS_FILL( OLR(1,myThid), |
./pkg/aim_v23/aim_diagnostics.F |
396 |
AIM_DIAGNOSTICS |
& 'OLR ', 1, 1 , 3,bi,bj, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
397 |
AIM_DIAGNOSTICS |
CALL DIAGNOSTICS_FILL( SSR(1,0,myThid), |
./pkg/aim_v23/aim_diagnostics.F |
398 |
AIM_DIAGNOSTICS |
& 'RADSWG ', 1, 1 , 3,bi,bj, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
399 |
AIM_DIAGNOSTICS |
CALL DIAGNOSTICS_FILL( SLR(1,0,myThid), |
./pkg/aim_v23/aim_diagnostics.F |
400 |
AIM_DIAGNOSTICS |
& 'RADLWG ', 1, 1 , 3,bi,bj, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
401 |
AIM_DIAGNOSTICS |
CALL DIAGNOSTICS_FILL( SHF(1,0,myThid), |
./pkg/aim_v23/aim_diagnostics.F |
402 |
AIM_DIAGNOSTICS |
& 'HFLUX ', 1, 1 , 3,bi,bj, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
403 |
AIM_DIAGNOSTICS |
CALL DIAGNOSTICS_FILL( EVAP(1,0,myThid), |
./pkg/aim_v23/aim_diagnostics.F |
404 |
AIM_DIAGNOSTICS |
& 'EVAP ', 1, 1 , 3,bi,bj, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
405 |
AIM_DIAGNOSTICS |
CALL DIAGNOSTICS_FILL( PRECNV(1,myThid), |
./pkg/aim_v23/aim_diagnostics.F |
406 |
AIM_DIAGNOSTICS |
& 'PRECON ', 1, 1 , 3,bi,bj, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
407 |
AIM_DIAGNOSTICS |
CALL DIAGNOSTICS_FILL( PRECLS(1,myThid), |
./pkg/aim_v23/aim_diagnostics.F |
408 |
AIM_DIAGNOSTICS |
& 'PRECLS ', 1, 1 , 3,bi,bj, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
409 |
AIM_DIAGNOSTICS |
CALL DIAGNOSTICS_FILL( CLOUDC(1,myThid), |
./pkg/aim_v23/aim_diagnostics.F |
410 |
AIM_DIAGNOSTICS |
& 'CLDFRC ', 1, 1 , 3,bi,bj, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
411 |
AIM_DIAGNOSTICS |
CALL DIAGNOSTICS_FILL( CLTOP(1,myThid), |
./pkg/aim_v23/aim_diagnostics.F |
412 |
AIM_DIAGNOSTICS |
& 'CLDPRS ', 1, 1 , 3,bi,bj, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
415 |
AIM_DIAGNOSTICS |
CALL DIAGNOSTICS_FILL( CBMF(1,myThid), |
./pkg/aim_v23/aim_diagnostics.F |
416 |
AIM_DIAGNOSTICS |
& 'CLDMAS ', 1, 1 , 3,bi,bj, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
417 |
AIM_DIAGNOSTICS |
CALL DIAGNOSTICS_FILL( DRAG(1,0,myThid), |
./pkg/aim_v23/aim_diagnostics.F |
418 |
AIM_DIAGNOSTICS |
& 'DRAG ', 1, 1 , 3,bi,bj, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
419 |
AIM_DIAGNOSTICS |
CALL DIAGNOSTICS_FILL( SPEED0(1,myThid), |
./pkg/aim_v23/aim_diagnostics.F |
420 |
AIM_DIAGNOSTICS |
& 'WINDS ', 1, 1 , 3,bi,bj, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
421 |
AIM_DIAGNOSTICS |
CALL DIAGNOSTICS_FILL( T0(1,myThid), |
./pkg/aim_v23/aim_diagnostics.F |
422 |
AIM_DIAGNOSTICS |
& 'TS ', 1, 1 , 3,bi,bj, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
423 |
AIM_DIAGNOSTICS |
CALL DIAGNOSTICS_FILL( Q0(1,myThid), |
./pkg/aim_v23/aim_diagnostics.F |
424 |
AIM_DIAGNOSTICS |
& 'QS ', 1, 1 , 3,bi,bj, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
425 |
AIM_DIAGNOSTICS |
IF ( DIAGNOSTICS_IS_ON('ENPREC ',myThid) ) THEN |
./pkg/aim_v23/aim_diagnostics.F |
427 |
AIM_DIAGNOSTICS |
tmpVar(J) = EnPrec(J,myThid) |
./pkg/aim_v23/aim_diagnostics.F |
428 |
AIM_DIAGNOSTICS |
& *(PRECNV(J,myThid)+PRECLS(J,myThid)) |
./pkg/aim_v23/aim_diagnostics.F |
431 |
AIM_DIAGNOSTICS |
& 'ENPREC ', 1, 1 , 3,bi,bj, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
433 |
AIM_DIAGNOSTICS |
CALL DIAGNOSTICS_FILL( alb1(1,0,myThid), |
./pkg/aim_v23/aim_diagnostics.F |
434 |
AIM_DIAGNOSTICS |
& 'ALBVISDF', 1, 1 , 3,bi,bj, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
435 |
AIM_DIAGNOSTICS |
CALL DIAGNOSTICS_FILL( dTsurf(1,1,myThid), |
./pkg/aim_v23/aim_diagnostics.F |
436 |
AIM_DIAGNOSTICS |
& 'DTSIMPL ', 1, 1 , 3,bi,bj, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
439 |
AIM_DIAGNOSTICS |
CALL DIAGNOSTICS_FILL( TT_SWclr(1,1,myThid), |
./pkg/aim_v23/aim_diagnostics.F |
43 |
AIM_DIAGNOSTICS |
INTEGER myIter, myThid |
./pkg/aim_v23/aim_diagnostics.F |
440 |
AIM_DIAGNOSTICS |
& 'SWCLR ',-1, Nr, 3,bi,bj, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
441 |
AIM_DIAGNOSTICS |
CALL DIAGNOSTICS_FILL( TT_LWclr(1,1,myThid), |
./pkg/aim_v23/aim_diagnostics.F |
442 |
AIM_DIAGNOSTICS |
& 'LWCLR ',-1, Nr, 3,bi,bj, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
443 |
AIM_DIAGNOSTICS |
CALL DIAGNOSTICS_FILL( TSWclr(1,myThid), |
./pkg/aim_v23/aim_diagnostics.F |
444 |
AIM_DIAGNOSTICS |
& 'TSRCLR ', 1, 1 , 3,bi,bj, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
445 |
AIM_DIAGNOSTICS |
CALL DIAGNOSTICS_FILL( OLWclr(1,myThid), |
./pkg/aim_v23/aim_diagnostics.F |
446 |
AIM_DIAGNOSTICS |
& 'OLRCLR ', 1, 1 , 3,bi,bj, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
447 |
AIM_DIAGNOSTICS |
CALL DIAGNOSTICS_FILL( SSWclr(1,myThid), |
./pkg/aim_v23/aim_diagnostics.F |
448 |
AIM_DIAGNOSTICS |
& 'SWGCLR ', 1, 1 , 3,bi,bj, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
449 |
AIM_DIAGNOSTICS |
CALL DIAGNOSTICS_FILL( SLWclr(1,myThid), |
./pkg/aim_v23/aim_diagnostics.F |
450 |
AIM_DIAGNOSTICS |
& 'LWGCLR ', 1, 1 , 3,bi,bj, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
71 |
AIM_DIAGNOSTICS |
dTsurf(J,1,myThid) = fMask1(J,1,myThid)*dTsurf(J,1,myThid) |
./pkg/aim_v23/aim_diagnostics.F |
72 |
AIM_DIAGNOSTICS |
& + fMask1(J,2,myThid)*dTsurf(J,2,myThid) |
./pkg/aim_v23/aim_diagnostics.F |
73 |
AIM_DIAGNOSTICS |
& + fMask1(J,3,myThid)*dTsurf(J,3,myThid) |
./pkg/aim_v23/aim_diagnostics.F |
74 |
AIM_DIAGNOSTICS |
dTsurf(J,1,myThid) = ABS(dTsurf(J,1,myThid)) |
./pkg/aim_v23/aim_diagnostics.F |
87 |
AIM_DIAGNOSTICS |
& 0, bi, bj, 1, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
89 |
AIM_DIAGNOSTICS |
& 0, bi, bj, 1, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
91 |
AIM_DIAGNOSTICS |
& 0, bi, bj, 1, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
93 |
AIM_DIAGNOSTICS |
& 0, bi, bj, 1, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
95 |
AIM_DIAGNOSTICS |
& 0, bi, bj, 1, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
97 |
AIM_DIAGNOSTICS |
& 0, bi, bj, 1, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
99 |
AIM_DIAGNOSTICS |
& 0, bi, bj, 1, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics.F |
9 |
AIM_DIAGNOSTICS |
SUBROUTINE AIM_DIAGNOSTICS( bi, bj, myTime, myIter, myThid ) |
./pkg/aim_v23/aim_diagnostics_init.F |
102 |
AIM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/aim_v23/aim_diagnostics_init.F |
109 |
AIM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/aim_v23/aim_diagnostics_init.F |
117 |
AIM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/aim_v23/aim_diagnostics_init.F |
125 |
AIM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/aim_v23/aim_diagnostics_init.F |
132 |
AIM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/aim_v23/aim_diagnostics_init.F |
139 |
AIM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/aim_v23/aim_diagnostics_init.F |
146 |
AIM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/aim_v23/aim_diagnostics_init.F |
153 |
AIM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/aim_v23/aim_diagnostics_init.F |
160 |
AIM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/aim_v23/aim_diagnostics_init.F |
167 |
AIM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/aim_v23/aim_diagnostics_init.F |
174 |
AIM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/aim_v23/aim_diagnostics_init.F |
181 |
AIM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/aim_v23/aim_diagnostics_init.F |
188 |
AIM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/aim_v23/aim_diagnostics_init.F |
196 |
AIM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/aim_v23/aim_diagnostics_init.F |
204 |
AIM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/aim_v23/aim_diagnostics_init.F |
212 |
AIM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/aim_v23/aim_diagnostics_init.F |
219 |
AIM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/aim_v23/aim_diagnostics_init.F |
226 |
AIM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/aim_v23/aim_diagnostics_init.F |
233 |
AIM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/aim_v23/aim_diagnostics_init.F |
240 |
AIM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/aim_v23/aim_diagnostics_init.F |
247 |
AIM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/aim_v23/aim_diagnostics_init.F |
254 |
AIM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/aim_v23/aim_diagnostics_init.F |
261 |
AIM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/aim_v23/aim_diagnostics_init.F |
269 |
AIM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/aim_v23/aim_diagnostics_init.F |
277 |
AIM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/aim_v23/aim_diagnostics_init.F |
27 |
AIM_DIAGNOSTICS_INIT |
INTEGER myThid |
./pkg/aim_v23/aim_diagnostics_init.F |
284 |
AIM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/aim_v23/aim_diagnostics_init.F |
291 |
AIM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/aim_v23/aim_diagnostics_init.F |
298 |
AIM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/aim_v23/aim_diagnostics_init.F |
305 |
AIM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/aim_v23/aim_diagnostics_init.F |
313 |
AIM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/aim_v23/aim_diagnostics_init.F |
321 |
AIM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/aim_v23/aim_diagnostics_init.F |
329 |
AIM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/aim_v23/aim_diagnostics_init.F |
337 |
AIM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/aim_v23/aim_diagnostics_init.F |
345 |
AIM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/aim_v23/aim_diagnostics_init.F |
354 |
AIM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/aim_v23/aim_diagnostics_init.F |
363 |
AIM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/aim_v23/aim_diagnostics_init.F |
370 |
AIM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/aim_v23/aim_diagnostics_init.F |
378 |
AIM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/aim_v23/aim_diagnostics_init.F |
387 |
AIM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/aim_v23/aim_diagnostics_init.F |
55 |
AIM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/aim_v23/aim_diagnostics_init.F |
63 |
AIM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/aim_v23/aim_diagnostics_init.F |
71 |
AIM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/aim_v23/aim_diagnostics_init.F |
79 |
AIM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/aim_v23/aim_diagnostics_init.F |
86 |
AIM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/aim_v23/aim_diagnostics_init.F |
94 |
AIM_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/aim_v23/aim_diagnostics_init.F |
9 |
AIM_DIAGNOSTICS_INIT |
SUBROUTINE AIM_DIAGNOSTICS_INIT( myThid ) |
./pkg/aim_v23/aim_do_co2.F |
109 |
AIM_DO_CO2 |
CALL MDSFINDUNIT( iUnit, myThid ) |
./pkg/aim_v23/aim_do_co2.F |
110 |
AIM_DO_CO2 |
length_of_rec = MDS_RECLEN( precFloat64, 2, myThid ) |
./pkg/aim_v23/aim_do_co2.F |
125 |
AIM_DO_CO2 |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
./pkg/aim_v23/aim_do_co2.F |
127 |
AIM_DO_CO2 |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
./pkg/aim_v23/aim_do_co2.F |
129 |
AIM_DO_CO2 |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
./pkg/aim_v23/aim_do_co2.F |
157 |
AIM_DO_CO2 |
CALL MDSFINDUNIT( iUnit, myThid ) |
./pkg/aim_v23/aim_do_co2.F |
158 |
AIM_DO_CO2 |
length_of_rec = MDS_RECLEN( precFloat64, 2, myThid ) |
./pkg/aim_v23/aim_do_co2.F |
167 |
AIM_DO_CO2 |
_END_MASTER(myThid) |
./pkg/aim_v23/aim_do_co2.F |
37 |
AIM_DO_CO2 |
INTEGER myIter, myThid |
./pkg/aim_v23/aim_do_co2.F |
63 |
AIM_DO_CO2 |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/aim_v23/aim_do_co2.F |
64 |
AIM_DO_CO2 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/aim_v23/aim_do_co2.F |
76 |
AIM_DO_CO2 |
_BEGIN_MASTER(myThid) |
./pkg/aim_v23/aim_do_co2.F |
78 |
AIM_DO_CO2 |
_END_MASTER(myThid) |
./pkg/aim_v23/aim_do_co2.F |
7 |
AIM_DO_CO2 |
SUBROUTINE AIM_DO_CO2( myTime, myIter, myThid) |
./pkg/aim_v23/aim_do_co2.F |
84 |
AIM_DO_CO2 |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/aim_v23/aim_do_co2.F |
85 |
AIM_DO_CO2 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/aim_v23/aim_do_co2.F |
95 |
AIM_DO_CO2 |
CALL GLOBAL_SUM_TILE_RL(flxCO2tile,total_flux,myThid) |
./pkg/aim_v23/aim_do_co2.F |
98 |
AIM_DO_CO2 |
_BEGIN_MASTER(myThid) |
./pkg/aim_v23/aim_do_physics.F |
105 |
AIM_DO_PHYSICS |
I bi, bj, myTime, myIter, myThid ) |
./pkg/aim_v23/aim_do_physics.F |
121 |
AIM_DO_PHYSICS |
I bi, bj, myTime, myIter, myThid ) |
./pkg/aim_v23/aim_do_physics.F |
136 |
AIM_DO_PHYSICS |
CALL SFLSET (PHI0, fOrogr(1,myThid), bi,bj,myThid) |
./pkg/aim_v23/aim_do_physics.F |
144 |
AIM_DO_PHYSICS |
I bi, bj, myTime, myIter, myThid ) |
./pkg/aim_v23/aim_do_physics.F |
146 |
AIM_DO_PHYSICS |
CALL AIM_AIM2DYN( bi, bj, myTime, myIter, myThid ) |
./pkg/aim_v23/aim_do_physics.F |
152 |
AIM_DO_PHYSICS |
I myTime, myIter, myThid ) |
./pkg/aim_v23/aim_do_physics.F |
156 |
AIM_DO_PHYSICS |
I myTime, myIter, myThid ) |
./pkg/aim_v23/aim_do_physics.F |
160 |
AIM_DO_PHYSICS |
I myTime, myIter, myThid ) |
./pkg/aim_v23/aim_do_physics.F |
167 |
AIM_DO_PHYSICS |
CALL AIM_AIM2SIOCE( aim_landFr, fmask1(1,3,myThid), |
./pkg/aim_v23/aim_do_physics.F |
169 |
AIM_DO_PHYSICS |
I bi, bj, myTime, myIter, myThid ) |
./pkg/aim_v23/aim_do_physics.F |
177 |
AIM_DO_PHYSICS |
I myTime, myIter, myThid ) |
./pkg/aim_v23/aim_do_physics.F |
182 |
AIM_DO_PHYSICS |
O dTsurf(1,2,myThid), |
./pkg/aim_v23/aim_do_physics.F |
183 |
AIM_DO_PHYSICS |
I bi, bj, myTime, myIter, myThid ) |
./pkg/aim_v23/aim_do_physics.F |
186 |
AIM_DO_PHYSICS |
I bi, bj, myTime, myIter, myThid ) |
./pkg/aim_v23/aim_do_physics.F |
193 |
AIM_DO_PHYSICS |
CALL ATM_STORE_MY_DATA( bi, bj, myTime, myIter, myThid ) |
./pkg/aim_v23/aim_do_physics.F |
198 |
AIM_DO_PHYSICS |
CALL AIM_DIAGNOSTICS( bi, bj, myTime, myIter, myThid ) |
./pkg/aim_v23/aim_do_physics.F |
53 |
AIM_DO_PHYSICS |
INTEGER myThid |
./pkg/aim_v23/aim_do_physics.F |
81 |
AIM_DO_PHYSICS |
CALL AIM_DO_CO2( myTime, myIter, myThid ) |
./pkg/aim_v23/aim_do_physics.F |
85 |
AIM_DO_PHYSICS |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/aim_v23/aim_do_physics.F |
86 |
AIM_DO_PHYSICS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/aim_v23/aim_do_physics.F |
9 |
AIM_DO_PHYSICS |
SUBROUTINE AIM_DO_PHYSICS( myTime, myIter, myThid ) |
./pkg/aim_v23/aim_dyn2aim.F |
10 |
AIM_DYN2AIM |
I bi,bj, myTime, myIter, myThid) |
./pkg/aim_v23/aim_dyn2aim.F |
214 |
AIM_DYN2AIM |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/aim_v23/aim_dyn2aim.F |
217 |
AIM_DYN2AIM |
& i,j,k,bi,bj,myThid,I2,xC(i,j,bi,bj),yC(i,j,bi,bj) |
./pkg/aim_v23/aim_dyn2aim.F |
218 |
AIM_DYN2AIM |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/aim_v23/aim_dyn2aim.F |
238 |
AIM_DYN2AIM |
WVSurf(I2,myThid) = 0. |
./pkg/aim_v23/aim_dyn2aim.F |
244 |
AIM_DYN2AIM |
WVSurf(I2,myThid) = (LOG(PSA(I2))-SIGL(K))*WVI(K-1,1) |
./pkg/aim_v23/aim_dyn2aim.F |
252 |
AIM_DYN2AIM |
& 1, bi, bj, 1, myIter, myThid ) |
./pkg/aim_v23/aim_dyn2aim.F |
51 |
AIM_DYN2AIM |
INTEGER bi, bj, myIter, myThid |
./pkg/aim_v23/aim_dyn2aim.F |
76 |
AIM_DYN2AIM |
snLat(I2,myThid) = SIN(yC(I,J,bi,bj)*deg2rad) |
./pkg/aim_v23/aim_dyn2aim.F |
77 |
AIM_DYN2AIM |
csLat(I2,myThid) = COS(yC(I,J,bi,bj)*deg2rad) |
./pkg/aim_v23/aim_fields_load.F |
123 |
AIM_FIELDS_LOAD |
_BEGIN_MASTER( myThid ) |
./pkg/aim_v23/aim_fields_load.F |
125 |
AIM_FIELDS_LOAD |
_END_MASTER( myThid ) |
./pkg/aim_v23/aim_fields_load.F |
135 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS( fNam, aim_albedo, 1, myIter, myThid ) |
./pkg/aim_v23/aim_fields_load.F |
145 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS( fNam, aim_sst0, 1, myIter, myThid ) |
./pkg/aim_v23/aim_fields_load.F |
150 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS( fNam, aim_sw10, 1, myIter, myThid ) |
./pkg/aim_v23/aim_fields_load.F |
163 |
AIM_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/aim_v23/aim_fields_load.F |
164 |
AIM_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/aim_v23/aim_fields_load.F |
197 |
AIM_FIELDS_LOAD |
CALL WRITE_FLD_XY_RS( 'aim_Tsurf',' ', aim_sst0, 0, myThid ) |
./pkg/aim_v23/aim_fields_load.F |
210 |
AIM_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/aim_v23/aim_fields_load.F |
211 |
AIM_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/aim_v23/aim_fields_load.F |
246 |
AIM_FIELDS_LOAD |
_BEGIN_MASTER( myThid ) |
./pkg/aim_v23/aim_fields_load.F |
248 |
AIM_FIELDS_LOAD |
_END_MASTER( myThid ) |
./pkg/aim_v23/aim_fields_load.F |
262 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS(aim_albFile,aim_albedo, 1,myIter,myThid) |
./pkg/aim_v23/aim_fields_load.F |
266 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS(aim_vegFile,aim_veget,1,myIter,myThid) |
./pkg/aim_v23/aim_fields_load.F |
273 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS(aim_sstFile,aim_sst0,nm0,myIter,myThid) |
./pkg/aim_v23/aim_fields_load.F |
274 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS(aim_sstFile,aim_sst1,nm1,myIter,myThid) |
./pkg/aim_v23/aim_fields_load.F |
277 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS(aim_lstFile,aim_lst0,nm0,myIter,myThid) |
./pkg/aim_v23/aim_fields_load.F |
278 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS(aim_lstFile,aim_lst1,nm1,myIter,myThid) |
./pkg/aim_v23/aim_fields_load.F |
281 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS(aim_oiceFile,aim_oic0,nm0,myIter,myThid) |
./pkg/aim_v23/aim_fields_load.F |
282 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS(aim_oiceFile,aim_oic1,nm1,myIter,myThid) |
./pkg/aim_v23/aim_fields_load.F |
285 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS(aim_snowFile,aim_snw0,nm0,myIter,myThid) |
./pkg/aim_v23/aim_fields_load.F |
286 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS(aim_snowFile,aim_snw1,nm1,myIter,myThid) |
./pkg/aim_v23/aim_fields_load.F |
289 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS(aim_swcFile,aim_sw10,nm0,myIter,myThid) |
./pkg/aim_v23/aim_fields_load.F |
290 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS(aim_swcFile,aim_sw11,nm1,myIter,myThid) |
./pkg/aim_v23/aim_fields_load.F |
293 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS(aim_swcFile,aim_sw20,nm2,myIter,myThid) |
./pkg/aim_v23/aim_fields_load.F |
294 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS(aim_swcFile,aim_sw21,nm3,myIter,myThid) |
./pkg/aim_v23/aim_fields_load.F |
297 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS(aim_qfxFile,aim_qfx0,nm0,myIter,myThid) |
./pkg/aim_v23/aim_fields_load.F |
298 |
AIM_FIELDS_LOAD |
CALL READ_REC_XY_RS(aim_qfxFile,aim_qfx1,nm1,myIter,myThid) |
./pkg/aim_v23/aim_fields_load.F |
306 |
AIM_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/aim_v23/aim_fields_load.F |
307 |
AIM_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/aim_v23/aim_fields_load.F |
42 |
AIM_FIELDS_LOAD |
INTEGER myThid |
./pkg/aim_v23/aim_fields_load.F |
8 |
AIM_FIELDS_LOAD |
I myTime, myIter, myThid ) |
./pkg/aim_v23/aim_initialise.F |
106 |
AIM_INITIALISE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/aim_v23/aim_initialise.F |
107 |
AIM_INITIALISE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/aim_v23/aim_initialise.F |
118 |
AIM_INITIALISE |
CALL READ_REC_XY_RS(aim_LandFile,aim_landFr,1,nIter0,myThid) |
./pkg/aim_v23/aim_initialise.F |
120 |
AIM_INITIALISE |
CALL EXCH_XY_RS( aim_landFr, myThid ) |
./pkg/aim_v23/aim_initialise.F |
125 |
AIM_INITIALISE |
CALL AIM_MNC_INIT( myThid ) |
./pkg/aim_v23/aim_initialise.F |
131 |
AIM_INITIALISE |
CALL AIM_DIAGNOSTICS_INIT( myThid ) |
./pkg/aim_v23/aim_initialise.F |
37 |
AIM_INITIALISE |
INTEGER myThid |
./pkg/aim_v23/aim_initialise.F |
55 |
AIM_INITIALISE |
_BEGIN_MASTER(myThid ) |
./pkg/aim_v23/aim_initialise.F |
67 |
AIM_INITIALISE |
_END_MASTER ( myThid ) |
./pkg/aim_v23/aim_initialise.F |
70 |
AIM_INITIALISE |
CALL INPHYS( HSG, myThid ) |
./pkg/aim_v23/aim_initialise.F |
73 |
AIM_INITIALISE |
CALL AIM_READPARMS( myThid ) |
./pkg/aim_v23/aim_initialise.F |
77 |
AIM_INITIALISE |
_BEGIN_MASTER(myThid ) |
./pkg/aim_v23/aim_initialise.F |
78 |
AIM_INITIALISE |
CALL RADSET( myThid ) |
./pkg/aim_v23/aim_initialise.F |
79 |
AIM_INITIALISE |
_END_MASTER ( myThid ) |
./pkg/aim_v23/aim_initialise.F |
83 |
AIM_INITIALISE |
CALL INI_P_GROUND(1, topoZ, truncSurfP, myThid ) |
./pkg/aim_v23/aim_initialise.F |
84 |
AIM_INITIALISE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/aim_v23/aim_initialise.F |
85 |
AIM_INITIALISE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/aim_v23/aim_initialise.F |
9 |
AIM_INITIALISE |
SUBROUTINE AIM_INITIALISE( myThid ) |
./pkg/aim_v23/aim_land2aim.F |
15 |
AIM_LAND2AIM |
I myTime, myIter, bi, bj, myThid ) |
./pkg/aim_v23/aim_land2aim.F |
184 |
AIM_LAND2AIM |
I bi,bj, myTime, myIter, myThid ) |
./pkg/aim_v23/aim_land2aim.F |
69 |
AIM_LAND2AIM |
INTEGER myIter, bi, bj, myThid |
./pkg/aim_v23/aim_land_impl.F |
118 |
AIM_LAND_IMPL |
I bi, bj, myTime, myIter, myThid) |
./pkg/aim_v23/aim_land_impl.F |
18 |
AIM_LAND_IMPL |
I bi, bj, myTime, myIter, myThid) |
./pkg/aim_v23/aim_land_impl.F |
73 |
AIM_LAND_IMPL |
INTEGER bi, bj, myIter, myThid |
./pkg/aim_v23/aim_mnc_init.F |
100 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('CLTOPtave','units','---', myThid) |
./pkg/aim_v23/aim_mnc_init.F |
102 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VNAME('CBMFtave', 'Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
104 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('CBMFtave','long_name',ln_var,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
105 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('CBMFtave','units','---',myThid) |
./pkg/aim_v23/aim_mnc_init.F |
107 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VNAME('DRAGtave', 'Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
109 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('DRAGtave','long_name',ln_var,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
10 |
AIM_MNC_INIT |
SUBROUTINE AIM_MNC_INIT( myThid ) |
./pkg/aim_v23/aim_mnc_init.F |
110 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('DRAGtave','units','---', myThid) |
./pkg/aim_v23/aim_mnc_init.F |
112 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VNAME('aimV0tave', 'Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
114 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('aimV0tave','long_name',ln_var,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
115 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('aimV0tave','units','---',myThid) |
./pkg/aim_v23/aim_mnc_init.F |
117 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VNAME('aimT0tave', 'Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
119 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('aimT0tave','long_name',ln_var,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
120 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('aimT0tave','units','K',myThid) |
./pkg/aim_v23/aim_mnc_init.F |
122 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VNAME('aimQ0tave', 'Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
124 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('aimQ0tave','long_name',ln_var,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
125 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('aimQ0tave','units','g/kg',myThid) |
./pkg/aim_v23/aim_mnc_init.F |
127 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VNAME('EnFxPrtave', 'Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
129 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('EnFxPrtave','long_name',ln_var,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
130 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('EnFxPrtave','units','W/m2', myThid) |
./pkg/aim_v23/aim_mnc_init.F |
132 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VNAME('albedotave', 'Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
134 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('albedotave','long_name',ln_var,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
135 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('albedotave','units','fraction',myThid) |
./pkg/aim_v23/aim_mnc_init.F |
137 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VNAME('dTsurftave', 'Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
139 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('dTsurftave','long_name',ln_var,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
140 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('dTsurftave','units','K', myThid) |
./pkg/aim_v23/aim_mnc_init.F |
142 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VNAME('aimRHtave', 'Cen_xy_Hn__C__t',4,5,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
144 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('aimRHtave','long_name',ln_var,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
145 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('aimRHtave','units','fraction',myThid) |
./pkg/aim_v23/aim_mnc_init.F |
172 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_GNAME('AIM_xyt', ndim, dim,dn,ib,ie, myThid) |
./pkg/aim_v23/aim_mnc_init.F |
183 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_GNAME('AIM_xyzt', ndim, dim,dn,ib,ie, myThid) |
./pkg/aim_v23/aim_mnc_init.F |
186 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VNAME('aim_DRAG0','AIM_xyt',0,0,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
187 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('aim_DRAG0','units','---',myThid) |
./pkg/aim_v23/aim_mnc_init.F |
189 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VNAME('aim_SPEED0','AIM_xyt',0,0,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
190 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('aim_SPEED0','units','---',myThid) |
./pkg/aim_v23/aim_mnc_init.F |
192 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VNAME('aim_TSR','AIM_xyt',0,0,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
193 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('aim_TSR','units','---',myThid) |
./pkg/aim_v23/aim_mnc_init.F |
195 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VNAME('aim_OLR','AIM_xyt',0,0,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
196 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('aim_OLR','units','---',myThid) |
./pkg/aim_v23/aim_mnc_init.F |
198 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VNAME('aim_SSR0','AIM_xyt',0,0,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
199 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('aim_SSR0','units','---',myThid) |
./pkg/aim_v23/aim_mnc_init.F |
201 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VNAME('aim_SLR0','AIM_xyt',0,0,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
202 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('aim_SLR0','units','---',myThid) |
./pkg/aim_v23/aim_mnc_init.F |
204 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VNAME('aim_SHF0','AIM_xyt',0,0,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
205 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('aim_SHF0','units','---',myThid) |
./pkg/aim_v23/aim_mnc_init.F |
207 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VNAME('aim_EVAP0','AIM_xyt',0,0,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
208 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('aim_EVAP0','units','---',myThid) |
./pkg/aim_v23/aim_mnc_init.F |
210 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VNAME('aim_PRECNV','AIM_xyt',0,0,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
211 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('aim_PRECNV','units','---',myThid) |
./pkg/aim_v23/aim_mnc_init.F |
213 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VNAME('aim_PRECLS','AIM_xyt',0,0,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
214 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('aim_PRECLS','units','---',myThid) |
./pkg/aim_v23/aim_mnc_init.F |
216 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VNAME('aim_CLOUDC','AIM_xyt',0,0,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
217 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('aim_CLOUDC','units','---',myThid) |
./pkg/aim_v23/aim_mnc_init.F |
219 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VNAME('aim_CLTOP','AIM_xyt',0,0,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
220 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('aim_CLTOP','units','---',myThid) |
./pkg/aim_v23/aim_mnc_init.F |
222 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VNAME('aim_CBMF','AIM_xyt',0,0,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
223 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('aim_CBMF','units','---',myThid) |
./pkg/aim_v23/aim_mnc_init.F |
225 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VNAME('aim_T0','AIM_xyt',0,0,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
226 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('aim_T0','units','---',myThid) |
./pkg/aim_v23/aim_mnc_init.F |
228 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VNAME('aim_Q0','AIM_xyt',0,0,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
229 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('aim_Q0','units','---',myThid) |
./pkg/aim_v23/aim_mnc_init.F |
231 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VNAME('aim_EnPrec','AIM_xyt',0,0,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
232 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('aim_EnPrec','units','J/g',myThid) |
./pkg/aim_v23/aim_mnc_init.F |
234 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VNAME('aim_alb10','AIM_xyt',0,0,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
235 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('aim_alb10','units','---',myThid) |
./pkg/aim_v23/aim_mnc_init.F |
237 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VNAME('aim_dTsurf1','AIM_xyt',0,0,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
238 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('aim_dTsurf1','units','---',myThid) |
./pkg/aim_v23/aim_mnc_init.F |
240 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VNAME('aim_TSWclr','AIM_xyt',0,0,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
241 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('aim_TSWclr','units','---',myThid) |
./pkg/aim_v23/aim_mnc_init.F |
243 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VNAME('aim_OLWclr','AIM_xyt',0,0,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
244 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('aim_OLWclr','units','---',myThid) |
./pkg/aim_v23/aim_mnc_init.F |
246 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VNAME('aim_SSWclr','AIM_xyt',0,0,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
247 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('aim_SSWclr','units','---',myThid) |
./pkg/aim_v23/aim_mnc_init.F |
249 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VNAME('aim_SLWclr','AIM_xyt',0,0,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
250 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('aim_SLWclr','units','---',myThid) |
./pkg/aim_v23/aim_mnc_init.F |
27 |
AIM_MNC_INIT |
INTEGER myThid |
./pkg/aim_v23/aim_mnc_init.F |
42 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VNAME('USTRtave', 'U_xy_Hn__-__t',3,4,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
44 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('USTRtave','long_name',ln_var,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
45 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('USTRtave','units','Pa',myThid) |
./pkg/aim_v23/aim_mnc_init.F |
47 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VNAME('VSTRtave', 'V_xy_Hn__-__t',3,4,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
49 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('VSTRtave','long_name',ln_var, myThid) |
./pkg/aim_v23/aim_mnc_init.F |
50 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('VSTRtave','units','Pa', myThid) |
./pkg/aim_v23/aim_mnc_init.F |
52 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VNAME('TSRtave', 'Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
54 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('TSRtave','long_name',ln_var, myThid) |
./pkg/aim_v23/aim_mnc_init.F |
55 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('TSRtave','units','W/m2', myThid) |
./pkg/aim_v23/aim_mnc_init.F |
57 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VNAME('OLRtave', 'Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
59 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('OLRtave','long_name',ln_var, myThid) |
./pkg/aim_v23/aim_mnc_init.F |
60 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('OLRtave','units','W/m2', myThid) |
./pkg/aim_v23/aim_mnc_init.F |
62 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VNAME('SSRtave', 'Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
64 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('SSRtave','long_name',ln_var, myThid) |
./pkg/aim_v23/aim_mnc_init.F |
65 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('SSRtave','units','W/m2', myThid) |
./pkg/aim_v23/aim_mnc_init.F |
67 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VNAME('SLRtave', 'Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
69 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('SLRtave','long_name',ln_var,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
70 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('SLRtave','units','W/m2', myThid) |
./pkg/aim_v23/aim_mnc_init.F |
72 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VNAME('SHFtave', 'Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
74 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('SHFtave','long_name',ln_var,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
75 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('SHFtave','units','W/m2', myThid) |
./pkg/aim_v23/aim_mnc_init.F |
77 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VNAME('EVAPtave', 'Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
79 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('EVAPtave','long_name',ln_var,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
80 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('EVAPtave','units','g/(m2 s)',myThid) |
./pkg/aim_v23/aim_mnc_init.F |
82 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VNAME('PRECNVtave', 'Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
84 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('PRECNVtave','long_name',ln_var,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
85 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('PRECNVtave','units','g/(m2 s)',myThid) |
./pkg/aim_v23/aim_mnc_init.F |
87 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VNAME('PRECLStave', 'Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
89 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('PRECLStave','long_name',ln_var,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
90 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('PRECLStave','units','g/(m2 s)',myThid) |
./pkg/aim_v23/aim_mnc_init.F |
92 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VNAME('CLOUDCtave', 'Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
94 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('CLOUDCtave','long_name',ln_var,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
95 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('CLOUDCtave','units','fraction',myThid) |
./pkg/aim_v23/aim_mnc_init.F |
97 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VNAME('CLTOPtave', 'Cen_xy_Hn__-__t',3,4,myThid) |
./pkg/aim_v23/aim_mnc_init.F |
99 |
AIM_MNC_INIT |
CALL MNC_CW_ADD_VATTR_TEXT('CLTOPtave','long_name',ln_var,myThid) |
./eesupp/src/fill_cs_corner_uv_rs.F |
15 |
FILL_CS_CORNER_UV_RS |
I bi,bj, myThid) |
./eesupp/src/fill_cs_corner_uv_rs.F |
51 |
FILL_CS_CORNER_UV_RS |
INTEGER myThid |
./pkg/aim_v23/aim_readparms.F |
219 |
AIM_READPARMS |
_BEGIN_MASTER(myThid) |
./pkg/aim_v23/aim_readparms.F |
275 |
AIM_READPARMS |
O iUnit, myThid ) |
./pkg/aim_v23/aim_readparms.F |
320 |
AIM_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/aim_v23/aim_readparms.F |
323 |
AIM_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/aim_v23/aim_readparms.F |
333 |
AIM_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/aim_v23/aim_readparms.F |
336 |
AIM_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/aim_v23/aim_readparms.F |
50 |
AIM_READPARMS |
INTEGER myThid |
./pkg/aim_v23/aim_readparms.F |
568 |
AIM_READPARMS |
_END_MASTER(myThid) |
./pkg/aim_v23/aim_readparms.F |
9 |
AIM_READPARMS |
SUBROUTINE AIM_READPARMS( myThid ) |
./pkg/aim_v23/aim_sice2aim.F |
118 |
AIM_SICE2AIM |
I myTime, myIter, myThid ) |
./pkg/aim_v23/aim_sice2aim.F |
155 |
AIM_SICE2AIM |
& bi, bj, 1, myIter, myThid ) |
./pkg/aim_v23/aim_sice2aim.F |
158 |
AIM_SICE2AIM |
& bi, bj, 1, myIter, myThid ) |
./pkg/aim_v23/aim_sice2aim.F |
16 |
AIM_SICE2AIM |
I myTime, myIter, bi, bj, myThid ) |
./pkg/aim_v23/aim_sice2aim.F |
76 |
AIM_SICE2AIM |
INTEGER myIter, bi, bj, myThid |
./pkg/aim_v23/aim_sice_impl.F |
17 |
AIM_SICE_IMPL |
I bi, bj, myTime, myIter, myThid) |
./pkg/aim_v23/aim_sice_impl.F |
71 |
AIM_SICE_IMPL |
INTEGER bi, bj, myIter, myThid |
./pkg/aim_v23/aim_sice_impl.F |
95 |
AIM_SICE_IMPL |
I bi, bj, myTime, myIter, myThid) |
./pkg/aim_v23/aim_surf_bc.F |
103 |
AIM_SURF_BC |
fMask1(I2,1,myThid) = aim_landFr(i,j,bi,bj) |
./pkg/aim_v23/aim_surf_bc.F |
12 |
AIM_SURF_BC |
I bi, bj, myTime, myIter, myThid ) |
./pkg/aim_v23/aim_surf_bc.F |
143 |
AIM_SURF_BC |
sst1(I2,myThid) = aim_sWght0*aim_sst0(i,j,bi,bj) |
./pkg/aim_v23/aim_surf_bc.F |
145 |
AIM_SURF_BC |
stl1(I2,myThid) = aim_sWght0*aim_lst0(i,j,bi,bj) |
./pkg/aim_v23/aim_surf_bc.F |
169 |
AIM_SURF_BC |
soilw1(I2,myThid) = aim_sWght0*soilw_0 |
./pkg/aim_v23/aim_surf_bc.F |
171 |
AIM_SURF_BC |
soilw1(I2,myThid) = MIN(1. _d 0, soilw1(I2,myThid) ) |
./pkg/aim_v23/aim_surf_bc.F |
191 |
AIM_SURF_BC |
sti1(J,myThid) = sst1(J,myThid) |
./pkg/aim_v23/aim_surf_bc.F |
193 |
AIM_SURF_BC |
sst1(J,myThid) = MAX(sst1(J,myThid),oceTfreez) |
./pkg/aim_v23/aim_surf_bc.F |
194 |
AIM_SURF_BC |
sti1(J,myThid) = sst1(J,myThid) |
./pkg/aim_v23/aim_surf_bc.F |
195 |
AIM_SURF_BC |
& +(sti1(J,myThid)-sst1(J,myThid))/oice1(J) |
./pkg/aim_v23/aim_surf_bc.F |
202 |
AIM_SURF_BC |
sti1(J,myThid) = sst1(J,myThid) |
./pkg/aim_v23/aim_surf_bc.F |
257 |
AIM_SURF_BC |
alb1(I2,1,myThid) = alb_land |
./pkg/aim_v23/aim_surf_bc.F |
259 |
AIM_SURF_BC |
alb1(I2,2,myThid) = 0.5 _d 0 * ALBSEA |
./pkg/aim_v23/aim_surf_bc.F |
261 |
AIM_SURF_BC |
alb1(I2,3,myThid) = ALBICE |
./pkg/aim_v23/aim_surf_bc.F |
286 |
AIM_SURF_BC |
alb1(I2,1,myThid) = aim_albedo(i,j,bi,bj) |
./pkg/aim_v23/aim_surf_bc.F |
287 |
AIM_SURF_BC |
alb1(I2,2,myThid) = aim_albedo(i,j,bi,bj) |
./pkg/aim_v23/aim_surf_bc.F |
288 |
AIM_SURF_BC |
alb1(I2,3,myThid) = aim_albedo(i,j,bi,bj) |
./pkg/aim_v23/aim_surf_bc.F |
295 |
AIM_SURF_BC |
alb1(I2,1,myThid) = 0. |
./pkg/aim_v23/aim_surf_bc.F |
296 |
AIM_SURF_BC |
alb1(I2,2,myThid) = 0. |
./pkg/aim_v23/aim_surf_bc.F |
297 |
AIM_SURF_BC |
alb1(I2,3,myThid) = 0. |
./pkg/aim_v23/aim_surf_bc.F |
306 |
AIM_SURF_BC |
sst1(I2,myThid) = aim_sst0(i,j,bi,bj) |
./pkg/aim_v23/aim_surf_bc.F |
307 |
AIM_SURF_BC |
stl1(I2,myThid) = aim_sst0(i,j,bi,bj) |
./pkg/aim_v23/aim_surf_bc.F |
308 |
AIM_SURF_BC |
sti1(I2,myThid) = aim_sst0(i,j,bi,bj) |
./pkg/aim_v23/aim_surf_bc.F |
315 |
AIM_SURF_BC |
sst1(I2,myThid) = 300. |
./pkg/aim_v23/aim_surf_bc.F |
316 |
AIM_SURF_BC |
stl1(I2,myThid) = 300. |
./pkg/aim_v23/aim_surf_bc.F |
317 |
AIM_SURF_BC |
sti1(I2,myThid) = 300. |
./pkg/aim_v23/aim_surf_bc.F |
327 |
AIM_SURF_BC |
soilw1(I2,myThid) = aim_sw10(i,j,bi,bj) |
./pkg/aim_v23/aim_surf_bc.F |
334 |
AIM_SURF_BC |
soilw1(I2,myThid) = 0. |
./pkg/aim_v23/aim_surf_bc.F |
358 |
AIM_SURF_BC |
U sst1(1,myThid), oice1, |
./pkg/aim_v23/aim_surf_bc.F |
359 |
AIM_SURF_BC |
I myTime, myIter, bi, bj, myThid ) |
./pkg/aim_v23/aim_surf_bc.F |
367 |
AIM_SURF_BC |
aim_CO2(I2,myThid)= atm_pCO2 |
./pkg/aim_v23/aim_surf_bc.F |
373 |
AIM_SURF_BC |
CALL DIAGNOSTICS_SCALE_FILL( aim_CO2(1,myThid), pCO2scl, 1, |
./pkg/aim_v23/aim_surf_bc.F |
374 |
AIM_SURF_BC |
& 'aim_pCO2', 1, 1, 3, bi, bj, myThid ) |
./pkg/aim_v23/aim_surf_bc.F |
384 |
AIM_SURF_BC |
U stl1(1,myThid), soilw1(1,myThid), alb1(1,1,myThid), |
./pkg/aim_v23/aim_surf_bc.F |
385 |
AIM_SURF_BC |
I myTime, myIter, bi, bj, myThid ) |
./pkg/aim_v23/aim_surf_bc.F |
394 |
AIM_SURF_BC |
U sst1(1,myThid), oice1, |
./pkg/aim_v23/aim_surf_bc.F |
395 |
AIM_SURF_BC |
O sti1(1,myThid), alb1(1,3,myThid), |
./pkg/aim_v23/aim_surf_bc.F |
396 |
AIM_SURF_BC |
I myTime, myIter, bi, bj, myThid ) |
./pkg/aim_v23/aim_surf_bc.F |
402 |
AIM_SURF_BC |
fMask1(J,3,myThid) =(1. _d 0 - fMask1(J,1,myThid)) |
./pkg/aim_v23/aim_surf_bc.F |
404 |
AIM_SURF_BC |
fMask1(J,2,myThid) = 1. _d 0 - fMask1(J,1,myThid) |
./pkg/aim_v23/aim_surf_bc.F |
405 |
AIM_SURF_BC |
& - fMask1(J,3,myThid) |
./pkg/aim_v23/aim_surf_bc.F |
410 |
AIM_SURF_BC |
alb1(J,0,myThid) = fMask1(J,1,myThid)*alb1(J,1,myThid) |
./pkg/aim_v23/aim_surf_bc.F |
411 |
AIM_SURF_BC |
& + fMask1(J,2,myThid)*alb1(J,2,myThid) |
./pkg/aim_v23/aim_surf_bc.F |
412 |
AIM_SURF_BC |
& + fMask1(J,3,myThid)*alb1(J,3,myThid) |
./pkg/aim_v23/aim_surf_bc.F |
418 |
AIM_SURF_BC |
dTsurf(J,k,myThid) = 0. |
./pkg/aim_v23/aim_surf_bc.F |
424 |
AIM_SURF_BC |
fMask1(J,3,myThid) = 0. _d 0 |
./pkg/aim_v23/aim_surf_bc.F |
425 |
AIM_SURF_BC |
fMask1(J,2,myThid) = 1. _d 0 - fMask1(J,1,myThid) |
./pkg/aim_v23/aim_surf_bc.F |
70 |
AIM_SURF_BC |
INTEGER myIter, myThid |
./pkg/aim_v23/aim_tendency_apply.F |
122 |
AIM_TENDENCY_APPLY_U |
& deltaTclock, bi, bj, myThid ) |
./pkg/aim_v23/aim_tendency_apply.F |
128 |
AIM_TENDENCY_APPLY_U |
& 0,1,1,bi,bj,myThid) |
./pkg/aim_v23/aim_tendency_apply.F |
130 |
AIM_TENDENCY_APPLY_U |
& 0,1,1,bi,bj,myThid) |
./pkg/aim_v23/aim_tendency_apply.F |
143 |
AIM_TENDENCY_APPLY_V |
I myTime,myThid) |
./pkg/aim_v23/aim_tendency_apply.F |
169 |
AIM_TENDENCY_APPLY_V |
INTEGER myThid |
./pkg/aim_v23/aim_tendency_apply.F |
17 |
AIM_TENDENCY_APPLY_U |
I myTime,myThid) |
./pkg/aim_v23/aim_tendency_apply.F |
248 |
AIM_TENDENCY_APPLY_V |
& deltaTclock, bi, bj, myThid ) |
./pkg/aim_v23/aim_tendency_apply.F |
254 |
AIM_TENDENCY_APPLY_V |
& 0,1,1,bi,bj,myThid) |
./pkg/aim_v23/aim_tendency_apply.F |
256 |
AIM_TENDENCY_APPLY_V |
& 0,1,1,bi,bj,myThid) |
./pkg/aim_v23/aim_tendency_apply.F |
269 |
AIM_TENDENCY_APPLY_T |
I myTime,myThid) |
./pkg/aim_v23/aim_tendency_apply.F |
293 |
AIM_TENDENCY_APPLY_T |
INTEGER myThid |
./pkg/aim_v23/aim_tendency_apply.F |
318 |
AIM_TENDENCY_APPLY_S |
I myTime,myThid) |
./pkg/aim_v23/aim_tendency_apply.F |
342 |
AIM_TENDENCY_APPLY_S |
INTEGER myThid |
./pkg/aim_v23/aim_tendency_apply.F |
43 |
AIM_TENDENCY_APPLY_U |
INTEGER myThid |
./pkg/aim_v23/aim_write_local.F |
11 |
AIM_WRITE_LOCAL |
I bi, bj, iRec, myIter, myThid ) |
./pkg/aim_v23/aim_write_local.F |
40 |
AIM_WRITE_LOCAL |
INTEGER bi, bj, iRec, myIter, myThid |
./pkg/aim_v23/aim_write_local.F |
63 |
AIM_WRITE_LOCAL |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/aim_v23/aim_write_local.F |
66 |
AIM_WRITE_LOCAL |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/aim_v23/aim_write_local.F |
94 |
AIM_WRITE_LOCAL |
& bi, bj, iRec, myIter, myThid ) |
./pkg/aim_v23/aim_write_phys.F |
11 |
AIM_WRITE_PHYS |
I kLev, bi, bj, iRec, myIter, myThid ) |
./pkg/aim_v23/aim_write_phys.F |
139 |
AIM_WRITE_PHYS |
_END_MASTER( myThid ) |
./pkg/aim_v23/aim_write_phys.F |
43 |
AIM_WRITE_PHYS |
INTEGER kLev, bi, bj, iRec, myIter, myThid |
./pkg/aim_v23/aim_write_phys.F |
63 |
AIM_WRITE_PHYS |
ith = myThid |
./pkg/aim_v23/aim_write_phys.F |
69 |
AIM_WRITE_PHYS |
_BEGIN_MASTER( myThid ) |
./pkg/aim_v23/aim_write_phys.F |
83 |
AIM_WRITE_PHYS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/aim_v23/aim_write_phys.F |
86 |
AIM_WRITE_PHYS |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/aim_v23/aim_write_phys.F |
93 |
AIM_WRITE_PHYS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/aim_v23/aim_write_phys.F |
97 |
AIM_WRITE_PHYS |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/aim_v23/aim_write_tave.F |
100 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(SLRtave, aim_timeAve,1,bi,bj,myThid) |
./pkg/aim_v23/aim_write_tave.F |
101 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(SHFtave, aim_timeAve,1,bi,bj,myThid) |
./pkg/aim_v23/aim_write_tave.F |
102 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(EVAPtave, aim_timeAve,1,bi,bj,myThid) |
./pkg/aim_v23/aim_write_tave.F |
103 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(PRECNVtave,aim_timeAve,1,bi,bj,myThid) |
./pkg/aim_v23/aim_write_tave.F |
104 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(PRECLStave,aim_timeAve,1,bi,bj,myThid) |
./pkg/aim_v23/aim_write_tave.F |
105 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(CLOUDCtave,aim_timeAve,1,bi,bj,myThid) |
./pkg/aim_v23/aim_write_tave.F |
106 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(CLTOPtave, aim_timeAve,1,bi,bj,myThid) |
./pkg/aim_v23/aim_write_tave.F |
107 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(CBMFtave, aim_timeAve,1,bi,bj,myThid) |
./pkg/aim_v23/aim_write_tave.F |
108 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(DRAGtave, aim_timeAve,1,bi,bj,myThid) |
./pkg/aim_v23/aim_write_tave.F |
109 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(aimV0tave, aim_timeAve,1,bi,bj,myThid) |
./pkg/aim_v23/aim_write_tave.F |
110 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(aimT0tave, aim_timeAve,1,bi,bj,myThid) |
./pkg/aim_v23/aim_write_tave.F |
111 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(aimQ0tave, aim_timeAve,1,bi,bj,myThid) |
./pkg/aim_v23/aim_write_tave.F |
112 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(EnFxPrtave,aim_timeAve,1,bi,bj,myThid) |
./pkg/aim_v23/aim_write_tave.F |
113 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(albedotave,aim_timeAve,1,bi,bj,myThid) |
./pkg/aim_v23/aim_write_tave.F |
114 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(dTsurftave,aim_timeAve,1,bi,bj,myThid) |
./pkg/aim_v23/aim_write_tave.F |
116 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(aimRHtave,aim_timeAve,Nr,bi,bj,myThid) |
./pkg/aim_v23/aim_write_tave.F |
131 |
AIM_WRITE_TAVE |
CALL MNC_CW_SET_UDIM(mncfn, -1, myThid) |
./pkg/aim_v23/aim_write_tave.F |
132 |
AIM_WRITE_TAVE |
CALL MNC_CW_RL_W_S('D',mncfn,0,0,'T',myTime,myThid) |
./pkg/aim_v23/aim_write_tave.F |
133 |
AIM_WRITE_TAVE |
CALL MNC_CW_SET_UDIM(mncfn, 0, myThid) |
./pkg/aim_v23/aim_write_tave.F |
134 |
AIM_WRITE_TAVE |
CALL MNC_CW_I_W_S('I',mncfn,0,0,'iter',myIter,myThid) |
./pkg/aim_v23/aim_write_tave.F |
136 |
AIM_WRITE_TAVE |
CALL MNC_CW_RL_W(pf,mncfn,0,0,'USTRtave', USTRtave, myThid) |
./pkg/aim_v23/aim_write_tave.F |
137 |
AIM_WRITE_TAVE |
CALL MNC_CW_RL_W(pf,mncfn,0,0,'VSTRtave', VSTRtave, myThid) |
./pkg/aim_v23/aim_write_tave.F |
138 |
AIM_WRITE_TAVE |
CALL MNC_CW_RL_W(pf,mncfn,0,0,'TSRtave', TSRtave, myThid) |
./pkg/aim_v23/aim_write_tave.F |
139 |
AIM_WRITE_TAVE |
CALL MNC_CW_RL_W(pf,mncfn,0,0,'OLRtave', OLRtave, myThid) |
./pkg/aim_v23/aim_write_tave.F |
140 |
AIM_WRITE_TAVE |
CALL MNC_CW_RL_W(pf,mncfn,0,0,'SSRtave', SSRtave, myThid) |
./pkg/aim_v23/aim_write_tave.F |
141 |
AIM_WRITE_TAVE |
CALL MNC_CW_RL_W(pf,mncfn,0,0,'SLRtave', SLRtave, myThid) |
./pkg/aim_v23/aim_write_tave.F |
142 |
AIM_WRITE_TAVE |
CALL MNC_CW_RL_W(pf,mncfn,0,0,'SHFtave', SHFtave, myThid) |
./pkg/aim_v23/aim_write_tave.F |
143 |
AIM_WRITE_TAVE |
CALL MNC_CW_RL_W(pf,mncfn,0,0,'EVAPtave', EVAPtave, myThid) |
./pkg/aim_v23/aim_write_tave.F |
144 |
AIM_WRITE_TAVE |
CALL MNC_CW_RL_W(pf,mncfn,0,0,'PRECNVtave',PRECNVtave,myThid) |
./pkg/aim_v23/aim_write_tave.F |
145 |
AIM_WRITE_TAVE |
CALL MNC_CW_RL_W(pf,mncfn,0,0,'PRECLStave',PRECLStave,myThid) |
./pkg/aim_v23/aim_write_tave.F |
146 |
AIM_WRITE_TAVE |
CALL MNC_CW_RL_W(pf,mncfn,0,0,'CLOUDCtave',CLOUDCtave,myThid) |
./pkg/aim_v23/aim_write_tave.F |
147 |
AIM_WRITE_TAVE |
CALL MNC_CW_RL_W(pf,mncfn,0,0,'CLTOPtave', CLTOPtave, myThid) |
./pkg/aim_v23/aim_write_tave.F |
148 |
AIM_WRITE_TAVE |
CALL MNC_CW_RL_W(pf,mncfn,0,0,'CBMFtave', CBMFtave, myThid) |
./pkg/aim_v23/aim_write_tave.F |
149 |
AIM_WRITE_TAVE |
CALL MNC_CW_RL_W(pf,mncfn,0,0,'DRAGtave', DRAGtave, myThid) |
./pkg/aim_v23/aim_write_tave.F |
150 |
AIM_WRITE_TAVE |
CALL MNC_CW_RL_W(pf,mncfn,0,0,'aimV0tave', aimV0tave, myThid) |
./pkg/aim_v23/aim_write_tave.F |
151 |
AIM_WRITE_TAVE |
CALL MNC_CW_RL_W(pf,mncfn,0,0,'aimT0tave', aimT0tave, myThid) |
./pkg/aim_v23/aim_write_tave.F |
152 |
AIM_WRITE_TAVE |
CALL MNC_CW_RL_W(pf,mncfn,0,0,'aimQ0tave', aimQ0tave, myThid) |
./pkg/aim_v23/aim_write_tave.F |
153 |
AIM_WRITE_TAVE |
CALL MNC_CW_RL_W(pf,mncfn,0,0,'EnFxPrtave',EnFxPrtave,myThid) |
./pkg/aim_v23/aim_write_tave.F |
154 |
AIM_WRITE_TAVE |
CALL MNC_CW_RL_W(pf,mncfn,0,0,'albedotave',albedotave,myThid) |
./pkg/aim_v23/aim_write_tave.F |
155 |
AIM_WRITE_TAVE |
CALL MNC_CW_RL_W(pf,mncfn,0,0,'dTsurftave',dTsurftave,myThid) |
./pkg/aim_v23/aim_write_tave.F |
156 |
AIM_WRITE_TAVE |
CALL MNC_CW_RL_W(pf,mncfn,0,0,'aimRHtave', aimRHtave, myThid) |
./pkg/aim_v23/aim_write_tave.F |
165 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, USTRtave, 1, myIter, myThid ) |
./pkg/aim_v23/aim_write_tave.F |
166 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, VSTRtave, 2, myIter, myThid ) |
./pkg/aim_v23/aim_write_tave.F |
167 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, TSRtave , 3, myIter, myThid ) |
./pkg/aim_v23/aim_write_tave.F |
168 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, OLRtave , 4, myIter, myThid ) |
./pkg/aim_v23/aim_write_tave.F |
169 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, SSRtave , 5, myIter, myThid ) |
./pkg/aim_v23/aim_write_tave.F |
170 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, SLRtave , 6, myIter, myThid ) |
./pkg/aim_v23/aim_write_tave.F |
171 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, SHFtave , 7, myIter, myThid ) |
./pkg/aim_v23/aim_write_tave.F |
172 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, EVAPtave, 8, myIter, myThid ) |
./pkg/aim_v23/aim_write_tave.F |
173 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, PRECNVtave, 9, myIter, myThid ) |
./pkg/aim_v23/aim_write_tave.F |
174 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, PRECLStave, 10, myIter, myThid ) |
./pkg/aim_v23/aim_write_tave.F |
175 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, CLOUDCtave, 11, myIter, myThid ) |
./pkg/aim_v23/aim_write_tave.F |
176 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, CLTOPtave, 12, myIter, myThid ) |
./pkg/aim_v23/aim_write_tave.F |
177 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, CBMFtave, 13, myIter, myThid ) |
./pkg/aim_v23/aim_write_tave.F |
178 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, DRAGtave, 14, myIter, myThid ) |
./pkg/aim_v23/aim_write_tave.F |
179 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, aimV0tave, 15, myIter, myThid ) |
./pkg/aim_v23/aim_write_tave.F |
180 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, aimT0tave, 16, myIter, myThid ) |
./pkg/aim_v23/aim_write_tave.F |
181 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, aimQ0tave, 17, myIter, myThid ) |
./pkg/aim_v23/aim_write_tave.F |
182 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, EnFxPrtave, 18, myIter, myThid ) |
./pkg/aim_v23/aim_write_tave.F |
183 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, albedotave, 19, myIter, myThid ) |
./pkg/aim_v23/aim_write_tave.F |
184 |
AIM_WRITE_TAVE |
CALL WRITE_REC_XY_RL( fn, dTsurftave, 20, myIter, myThid ) |
./pkg/aim_v23/aim_write_tave.F |
188 |
AIM_WRITE_TAVE |
& myIter,myThid) |
./pkg/aim_v23/aim_write_tave.F |
193 |
AIM_WRITE_TAVE |
& SQUEEZE_RIGHT, myThid ) |
./pkg/aim_v23/aim_write_tave.F |
196 |
AIM_WRITE_TAVE |
& SQUEEZE_RIGHT, myThid ) |
./pkg/aim_v23/aim_write_tave.F |
201 |
AIM_WRITE_TAVE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/aim_v23/aim_write_tave.F |
202 |
AIM_WRITE_TAVE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/aim_v23/aim_write_tave.F |
203 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(USTRtave, 1, bi, bj, myThid) |
./pkg/aim_v23/aim_write_tave.F |
204 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(VSTRtave, 1, bi, bj, myThid) |
./pkg/aim_v23/aim_write_tave.F |
205 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(TSRtave, 1, bi, bj, myThid) |
./pkg/aim_v23/aim_write_tave.F |
206 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(OLRtave, 1, bi, bj, myThid) |
./pkg/aim_v23/aim_write_tave.F |
207 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(SSRtave, 1, bi, bj, myThid) |
./pkg/aim_v23/aim_write_tave.F |
208 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(SLRtave, 1, bi, bj, myThid) |
./pkg/aim_v23/aim_write_tave.F |
209 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(SHFtave, 1, bi, bj, myThid) |
./pkg/aim_v23/aim_write_tave.F |
210 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(EVAPtave, 1, bi, bj, myThid) |
./pkg/aim_v23/aim_write_tave.F |
211 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(PRECNVtave,1, bi, bj, myThid) |
./pkg/aim_v23/aim_write_tave.F |
212 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(PRECLStave,1, bi, bj, myThid) |
./pkg/aim_v23/aim_write_tave.F |
213 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(CLOUDCtave,1, bi, bj, myThid) |
./pkg/aim_v23/aim_write_tave.F |
214 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(CLTOPtave, 1, bi, bj, myThid) |
./pkg/aim_v23/aim_write_tave.F |
215 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(CBMFtave, 1, bi, bj, myThid) |
./pkg/aim_v23/aim_write_tave.F |
216 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(DRAGtave, 1, bi, bj, myThid) |
./pkg/aim_v23/aim_write_tave.F |
217 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(aimV0tave, 1, bi, bj, myThid) |
./pkg/aim_v23/aim_write_tave.F |
218 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(aimT0tave, 1, bi, bj, myThid) |
./pkg/aim_v23/aim_write_tave.F |
219 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(aimQ0tave, 1, bi, bj, myThid) |
./pkg/aim_v23/aim_write_tave.F |
220 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(EnFxPrtave,1, bi, bj, myThid) |
./pkg/aim_v23/aim_write_tave.F |
221 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(albedotave,1, bi, bj, myThid) |
./pkg/aim_v23/aim_write_tave.F |
222 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(dTsurftave,1, bi, bj, myThid) |
./pkg/aim_v23/aim_write_tave.F |
223 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(aimRHtave,Nr, bi, bj, myThid) |
./pkg/aim_v23/aim_write_tave.F |
34 |
AIM_WRITE_TAVE |
INTEGER myThid |
./pkg/aim_v23/aim_write_tave.F |
59 |
AIM_WRITE_TAVE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/aim_v23/aim_write_tave.F |
60 |
AIM_WRITE_TAVE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/aim_v23/aim_write_tave.F |
61 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(USTRtave, 1, bi, bj, myThid) |
./pkg/aim_v23/aim_write_tave.F |
62 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(VSTRtave, 1, bi, bj, myThid) |
./pkg/aim_v23/aim_write_tave.F |
63 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(TSRtave, 1, bi, bj, myThid) |
./pkg/aim_v23/aim_write_tave.F |
64 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(OLRtave, 1, bi, bj, myThid) |
./pkg/aim_v23/aim_write_tave.F |
65 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(SSRtave, 1, bi, bj, myThid) |
./pkg/aim_v23/aim_write_tave.F |
66 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(SLRtave, 1, bi, bj, myThid) |
./pkg/aim_v23/aim_write_tave.F |
67 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(SHFtave, 1, bi, bj, myThid) |
./pkg/aim_v23/aim_write_tave.F |
68 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(EVAPtave, 1, bi, bj, myThid) |
./pkg/aim_v23/aim_write_tave.F |
69 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(PRECNVtave,1, bi, bj, myThid) |
./pkg/aim_v23/aim_write_tave.F |
70 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(PRECLStave,1, bi, bj, myThid) |
./pkg/aim_v23/aim_write_tave.F |
71 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(CLOUDCtave,1, bi, bj, myThid) |
./pkg/aim_v23/aim_write_tave.F |
72 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(CLTOPtave, 1, bi, bj, myThid) |
./pkg/aim_v23/aim_write_tave.F |
73 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(CBMFtave, 1, bi, bj, myThid) |
./pkg/aim_v23/aim_write_tave.F |
74 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(DRAGtave, 1, bi, bj, myThid) |
./pkg/aim_v23/aim_write_tave.F |
75 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(aimV0tave, 1, bi, bj, myThid) |
./pkg/aim_v23/aim_write_tave.F |
76 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(aimT0tave, 1, bi, bj, myThid) |
./pkg/aim_v23/aim_write_tave.F |
77 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(aimQ0tave, 1, bi, bj, myThid) |
./pkg/aim_v23/aim_write_tave.F |
78 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(EnFxPrtave,1, bi, bj, myThid) |
./pkg/aim_v23/aim_write_tave.F |
79 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(albedotave,1, bi, bj, myThid) |
./pkg/aim_v23/aim_write_tave.F |
80 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(dTsurftave,1, bi, bj, myThid) |
./pkg/aim_v23/aim_write_tave.F |
81 |
AIM_WRITE_TAVE |
CALL TIMEAVE_RESET(aimRHtave,Nr, bi, bj, myThid) |
./pkg/aim_v23/aim_write_tave.F |
93 |
AIM_WRITE_TAVE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/aim_v23/aim_write_tave.F |
94 |
AIM_WRITE_TAVE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/aim_v23/aim_write_tave.F |
95 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(USTRtave, aim_timeAve,1,bi,bj,myThid) |
./pkg/aim_v23/aim_write_tave.F |
96 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(VSTRtave, aim_timeAve,1,bi,bj,myThid) |
./pkg/aim_v23/aim_write_tave.F |
97 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(TSRtave, aim_timeAve,1,bi,bj,myThid) |
./pkg/aim_v23/aim_write_tave.F |
98 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(OLRtave, aim_timeAve,1,bi,bj,myThid) |
./pkg/aim_v23/aim_write_tave.F |
99 |
AIM_WRITE_TAVE |
CALL TIMEAVE_NORMALIZE(SSRtave, aim_timeAve,1,bi,bj,myThid) |
./pkg/aim_v23/aim_write_tave.F |
9 |
AIM_WRITE_TAVE |
SUBROUTINE AIM_WRITE_TAVE( myTime, myIter, myThid ) |
./pkg/aim_v23/phy_convmf.F |
55 |
CONVMF |
INTEGER bi,bj,myThid |
./pkg/aim_v23/phy_convmf.F |
8 |
CONVMF |
I kGrd,bi,bj,myThid) |
./eesupp/src/gather_vector.F |
29 |
GATHER_VECTOR |
_BEGIN_MASTER( myThid ) |
./eesupp/src/gather_vector.F |
6 |
GATHER_VECTOR |
SUBROUTINE GATHER_VECTOR( lprint, length, global, local, myThid ) |
./eesupp/src/gather_vector.F |
99 |
GATHER_VECTOR |
_END_MASTER( myThid ) |
./pkg/aim_v23/phy_driver.F |
10 |
PHY_DRIVER |
I bi, bj, myTime, myIter, myThid ) |
./pkg/aim_v23/phy_driver.F |
141 |
PHY_DRIVER |
I bi, bj, myTime, myIter, myThid ) |
./pkg/aim_v23/phy_driver.F |
167 |
PHY_DRIVER |
O RH(1,K,myThid),QSAT(1,K), |
./pkg/aim_v23/phy_driver.F |
168 |
PHY_DRIVER |
I myThid) |
./pkg/aim_v23/phy_driver.F |
178 |
PHY_DRIVER |
O ICLTOP,CBMF(1,myThid),PRECNV(1,myThid), |
./pkg/aim_v23/phy_driver.F |
179 |
PHY_DRIVER |
O TT_CNV(1,1,myThid),QT_CNV(1,1,myThid), |
./pkg/aim_v23/phy_driver.F |
180 |
PHY_DRIVER |
I kGround,bi,bj,myThid) |
./pkg/aim_v23/phy_driver.F |
184 |
PHY_DRIVER |
TT_CNV(J,K,myThid)=TT_CNV(J,K,myThid)*RPS_1*GRDSCP(K) |
./pkg/aim_v23/phy_driver.F |
185 |
PHY_DRIVER |
QT_CNV(J,K,myThid)=QT_CNV(J,K,myThid)*RPS_1*GRDSIG(K) |
./pkg/aim_v23/phy_driver.F |
194 |
PHY_DRIVER |
O PRECLS(1,myThid),TT_LSC(1,1,myThid), |
./pkg/aim_v23/phy_driver.F |
195 |
PHY_DRIVER |
O QT_LSC(1,1,myThid), |
./pkg/aim_v23/phy_driver.F |
196 |
PHY_DRIVER |
I kGround,bi,bj,myThid) |
./pkg/aim_v23/phy_driver.F |
202 |
PHY_DRIVER |
I PRECNV(1,myThid), QT_CNV(1,1,myThid), |
./pkg/aim_v23/phy_driver.F |
203 |
PHY_DRIVER |
I PRECLS(1,myThid), QT_LSC(1,1,myThid), |
./pkg/aim_v23/phy_driver.F |
204 |
PHY_DRIVER |
U TT_CNV(1,1,myThid), TT_LSC(1,1,myThid), |
./pkg/aim_v23/phy_driver.F |
205 |
PHY_DRIVER |
O EnPrec(1,myThid), |
./pkg/aim_v23/phy_driver.F |
206 |
PHY_DRIVER |
I kGround,bi,bj,myThid) |
./pkg/aim_v23/phy_driver.F |
209 |
PHY_DRIVER |
EnPrec(J,myThid) = 0. _d 0 |
./pkg/aim_v23/phy_driver.F |
221 |
PHY_DRIVER |
CALL SOL_OZ (SOLC,tYear, snLat(1,myThid), csLat(1,myThid), |
./pkg/aim_v23/phy_driver.F |
223 |
PHY_DRIVER |
I bi,bj,myThid) |
./pkg/aim_v23/phy_driver.F |
238 |
PHY_DRIVER |
CALL RADSW (PSG,dpFac,QG1,RH(1,1,myThid),ALB1(1,0,myThid), |
./pkg/aim_v23/phy_driver.F |
241 |
PHY_DRIVER |
O ICLTOP,CLOUDC(1,myThid), |
./pkg/aim_v23/phy_driver.F |
242 |
PHY_DRIVER |
O TSR(1,myThid),SSR(1,0,myThid), |
./pkg/aim_v23/phy_driver.F |
243 |
PHY_DRIVER |
O UPSWG,TT_RSW(1,1,myThid), |
./pkg/aim_v23/phy_driver.F |
244 |
PHY_DRIVER |
I kGround,bi,bj,myThid) |
./pkg/aim_v23/phy_driver.F |
247 |
PHY_DRIVER |
CLTOP(J,myThid)=SIGH(ICLTOP(J)-1)*PSG_1(J) |
./pkg/aim_v23/phy_driver.F |
252 |
PHY_DRIVER |
TT_RSW(J,K,myThid)=TT_RSW(J,K,myThid)*RPS_1*GRDSCP(K) |
./pkg/aim_v23/phy_driver.F |
259 |
PHY_DRIVER |
& 'UPSWG ', 1, 1 , 3,bi,bj, myThid ) |
./pkg/aim_v23/phy_driver.F |
269 |
PHY_DRIVER |
CALL RADLW (-1,TG1,TS(1,myThid),ST4S, |
./pkg/aim_v23/phy_driver.F |
271 |
PHY_DRIVER |
O OLR(1,myThid),SLR(1,0,myThid),TT_RLW(1,1,myThid), |
./pkg/aim_v23/phy_driver.F |
272 |
PHY_DRIVER |
I kGround,bi,bj,myThid) |
./pkg/aim_v23/phy_driver.F |
282 |
PHY_DRIVER |
I PSG, TG1, QG1, RH(1,1,myThid), SE, VsurfSq, |
./pkg/aim_v23/phy_driver.F |
283 |
PHY_DRIVER |
I WVSurf(1,myThid),csLat(1,myThid),fOrogr(1,myThid), |
./pkg/aim_v23/phy_driver.F |
284 |
PHY_DRIVER |
I FMASK1(1,1,myThid),STL1(1,myThid),SST1(1,myThid), |
./pkg/aim_v23/phy_driver.F |
285 |
PHY_DRIVER |
I sti1(1,myThid), SSR(1,0,myThid), |
./pkg/aim_v23/phy_driver.F |
286 |
PHY_DRIVER |
O SPEED0(1,myThid),DRAG(1,0,myThid),DENVV, |
./pkg/aim_v23/phy_driver.F |
287 |
PHY_DRIVER |
O dTskin,T1s,T0(1,myThid),Q0(1,myThid), |
./pkg/aim_v23/phy_driver.F |
288 |
PHY_DRIVER |
I kGround,bi,bj,myThid) |
./pkg/aim_v23/phy_driver.F |
291 |
PHY_DRIVER |
I PSG, FMASK1(1,1,myThid), EMISFC, |
./pkg/aim_v23/phy_driver.F |
292 |
PHY_DRIVER |
I STL1(1,myThid), dTskin, |
./pkg/aim_v23/phy_driver.F |
293 |
PHY_DRIVER |
I SOILW1(1,myThid), SSR(1,1,myThid), SLR(1,0,myThid), |
./pkg/aim_v23/phy_driver.F |
294 |
PHY_DRIVER |
I T1s, T0(1,myThid), Q0(1,myThid), DENVV, |
./pkg/aim_v23/phy_driver.F |
295 |
PHY_DRIVER |
O SHF(1,1,myThid), EVAP(1,1,myThid), SLR(1,1,myThid), |
./pkg/aim_v23/phy_driver.F |
297 |
PHY_DRIVER |
O TS(1,myThid), TSKIN(1,myThid), |
./pkg/aim_v23/phy_driver.F |
298 |
PHY_DRIVER |
I bi,bj,myThid) |
./pkg/aim_v23/phy_driver.F |
301 |
PHY_DRIVER |
I FMASK1(1,1,myThid), dTskin, |
./pkg/aim_v23/phy_driver.F |
303 |
PHY_DRIVER |
U sFlx, STL1(1,myThid), |
./pkg/aim_v23/phy_driver.F |
304 |
PHY_DRIVER |
U SHF(1,1,myThid), EVAP(1,1,myThid), SLR(1,1,myThid), |
./pkg/aim_v23/phy_driver.F |
305 |
PHY_DRIVER |
O dTsurf(1,1,myThid), |
./pkg/aim_v23/phy_driver.F |
306 |
PHY_DRIVER |
I bi, bj, myTime, myIter, myThid) |
./pkg/aim_v23/phy_driver.F |
310 |
PHY_DRIVER |
I PSG, FMASK1(1,2,myThid), |
./pkg/aim_v23/phy_driver.F |
311 |
PHY_DRIVER |
I SST1(1,myThid), |
./pkg/aim_v23/phy_driver.F |
312 |
PHY_DRIVER |
I SSR(1,2,myThid), SLR(1,0,myThid), |
./pkg/aim_v23/phy_driver.F |
313 |
PHY_DRIVER |
O T1s, T0(1,myThid), Q0(1,myThid), DENVV, |
./pkg/aim_v23/phy_driver.F |
314 |
PHY_DRIVER |
O SHF(1,2,myThid), EVAP(1,2,myThid), SLR(1,2,myThid), |
./pkg/aim_v23/phy_driver.F |
315 |
PHY_DRIVER |
I bi,bj,myThid) |
./pkg/aim_v23/phy_driver.F |
319 |
PHY_DRIVER |
I PSG, FMASK1(1,3,myThid), EMISFC, |
./pkg/aim_v23/phy_driver.F |
320 |
PHY_DRIVER |
I STI1(1,myThid), dTskin, |
./pkg/aim_v23/phy_driver.F |
321 |
PHY_DRIVER |
I SSR(1,3,myThid), SLR(1,0,myThid), |
./pkg/aim_v23/phy_driver.F |
322 |
PHY_DRIVER |
I T1s, T0(1,myThid), Q0(1,myThid), DENVV, |
./pkg/aim_v23/phy_driver.F |
323 |
PHY_DRIVER |
O SHF(1,3,myThid), EVAP(1,3,myThid), SLR(1,3,myThid), |
./pkg/aim_v23/phy_driver.F |
325 |
PHY_DRIVER |
O TS(1,myThid), TSKIN(1,myThid), |
./pkg/aim_v23/phy_driver.F |
326 |
PHY_DRIVER |
I bi,bj,myThid) |
./pkg/aim_v23/phy_driver.F |
329 |
PHY_DRIVER |
I FMASK1(1,3,myThid), SSR(1,3,myThid), sFlx, |
./pkg/aim_v23/phy_driver.F |
331 |
PHY_DRIVER |
U STI1(1,myThid), |
./pkg/aim_v23/phy_driver.F |
332 |
PHY_DRIVER |
U SHF(1,3,myThid), EVAP(1,3,myThid), SLR(1,3,myThid), |
./pkg/aim_v23/phy_driver.F |
333 |
PHY_DRIVER |
O dTsurf(1,3,myThid), |
./pkg/aim_v23/phy_driver.F |
334 |
PHY_DRIVER |
I bi, bj, myTime, myIter, myThid) |
./pkg/aim_v23/phy_driver.F |
338 |
PHY_DRIVER |
SHF (J,3,myThid) = 0. _d 0 |
./pkg/aim_v23/phy_driver.F |
339 |
PHY_DRIVER |
EVAP(J,3,myThid) = 0. _d 0 |
./pkg/aim_v23/phy_driver.F |
340 |
PHY_DRIVER |
SLR (J,3,myThid) = 0. _d 0 |
./pkg/aim_v23/phy_driver.F |
345 |
PHY_DRIVER |
I FMASK1(1,1,myThid), EMISFC, |
./pkg/aim_v23/phy_driver.F |
346 |
PHY_DRIVER |
I STL1(1,myThid), SST1(1,myThid), sti1(1,myThid), |
./pkg/aim_v23/phy_driver.F |
347 |
PHY_DRIVER |
I dTskin, SLR(1,0,myThid), |
./pkg/aim_v23/phy_driver.F |
348 |
PHY_DRIVER |
I T0(1,myThid), Q0(1,myThid), DENVV, |
./pkg/aim_v23/phy_driver.F |
349 |
PHY_DRIVER |
U DRAG(1,0,myThid), SHF(1,0,myThid), |
./pkg/aim_v23/phy_driver.F |
350 |
PHY_DRIVER |
U EVAP(1,0,myThid), SLR(1,1,myThid), |
./pkg/aim_v23/phy_driver.F |
351 |
PHY_DRIVER |
O ST4S, TS(1,myThid), TSKIN(1,myThid), |
./pkg/aim_v23/phy_driver.F |
352 |
PHY_DRIVER |
I bi,bj,myThid) |
./pkg/aim_v23/phy_driver.F |
356 |
PHY_DRIVER |
CALL DIAGNOSTICS_FILL( SLR(1,0,myThid), |
./pkg/aim_v23/phy_driver.F |
357 |
PHY_DRIVER |
& 'DWNLWG ', 1, 1 , 3,bi,bj, myThid ) |
./pkg/aim_v23/phy_driver.F |
367 |
PHY_DRIVER |
CALL RADLW (1,TG1,TS(1,myThid),ST4S, |
./pkg/aim_v23/phy_driver.F |
369 |
PHY_DRIVER |
O OLR(1,myThid),SLR(1,0,myThid),TT_RLW(1,1,myThid), |
./pkg/aim_v23/phy_driver.F |
370 |
PHY_DRIVER |
I kGround,bi,bj,myThid) |
./pkg/aim_v23/phy_driver.F |
374 |
PHY_DRIVER |
TT_RLW(J,K,myThid)=TT_RLW(J,K,myThid)*RPS_1*GRDSCP(K) |
./pkg/aim_v23/phy_driver.F |
385 |
PHY_DRIVER |
CALL RADSW (PSG,dpFac,QG1,RH(1,1,myThid),ALB1(1,0,myThid), |
./pkg/aim_v23/phy_driver.F |
389 |
PHY_DRIVER |
O TSWclr(1,myThid), SSWclr(1,myThid), UPSWG, TT_SWclr(1,1,myThid), |
./pkg/aim_v23/phy_driver.F |
390 |
PHY_DRIVER |
I kGround,bi,bj,myThid) |
./pkg/aim_v23/phy_driver.F |
395 |
PHY_DRIVER |
& 'UPSWGclr', 1, 1 , 3,bi,bj, myThid ) |
./pkg/aim_v23/phy_driver.F |
401 |
PHY_DRIVER |
CALL RADLW (-1,TG1,TS(1,myThid),ST4S, |
./pkg/aim_v23/phy_driver.F |
403 |
PHY_DRIVER |
O OLWclr(1,myThid), SLWclr(1,myThid), TT_LWclr(1,1,myThid), |
./pkg/aim_v23/phy_driver.F |
404 |
PHY_DRIVER |
I kGround,bi,bj,myThid) |
./pkg/aim_v23/phy_driver.F |
408 |
PHY_DRIVER |
CALL RADLW (1,TG1,TS(1,myThid),ST4S, |
./pkg/aim_v23/phy_driver.F |
410 |
PHY_DRIVER |
O OLWclr(1,myThid), SLWclr(1,myThid), TT_LWclr(1,1,myThid), |
./pkg/aim_v23/phy_driver.F |
411 |
PHY_DRIVER |
I kGround,bi,bj,myThid) |
./pkg/aim_v23/phy_driver.F |
415 |
PHY_DRIVER |
TT_SWclr(J,K,myThid)=TT_SWclr(J,K,myThid)*RPS_1*GRDSCP(K) |
./pkg/aim_v23/phy_driver.F |
416 |
PHY_DRIVER |
TT_LWclr(J,K,myThid)=TT_LWclr(J,K,myThid)*RPS_1*GRDSCP(K) |
./pkg/aim_v23/phy_driver.F |
429 |
PHY_DRIVER |
CALL VDIFSC (dpFac, SE, RH(1,1,myThid), QG1, QSAT, |
./pkg/aim_v23/phy_driver.F |
430 |
PHY_DRIVER |
O TT_PBL(1,1,myThid),QT_PBL(1,1,myThid), |
./pkg/aim_v23/phy_driver.F |
431 |
PHY_DRIVER |
I kGround,bi,bj,myThid) |
./pkg/aim_v23/phy_driver.F |
442 |
PHY_DRIVER |
TT_PBL(J,K,myThid) = TT_PBL(J,K,myThid) |
./pkg/aim_v23/phy_driver.F |
443 |
PHY_DRIVER |
& + SHF(J,0,myThid) *RPS_1*GRDSCP(K) |
./pkg/aim_v23/phy_driver.F |
444 |
PHY_DRIVER |
QT_PBL(J,K,myThid) = QT_PBL(J,K,myThid) |
./pkg/aim_v23/phy_driver.F |
445 |
PHY_DRIVER |
& + EVAP(J,0,myThid)*RPS_1*GRDSIG(K) |
./pkg/aim_v23/phy_driver.F |
80 |
PHY_DRIVER |
INTEGER myIter, myThid |
./pkg/aim_v23/phy_inphys.F |
129 |
INPHYS |
_END_MASTER(myThid) |
./pkg/aim_v23/phy_inphys.F |
45 |
INPHYS |
INTEGER myThid |
./pkg/aim_v23/phy_inphys.F |
54 |
INPHYS |
_BEGIN_MASTER(myThid) |
./pkg/aim_v23/phy_inphys.F |
6 |
INPHYS |
SUBROUTINE INPHYS (HSG, myThid) |
./pkg/aim_v23/phy_lscond.F |
48 |
LSCOND |
INTEGER bi,bj,myThid |
./pkg/aim_v23/phy_lscond.F |
8 |
LSCOND |
I kGrd,bi,bj,myThid) |
./pkg/aim_v23/phy_radiat.F |
136 |
SOL_OZ |
& 'FSOL ', 1, 1, 3,bi,bj, myThid ) |
./pkg/aim_v23/phy_radiat.F |
150 |
RADSW |
I kGrd,bi,bj,myThid) |
./pkg/aim_v23/phy_radiat.F |
202 |
RADSW |
INTEGER bi, bj, myThid |
./pkg/aim_v23/phy_radiat.F |
44 |
SOL_OZ |
INTEGER bi, bj, myThid |
./pkg/aim_v23/phy_radiat.F |
486 |
RADSW |
& 'CLDCLW ',-1, Nr, 3,bi,bj, myThid ) |
./pkg/aim_v23/phy_radiat.F |
501 |
RADLW |
I kGrd,bi,bj,myThid) |
./pkg/aim_v23/phy_radiat.F |
553 |
RADLW |
INTEGER bi,bj,myThid |
./pkg/aim_v23/phy_radiat.F |
734 |
RADSET |
SUBROUTINE RADSET( myThid ) |
./pkg/aim_v23/phy_radiat.F |
756 |
RADSET |
INTEGER myThid |
./pkg/aim_v23/phy_radiat.F |
8 |
SOL_OZ |
I bi, bj, myThid) |
./pkg/aim_v23/phy_shtorh.F |
30 |
SHTORH |
INTEGER myThid |
./pkg/aim_v23/phy_shtorh.F |
6 |
SHTORH |
SUBROUTINE SHTORH (IMODE,NGP,TA,PS,SIG,QA,RH,QSAT,myThid) |
./pkg/aim_v23/phy_snow_precip.F |
14 |
SNOW_PRECIP |
I kGrd,bi,bj,myThid) |
./pkg/aim_v23/phy_snow_precip.F |
65 |
SNOW_PRECIP |
INTEGER bi,bj,myThid |
./pkg/aim_v23/phy_suflux_land.F |
139 |
SUFLUX_LAND |
& QSAT0(1,1), myThid) |
./pkg/aim_v23/phy_suflux_land.F |
141 |
SUFLUX_LAND |
& QSAT0(1,2), myThid) |
./pkg/aim_v23/phy_suflux_land.F |
16 |
SUFLUX_LAND |
I bi,bj,myThid) |
./pkg/aim_v23/phy_suflux_land.F |
88 |
SUFLUX_LAND |
INTEGER bi,bj,myThid |
./pkg/aim_v23/phy_suflux_ocean.F |
101 |
SUFLUX_OCEAN |
& QSAT0, myThid) |
./pkg/aim_v23/phy_suflux_ocean.F |
14 |
SUFLUX_OCEAN |
I bi,bj,myThid) |
./pkg/aim_v23/phy_suflux_ocean.F |
65 |
SUFLUX_OCEAN |
INTEGER bi,bj,myThid |
./pkg/aim_v23/phy_suflux_post.F |
151 |
SUFLUX_POST |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/aim_v23/phy_suflux_post.F |
155 |
SUFLUX_POST |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/aim_v23/phy_suflux_post.F |
158 |
SUFLUX_POST |
& i1,j1,bi,bj,myThid,J,xC(i1,j1,bi,bj),yC(i1,j1,bi,bj) |
./pkg/aim_v23/phy_suflux_post.F |
159 |
SUFLUX_POST |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/aim_v23/phy_suflux_post.F |
15 |
SUFLUX_POST |
I bi,bj,myThid) |
./pkg/aim_v23/phy_suflux_post.F |
85 |
SUFLUX_POST |
INTEGER bi,bj,myThid |
./pkg/aim_v23/phy_suflux_prep.F |
13 |
SUFLUX_PREP |
I kGrd,bi,bj,myThid) |
./pkg/aim_v23/phy_suflux_prep.F |
155 |
SUFLUX_PREP |
CALL SHTORH (-1,NGP,T0, PSA, 1. _d 0, Q0, tmpRH, QSAT0, myThid) |
./pkg/aim_v23/phy_suflux_prep.F |
217 |
SFLSET |
SUBROUTINE SFLSET (PHI0, FOROG, bi,bj,myThid) |
./pkg/aim_v23/phy_suflux_prep.F |
242 |
SFLSET |
INTEGER bi,bj,myThid |
./pkg/aim_v23/phy_suflux_prep.F |
91 |
SUFLUX_PREP |
INTEGER bi,bj,myThid |
./eesupp/src/gather_xz.F |
29 |
GATHER_XZ |
_BEGIN_MASTER( myThid ) |
./eesupp/src/gather_xz.F |
6 |
GATHER_XZ |
SUBROUTINE GATHER_XZ( global, local, myThid ) |
./eesupp/src/gather_xz.F |
96 |
GATHER_XZ |
_END_MASTER( myThid ) |
./pkg/aim_v23/phy_suflux_sice.F |
149 |
SUFLUX_SICE |
& QSAT0(1,1), myThid) |
./pkg/aim_v23/phy_suflux_sice.F |
151 |
SUFLUX_SICE |
& QSAT0(1,2), myThid) |
./pkg/aim_v23/phy_suflux_sice.F |
16 |
SUFLUX_SICE |
I bi,bj,myThid) |
./pkg/aim_v23/phy_suflux_sice.F |
88 |
SUFLUX_SICE |
INTEGER bi,bj,myThid |
./pkg/aim_v23/phy_vdifsc.F |
63 |
VDIFSC |
INTEGER bi,bj,myThid |
./pkg/aim_v23/phy_vdifsc.F |
8 |
VDIFSC |
I kGrd,bi,bj,myThid) |
./eesupp/src/gather_yz.F |
29 |
GATHER_YZ |
_BEGIN_MASTER( myThid ) |
./eesupp/src/gather_yz.F |
6 |
GATHER_YZ |
SUBROUTINE GATHER_YZ( global, local, myThid ) |
./eesupp/src/gather_yz.F |
96 |
GATHER_YZ |
_END_MASTER( myThid ) |
./pkg/atm2d/atm2d_finish.F |
26 |
ATM2D_FINISH |
INTEGER myThid |
./pkg/atm2d/atm2d_finish.F |
9 |
ATM2D_FINISH |
SUBROUTINE ATM2D_FINISH( myThid) |
./pkg/atm2d/atm2d_init_fixed.F |
105 |
ATM2D_INIT_FIXED |
CALL INIT_ATM2D(dtatm, dtocn, dtcouple, myThid) |
./pkg/atm2d/atm2d_init_fixed.F |
10 |
ATM2D_INIT_FIXED |
SUBROUTINE ATM2D_INIT_FIXED(nCouplePer, myThid) |
./pkg/atm2d/atm2d_init_fixed.F |
12 |
ATM2D_INIT_FIXED |
SUBROUTINE ATM2D_INIT_FIXED(myThid) |
./pkg/atm2d/atm2d_init_fixed.F |
34 |
ATM2D_INIT_FIXED |
INTEGER myThid |
./pkg/atm2d/atm2d_init_fixed.F |
61 |
ATM2D_INIT_FIXED |
CALL ATM2D_READPARMS(myThid) |
./pkg/atm2d/atm2d_init_vars.F |
18 |
ATM2D_INIT_VARS |
INTEGER myThid |
./pkg/atm2d/atm2d_init_vars.F |
6 |
ATM2D_INIT_VARS |
SUBROUTINE ATM2D_INIT_VARS(myThid) |
./pkg/atm2d/atm2d_init_vars.F |
72 |
ATM2D_INIT_VARS |
CALL ATM2D_READ_PICKUP(myThid) |
./pkg/atm2d/atm2d_read_pickup.F |
31 |
ATM2D_READ_PICKUP |
INTEGER myThid |
./pkg/atm2d/atm2d_read_pickup.F |
43 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,pass_slp, 1, nIter0, myThid) |
./pkg/atm2d/atm2d_read_pickup.F |
44 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,pass_qnet, 2, nIter0, myThid) |
./pkg/atm2d/atm2d_read_pickup.F |
45 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,pass_solarnet, 3, nIter0, myThid) |
./pkg/atm2d/atm2d_read_pickup.F |
46 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,pass_fu, 4, nIter0, myThid) |
./pkg/atm2d/atm2d_read_pickup.F |
47 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,pass_fv, 5, nIter0, myThid) |
./pkg/atm2d/atm2d_read_pickup.F |
48 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,pass_precip, 6, nIter0, myThid) |
./pkg/atm2d/atm2d_read_pickup.F |
49 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,pass_evap, 7, nIter0, myThid) |
./pkg/atm2d/atm2d_read_pickup.F |
50 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,pass_runoff, 8, nIter0, myThid) |
./pkg/atm2d/atm2d_read_pickup.F |
51 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,pass_wspeed, 9, nIter0, myThid) |
./pkg/atm2d/atm2d_read_pickup.F |
52 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,pass_pCO2, 10, nIter0, myThid) |
./pkg/atm2d/atm2d_read_pickup.F |
53 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,pass_sIceLoad,11, nIter0, myThid) |
./pkg/atm2d/atm2d_read_pickup.F |
55 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,sHeating, 12, nIter0, myThid) |
./pkg/atm2d/atm2d_read_pickup.F |
56 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,flxCndBt, 13, nIter0, myThid) |
./pkg/atm2d/atm2d_read_pickup.F |
57 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,pass_prcAtm, 14, nIter0, myThid) |
./pkg/atm2d/atm2d_read_pickup.F |
58 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,snowPrc, 15, nIter0, myThid) |
./pkg/atm2d/atm2d_read_pickup.F |
59 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,icFrwAtm, 16, nIter0, myThid) |
./pkg/atm2d/atm2d_read_pickup.F |
60 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,icFlxSw, 17, nIter0, myThid) |
./pkg/atm2d/atm2d_read_pickup.F |
61 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,siceAlb, 18, nIter0, myThid) |
./pkg/atm2d/atm2d_read_pickup.F |
8 |
ATM2D_READ_PICKUP |
SUBROUTINE ATM2D_READ_PICKUP( myThid ) |
./pkg/atm2d/atm2d_readparms.F |
22 |
ATM2D_READPARMS |
INTEGER myThid |
./pkg/atm2d/atm2d_readparms.F |
59 |
ATM2D_READPARMS |
I myThid ) |
./pkg/atm2d/atm2d_readparms.F |
8 |
ATM2D_READPARMS |
SUBROUTINE ATM2D_READPARMS( myThid ) |
./pkg/atm2d/atm2d_write_pickup.F |
105 |
ATM2D_WRITE_PICKUP_NOW |
I myThid ) |
./pkg/atm2d/atm2d_write_pickup.F |
10 |
ATM2D_WRITE_PICKUP |
I myThid ) |
./pkg/atm2d/atm2d_write_pickup.F |
128 |
ATM2D_WRITE_PICKUP_NOW |
INTEGER myThid |
./pkg/atm2d/atm2d_write_pickup.F |
153 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,pass_slp, 1,myIter,myThid ) |
./pkg/atm2d/atm2d_write_pickup.F |
154 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,pass_qnet, 2,myIter,myThid ) |
./pkg/atm2d/atm2d_write_pickup.F |
155 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,pass_solarnet, 3,myIter,myThid ) |
./pkg/atm2d/atm2d_write_pickup.F |
156 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,pass_fu, 4,myIter,myThid ) |
./pkg/atm2d/atm2d_write_pickup.F |
157 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,pass_fv, 5,myIter,myThid ) |
./pkg/atm2d/atm2d_write_pickup.F |
158 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,pass_precip, 6,myIter,myThid ) |
./pkg/atm2d/atm2d_write_pickup.F |
159 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,pass_evap, 7,myIter,myThid ) |
./pkg/atm2d/atm2d_write_pickup.F |
160 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,pass_runoff, 8,myIter,myThid ) |
./pkg/atm2d/atm2d_write_pickup.F |
161 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,pass_wspeed, 9,myIter,myThid ) |
./pkg/atm2d/atm2d_write_pickup.F |
162 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,pass_pCO2, 10,myIter,myThid ) |
./pkg/atm2d/atm2d_write_pickup.F |
163 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,pass_sIceLoad,11,myIter,myThid ) |
./pkg/atm2d/atm2d_write_pickup.F |
165 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,sHeating, 12,myIter,myThid ) |
./pkg/atm2d/atm2d_write_pickup.F |
166 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,flxCndBt, 13,myIter,myThid ) |
./pkg/atm2d/atm2d_write_pickup.F |
167 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,pass_prcAtm, 14,myIter,myThid ) |
./pkg/atm2d/atm2d_write_pickup.F |
168 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,snowPrc, 15,myIter,myThid ) |
./pkg/atm2d/atm2d_write_pickup.F |
169 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,icFrwAtm, 16,myIter,myThid ) |
./pkg/atm2d/atm2d_write_pickup.F |
170 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,icFlxSw, 17,myIter,myThid ) |
./pkg/atm2d/atm2d_write_pickup.F |
171 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,siceAlb, 18,myIter,myThid ) |
./pkg/atm2d/atm2d_write_pickup.F |
42 |
ATM2D_WRITE_PICKUP |
INTEGER myThid |
./pkg/atm2d/atm2d_write_pickup.F |
66 |
ATM2D_WRITE_PICKUP |
I myTime, myIter, myThid ) |
./pkg/atm2d/atm2d_write_pickup.F |
69 |
ATM2D_WRITE_PICKUP |
I myTime, myIter, myThid ) |
./pkg/atm2d/atm2d_write_pickup.F |
83 |
ATM2D_WRITE_PICKUP |
& permCheckPoint, myTime, myIter, myThid ) |
./pkg/atm2d/atm2ocn_main.F |
33 |
ATM2OCN_MAIN |
INTEGER myThid |
./pkg/atm2d/atm2ocn_main.F |
45 |
ATM2OCN_MAIN |
& intime0, intime1, ifTime, myThid) |
./pkg/atm2d/atm2ocn_main.F |
47 |
ATM2OCN_MAIN |
CALL READ_ATMOS( inMonth,myThid) |
./pkg/atm2d/atm2ocn_main.F |
52 |
ATM2OCN_MAIN |
& intime0, intime1, myThid) |
./pkg/atm2d/atm2ocn_main.F |
55 |
ATM2OCN_MAIN |
CALL CALC_1DTO2D( myThid) |
./pkg/atm2d/atm2ocn_main.F |
58 |
ATM2OCN_MAIN |
& intime0,intime1,ifTime,myIter,myThid) |
./pkg/atm2d/atm2ocn_main.F |
61 |
ATM2OCN_MAIN |
& intime0,intime1,ifTime,myIter,myThid) |
./pkg/atm2d/atm2ocn_main.F |
8 |
ATM2OCN_MAIN |
& myIter, myThid ) |
./pkg/atm2d/calc_1dto2d.F |
193 |
INIT_2DFLD |
SUBROUTINE INIT_2DFLD( myThid) |
./pkg/atm2d/calc_1dto2d.F |
208 |
INIT_2DFLD |
INTEGER myThid |
./pkg/atm2d/calc_1dto2d.F |
31 |
CALC_1DTO2D |
INTEGER myThid |
./pkg/atm2d/calc_1dto2d.F |
39 |
CALC_1DTO2D |
CALL INIT_2DFLD(myThid) |
./pkg/atm2d/calc_1dto2d.F |
8 |
CALC_1DTO2D |
SUBROUTINE CALC_1DTO2D( myThid ) |
./eesupp/src/global_max.F |
105 |
GLOBAL_MAX_R8 |
I myThid ) |
./eesupp/src/global_max.F |
137 |
GLOBAL_MAX_R8 |
INTEGER myThid |
./eesupp/src/global_max.F |
151 |
GLOBAL_MAX_R8 |
phiGMR8(1,myThid) = maxPhi |
./eesupp/src/global_max.F |
154 |
GLOBAL_MAX_R8 |
CALL BAR2( myThid ) |
./eesupp/src/global_max.F |
157 |
GLOBAL_MAX_R8 |
_BEGIN_MASTER( myThid ) |
./eesupp/src/global_max.F |
175 |
GLOBAL_MAX_R8 |
_END_MASTER( myThid ) |
./eesupp/src/global_max.F |
178 |
GLOBAL_MAX_R8 |
CALL BAR2( myThid ) |
./eesupp/src/global_max.F |
19 |
GLOBAL_MAX_R4 |
I myThid ) |
./eesupp/src/global_max.F |
51 |
GLOBAL_MAX_R4 |
INTEGER myThid |
./eesupp/src/global_max.F |
65 |
GLOBAL_MAX_R4 |
phiGMR4(1,myThid) = maxPhi |
./eesupp/src/global_max.F |
68 |
GLOBAL_MAX_R4 |
CALL BAR2( myThid ) |
./eesupp/src/global_max.F |
71 |
GLOBAL_MAX_R4 |
_BEGIN_MASTER( myThid ) |
./eesupp/src/global_max.F |
88 |
GLOBAL_MAX_R4 |
_END_MASTER( myThid ) |
./eesupp/src/global_max.F |
90 |
GLOBAL_MAX_R4 |
CALL BAR2( myThid ) |
./pkg/atm2d/calc_fileload.F |
10 |
CALC_FILELOAD |
& ifTime, myThid) |
./pkg/atm2d/calc_fileload.F |
41 |
CALC_FILELOAD |
INTEGER myThid |
./pkg/atm2d/calc_zonal_means.F |
43 |
CALC_ZONAL_MEANS |
INTEGER myThid |
./pkg/atm2d/calc_zonal_means.F |
68 |
CALC_ZONAL_MEANS |
I myTime, myIter, myThid ) |
./pkg/atm2d/calc_zonal_means.F |
8 |
CALC_ZONAL_MEANS |
SUBROUTINE CALC_ZONAL_MEANS(doAll, myTime, myIter, myThid ) |
./pkg/atm2d/fixed_flux_add.F |
103 |
FIXED_FLUX_ADD |
& myIter,myThid ) |
./pkg/atm2d/fixed_flux_add.F |
105 |
FIXED_FLUX_ADD |
& myIter,myThid ) |
./pkg/atm2d/fixed_flux_add.F |
109 |
FIXED_FLUX_ADD |
& myIter,myThid ) |
./pkg/atm2d/fixed_flux_add.F |
111 |
FIXED_FLUX_ADD |
& myIter,myThid ) |
./pkg/atm2d/fixed_flux_add.F |
37 |
FIXED_FLUX_ADD |
INTEGER myThid |
./pkg/atm2d/fixed_flux_add.F |
73 |
FIXED_FLUX_ADD |
& myIter,myThid ) |
./pkg/atm2d/fixed_flux_add.F |
75 |
FIXED_FLUX_ADD |
& myIter,myThid ) |
./pkg/atm2d/fixed_flux_add.F |
79 |
FIXED_FLUX_ADD |
& myIter,myThid ) |
./pkg/atm2d/fixed_flux_add.F |
81 |
FIXED_FLUX_ADD |
& myIter,myThid ) |
./pkg/atm2d/fixed_flux_add.F |
85 |
FIXED_FLUX_ADD |
& myIter,myThid ) |
./pkg/atm2d/fixed_flux_add.F |
87 |
FIXED_FLUX_ADD |
& myIter,myThid ) |
./pkg/atm2d/fixed_flux_add.F |
91 |
FIXED_FLUX_ADD |
& myIter,myThid ) |
./pkg/atm2d/fixed_flux_add.F |
93 |
FIXED_FLUX_ADD |
& myIter,myThid ) |
./pkg/atm2d/fixed_flux_add.F |
97 |
FIXED_FLUX_ADD |
& myIter,myThid ) |
./pkg/atm2d/fixed_flux_add.F |
99 |
FIXED_FLUX_ADD |
& myIter,myThid ) |
./pkg/atm2d/fixed_flux_add.F |
9 |
FIXED_FLUX_ADD |
& intime0, intime1, iftime, myIter, myThid) |
./pkg/atm2d/forward_step_atm2d.F |
156 |
FORWARD_STEP_ATM2D |
CALL GET_OCNVARS( myTime, myIter, myThid) |
./pkg/atm2d/forward_step_atm2d.F |
161 |
FORWARD_STEP_ATM2D |
& myTime, myIter, myThid) |
./pkg/atm2d/forward_step_atm2d.F |
162 |
FORWARD_STEP_ATM2D |
CALL THSICE_AVE( 1,1, myTime, myIter, myThid ) |
./pkg/atm2d/forward_step_atm2d.F |
164 |
FORWARD_STEP_ATM2D |
CALL CALC_ZONAL_MEANS(.TRUE.,myThid) |
./pkg/atm2d/forward_step_atm2d.F |
165 |
FORWARD_STEP_ATM2D |
CALL PUT_OCNVARS(myTime,myIter,myThid) |
./pkg/atm2d/forward_step_atm2d.F |
166 |
FORWARD_STEP_ATM2D |
CALL SUM_YR_END_DIAGS(myTime,myIter,myThid) |
./pkg/atm2d/forward_step_atm2d.F |
176 |
FORWARD_STEP_ATM2D |
CALL ATM2OCN_MAIN(iloop, na, monid, myIter, myThid) |
./pkg/atm2d/forward_step_atm2d.F |
177 |
FORWARD_STEP_ATM2D |
CALL SUM_OCN_FLUXES(myThid) |
./pkg/atm2d/forward_step_atm2d.F |
178 |
FORWARD_STEP_ATM2D |
CALL PASS_THSICE_FLUXES(myThid) |
./pkg/atm2d/forward_step_atm2d.F |
180 |
FORWARD_STEP_ATM2D |
& myTime, myIter, myThid) |
./pkg/atm2d/forward_step_atm2d.F |
181 |
FORWARD_STEP_ATM2D |
CALL SUM_THSICE_OUT(myThid) |
./pkg/atm2d/forward_step_atm2d.F |
182 |
FORWARD_STEP_ATM2D |
CALL CALC_ZONAL_MEANS(.FALSE.,myThid) !just mean Tsrf recalculated |
./pkg/atm2d/forward_step_atm2d.F |
192 |
FORWARD_STEP_ATM2D |
CALL FORWARD_STEP(iloop_ocn, myTime, myIter, myThid ) |
./pkg/atm2d/forward_step_atm2d.F |
196 |
FORWARD_STEP_ATM2D |
CALL DO_THE_MODEL_IO( .FALSE., myTime, myIter, myThid ) |
./pkg/atm2d/forward_step_atm2d.F |
197 |
FORWARD_STEP_ATM2D |
CALL DO_WRITE_PICKUP( .FALSE., myTime, myIter, myThid ) |
./pkg/atm2d/forward_step_atm2d.F |
209 |
FORWARD_STEP_ATM2D |
CALL NORM_OCN_FLUXES(myThid) |
./pkg/atm2d/forward_step_atm2d.F |
210 |
FORWARD_STEP_ATM2D |
CALL ATM2D_WRITE_PICKUP(.FALSE., myTime, myIter, myThid) |
./pkg/atm2d/forward_step_atm2d.F |
272 |
FORWARD_STEP_ATM2D |
CALL MONTH_END_DIAGS( monid, myTime, myIter, myThid) |
./pkg/atm2d/forward_step_atm2d.F |
328 |
FORWARD_STEP_ATM2D |
CALL TAVE_END_DIAGS( taveDump, myTime, myIter, myThid) |
./pkg/atm2d/forward_step_atm2d.F |
330 |
FORWARD_STEP_ATM2D |
CALL TAVE_END_DIAGS( idyear, myTime, myIter, myThid) |
./pkg/atm2d/forward_step_atm2d.F |
332 |
FORWARD_STEP_ATM2D |
CALL YR_END_DIAGS(iyr,myTime,myIter,myThid) |
./pkg/atm2d/forward_step_atm2d.F |
334 |
FORWARD_STEP_ATM2D |
IF (iloop.EQ.nTimeSteps) CALL ATM2D_FINISH(myThid) |
./pkg/atm2d/forward_step_atm2d.F |
36 |
FORWARD_STEP_ATM2D |
INTEGER myThid |
./pkg/atm2d/forward_step_atm2d.F |
9 |
FORWARD_STEP_ATM2D |
SUBROUTINE FORWARD_STEP_ATM2D(iloop, myTime, myIter, myThid) |
./eesupp/src/global_sum.F |
107 |
GLOBAL_SUM_R8 |
I myThid ) |
./eesupp/src/global_sum.F |
137 |
GLOBAL_SUM_R8 |
INTEGER myThid |
./eesupp/src/global_sum.F |
151 |
GLOBAL_SUM_R8 |
phiGSR8(1,myThid) = sumPhi |
./eesupp/src/global_sum.F |
156 |
GLOBAL_SUM_R8 |
CALL BAR2( myThid ) |
./eesupp/src/global_sum.F |
162 |
GLOBAL_SUM_R8 |
_BEGIN_MASTER( myThid ) |
./eesupp/src/global_sum.F |
180 |
GLOBAL_SUM_R8 |
_END_MASTER( myThid ) |
./eesupp/src/global_sum.F |
187 |
GLOBAL_SUM_R8 |
CALL BAR2( myThid ) |
./eesupp/src/global_sum.F |
202 |
GLOBAL_SUM_INT |
I myThid ) |
./eesupp/src/global_sum.F |
20 |
GLOBAL_SUM_R4 |
I myThid ) |
./eesupp/src/global_sum.F |
232 |
GLOBAL_SUM_INT |
INTEGER myThid |
./eesupp/src/global_sum.F |
246 |
GLOBAL_SUM_INT |
phiGSI(1,myThid) = sumPhi |
./eesupp/src/global_sum.F |
252 |
GLOBAL_SUM_INT |
_BEGIN_MASTER( myThid ) |
./eesupp/src/global_sum.F |
270 |
GLOBAL_SUM_INT |
_END_MASTER( myThid ) |
./eesupp/src/global_sum.F |
50 |
GLOBAL_SUM_R4 |
INTEGER myThid |
./eesupp/src/global_sum.F |
64 |
GLOBAL_SUM_R4 |
phiGSR4(1,myThid) = sumPhi |
./eesupp/src/global_sum.F |
67 |
GLOBAL_SUM_R4 |
CALL BAR2( myThid ) |
./eesupp/src/global_sum.F |
70 |
GLOBAL_SUM_R4 |
_BEGIN_MASTER( myThid ) |
./eesupp/src/global_sum.F |
89 |
GLOBAL_SUM_R4 |
_END_MASTER( myThid ) |
./eesupp/src/global_sum.F |
91 |
GLOBAL_SUM_R4 |
CALL BAR2( myThid ) |
./pkg/atm2d/get_ocnvars.F |
44 |
GET_OCNVARS |
INTEGER myThid |
./pkg/atm2d/get_ocnvars.F |
8 |
GET_OCNVARS |
SUBROUTINE GET_OCNVARS( myTime, myIter, myThid ) |
./pkg/atm2d/init_atm2d.F |
208 |
INIT_ATM2D |
CALL MDSFINDUNIT( dUnit, myThid ) |
./pkg/atm2d/init_atm2d.F |
245 |
INIT_ATM2D |
& runoffVal, 0, myThid ) |
./pkg/atm2d/init_atm2d.F |
283 |
INIT_ATM2D |
CALL INIT_SUMVARS(myThid) |
./pkg/atm2d/init_atm2d.F |
44 |
INIT_ATM2D |
INTEGER myThid |
./pkg/atm2d/init_atm2d.F |
8 |
INIT_ATM2D |
SUBROUTINE INIT_ATM2D(dtatm, dtocn, dtcouple, myThid ) |
./pkg/atm2d/init_sumvars.F |
23 |
INIT_SUMVARS |
INTEGER myThid |
./pkg/atm2d/init_sumvars.F |
8 |
INIT_SUMVARS |
SUBROUTINE INIT_SUMVARS( myThid) |
./pkg/atm2d/month_end_diags.F |
100 |
MONTH_END_DIAGS |
& myIter, myThid) |
./pkg/atm2d/month_end_diags.F |
102 |
MONTH_END_DIAGS |
& myIter, myThid) |
./pkg/atm2d/month_end_diags.F |
104 |
MONTH_END_DIAGS |
& myIter, myThid) |
./pkg/atm2d/month_end_diags.F |
30 |
MONTH_END_DIAGS |
INTEGER myThid |
./pkg/atm2d/month_end_diags.F |
84 |
MONTH_END_DIAGS |
& myIter, myThid) |
./pkg/atm2d/month_end_diags.F |
86 |
MONTH_END_DIAGS |
& myIter, myThid) |
./pkg/atm2d/month_end_diags.F |
88 |
MONTH_END_DIAGS |
& myIter, myThid) |
./pkg/atm2d/month_end_diags.F |
8 |
MONTH_END_DIAGS |
SUBROUTINE MONTH_END_DIAGS( monid, myTime, myIter, myThid ) |
./pkg/atm2d/month_end_diags.F |
90 |
MONTH_END_DIAGS |
& myIter, myThid) |
./pkg/atm2d/month_end_diags.F |
92 |
MONTH_END_DIAGS |
& myIter, myThid) |
./pkg/atm2d/month_end_diags.F |
94 |
MONTH_END_DIAGS |
& myIter, myThid) |
./pkg/atm2d/month_end_diags.F |
96 |
MONTH_END_DIAGS |
& myIter, myThid) |
./pkg/atm2d/month_end_diags.F |
98 |
MONTH_END_DIAGS |
& myIter, myThid) |
./pkg/atm2d/norm_ocn_fluxes.F |
30 |
NORM_OCN_FLUXES |
INTEGER myThid |
./pkg/atm2d/norm_ocn_fluxes.F |
83 |
NORM_OCN_FLUXES |
CALL INIT_SUMVARS( myThid) |
./pkg/atm2d/norm_ocn_fluxes.F |
8 |
NORM_OCN_FLUXES |
SUBROUTINE NORM_OCN_FLUXES( myThid ) |
./pkg/atm2d/pass_thsice_fluxes.F |
31 |
PASS_THSICE_FLUXES |
INTEGER myThid |
./pkg/atm2d/pass_thsice_fluxes.F |
8 |
PASS_THSICE_FLUXES |
SUBROUTINE PASS_THSICE_FLUXES( myThid ) |
./pkg/atm2d/put_ocnvars.F |
101 |
PUT_OCNVARS |
_EXCH_XY_RL(AtmospCO2 , myThid ) |
./pkg/atm2d/put_ocnvars.F |
102 |
PUT_OCNVARS |
_EXCH_XY_RL(wind , myThid ) |
./pkg/atm2d/put_ocnvars.F |
42 |
PUT_OCNVARS |
INTEGER myThid |
./pkg/atm2d/put_ocnvars.F |
83 |
PUT_OCNVARS |
CALL EXCH_UV_XY_RS(fu,fv,.TRUE.,myThid) |
./pkg/atm2d/put_ocnvars.F |
84 |
PUT_OCNVARS |
_EXCH_XY_RS(EmPmR, myThid ) !for NL Free surf? |
./pkg/atm2d/put_ocnvars.F |
85 |
PUT_OCNVARS |
_EXCH_XY_RS(saltFlux, myThid ) |
./pkg/atm2d/put_ocnvars.F |
86 |
PUT_OCNVARS |
_EXCH_XY_RS(Qnet, myThid ) |
./pkg/atm2d/put_ocnvars.F |
87 |
PUT_OCNVARS |
_EXCH_XY_RS(Qsw, myThid ) |
./pkg/atm2d/put_ocnvars.F |
8 |
PUT_OCNVARS |
SUBROUTINE PUT_OCNVARS( myTime, myIter, myThid ) |
./pkg/atm2d/put_ocnvars.F |
91 |
PUT_OCNVARS |
_EXCH_XY_RS(pLoad, myThid ) |
./pkg/atm2d/put_ocnvars.F |
92 |
PUT_OCNVARS |
_EXCH_XY_RS( sIceLoad, myThid ) |
./pkg/atm2d/read_atmos.F |
32 |
READ_ATMOS |
INTEGER myThid |
./pkg/atm2d/read_atmos.F |
8 |
READ_ATMOS |
SUBROUTINE READ_ATMOS(inMonth,myThid ) |
./eesupp/src/global_sum_singlecpu.F |
105 |
GLOBAL_SUM_SINGLECPU_RL |
I useExch2GlobLayOut, zeroBuff, myThid ) |
./eesupp/src/global_sum_singlecpu.F |
140 |
GLOBAL_SUM_SINGLECPU_RL |
_END_MASTER( myThid ) |
./eesupp/src/global_sum_singlecpu.F |
142 |
GLOBAL_SUM_SINGLECPU_RL |
CALL BAR2( myThid ) |
./eesupp/src/global_sum_singlecpu.F |
21 |
GLOBAL_SUM_SINGLECPU_RL |
I oLi, oLj, myThid ) |
./eesupp/src/global_sum_singlecpu.F |
54 |
GLOBAL_SUM_SINGLECPU_RL |
INTEGER myThid |
./eesupp/src/global_sum_singlecpu.F |
85 |
GLOBAL_SUM_SINGLECPU_RL |
DO bj = myByLo(myThid), myByHi(myThid) |
./eesupp/src/global_sum_singlecpu.F |
86 |
GLOBAL_SUM_SINGLECPU_RL |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./eesupp/src/global_sum_singlecpu.F |
97 |
GLOBAL_SUM_SINGLECPU_RL |
CALL BAR2( myThid ) |
./eesupp/src/global_sum_singlecpu.F |
98 |
GLOBAL_SUM_SINGLECPU_RL |
_BEGIN_MASTER( myThid ) |
./pkg/atm2d/relax_add.F |
41 |
RELAX_ADD |
INTEGER myThid |
./pkg/atm2d/relax_add.F |
67 |
RELAX_ADD |
& myIter,myThid ) |
./pkg/atm2d/relax_add.F |
69 |
RELAX_ADD |
& myIter,myThid ) |
./pkg/atm2d/relax_add.F |
73 |
RELAX_ADD |
& myIter,myThid ) |
./pkg/atm2d/relax_add.F |
75 |
RELAX_ADD |
& myIter,myThid ) |
./pkg/atm2d/relax_add.F |
9 |
RELAX_ADD |
& intime0, intime1, iftime, myIter, myThid) |
./pkg/atm2d/subtract_means.F |
28 |
SUBTRACT_MEANS |
INTEGER myThid |
./pkg/atm2d/subtract_means.F |
9 |
SUBTRACT_MEANS |
& intime0, intime1, myThid ) |
./pkg/atm2d/sum_ocn_fluxes.F |
33 |
SUM_OCN_FLUXES |
INTEGER myThid |
./pkg/atm2d/sum_ocn_fluxes.F |
8 |
SUM_OCN_FLUXES |
SUBROUTINE SUM_OCN_FLUXES( myThid ) |
./pkg/atm2d/sum_thsice_out.F |
29 |
SUM_THSICE_OUT |
INTEGER myThid |
./pkg/atm2d/sum_thsice_out.F |
8 |
SUM_THSICE_OUT |
SUBROUTINE SUM_THSICE_OUT( myThid ) |
./pkg/atm2d/sum_yr_end_diags.F |
31 |
SUM_YR_END_DIAGS |
INTEGER myThid |
./pkg/atm2d/sum_yr_end_diags.F |
8 |
SUM_YR_END_DIAGS |
SUBROUTINE SUM_YR_END_DIAGS( myTime, myIter, myThid ) |
./pkg/atm2d/tave_end_diags.F |
132 |
TAVE_END_DIAGS |
& qnet_mon, myIter, myThid) |
./pkg/atm2d/tave_end_diags.F |
134 |
TAVE_END_DIAGS |
& evap_mon, myIter, myThid) |
./pkg/atm2d/tave_end_diags.F |
136 |
TAVE_END_DIAGS |
& precip_mon, myIter, myThid) |
./pkg/atm2d/tave_end_diags.F |
138 |
TAVE_END_DIAGS |
& runoff_mon, myIter, myThid) |
./pkg/atm2d/tave_end_diags.F |
140 |
TAVE_END_DIAGS |
& qrel_mon, myIter, myThid) |
./pkg/atm2d/tave_end_diags.F |
142 |
TAVE_END_DIAGS |
& frel_mon, myIter, myThid) |
./pkg/atm2d/tave_end_diags.F |
144 |
TAVE_END_DIAGS |
& iceMask_mon, myIter, myThid) |
./pkg/atm2d/tave_end_diags.F |
146 |
TAVE_END_DIAGS |
& iceHeight_mon, myIter, myThid) |
./pkg/atm2d/tave_end_diags.F |
148 |
TAVE_END_DIAGS |
& iceTime_mon, myIter, myThid) |
./pkg/atm2d/tave_end_diags.F |
150 |
TAVE_END_DIAGS |
& oceMxLT_mon, myIter, myThid) |
./pkg/atm2d/tave_end_diags.F |
152 |
TAVE_END_DIAGS |
& oceMxLS_mon, myIter, myThid) |
./pkg/atm2d/tave_end_diags.F |
158 |
TAVE_END_DIAGS |
& qnet_ann, myIter, myThid) |
./pkg/atm2d/tave_end_diags.F |
160 |
TAVE_END_DIAGS |
& evap_ann, myIter, myThid) |
./pkg/atm2d/tave_end_diags.F |
162 |
TAVE_END_DIAGS |
& precip_ann, myIter, myThid) |
./pkg/atm2d/tave_end_diags.F |
164 |
TAVE_END_DIAGS |
& runoff_ann, myIter, myThid) |
./pkg/atm2d/tave_end_diags.F |
166 |
TAVE_END_DIAGS |
& qrel_ann, myIter, myThid) |
./pkg/atm2d/tave_end_diags.F |
168 |
TAVE_END_DIAGS |
& frel_ann, myIter, myThid) |
./pkg/atm2d/tave_end_diags.F |
31 |
TAVE_END_DIAGS |
INTEGER myThid |
./pkg/atm2d/tave_end_diags.F |
8 |
TAVE_END_DIAGS |
SUBROUTINE TAVE_END_DIAGS( nYears, myTime, myIter, myThid ) |
./pkg/atm2d/yr_end_diags.F |
32 |
YR_END_DIAGS |
INTEGER myThid |
./pkg/atm2d/yr_end_diags.F |
8 |
YR_END_DIAGS |
SUBROUTINE YR_END_DIAGS( iyr, myTime, myIter, myThid ) |
./pkg/atm_common/atm_diagnostics_init.F |
19 |
ATM_DIAGNOSTICS_INIT |
INTEGER myThid |
./pkg/atm_common/atm_diagnostics_init.F |
7 |
ATM_DIAGNOSTICS_INIT |
SUBROUTINE ATM_DIAGNOSTICS_INIT(myThid ) |
./eesupp/src/global_sum_tile.F |
188 |
GLOBAL_SUM_TILE_RL |
_END_MASTER( myThid ) |
./eesupp/src/global_sum_tile.F |
190 |
GLOBAL_SUM_TILE_RL |
CALL BAR2( myThid ) |
./eesupp/src/global_sum_tile.F |
20 |
GLOBAL_SUM_TILE_RL |
I myThid ) |
./eesupp/src/global_sum_tile.F |
47 |
GLOBAL_SUM_TILE_RL |
INTEGER myThid |
./eesupp/src/global_sum_tile.F |
77 |
GLOBAL_SUM_TILE_RL |
DO bj = myByLo(myThid), myByHi(myThid) |
./eesupp/src/global_sum_tile.F |
78 |
GLOBAL_SUM_TILE_RL |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./eesupp/src/global_sum_tile.F |
84 |
GLOBAL_SUM_TILE_RL |
CALL BAR2( myThid ) |
./eesupp/src/global_sum_tile.F |
85 |
GLOBAL_SUM_TILE_RL |
_BEGIN_MASTER( myThid ) |
./eesupp/src/global_vec_sum.F |
106 |
GLOBAL_VEC_SUM_R8 |
I myThid ) |
./eesupp/src/global_vec_sum.F |
126 |
GLOBAL_VEC_SUM_R8 |
INTEGER ndim, nval, myThid |
./eesupp/src/global_vec_sum.F |
144 |
GLOBAL_VEC_SUM_R8 |
_BEGIN_MASTER( myThid ) |
./eesupp/src/global_vec_sum.F |
178 |
GLOBAL_VEC_SUM_R8 |
_END_MASTER( myThid ) |
./eesupp/src/global_vec_sum.F |
192 |
GLOBAL_VEC_SUM_INT |
I myThid ) |
./eesupp/src/global_vec_sum.F |
20 |
GLOBAL_VEC_SUM_R4 |
I myThid ) |
./eesupp/src/global_vec_sum.F |
212 |
GLOBAL_VEC_SUM_INT |
INTEGER ndim, nval, myThid |
./eesupp/src/global_vec_sum.F |
231 |
GLOBAL_VEC_SUM_INT |
_BEGIN_MASTER( myThid ) |
./eesupp/src/global_vec_sum.F |
265 |
GLOBAL_VEC_SUM_INT |
_END_MASTER( myThid ) |
./eesupp/src/global_vec_sum.F |
40 |
GLOBAL_VEC_SUM_R4 |
INTEGER ndim, nval, myThid |
./eesupp/src/global_vec_sum.F |
58 |
GLOBAL_VEC_SUM_R4 |
_BEGIN_MASTER( myThid ) |
./eesupp/src/global_vec_sum.F |
92 |
GLOBAL_VEC_SUM_R4 |
_END_MASTER( myThid ) |
./eesupp/src/gsum.F |
106 |
GSUM_R8 |
IF ( myThid .NE. 1 ) THEN |
./eesupp/src/gsum.F |
109 |
GSUM_R8 |
GSR8_value(curLev,myThid) = myPhi |
./eesupp/src/gsum.F |
10 |
GSUM_R8_INIT |
SUBROUTINE GSUM_R8_INIT( myThid ) |
./eesupp/src/gsum.F |
115 |
GSUM_R8 |
GSR8_value(curLev,myThid) = _NOT_SET_ |
./eesupp/src/gsum.F |
37 |
GSUM_R8_INIT |
INTEGER myThid |
./eesupp/src/gsum.F |
45 |
GSUM_R8_INIT |
GSR8_value(I,myThid) = _NOT_SET_ |
./eesupp/src/gsum.F |
55 |
GSUM_R8 |
SUBROUTINE GSUM_R8( myPhi, answer, myThid ) |
./eesupp/src/gsum.F |
84 |
GSUM_R8 |
INTEGER myThid |
./eesupp/src/ini_communication_patterns.F |
113 |
INI_COMMUNICATION_PATTERNS |
DO bj=myByLo(myThid),myByHi(myThid) |
./eesupp/src/ini_communication_patterns.F |
114 |
INI_COMMUNICATION_PATTERNS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./eesupp/src/ini_communication_patterns.F |
12 |
INI_COMMUNICATION_PATTERNS |
SUBROUTINE INI_COMMUNICATION_PATTERNS( myThid ) |
./eesupp/src/ini_communication_patterns.F |
241 |
INI_COMMUNICATION_PATTERNS |
DO bj=myByLo(myThid),myByHi(myThid) |
./eesupp/src/ini_communication_patterns.F |
242 |
INI_COMMUNICATION_PATTERNS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./eesupp/src/ini_communication_patterns.F |
281 |
INI_COMMUNICATION_PATTERNS |
DO bj=myByLo(myThid),myByHi(myThid) |
./eesupp/src/ini_communication_patterns.F |
282 |
INI_COMMUNICATION_PATTERNS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./eesupp/src/ini_communication_patterns.F |
328 |
INI_COMMUNICATION_PATTERNS |
DO bj=myByLo(myThid),myByHi(myThid) |
./eesupp/src/ini_communication_patterns.F |
329 |
INI_COMMUNICATION_PATTERNS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./eesupp/src/ini_communication_patterns.F |
34 |
INI_COMMUNICATION_PATTERNS |
INTEGER myThid |
./eesupp/src/ini_procs.F |
128 |
INI_PROCS |
myThid = 1 |
./eesupp/src/ini_procs.F |
161 |
INI_PROCS |
CALL PRINT_ERROR( msgBuffer , myThid) |
./eesupp/src/ini_procs.F |
172 |
INI_PROCS |
CALL PRINT_ERROR( msgBuffer , myThid) |
./eesupp/src/ini_procs.F |
220 |
INI_PROCS |
CALL PRINT_ERROR( msgBuffer , myThid) |
./eesupp/src/ini_procs.F |
244 |
INI_PROCS |
CALL PRINT_ERROR( msgBuffer , myThid) |
./eesupp/src/ini_procs.F |
259 |
INI_PROCS |
CALL PRINT_ERROR( msgBuffer , myThid) |
./eesupp/src/ini_procs.F |
274 |
INI_PROCS |
CALL PRINT_ERROR( msgBuffer , myThid) |
./eesupp/src/ini_procs.F |
286 |
INI_PROCS |
CALL PRINT_ERROR( msgBuffer , myThid) |
./eesupp/src/ini_procs.F |
292 |
INI_PROCS |
& SQUEEZE_BOTH , myThid) |
./eesupp/src/ini_procs.F |
296 |
INI_PROCS |
& SQUEEZE_RIGHT , myThid) |
./eesupp/src/ini_procs.F |
301 |
INI_PROCS |
& SQUEEZE_RIGHT , myThid) |
./eesupp/src/ini_procs.F |
306 |
INI_PROCS |
& SQUEEZE_RIGHT , myThid) |
./eesupp/src/ini_procs.F |
310 |
INI_PROCS |
& SQUEEZE_RIGHT , myThid) |
./eesupp/src/ini_procs.F |
314 |
INI_PROCS |
& SQUEEZE_RIGHT , myThid) |
./eesupp/src/ini_procs.F |
318 |
INI_PROCS |
& SQUEEZE_RIGHT , myThid) |
./eesupp/src/ini_procs.F |
322 |
INI_PROCS |
& SQUEEZE_RIGHT , myThid) |
./eesupp/src/ini_procs.F |
354 |
INI_PROCS |
CALL PRINT_ERROR( msgBuffer , myThid) |
./eesupp/src/ini_procs.F |
362 |
INI_PROCS |
CALL PRINT_ERROR( msgBuffer , myThid) |
./eesupp/src/ini_procs.F |
378 |
INI_PROCS |
CALL PRINT_ERROR( msgBuffer , myThid) |
./eesupp/src/ini_procs.F |
386 |
INI_PROCS |
CALL PRINT_ERROR( msgBuffer , myThid) |
./eesupp/src/ini_procs.F |
403 |
INI_PROCS |
CALL PRINT_ERROR( msgBuffer , myThid) |
./eesupp/src/ini_procs.F |
411 |
INI_PROCS |
CALL PRINT_ERROR( msgBuffer , myThid) |
./eesupp/src/ini_procs.F |
425 |
INI_PROCS |
CALL PRINT_ERROR( msgBuffer , myThid) |
./eesupp/src/ini_procs.F |
433 |
INI_PROCS |
CALL PRINT_ERROR( msgBuffer , myThid) |
./eesupp/src/ini_procs.F |
452 |
INI_PROCS |
CALL PRINT_ERROR( msgBuffer , myThid) |
./eesupp/src/ini_procs.F |
460 |
INI_PROCS |
CALL PRINT_ERROR( msgBuffer , myThid) |
./eesupp/src/ini_procs.F |
475 |
INI_PROCS |
CALL PRINT_ERROR( msgBuffer , myThid) |
./eesupp/src/ini_procs.F |
483 |
INI_PROCS |
CALL PRINT_ERROR( msgBuffer , myThid) |
./eesupp/src/ini_procs.F |
499 |
INI_PROCS |
CALL PRINT_ERROR( msgBuffer , myThid) |
./eesupp/src/ini_procs.F |
507 |
INI_PROCS |
CALL PRINT_ERROR( msgBuffer , myThid) |
./eesupp/src/ini_procs.F |
520 |
INI_PROCS |
CALL PRINT_ERROR( msgBuffer , myThid) |
./eesupp/src/ini_procs.F |
528 |
INI_PROCS |
CALL PRINT_ERROR( msgBuffer , myThid) |
./eesupp/src/ini_procs.F |
68 |
INI_PROCS |
INTEGER myThid |
./eesupp/src/ini_procs.F |
74 |
INI_PROCS |
myThid = 1 |
./pkg/autodiff/addamp_adj.F |
10 |
ADDAMP_ADJ |
I fieldRef,adfieldDamp,myThid) |
./pkg/autodiff/addamp_adj.F |
26 |
ADDAMP_ADJ |
integer NrIn, myThid |
./pkg/autodiff/addamp_adj.F |
32 |
ADDAMP_ADJ |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/autodiff/addamp_adj.F |
33 |
ADDAMP_ADJ |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/autodiff/addummy_in_stepping.F |
10 |
ADDUMMY_IN_STEPPING |
subroutine ADDUMMY_IN_STEPPING( mytime, myiter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
153 |
ADDUMMY_IN_STEPPING |
beginIOErrCount = IO_ERRCOUNT(myThid) |
./pkg/autodiff/addummy_in_stepping.F |
156 |
ADDUMMY_IN_STEPPING |
& 'ADJtheta.',suff, adtheta, myIter, myThid) |
./pkg/autodiff/addummy_in_stepping.F |
158 |
ADDUMMY_IN_STEPPING |
& 'ADJsalt.',suff, adsalt, myIter, myThid) |
./pkg/autodiff/addummy_in_stepping.F |
160 |
ADDUMMY_IN_STEPPING |
& 'ADJuvel.',suff, aduvel, myIter, myThid) |
./pkg/autodiff/addummy_in_stepping.F |
162 |
ADDUMMY_IN_STEPPING |
& 'ADJvvel.',suff, advvel, myIter, myThid) |
./pkg/autodiff/addummy_in_stepping.F |
164 |
ADDUMMY_IN_STEPPING |
& 'ADJwvel.',suff, adwvel, myIter, myThid) |
./pkg/autodiff/addummy_in_stepping.F |
166 |
ADDUMMY_IN_STEPPING |
& 'ADJetan.',suff, adetan, myIter, myThid) |
./pkg/autodiff/addummy_in_stepping.F |
169 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RL ( 'ADJtaux.',suff, adfu, myIter, myThid) |
./pkg/autodiff/addummy_in_stepping.F |
170 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RL ( 'ADJtauy.',suff, adfv, myIter, myThid) |
./pkg/autodiff/addummy_in_stepping.F |
171 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RL ( 'ADJqnet.',suff, adqnet, myIter, myThid) |
./pkg/autodiff/addummy_in_stepping.F |
172 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RL ( 'ADJempr.',suff, adempmr, myIter, myThid) |
./pkg/autodiff/addummy_in_stepping.F |
174 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RL ( 'ADJqsw.',suff, adqsw, myIter, myThid) |
./pkg/autodiff/addummy_in_stepping.F |
182 |
ADDUMMY_IN_STEPPING |
& myIter, myThid) |
./pkg/autodiff/addummy_in_stepping.F |
186 |
ADDUMMY_IN_STEPPING |
& myIter, myThid) |
./pkg/autodiff/addummy_in_stepping.F |
190 |
ADDUMMY_IN_STEPPING |
& myIter, myThid) |
./pkg/autodiff/addummy_in_stepping.F |
194 |
ADDUMMY_IN_STEPPING |
& myIter, myThid) |
./pkg/autodiff/addummy_in_stepping.F |
198 |
ADDUMMY_IN_STEPPING |
& 'ADJeddypsix. ',suff, adeddypsix, myIter, myThid) |
./pkg/autodiff/addummy_in_stepping.F |
200 |
ADDUMMY_IN_STEPPING |
& 'ADJeddypsiy. ',suff, adeddypsiy, myIter, myThid) |
./pkg/autodiff/addummy_in_stepping.F |
203 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RL( 'ADJsst.',suff, adsst, myIter, myThid) |
./pkg/autodiff/addummy_in_stepping.F |
206 |
ADDUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RL( 'ADJsss.',suff, adsss, myIter, myThid) |
./pkg/autodiff/addummy_in_stepping.F |
210 |
ADDUMMY_IN_STEPPING |
& adbottomdragfld, myIter, myThid) |
./pkg/autodiff/addummy_in_stepping.F |
218 |
ADDUMMY_IN_STEPPING |
IF ( useSEAICE ) CALL SEAICE_AD_DUMP( mytime, myiter, myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
224 |
ADDUMMY_IN_STEPPING |
CALL MNC_CW_SET_UDIM('adstate', -1, myThid) |
./pkg/autodiff/addummy_in_stepping.F |
225 |
ADDUMMY_IN_STEPPING |
CALL MNC_CW_RL_W_S('D','adstate',0,0,'T',myTime,myThid) |
./pkg/autodiff/addummy_in_stepping.F |
226 |
ADDUMMY_IN_STEPPING |
CALL MNC_CW_SET_UDIM('adstate', 0, myThid) |
./pkg/autodiff/addummy_in_stepping.F |
227 |
ADDUMMY_IN_STEPPING |
CALL MNC_CW_I_W_S('I','adstate',0,0,'iter',myIter,myThid) |
./pkg/autodiff/addummy_in_stepping.F |
229 |
ADDUMMY_IN_STEPPING |
& myThid) |
./pkg/autodiff/addummy_in_stepping.F |
231 |
ADDUMMY_IN_STEPPING |
CALL MNC_CW_RL_W('D','adstate',0,0,'adU', aduVel, myThid) |
./pkg/autodiff/addummy_in_stepping.F |
232 |
ADDUMMY_IN_STEPPING |
CALL MNC_CW_RL_W('D','adstate',0,0,'adV', advVel, myThid) |
./pkg/autodiff/addummy_in_stepping.F |
233 |
ADDUMMY_IN_STEPPING |
CALL MNC_CW_RL_W('D','adstate',0,0,'adT', adtheta, myThid) |
./pkg/autodiff/addummy_in_stepping.F |
234 |
ADDUMMY_IN_STEPPING |
CALL MNC_CW_RL_W('D','adstate',0,0,'adS', adsalt, myThid) |
./pkg/autodiff/addummy_in_stepping.F |
235 |
ADDUMMY_IN_STEPPING |
CALL MNC_CW_RL_W('D','adstate',0,0,'adEta', adetaN, myThid) |
./pkg/autodiff/addummy_in_stepping.F |
236 |
ADDUMMY_IN_STEPPING |
CALL MNC_CW_RL_W('D','adstate',0,0,'adW', adwVel, myThid) |
./pkg/autodiff/addummy_in_stepping.F |
238 |
ADDUMMY_IN_STEPPING |
CALL MNC_CW_RL_W('D','adstate',0,0,'adQnet', adQnet, myThid) |
./pkg/autodiff/addummy_in_stepping.F |
239 |
ADDUMMY_IN_STEPPING |
CALL MNC_CW_RL_W('D','adstate',0,0,'adEmpmr', adEmpmr, myThid) |
./pkg/autodiff/addummy_in_stepping.F |
240 |
ADDUMMY_IN_STEPPING |
CALL MNC_CW_RL_W('D','adstate',0,0,'adFu', adfu, myThid) |
./pkg/autodiff/addummy_in_stepping.F |
241 |
ADDUMMY_IN_STEPPING |
CALL MNC_CW_RL_W('D','adstate',0,0,'adFv', adfv, myThid) |
./pkg/autodiff/addummy_in_stepping.F |
244 |
ADDUMMY_IN_STEPPING |
CALL MNC_CW_RL_W('D','adstate',0,0,'adSST', adsst, myThid) |
./pkg/autodiff/addummy_in_stepping.F |
247 |
ADDUMMY_IN_STEPPING |
CALL MNC_CW_RL_W('D','adstate',0,0,'adSSS', adsss, myThid) |
./pkg/autodiff/addummy_in_stepping.F |
251 |
ADDUMMY_IN_STEPPING |
& 'adDiffkr', addiffkr, myThid) |
./pkg/autodiff/addummy_in_stepping.F |
255 |
ADDUMMY_IN_STEPPING |
& 'adkapgm', adkapgm, myThid) |
./pkg/autodiff/addummy_in_stepping.F |
259 |
ADDUMMY_IN_STEPPING |
& 'adkapredi', adkapredi, myThid) |
./pkg/autodiff/addummy_in_stepping.F |
267 |
ADDUMMY_IN_STEPPING |
call TIMER_STOP( 'I/O (WRITE) [ADJOINT LOOP]', myThid ) |
./pkg/autodiff/addummy_in_stepping.F |
51 |
ADDUMMY_IN_STEPPING |
integer myThid |
./pkg/autodiff/addummy_in_stepping.F |
72 |
ADDUMMY_IN_STEPPING |
call TIMER_START('I/O (WRITE) [ADJOINT LOOP]', myThid ) |
./pkg/autodiff/adread_adwrite.F |
145 |
ADREAD |
& CALL DEBUG_ENTER('ADREAD',myThid) |
./pkg/autodiff/adread_adwrite.F |
195 |
ADREAD |
& SQUEEZE_RIGHT , myThid) |
./pkg/autodiff/adread_adwrite.F |
201 |
ADREAD |
by = myByLo(myThid) |
./pkg/autodiff/adread_adwrite.F |
202 |
ADREAD |
bx = myBxLo(myThid) |
./pkg/autodiff/adread_adwrite.F |
208 |
ADREAD |
& SQUEEZE_RIGHT , myThid) |
./pkg/autodiff/adread_adwrite.F |
222 |
ADREAD |
& CALL DEBUG_LEAVE('ADREAD',myThid) |
./pkg/autodiff/adread_adwrite.F |
313 |
ADWRITE |
& CALL DEBUG_ENTER('ADWRITE',myThid) |
./pkg/autodiff/adread_adwrite.F |
340 |
ADWRITE |
& SQUEEZE_RIGHT , myThid) |
./pkg/autodiff/adread_adwrite.F |
356 |
ADWRITE |
& SQUEEZE_RIGHT , myThid) |
./pkg/autodiff/adread_adwrite.F |
364 |
ADWRITE |
by = myByLo(myThid) |
./pkg/autodiff/adread_adwrite.F |
365 |
ADWRITE |
bx = myBxLo(myThid) |
./pkg/autodiff/adread_adwrite.F |
371 |
ADWRITE |
& SQUEEZE_RIGHT , myThid) |
./pkg/autodiff/adread_adwrite.F |
385 |
ADWRITE |
& CALL DEBUG_LEAVE('ADWRITE',myThid) |
./pkg/autodiff/adzero_adj.F |
100 |
ADZERO_ADJ |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/autodiff/adzero_adj.F |
25 |
ADZERO_ADJ_1D |
integer NrIn,myThid |
./pkg/autodiff/adzero_adj.F |
41 |
ADZERO_ADJ_LOC |
I NrIn, adFieldFwd, myThid) |
./pkg/autodiff/adzero_adj.F |
57 |
ADZERO_ADJ_LOC |
integer NrIn,myThid |
./pkg/autodiff/adzero_adj.F |
77 |
ADZERO_ADJ |
I NrIn, adFieldFwd, myThid) |
./pkg/autodiff/adzero_adj.F |
93 |
ADZERO_ADJ |
integer NrIn,myThid |
./pkg/autodiff/adzero_adj.F |
99 |
ADZERO_ADJ |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/autodiff/adzero_adj.F |
9 |
ADZERO_ADJ_1D |
I NrIn, adFieldFwd, myThid) |
./eesupp/src/ini_threading_environment.F |
101 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_ERROR(msgBuf, myThid) |
./eesupp/src/ini_threading_environment.F |
121 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_ERROR(msgBuf, myThid) |
./eesupp/src/ini_threading_environment.F |
131 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_ERROR(msgBuf, myThid) |
./eesupp/src/ini_threading_environment.F |
141 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_ERROR(msgBuf, myThid) |
./eesupp/src/ini_threading_environment.F |
293 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_ERROR( msgBuf, myThid ) |
./eesupp/src/ini_threading_environment.F |
311 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_ERROR( msgBuf, myThid ) |
./eesupp/src/ini_threading_environment.F |
59 |
INI_THREADING_ENVIRONMENT |
INTEGER myThid |
./eesupp/src/ini_threading_environment.F |
77 |
INI_THREADING_ENVIRONMENT |
myThid = 1 |
./eesupp/src/ini_threading_environment.F |
97 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_ERROR(msgBuf, myThid) |
./pkg/autodiff/autodiff_check.F |
11 |
AUTODIFF_CHECK |
SUBROUTINE AUTODIFF_CHECK( myThid ) |
./pkg/autodiff/autodiff_check.F |
27 |
AUTODIFF_CHECK |
INTEGER myThid |
./pkg/autodiff/autodiff_inadmode_set.F |
19 |
AUTODIFF_INADMODE_SET |
integer myThid |
./pkg/autodiff/autodiff_inadmode_set.F |
6 |
AUTODIFF_INADMODE_SET |
subroutine AUTODIFF_INADMODE_SET( myThid ) |
./pkg/autodiff/autodiff_inadmode_set_ad.F |
19 |
ADAUTODIFF_INADMODE_SET |
integer myThid |
./pkg/autodiff/autodiff_inadmode_set_ad.F |
6 |
ADAUTODIFF_INADMODE_SET |
subroutine ADAUTODIFF_INADMODE_SET( myThid ) |
./pkg/autodiff/autodiff_inadmode_set_g.F |
19 |
G_AUTODIFF_INADMODE_SET |
integer myThid |
./pkg/autodiff/autodiff_inadmode_set_g.F |
6 |
G_AUTODIFF_INADMODE_SET |
subroutine G_AUTODIFF_INADMODE_SET( myThid ) |
./pkg/autodiff/autodiff_inadmode_unset.F |
19 |
AUTODIFF_INADMODE_UNSET |
integer myThid |
./pkg/autodiff/autodiff_inadmode_unset.F |
6 |
AUTODIFF_INADMODE_UNSET |
subroutine AUTODIFF_INADMODE_UNSET( myThid ) |
./pkg/autodiff/autodiff_inadmode_unset_ad.F |
19 |
ADAUTODIFF_INADMODE_UNSET |
integer myThid |
./pkg/autodiff/autodiff_inadmode_unset_ad.F |
6 |
ADAUTODIFF_INADMODE_UNSET |
subroutine ADAUTODIFF_INADMODE_UNSET( myThid ) |
./pkg/autodiff/autodiff_inadmode_unset_g.F |
19 |
G_AUTODIFF_INADMODE_UNSET |
integer myThid |
./pkg/autodiff/autodiff_inadmode_unset_g.F |
6 |
G_AUTODIFF_INADMODE_UNSET |
subroutine G_AUTODIFF_INADMODE_UNSET( myThid ) |
./pkg/autodiff/autodiff_ini_model_io.F |
100 |
AUTODIFF_INI_MODEL_IO |
& 'adjoint net upward freshwater flux', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
102 |
AUTODIFF_INI_MODEL_IO |
& 'coordinates','XC YC RC iter', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
104 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_ADD_VNAME( 'adFu', 'Cen_xy_Hn__-__t', 3,4, myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
106 |
AUTODIFF_INI_MODEL_IO |
& 'units','[cost]/[N/m^2]', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
108 |
AUTODIFF_INI_MODEL_IO |
& 'adjoint zonal wind stress', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
110 |
AUTODIFF_INI_MODEL_IO |
& 'coordinates','XC YC RC iter', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
112 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_ADD_VNAME( 'adFv', 'Cen_xy_Hn__-__t', 3,4, myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
114 |
AUTODIFF_INI_MODEL_IO |
& 'units','[cost]/[N/m^2]', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
116 |
AUTODIFF_INI_MODEL_IO |
& 'adjoint zonal meridional stress', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
118 |
AUTODIFF_INI_MODEL_IO |
& 'coordinates','XC YC RC iter', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
121 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_ADD_VNAME( 'adSST', 'Cen_xy_Hn__-__t', 3,4, myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
123 |
AUTODIFF_INI_MODEL_IO |
& 'units','[cost]/[degC]', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
125 |
AUTODIFF_INI_MODEL_IO |
& 'adjoint sea_surface_temperature', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
127 |
AUTODIFF_INI_MODEL_IO |
& 'coordinates','XC YC RC iter', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
131 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_ADD_VNAME( 'adSSS', 'Cen_xy_Hn__-__t', 3,4, myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
133 |
AUTODIFF_INI_MODEL_IO |
& 'units','[cost]/[psu]', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
135 |
AUTODIFF_INI_MODEL_IO |
& 'adjoint sea_surface_salinity', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
137 |
AUTODIFF_INI_MODEL_IO |
& 'coordinates','XC YC RC iter', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
141 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_ADD_VNAME('adDiffkr', 'Cen_xy_Hn__C__t', 4,5, myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
143 |
AUTODIFF_INI_MODEL_IO |
& 'units','[cost]/[m^2/s]', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
145 |
AUTODIFF_INI_MODEL_IO |
& 'long_name','adjoint vertical diffusion', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
147 |
AUTODIFF_INI_MODEL_IO |
& 'coordinates','XC YC RC iter', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
151 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_ADD_VNAME('adkapgm', 'Cen_xy_Hn__C__t', 4,5, myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
153 |
AUTODIFF_INI_MODEL_IO |
& 'units','[cost]/[m^2/s]', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
155 |
AUTODIFF_INI_MODEL_IO |
& 'long_name','adjoint isopycnal diffusion', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
157 |
AUTODIFF_INI_MODEL_IO |
& 'coordinates','XC YC RC iter', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
161 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_ADD_VNAME('adkapredi', 'Cen_xy_Hn__C__t', 4,5, myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
163 |
AUTODIFF_INI_MODEL_IO |
& 'units','[cost]/[m^2/s]', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
165 |
AUTODIFF_INI_MODEL_IO |
& 'long_name','adjoint isopycnal diffusion', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
167 |
AUTODIFF_INI_MODEL_IO |
& 'coordinates','XC YC RC iter', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
172 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_ADD_VNAME('adustress', 'Cen_xy_Hn__-__t', 3,4, myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
174 |
AUTODIFF_INI_MODEL_IO |
& 'units','[cost]/[N/m^2]', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
176 |
AUTODIFF_INI_MODEL_IO |
& 'adjoint zonal wind stress', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
178 |
AUTODIFF_INI_MODEL_IO |
& 'coordinates','XC YC RC iter', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
17 |
AUTODIFF_INI_MODEL_IO |
SUBROUTINE AUTODIFF_INI_MODEL_IO( myThid ) |
./pkg/autodiff/autodiff_ini_model_io.F |
180 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_ADD_VNAME('advstress', 'Cen_xy_Hn__-__t', 3,4, myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
182 |
AUTODIFF_INI_MODEL_IO |
& 'units','[cost]/[N/m^2]', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
184 |
AUTODIFF_INI_MODEL_IO |
& 'adjoint meridional wind stress', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
186 |
AUTODIFF_INI_MODEL_IO |
& 'coordinates','XC YC RC iter', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
188 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_ADD_VNAME('adhflux', 'Cen_xy_Hn__-__t', 3,4, myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
190 |
AUTODIFF_INI_MODEL_IO |
& 'units','[cost]/[W/m^2]', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
192 |
AUTODIFF_INI_MODEL_IO |
& 'adjoint net upward heat flux', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
194 |
AUTODIFF_INI_MODEL_IO |
& 'coordinates','XC YC RC iter', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
196 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_ADD_VNAME('adsflux', 'Cen_xy_Hn__-__t', 3,4, myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
198 |
AUTODIFF_INI_MODEL_IO |
& 'units','[cost]/[m/s]', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
200 |
AUTODIFF_INI_MODEL_IO |
& 'adjoint net upward freshwater flux', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
202 |
AUTODIFF_INI_MODEL_IO |
& 'coordinates','XC YC RC iter', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
205 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_ADD_VNAME('adatemp', 'Cen_xy_Hn__-__t', 3,4, myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
207 |
AUTODIFF_INI_MODEL_IO |
& 'units','[cost]/[degK]', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
209 |
AUTODIFF_INI_MODEL_IO |
& 'adjoint surface air temperature', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
211 |
AUTODIFF_INI_MODEL_IO |
& 'coordinates','XC YC RC iter', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
213 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_ADD_VNAME('adaqh', 'Cen_xy_Hn__-__t', 3,4, myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
215 |
AUTODIFF_INI_MODEL_IO |
& 'units','[cost]/[kg/kg]', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
217 |
AUTODIFF_INI_MODEL_IO |
& 'adjoint specific humidity', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
219 |
AUTODIFF_INI_MODEL_IO |
& 'coordinates','XC YC RC iter', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
221 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_ADD_VNAME('adprecip', 'Cen_xy_Hn__-__t', 3,4, myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
223 |
AUTODIFF_INI_MODEL_IO |
& 'units','[cost]/[m/s]', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
225 |
AUTODIFF_INI_MODEL_IO |
& 'adjoint precipitation', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
227 |
AUTODIFF_INI_MODEL_IO |
& 'coordinates','XC YC RC iter', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
231 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_ADD_VNAME('aduwind', 'Cen_xy_Hn__-__t', 3,4, myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
233 |
AUTODIFF_INI_MODEL_IO |
& 'units','[cost]/[m/s]', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
235 |
AUTODIFF_INI_MODEL_IO |
& 'adjoint zonal wind speed', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
237 |
AUTODIFF_INI_MODEL_IO |
& 'coordinates','XC YC RC iter', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
239 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_ADD_VNAME('advwind', 'Cen_xy_Hn__-__t', 3,4, myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
241 |
AUTODIFF_INI_MODEL_IO |
& 'units','[cost]/[m/s]', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
243 |
AUTODIFF_INI_MODEL_IO |
& 'adjoint meridional wind speed', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
245 |
AUTODIFF_INI_MODEL_IO |
& 'coordinates','XC YC RC iter', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
248 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_ADD_VNAME('adswdown', 'Cen_xy_Hn__-__t', 3,4, myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
250 |
AUTODIFF_INI_MODEL_IO |
& 'units','[cost]/[W/m^2]', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
252 |
AUTODIFF_INI_MODEL_IO |
& 'adjoint downward shortwave radiation', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
254 |
AUTODIFF_INI_MODEL_IO |
& 'coordinates','XC YC RC iter', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
257 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_ADD_VNAME('adclimsst', 'Cen_xy_Hn__-__t', 3,4, myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
259 |
AUTODIFF_INI_MODEL_IO |
& 'units','[cost]/[degC]', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
261 |
AUTODIFF_INI_MODEL_IO |
& 'adjoint sea surface temperature', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
263 |
AUTODIFF_INI_MODEL_IO |
& 'coordinates','XC YC RC iter', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
266 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_ADD_VNAME('adclimsss', 'Cen_xy_Hn__-__t', 3,4, myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
268 |
AUTODIFF_INI_MODEL_IO |
& 'units','[cost]/[ppt]', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
270 |
AUTODIFF_INI_MODEL_IO |
& 'adjoint sea surface salinity', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
272 |
AUTODIFF_INI_MODEL_IO |
& 'coordinates','XC YC RC iter', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
279 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_ADD_VNAME('adarea', 'Cen_xy_Hn__-__t', 3,4, myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
281 |
AUTODIFF_INI_MODEL_IO |
& 'units','[cost]/[m^2/m^2]', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
283 |
AUTODIFF_INI_MODEL_IO |
& 'adjoint fractional ice-covered area', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
285 |
AUTODIFF_INI_MODEL_IO |
& 'coordinates','XC YC RC iter', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
287 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_ADD_VNAME('adheff', 'Cen_xy_Hn__-__t', 3,4, myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
289 |
AUTODIFF_INI_MODEL_IO |
& 'units','[cost]/[m]', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
291 |
AUTODIFF_INI_MODEL_IO |
& 'adjoint effective ice thickness', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
293 |
AUTODIFF_INI_MODEL_IO |
& 'coordinates','XC YC RC iter', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
295 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_ADD_VNAME('adhsnow', 'Cen_xy_Hn__-__t', 3,4, myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
297 |
AUTODIFF_INI_MODEL_IO |
& 'units','[cost]/[m]', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
299 |
AUTODIFF_INI_MODEL_IO |
& 'adjoint snow thickness', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
301 |
AUTODIFF_INI_MODEL_IO |
& 'coordinates','XC YC RC iter', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
304 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_ADD_VNAME('aduice', 'U_xy_Hn__-__t', 3,4, myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
306 |
AUTODIFF_INI_MODEL_IO |
& 'units','[cost]/[m/s]', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
308 |
AUTODIFF_INI_MODEL_IO |
& 'adjoint zonal ice velocity', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
310 |
AUTODIFF_INI_MODEL_IO |
& 'coordinates','XG YG RC iter', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
312 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_ADD_VNAME('advice', 'V_xy_Hn__-__t', 3,4, myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
314 |
AUTODIFF_INI_MODEL_IO |
& 'units','[cost]/[m/s]', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
316 |
AUTODIFF_INI_MODEL_IO |
& 'adjoint meridional ice velocity', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
318 |
AUTODIFF_INI_MODEL_IO |
& 'coordinates','XG YG RC iter', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
38 |
AUTODIFF_INI_MODEL_IO |
INTEGER myThid |
./pkg/autodiff/autodiff_ini_model_io.F |
46 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_ADD_VNAME('adU', 'U_xy_Hn__C__t', 4,5, myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
47 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_ADD_VATTR_TEXT('adU','units','[cost]/[m/s]', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
49 |
AUTODIFF_INI_MODEL_IO |
& 'adjoint zonal velocity', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
51 |
AUTODIFF_INI_MODEL_IO |
& 'coordinates','XU YU RC iter', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
53 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_ADD_VNAME('adV', 'V_xy_Hn__C__t', 4,5, myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
54 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_ADD_VATTR_TEXT('adV','units','[cost]/[m/s]', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
56 |
AUTODIFF_INI_MODEL_IO |
& 'adjoint merid. velocity', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
58 |
AUTODIFF_INI_MODEL_IO |
& 'coordinates','XV YV RC iter', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
60 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_ADD_VNAME('adT', 'Cen_xy_Hn__C__t', 4,5, myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
61 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_ADD_VATTR_TEXT('adT','units','[cost]/[degC]', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
63 |
AUTODIFF_INI_MODEL_IO |
& 'adjoint potential_temperature', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
65 |
AUTODIFF_INI_MODEL_IO |
& 'coordinates','XC YC RC iter', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
67 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_ADD_VNAME('adS', 'Cen_xy_Hn__C__t', 4,5, myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
68 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_ADD_VATTR_TEXT('adS','units','[cost]/[psu]', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
70 |
AUTODIFF_INI_MODEL_IO |
& 'adjoint salinity', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
72 |
AUTODIFF_INI_MODEL_IO |
& 'coordinates','XC YC RC iter', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
74 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_ADD_VNAME('adEta', 'Cen_xy_Hn__-__t', 3,4, myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
75 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_ADD_VATTR_TEXT('adEta','units','[cost]/[m]', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
77 |
AUTODIFF_INI_MODEL_IO |
& 'adjoint free-surface_r-anomaly', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
79 |
AUTODIFF_INI_MODEL_IO |
& 'coordinates','XC YC RC iter', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
81 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_ADD_VNAME('adW', 'Cen_xy_Hn__C__t', 4,5, myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
82 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_ADD_VATTR_TEXT('adW','units','[cost]/[m/s]', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
84 |
AUTODIFF_INI_MODEL_IO |
& 'adjoint vertical velocity', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
86 |
AUTODIFF_INI_MODEL_IO |
& 'coordinates','XC YC RC iter', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
88 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_ADD_VNAME('adQnet', 'Cen_xy_Hn__-__t', 3,4, myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
90 |
AUTODIFF_INI_MODEL_IO |
& 'units','[cost]/[W/m^2]', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
92 |
AUTODIFF_INI_MODEL_IO |
& 'adjoint net upward heat flux', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
94 |
AUTODIFF_INI_MODEL_IO |
& 'coordinates','XC YC RC iter', myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
96 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_ADD_VNAME('adEmpmr', 'Cen_xy_Hn__-__t', 3,4, myThid) |
./pkg/autodiff/autodiff_ini_model_io.F |
98 |
AUTODIFF_INI_MODEL_IO |
& 'units','[cost]/[m/s]', myThid) |
./pkg/autodiff/autodiff_restore.F |
169 |
AUTODIFF_RESTORE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/autodiff/autodiff_restore.F |
170 |
AUTODIFF_RESTORE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/autodiff/autodiff_restore.F |
212 |
AUTODIFF_RESTORE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/autodiff/autodiff_restore.F |
213 |
AUTODIFF_RESTORE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/autodiff/autodiff_restore.F |
254 |
AUTODIFF_RESTORE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/autodiff/autodiff_restore.F |
255 |
AUTODIFF_RESTORE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/autodiff/autodiff_restore.F |
308 |
AUTODIFF_RESTORE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/autodiff/autodiff_restore.F |
309 |
AUTODIFF_RESTORE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/autodiff/autodiff_restore.F |
341 |
AUTODIFF_RESTORE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/autodiff/autodiff_restore.F |
342 |
AUTODIFF_RESTORE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/autodiff/autodiff_restore.F |
374 |
AUTODIFF_RESTORE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/autodiff/autodiff_restore.F |
375 |
AUTODIFF_RESTORE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/autodiff/autodiff_restore.F |
407 |
AUTODIFF_RESTORE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/autodiff/autodiff_restore.F |
408 |
AUTODIFF_RESTORE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/autodiff/autodiff_restore.F |
441 |
AUTODIFF_RESTORE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/autodiff/autodiff_restore.F |
442 |
AUTODIFF_RESTORE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/autodiff/autodiff_restore.F |
486 |
AUTODIFF_RESTORE |
& CALL DEBUG_LEAVE('AUTODIFF_RESTORE',myThid) |
./pkg/autodiff/autodiff_restore.F |
84 |
AUTODIFF_RESTORE |
& CALL DEBUG_ENTER('AUTODIFF_RESTORE',myThid) |
./pkg/autodiff/autodiff_restore.F |
88 |
AUTODIFF_RESTORE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/autodiff/autodiff_restore.F |
89 |
AUTODIFF_RESTORE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/autodiff/autodiff_store.F |
179 |
AUTODIFF_STORE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/autodiff/autodiff_store.F |
180 |
AUTODIFF_STORE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/autodiff/autodiff_store.F |
238 |
AUTODIFF_STORE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/autodiff/autodiff_store.F |
239 |
AUTODIFF_STORE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/autodiff/autodiff_store.F |
291 |
AUTODIFF_STORE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/autodiff/autodiff_store.F |
292 |
AUTODIFF_STORE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/autodiff/autodiff_store.F |
375 |
AUTODIFF_STORE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/autodiff/autodiff_store.F |
376 |
AUTODIFF_STORE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/autodiff/autodiff_store.F |
417 |
AUTODIFF_STORE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/autodiff/autodiff_store.F |
418 |
AUTODIFF_STORE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/autodiff/autodiff_store.F |
459 |
AUTODIFF_STORE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/autodiff/autodiff_store.F |
460 |
AUTODIFF_STORE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/autodiff/autodiff_store.F |
501 |
AUTODIFF_STORE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/autodiff/autodiff_store.F |
502 |
AUTODIFF_STORE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/autodiff/autodiff_store.F |
544 |
AUTODIFF_STORE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/autodiff/autodiff_store.F |
545 |
AUTODIFF_STORE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/autodiff/autodiff_store.F |
612 |
AUTODIFF_STORE |
& CALL DEBUG_LEAVE('AUTODIFF_STORE',myThid) |
./pkg/autodiff/autodiff_store.F |
84 |
AUTODIFF_STORE |
& CALL DEBUG_ENTER('AUTODIFF_STORE',myThid) |
./pkg/autodiff/autodiff_store.F |
88 |
AUTODIFF_STORE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/autodiff/autodiff_store.F |
89 |
AUTODIFF_STORE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./eesupp/src/lef_zero.F |
21 |
LEF_ZERO |
INTEGER myThid |
./eesupp/src/lef_zero.F |
27 |
LEF_ZERO |
DO bj = myByLo(myThid), myByHi(myThid) |
./eesupp/src/lef_zero.F |
28 |
LEF_ZERO |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./eesupp/src/lef_zero.F |
9 |
LEF_ZERO |
SUBROUTINE LEF_ZERO( arr ,myThid ) |
./pkg/autodiff/damp_adj.F |
10 |
DAMP_ADJ |
I fieldRef,fieldDamp,myThid) |
./pkg/autodiff/damp_adj.F |
26 |
DAMP_ADJ |
INTEGER NrIn, myThid |
./pkg/autodiff/dummy_in_stepping.F |
19 |
DUMMY_IN_STEPPING |
integer myThid |
./pkg/autodiff/dummy_in_stepping.F |
23 |
DUMMY_IN_STEPPING |
call TIMER_START('I/O (WRITE) [ADJOINT LOOP]', myThid ) |
./pkg/autodiff/dummy_in_stepping.F |
25 |
DUMMY_IN_STEPPING |
call TIMER_STOP( 'I/O (WRITE) [ADJOINT LOOP]', myThid ) |
./pkg/autodiff/dummy_in_stepping.F |
6 |
DUMMY_IN_STEPPING |
subroutine DUMMY_IN_STEPPING( mytime, myiter, myThid ) |
./pkg/autodiff/g_dummy_in_stepping.F |
101 |
G_DUMMY_IN_STEPPING |
& 'G_Jetan.',suff, g_etan, myIter, myThid) |
./pkg/autodiff/g_dummy_in_stepping.F |
105 |
G_DUMMY_IN_STEPPING |
& myIter, myThid) |
./pkg/autodiff/g_dummy_in_stepping.F |
109 |
G_DUMMY_IN_STEPPING |
& myIter, myThid) |
./pkg/autodiff/g_dummy_in_stepping.F |
113 |
G_DUMMY_IN_STEPPING |
& myIter, myThid) |
./pkg/autodiff/g_dummy_in_stepping.F |
121 |
G_DUMMY_IN_STEPPING |
& 'G_Jphihyd.',suff, g_totphihyd, myIter, myThid) |
./pkg/autodiff/g_dummy_in_stepping.F |
125 |
G_DUMMY_IN_STEPPING |
endIOErrCount = IO_ERRCOUNT(myThid) |
./pkg/autodiff/g_dummy_in_stepping.F |
145 |
G_DUMMY_IN_STEPPING |
_END_MASTER( myThid ) |
./pkg/autodiff/g_dummy_in_stepping.F |
150 |
G_DUMMY_IN_STEPPING |
call TIMER_STOP( 'I/O (WRITE) [ADJOINT LOOP]', myThid ) |
./pkg/autodiff/g_dummy_in_stepping.F |
46 |
G_DUMMY_IN_STEPPING |
integer myThid |
./pkg/autodiff/g_dummy_in_stepping.F |
67 |
G_DUMMY_IN_STEPPING |
call TIMER_START('I/O (WRITE) [ADJOINT LOOP]', myThid ) |
./pkg/autodiff/g_dummy_in_stepping.F |
76 |
G_DUMMY_IN_STEPPING |
_BEGIN_MASTER( myThid ) |
./pkg/autodiff/g_dummy_in_stepping.F |
83 |
G_DUMMY_IN_STEPPING |
beginIOErrCount = IO_ERRCOUNT(myThid) |
./pkg/autodiff/g_dummy_in_stepping.F |
85 |
G_DUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RL ( 'G_Jtaux.',suff, g_fu, myIter, myThid) |
./pkg/autodiff/g_dummy_in_stepping.F |
86 |
G_DUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RL ( 'G_Jtauy.',suff, g_fv, myIter, myThid) |
./pkg/autodiff/g_dummy_in_stepping.F |
87 |
G_DUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RL ( 'G_Jqnet.',suff, g_qnet, myIter, myThid) |
./pkg/autodiff/g_dummy_in_stepping.F |
88 |
G_DUMMY_IN_STEPPING |
CALL WRITE_FLD_XY_RL ( 'G_Jempr.',suff, g_empmr, myIter, myThid) |
./pkg/autodiff/g_dummy_in_stepping.F |
91 |
G_DUMMY_IN_STEPPING |
& 'G_Jtheta.',suff, g_theta, myIter, myThid) |
./pkg/autodiff/g_dummy_in_stepping.F |
93 |
G_DUMMY_IN_STEPPING |
& 'G_Jsalt.',suff, g_salt, myIter, myThid) |
./pkg/autodiff/g_dummy_in_stepping.F |
95 |
G_DUMMY_IN_STEPPING |
& 'G_Juvel.',suff, g_uvel, myIter, myThid) |
./pkg/autodiff/g_dummy_in_stepping.F |
97 |
G_DUMMY_IN_STEPPING |
& 'G_Jvvel.',suff, g_vvel, myIter, myThid) |
./pkg/autodiff/g_dummy_in_stepping.F |
99 |
G_DUMMY_IN_STEPPING |
& 'G_Jwvel.',suff, g_wvel, myIter, myThid) |
./pkg/autodiff/g_dummy_in_stepping.F |
9 |
G_DUMMY_IN_STEPPING |
subroutine G_DUMMY_IN_STEPPING( mytime, myiter, myThid ) |
./pkg/autodiff/global_max_ad.F |
102 |
GLOBAL_ADMAX_R4 |
_END_MASTER( myThid ) |
./pkg/autodiff/global_max_ad.F |
104 |
GLOBAL_ADMAX_R4 |
CALL BAR2( myThid ) |
./pkg/autodiff/global_max_ad.F |
119 |
GLOBAL_ADMAX_R8 |
I myThid, |
./pkg/autodiff/global_max_ad.F |
125 |
GLOBAL_ADMAX_R8 |
I myThid |
./pkg/autodiff/global_max_ad.F |
159 |
GLOBAL_ADMAX_R8 |
INTEGER myThid |
./pkg/autodiff/global_max_ad.F |
173 |
GLOBAL_ADMAX_R8 |
phiGMR8(1,myThid) = maxPhi |
./pkg/autodiff/global_max_ad.F |
176 |
GLOBAL_ADMAX_R8 |
CALL BAR2( myThid ) |
./pkg/autodiff/global_max_ad.F |
179 |
GLOBAL_ADMAX_R8 |
_BEGIN_MASTER( myThid ) |
./pkg/autodiff/global_max_ad.F |
197 |
GLOBAL_ADMAX_R8 |
_END_MASTER( myThid ) |
./pkg/autodiff/global_max_ad.F |
200 |
GLOBAL_ADMAX_R8 |
CALL BAR2( myThid ) |
./pkg/autodiff/global_max_ad.F |
25 |
GLOBAL_ADMAX_R4 |
I myThid, |
./pkg/autodiff/global_max_ad.F |
31 |
GLOBAL_ADMAX_R4 |
I myThid |
./pkg/autodiff/global_max_ad.F |
65 |
GLOBAL_ADMAX_R4 |
INTEGER myThid |
./pkg/autodiff/global_max_ad.F |
79 |
GLOBAL_ADMAX_R4 |
phiGMR4(1,myThid) = maxPhi |
./pkg/autodiff/global_max_ad.F |
82 |
GLOBAL_ADMAX_R4 |
CALL BAR2( myThid ) |
./pkg/autodiff/global_max_ad.F |
85 |
GLOBAL_ADMAX_R4 |
_BEGIN_MASTER( myThid ) |
./eesupp/src/main.F |
119 |
NO PROCEDURE |
INTEGER myThid |
./eesupp/src/main.F |
178 |
NO PROCEDURE |
myThid = I |
./eesupp/src/main.F |
182 |
NO PROCEDURE |
CALL CHECK_THREADS( myThid ) |
./eesupp/src/main.F |
188 |
NO PROCEDURE |
CALL ADMTLM_DSVD(myThid) |
./eesupp/src/main.F |
190 |
NO PROCEDURE |
CALL THE_MODEL_MAIN(myThid) |
./eesupp/src/main.F |
195 |
NO PROCEDURE |
threadIsComplete(myThid) = .TRUE. |
./eesupp/src/main.F |
229 |
PTREENTRY |
I myThid ) |
./eesupp/src/main.F |
250 |
PTREENTRY |
integer myThid |
./eesupp/src/main.F |
253 |
PTREENTRY |
write(*,*) 'myThid = ', myThid |
./eesupp/src/main.F |
254 |
PTREENTRY |
CALL CHECK_THREADS( myThid ) |
./eesupp/src/main.F |
258 |
PTREENTRY |
threadIsComplete(myThid) = .TRUE. |
./pkg/autodiff/global_sum_ad.F |
100 |
GLOBAL_ADSUM_R8 |
CALL GLOBAL_SUM_R8( adsumPhi, myThid ) |
./pkg/autodiff/global_sum_ad.F |
19 |
GLOBAL_ADSUM_R4 |
I myThid, |
./pkg/autodiff/global_sum_ad.F |
25 |
GLOBAL_ADSUM_R4 |
I myThid |
./pkg/autodiff/global_sum_ad.F |
48 |
GLOBAL_ADSUM_R4 |
INTEGER myThid |
./pkg/autodiff/global_sum_ad.F |
53 |
GLOBAL_ADSUM_R4 |
CALL GLOBAL_SUM_R4( adsumPhi, myThid ) |
./pkg/autodiff/global_sum_ad.F |
65 |
GLOBAL_ADSUM_R8 |
I myThid, |
./pkg/autodiff/global_sum_ad.F |
71 |
GLOBAL_ADSUM_R8 |
I myThid |
./pkg/autodiff/global_sum_ad.F |
94 |
GLOBAL_ADSUM_R8 |
INTEGER myThid |
./pkg/autodiff/global_sum_tile_ad.F |
20 |
GLOBAL_ADSUM_TILE_RL |
I myThid ) |
./pkg/autodiff/global_sum_tile_ad.F |
48 |
GLOBAL_ADSUM_TILE_RL |
INTEGER myThid |
./pkg/autodiff/global_sum_tile_ad.F |
59 |
GLOBAL_ADSUM_TILE_RL |
CALL GLOBAL_SUM_R8( tmp, myThid ) |
./pkg/autodiff/global_sum_tile_ad.F |
62 |
GLOBAL_ADSUM_TILE_RL |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/autodiff/global_sum_tile_ad.F |
63 |
GLOBAL_ADSUM_TILE_RL |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/autodiff/ini_autodiff.F |
30 |
INI_AUTODIFF |
INTEGER myThid |
./pkg/autodiff/ini_autodiff.F |
47 |
INI_AUTODIFF |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/autodiff/ini_autodiff.F |
48 |
INI_AUTODIFF |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/autodiff/ini_autodiff.F |
9 |
INI_AUTODIFF |
SUBROUTINE INI_AUTODIFF( myThid ) |
./pkg/autodiff/myactivefunction.F |
28 |
NO PROCEDURE |
INTEGER myThid |
./pkg/autodiff/myactivefunction_ad.F |
31 |
ADMYACTIVEFUNCTION |
INTEGER myThid |
./pkg/autodiff/zero_adj.F |
26 |
ZERO_ADJ_1D |
INTEGER NrIn, myThid |
./pkg/autodiff/zero_adj.F |
36 |
ZERO_ADJ_LOC |
I NrIn,FieldFwd,myThid) |
./pkg/autodiff/zero_adj.F |
53 |
ZERO_ADJ_LOC |
INTEGER NrIn, myThid |
./pkg/autodiff/zero_adj.F |
63 |
ZERO_ADJ |
I NrIn,FieldFwd,myThid) |
./pkg/autodiff/zero_adj.F |
80 |
ZERO_ADJ |
INTEGER NrIn, myThid |
./pkg/autodiff/zero_adj.F |
9 |
ZERO_ADJ_1D |
I NrIn,FieldFwd,myThid) |
./eesupp/src/master_cpu_io.F |
10 |
NO PROCEDURE |
LOGICAL FUNCTION MASTER_CPU_IO( myThid ) |
./eesupp/src/master_cpu_io.F |
27 |
NO PROCEDURE |
INTEGER myThid |
./eesupp/src/master_cpu_io.F |
37 |
NO PROCEDURE |
_BEGIN_MASTER( myThid ) |
./eesupp/src/master_cpu_io.F |
39 |
NO PROCEDURE |
_END_MASTER( myThid ) |
./pkg/bulk_force/bulkf_ave.F |
32 |
BULKF_AVE |
INTEGER myThid |
./pkg/bulk_force/bulkf_ave.F |
9 |
BULKF_AVE |
SUBROUTINE BULKF_AVE(bi,bj,myThid) |
./pkg/bulk_force/bulkf_fields_load.F |
129 |
BULKF_FIELDS_LOAD |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/bulk_force/bulkf_fields_load.F |
130 |
BULKF_FIELDS_LOAD |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/bulk_force/bulkf_fields_load.F |
194 |
BULKF_FIELDS_LOAD |
_BEGIN_MASTER(myThid) |
./pkg/bulk_force/bulkf_fields_load.F |
198 |
BULKF_FIELDS_LOAD |
_END_MASTER(myThid) |
./pkg/bulk_force/bulkf_fields_load.F |
202 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
204 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
208 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
210 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
214 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
216 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
220 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
222 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
226 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
228 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
233 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
235 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
239 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
241 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
245 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
247 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
252 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
254 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
258 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
260 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
264 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
266 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
272 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
274 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
280 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
282 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
286 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
288 |
BULKF_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
292 |
BULKF_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/bulk_force/bulkf_fields_load.F |
293 |
BULKF_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/bulk_force/bulkf_fields_load.F |
308 |
BULKF_FIELDS_LOAD |
_EXCH_XY_RS(tair0 , myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
309 |
BULKF_FIELDS_LOAD |
_EXCH_XY_RS(tair1 , myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
310 |
BULKF_FIELDS_LOAD |
_EXCH_XY_RS(qair0 , myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
311 |
BULKF_FIELDS_LOAD |
_EXCH_XY_RS(qair1 , myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
312 |
BULKF_FIELDS_LOAD |
_EXCH_XY_RS(solar0, myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
313 |
BULKF_FIELDS_LOAD |
_EXCH_XY_RS(solar1, myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
314 |
BULKF_FIELDS_LOAD |
_EXCH_XY_RS(flwdwn0, myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
315 |
BULKF_FIELDS_LOAD |
_EXCH_XY_RS(flwdwn1, myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
316 |
BULKF_FIELDS_LOAD |
_EXCH_XY_RS(cloud0, myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
317 |
BULKF_FIELDS_LOAD |
_EXCH_XY_RS(cloud1, myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
318 |
BULKF_FIELDS_LOAD |
_EXCH_XY_RS(wspeed0, myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
319 |
BULKF_FIELDS_LOAD |
_EXCH_XY_RS(wspeed1, myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
324 |
BULKF_FIELDS_LOAD |
CALL EXCH_UV_AGRID_3D_RS( uwind0, vwind0, .TRUE., 1, myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
325 |
BULKF_FIELDS_LOAD |
CALL EXCH_UV_AGRID_3D_RS( uwind1, vwind1, .TRUE., 1, myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
326 |
BULKF_FIELDS_LOAD |
_EXCH_XY_RS(rain0, myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
327 |
BULKF_FIELDS_LOAD |
_EXCH_XY_RS(rain1, myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
328 |
BULKF_FIELDS_LOAD |
_EXCH_XY_RS(runoff0, myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
329 |
BULKF_FIELDS_LOAD |
_EXCH_XY_RS(runoff1, myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
330 |
BULKF_FIELDS_LOAD |
_EXCH_XY_RS(snow0 , myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
331 |
BULKF_FIELDS_LOAD |
_EXCH_XY_RS(snow1 , myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
334 |
BULKF_FIELDS_LOAD |
_EXCH_XY_RS( thAir0, myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
335 |
BULKF_FIELDS_LOAD |
_EXCH_XY_RS( thAir1, myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
338 |
BULKF_FIELDS_LOAD |
_EXCH_XY_RS(qnetch0, myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
339 |
BULKF_FIELDS_LOAD |
_EXCH_XY_RS(qnetch1, myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
340 |
BULKF_FIELDS_LOAD |
_EXCH_XY_RS(empch0, myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
341 |
BULKF_FIELDS_LOAD |
_EXCH_XY_RS(empch1, myThid ) |
./pkg/bulk_force/bulkf_fields_load.F |
346 |
BULKF_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/bulk_force/bulkf_fields_load.F |
347 |
BULKF_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/bulk_force/bulkf_fields_load.F |
52 |
BULKF_FIELDS_LOAD |
INTEGER myThid |
./pkg/bulk_force/bulkf_fields_load.F |
9 |
BULKF_FIELDS_LOAD |
SUBROUTINE BULKF_FIELDS_LOAD( myTime, myIter, myThid ) |
./pkg/bulk_force/bulkf_flux_adjust.F |
12 |
BULKF_FLUX_ADJUST |
I myTime, myIter, myThid ) |
./pkg/bulk_force/bulkf_flux_adjust.F |
49 |
BULKF_FLUX_ADJUST |
INTEGER myThid |
./pkg/bulk_force/bulkf_forcing.F |
10 |
BULKF_FORCING |
I myTime, myIter, myThid ) |
./pkg/bulk_force/bulkf_forcing.F |
116 |
BULKF_FORCING |
I iceornot, myThid ) |
./pkg/bulk_force/bulkf_forcing.F |
132 |
BULKF_FORCING |
I iceornot, i,j,bi,bj,myThid ) |
./pkg/bulk_force/bulkf_forcing.F |
208 |
BULKF_FORCING |
& CALL BULKF_AVE(bi,bj,myThid) |
./pkg/bulk_force/bulkf_forcing.F |
57 |
BULKF_FORCING |
INTEGER myThid |
./pkg/bulk_force/bulkf_forcing.F |
78 |
BULKF_FORCING |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/bulk_force/bulkf_forcing.F |
79 |
BULKF_FORCING |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/bulk_force/bulkf_forcing.F |
93 |
BULKF_FORCING |
I iceornot, myThid ) |
./pkg/bulk_force/bulkf_formula_aim.F |
14 |
BULKF_FORMULA_AIM |
I iceornot, myThid ) |
./pkg/bulk_force/bulkf_formula_aim.F |
183 |
BULKF_FORMULA_AIM |
& QDUMMY, dEvp, QSAT0(1,1), myThid ) |
./pkg/bulk_force/bulkf_formula_aim.F |
185 |
BULKF_FORMULA_AIM |
& QDUMMY, RDUMMY,QSAT0(1,2), myThid ) |
./pkg/bulk_force/bulkf_formula_aim.F |
79 |
BULKF_FORMULA_AIM |
INTEGER myThid |
./pkg/bulk_force/bulkf_formula_lanl.F |
13 |
BULKF_FORMULA_LANL |
I iceornot, myThid ) |
./pkg/bulk_force/bulkf_formula_lanl.F |
52 |
BULKF_FORMULA_LANL |
INTEGER myThid ! my Thread Id number |
./eesupp/src/master_cpu_thread.F |
10 |
NO PROCEDURE |
LOGICAL FUNCTION MASTER_CPU_THREAD( myThid ) |
./eesupp/src/master_cpu_thread.F |
28 |
NO PROCEDURE |
INTEGER myThid |
./eesupp/src/master_cpu_thread.F |
39 |
NO PROCEDURE |
_BEGIN_MASTER( myThid ) |
./eesupp/src/master_cpu_thread.F |
41 |
NO PROCEDURE |
_END_MASTER( myThid ) |
./eesupp/src/master_cpu_thread.F |
44 |
NO PROCEDURE |
_BEGIN_MASTER( myThid ) |
./eesupp/src/master_cpu_thread.F |
46 |
NO PROCEDURE |
_END_MASTER( myThid ) |
./pkg/bulk_force/bulkf_formula_lay.F |
13 |
BULKF_FORMULA_LAY |
I iceornot, i,j,bi,bj,myThid ) |
./pkg/bulk_force/bulkf_formula_lay.F |
58 |
BULKF_FORMULA_LAY |
INTEGER myThid ! my Thread Id number |
./pkg/bulk_force/bulkf_init_varia.F |
31 |
BULKF_INIT_VARIA |
INTEGER myThid |
./pkg/bulk_force/bulkf_init_varia.F |
42 |
BULKF_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/bulk_force/bulkf_init_varia.F |
43 |
BULKF_INIT_VARIA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/bulk_force/bulkf_init_varia.F |
9 |
BULKF_INIT_VARIA |
SUBROUTINE BULKF_INIT_VARIA( myThid ) |
./pkg/bulk_force/bulkf_output.F |
101 |
BULKF_OUTPUT |
& BULK_flwupnet_Ave, myIter, myThid ) |
./pkg/bulk_force/bulkf_output.F |
103 |
BULKF_OUTPUT |
& BULK_solar_Ave, myIter, myThid ) |
./pkg/bulk_force/bulkf_output.F |
105 |
BULKF_OUTPUT |
& BULK_ssq_Ave, myIter, myThid ) |
./pkg/bulk_force/bulkf_output.F |
108 |
BULKF_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/bulk_force/bulkf_output.F |
109 |
BULKF_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/bulk_force/bulkf_output.F |
110 |
BULKF_OUTPUT |
CALL TIMEAVE_RESET( BULK_Qnet_Ave, 1, bi, bj, myThid ) |
./pkg/bulk_force/bulkf_output.F |
111 |
BULKF_OUTPUT |
CALL TIMEAVE_RESET( BULK_EmPmR_Ave, 1, bi, bj, myThid ) |
./pkg/bulk_force/bulkf_output.F |
112 |
BULKF_OUTPUT |
CALL TIMEAVE_RESET( BULK_fu_Ave, 1, bi, bj, myThid ) |
./pkg/bulk_force/bulkf_output.F |
113 |
BULKF_OUTPUT |
CALL TIMEAVE_RESET( BULK_fv_Ave, 1, bi, bj, myThid ) |
./pkg/bulk_force/bulkf_output.F |
114 |
BULKF_OUTPUT |
CALL TIMEAVE_RESET( BULK_latent_Ave, 1, bi, bj, myThid ) |
./pkg/bulk_force/bulkf_output.F |
115 |
BULKF_OUTPUT |
CALL TIMEAVE_RESET( BULK_sensible_Ave, 1, bi, bj, myThid ) |
./pkg/bulk_force/bulkf_output.F |
116 |
BULKF_OUTPUT |
CALL TIMEAVE_RESET( BULK_evap_Ave, 1, bi, bj, myThid ) |
./pkg/bulk_force/bulkf_output.F |
117 |
BULKF_OUTPUT |
CALL TIMEAVE_RESET( BULK_flwup_Ave, 1, bi, bj, myThid ) |
./pkg/bulk_force/bulkf_output.F |
118 |
BULKF_OUTPUT |
CALL TIMEAVE_RESET( BULK_flwupnet_Ave, 1, bi, bj, myThid ) |
./pkg/bulk_force/bulkf_output.F |
119 |
BULKF_OUTPUT |
CALL TIMEAVE_RESET( BULK_solar_Ave, 1, bi, bj, myThid ) |
./pkg/bulk_force/bulkf_output.F |
120 |
BULKF_OUTPUT |
CALL TIMEAVE_RESET( BULK_ssq_Ave, 1, bi, bj, myThid ) |
./pkg/bulk_force/bulkf_output.F |
36 |
BULKF_OUTPUT |
INTEGER myThid |
./pkg/bulk_force/bulkf_output.F |
55 |
BULKF_OUTPUT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/bulk_force/bulkf_output.F |
56 |
BULKF_OUTPUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/bulk_force/bulkf_output.F |
58 |
BULKF_OUTPUT |
& BULK_timeAve, 1 , bi, bj, myThid ) |
./pkg/bulk_force/bulkf_output.F |
60 |
BULKF_OUTPUT |
& BULK_timeAve, 1 , bi, bj, myThid ) |
./pkg/bulk_force/bulkf_output.F |
62 |
BULKF_OUTPUT |
& BULK_timeAve, 1 , bi, bj, myThid ) |
./pkg/bulk_force/bulkf_output.F |
64 |
BULKF_OUTPUT |
& BULK_timeAve, 1 , bi, bj, myThid ) |
./pkg/bulk_force/bulkf_output.F |
66 |
BULKF_OUTPUT |
& BULK_timeAve, 1 , bi, bj, myThid ) |
./pkg/bulk_force/bulkf_output.F |
68 |
BULKF_OUTPUT |
& BULK_timeAve, 1 , bi, bj, myThid ) |
./pkg/bulk_force/bulkf_output.F |
70 |
BULKF_OUTPUT |
& BULK_timeAve, 1 , bi, bj, myThid ) |
./pkg/bulk_force/bulkf_output.F |
72 |
BULKF_OUTPUT |
& BULK_timeAve, 1 , bi, bj, myThid ) |
./pkg/bulk_force/bulkf_output.F |
74 |
BULKF_OUTPUT |
& BULK_timeAve, 1 , bi, bj, myThid ) |
./pkg/bulk_force/bulkf_output.F |
76 |
BULKF_OUTPUT |
& BULK_timeAve, 1 , bi, bj, myThid ) |
./pkg/bulk_force/bulkf_output.F |
78 |
BULKF_OUTPUT |
& BULK_timeAve, 1 , bi, bj, myThid ) |
./pkg/bulk_force/bulkf_output.F |
85 |
BULKF_OUTPUT |
& BULK_Qnet_Ave, myIter, myThid ) |
./pkg/bulk_force/bulkf_output.F |
87 |
BULKF_OUTPUT |
& BULK_EmPmR_Ave, myIter, myThid ) |
./pkg/bulk_force/bulkf_output.F |
89 |
BULKF_OUTPUT |
& BULK_fu_Ave, myIter, myThid ) |
./pkg/bulk_force/bulkf_output.F |
91 |
BULKF_OUTPUT |
& BULK_fv_Ave, myIter, myThid ) |
./pkg/bulk_force/bulkf_output.F |
93 |
BULKF_OUTPUT |
& BULK_latent_Ave, myIter, myThid ) |
./pkg/bulk_force/bulkf_output.F |
95 |
BULKF_OUTPUT |
& BULK_sensible_Ave, myIter, myThid ) |
./pkg/bulk_force/bulkf_output.F |
97 |
BULKF_OUTPUT |
& BULK_evap_Ave, myIter, myThid ) |
./pkg/bulk_force/bulkf_output.F |
99 |
BULKF_OUTPUT |
& BULK_flwup_Ave, myIter, myThid ) |
./pkg/bulk_force/bulkf_output.F |
9 |
BULKF_OUTPUT |
SUBROUTINE BULKF_OUTPUT( myTime, myIter, myThid ) |
./pkg/bulk_force/bulkf_readparms.F |
141 |
BULKF_READPARMS |
& SQUEEZE_RIGHT , myThid) |
./pkg/bulk_force/bulkf_readparms.F |
145 |
BULKF_READPARMS |
& SQUEEZE_RIGHT , myThid) |
./pkg/bulk_force/bulkf_readparms.F |
149 |
BULKF_READPARMS |
& SQUEEZE_RIGHT , myThid) |
./pkg/bulk_force/bulkf_readparms.F |
153 |
BULKF_READPARMS |
& SQUEEZE_RIGHT , myThid) |
./pkg/bulk_force/bulkf_readparms.F |
161 |
BULKF_READPARMS |
& SQUEEZE_RIGHT , myThid) |
./pkg/bulk_force/bulkf_readparms.F |
165 |
BULKF_READPARMS |
& SQUEEZE_RIGHT , myThid) |
./pkg/bulk_force/bulkf_readparms.F |
177 |
BULKF_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/bulk_force/bulkf_readparms.F |
180 |
BULKF_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/bulk_force/bulkf_readparms.F |
245 |
BULKF_READPARMS |
_END_MASTER(myThid) |
./pkg/bulk_force/bulkf_readparms.F |
26 |
BULKF_READPARMS |
INTEGER myThid |
./pkg/bulk_force/bulkf_readparms.F |
66 |
BULKF_READPARMS |
_BEGIN_MASTER(myThid) |
./pkg/bulk_force/bulkf_readparms.F |
6 |
BULKF_READPARMS |
SUBROUTINE BULKF_READPARMS( myThid ) |
./pkg/bulk_force/bulkf_readparms.F |
71 |
BULKF_READPARMS |
I myThid ) |
./pkg/bulk_force/bulkf_sh2rh_aim.F |
30 |
BULKF_SH2RH_AIM |
INTEGER myThid |
./pkg/bulk_force/bulkf_sh2rh_aim.F |
6 |
BULKF_SH2RH_AIM |
SUBROUTINE BULKF_SH2RH_AIM(IMODE,NGP,TA,PS,SIG,QA,RH,QSAT,myThid) |
./pkg/cal/cal_readparms.F |
110 |
CAL_READPARMS |
_BEGIN_MASTER(myThid) |
./pkg/cal/cal_readparms.F |
128 |
CAL_READPARMS |
I myThid ) |
./pkg/cal/cal_readparms.F |
167 |
CAL_READPARMS |
_END_MASTER(myThid) |
./pkg/cal/cal_time2dump.F |
27 |
CAL_TIME2DUMP |
INTEGER myThid |
./pkg/cal/cal_time2dump.F |
34 |
CAL_TIME2DUMP |
CALL CAL_GETDATE( myIter ,myTime ,thisDate,myThid ) |
./pkg/cal/cal_time2dump.F |
35 |
CAL_TIME2DUMP |
CALL CAL_GETDATE( myIter-1,myTime-step,prevDate,myThid ) |
./pkg/cal/cal_time2dump.F |
9 |
CAL_TIME2DUMP |
I myTime, myIter, myThid ) |
./eesupp/src/mds_check4file.F |
112 |
MDS_CHECK4FILE |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./eesupp/src/mds_check4file.F |
114 |
MDS_CHECK4FILE |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./eesupp/src/mds_check4file.F |
120 |
MDS_CHECK4FILE |
_END_MASTER( myThid ) |
./eesupp/src/mds_check4file.F |
14 |
MDS_CHECK4FILE |
I myThid ) |
./eesupp/src/mds_check4file.F |
38 |
MDS_CHECK4FILE |
INTEGER myThid |
./eesupp/src/mds_check4file.F |
66 |
MDS_CHECK4FILE |
CALL PRINT_ERROR( msgBuf, myThid ) |
./eesupp/src/mds_check4file.F |
71 |
MDS_CHECK4FILE |
_BEGIN_MASTER( myThid ) |
./pkg/cd_code/cd_code_ini_vars.F |
17 |
CD_CODE_INI_VARS |
INTEGER myThid |
./pkg/cd_code/cd_code_ini_vars.F |
30 |
CD_CODE_INI_VARS |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/cd_code/cd_code_ini_vars.F |
31 |
CD_CODE_INI_VARS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/cd_code/cd_code_ini_vars.F |
56 |
CD_CODE_INI_VARS |
CALL CD_CODE_READ_PICKUP( nIter0, myThid ) |
./pkg/cd_code/cd_code_ini_vars.F |
6 |
CD_CODE_INI_VARS |
SUBROUTINE CD_CODE_INI_VARS( myThid ) |
./pkg/cd_code/cd_code_init_fixed.F |
16 |
CD_CODE_INIT_FIXED |
INTEGER myThid |
./pkg/cd_code/cd_code_init_fixed.F |
28 |
CD_CODE_INIT_FIXED |
& 4,5, myThid) |
./pkg/cd_code/cd_code_init_fixed.F |
30 |
CD_CODE_INIT_FIXED |
& myThid) |
./pkg/cd_code/cd_code_init_fixed.F |
32 |
CD_CODE_INIT_FIXED |
& 'CD_CODE_u_velocity', myThid) |
./pkg/cd_code/cd_code_init_fixed.F |
34 |
CD_CODE_INIT_FIXED |
& 'coordinates','XC YC RC iter', myThid) |
./pkg/cd_code/cd_code_init_fixed.F |
37 |
CD_CODE_INIT_FIXED |
& 4,5, myThid) |
./pkg/cd_code/cd_code_init_fixed.F |
39 |
CD_CODE_INIT_FIXED |
& myThid) |
./pkg/cd_code/cd_code_init_fixed.F |
41 |
CD_CODE_INIT_FIXED |
& 'CD_CODE_v_velocity', myThid) |
./pkg/cd_code/cd_code_init_fixed.F |
43 |
CD_CODE_INIT_FIXED |
& 'coordinates','XC YC RC iter', myThid) |
./pkg/cd_code/cd_code_init_fixed.F |
46 |
CD_CODE_INIT_FIXED |
& 4,5, myThid) |
./pkg/cd_code/cd_code_init_fixed.F |
48 |
CD_CODE_INIT_FIXED |
& myThid) |
./pkg/cd_code/cd_code_init_fixed.F |
50 |
CD_CODE_INIT_FIXED |
& 'CD_CODE_u_velocity_at_n-1', myThid) |
./pkg/cd_code/cd_code_init_fixed.F |
52 |
CD_CODE_INIT_FIXED |
& 'coordinates','XC YC RC iter', myThid) |
./pkg/cd_code/cd_code_init_fixed.F |
55 |
CD_CODE_INIT_FIXED |
& 4,5, myThid) |
./pkg/cd_code/cd_code_init_fixed.F |
57 |
CD_CODE_INIT_FIXED |
& myThid) |
./pkg/cd_code/cd_code_init_fixed.F |
59 |
CD_CODE_INIT_FIXED |
& 'CD_CODE_u_velocity_at_n-1', myThid) |
./pkg/cd_code/cd_code_init_fixed.F |
61 |
CD_CODE_INIT_FIXED |
& 'coordinates','XC YC RC iter', myThid) |
./pkg/cd_code/cd_code_init_fixed.F |
64 |
CD_CODE_INIT_FIXED |
& 3,4, myThid) |
./pkg/cd_code/cd_code_init_fixed.F |
66 |
CD_CODE_INIT_FIXED |
& myThid) |
./pkg/cd_code/cd_code_init_fixed.F |
68 |
CD_CODE_INIT_FIXED |
& 'CD_CODE_ssh_at_n-1', myThid) |
./pkg/cd_code/cd_code_init_fixed.F |
6 |
CD_CODE_INIT_FIXED |
SUBROUTINE CD_CODE_INIT_FIXED( myThid ) |
./pkg/cd_code/cd_code_init_fixed.F |
70 |
CD_CODE_INIT_FIXED |
& 'coordinates','XC YC RC iter', myThid) |
./pkg/cd_code/cd_code_read_pickup.F |
11 |
CD_CODE_READ_PICKUP |
SUBROUTINE CD_CODE_READ_PICKUP( myIter, myThid ) |
./pkg/cd_code/cd_code_read_pickup.F |
28 |
CD_CODE_READ_PICKUP |
INTEGER myThid |
./pkg/cd_code/cd_code_read_pickup.F |
52 |
CD_CODE_READ_PICKUP |
CALL MNC_FILE_CLOSE_ALL_MATCHING(fn, myThid) |
./pkg/cd_code/cd_code_read_pickup.F |
53 |
CD_CODE_READ_PICKUP |
CALL MNC_CW_SET_UDIM(fn, 1, myThid) |
./pkg/cd_code/cd_code_read_pickup.F |
54 |
CD_CODE_READ_PICKUP |
CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, 0, myThid) |
./pkg/cd_code/cd_code_read_pickup.F |
55 |
CD_CODE_READ_PICKUP |
CALL MNC_CW_SET_UDIM(fn, 1, myThid) |
./pkg/cd_code/cd_code_read_pickup.F |
56 |
CD_CODE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'uVelD',uVelD, myThid) |
./pkg/cd_code/cd_code_read_pickup.F |
57 |
CD_CODE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'vVelD',vVelD, myThid) |
./pkg/cd_code/cd_code_read_pickup.F |
58 |
CD_CODE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'Unm1',Unm1, myThid) |
./pkg/cd_code/cd_code_read_pickup.F |
59 |
CD_CODE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'Vnm1',Vnm1, myThid) |
./pkg/cd_code/cd_code_read_pickup.F |
60 |
CD_CODE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'etaNm1', etaNm1, myThid) |
./pkg/cd_code/cd_code_read_pickup.F |
67 |
CD_CODE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, uVelD, 1, myIter, myThid ) |
./pkg/cd_code/cd_code_read_pickup.F |
68 |
CD_CODE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, vVelD, 2, myIter, myThid ) |
./pkg/cd_code/cd_code_read_pickup.F |
69 |
CD_CODE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, uNM1, 3, myIter, myThid ) |
./pkg/cd_code/cd_code_read_pickup.F |
70 |
CD_CODE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, vNM1, 4, myIter, myThid ) |
./pkg/cd_code/cd_code_read_pickup.F |
72 |
CD_CODE_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec, 1, etaNm1,6*Nr+1,myIter,myThid) |
./pkg/cd_code/cd_code_read_pickup.F |
74 |
CD_CODE_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec, 1, etaNm1,4*Nr+1,myIter,myThid) |
./pkg/cd_code/cd_code_read_pickup.F |
79 |
CD_CODE_READ_PICKUP |
CALL EXCH_UV_DGRID_3D_RL( uVelD,vVelD, .TRUE., Nr, myThid ) |
./pkg/cd_code/cd_code_read_pickup.F |
80 |
CD_CODE_READ_PICKUP |
CALL EXCH_UV_XYZ_RL( uNM1,vNM1, .TRUE., myThid ) |
./pkg/cd_code/cd_code_read_pickup.F |
81 |
CD_CODE_READ_PICKUP |
CALL EXCH_XY_RL( etaNm1, myThid ) |
./pkg/cd_code/cd_code_scheme.F |
13 |
CD_CODE_SCHEME |
I myTime, myIter, myThid) |
./pkg/cd_code/cd_code_scheme.F |
50 |
CD_CODE_SCHEME |
INTEGER myThid |
./eesupp/src/mds_reclen.F |
25 |
NO PROCEDURE |
INTEGER myThid |
./eesupp/src/mds_reclen.F |
38 |
NO PROCEDURE |
CALL PRINT_ERROR( msgBuf, myThid ) |
./eesupp/src/mds_reclen.F |
41 |
NO PROCEDURE |
CALL PRINT_ERROR( msgBuf, myThid ) |
./eesupp/src/mds_reclen.F |
6 |
NO PROCEDURE |
INTEGER FUNCTION MDS_RECLEN( filePrec, nnn, myThid ) |
./pkg/cd_code/cd_code_write_pickup.F |
13 |
CD_CODE_WRITE_PICKUP |
I myTime, myIter, myThid ) |
./pkg/cd_code/cd_code_write_pickup.F |
38 |
CD_CODE_WRITE_PICKUP |
INTEGER myThid |
./pkg/cd_code/cd_code_write_pickup.F |
57 |
CD_CODE_WRITE_PICKUP |
CALL MNC_CW_SET_UDIM(fn, 1, myThid) |
./pkg/cd_code/cd_code_write_pickup.F |
59 |
CD_CODE_WRITE_PICKUP |
CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, -1, myThid) |
./pkg/cd_code/cd_code_write_pickup.F |
61 |
CD_CODE_WRITE_PICKUP |
CALL MNC_CW_SET_CITER(fn, 2, -1, -1, -1, myThid) |
./pkg/cd_code/cd_code_write_pickup.F |
63 |
CD_CODE_WRITE_PICKUP |
CALL MNC_CW_SET_UDIM(fn, 1, myThid) |
./pkg/cd_code/cd_code_write_pickup.F |
64 |
CD_CODE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'uVelD',uVelD, myThid) |
./pkg/cd_code/cd_code_write_pickup.F |
65 |
CD_CODE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'vVelD',vVelD, myThid) |
./pkg/cd_code/cd_code_write_pickup.F |
66 |
CD_CODE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'Unm1',Unm1, myThid) |
./pkg/cd_code/cd_code_write_pickup.F |
67 |
CD_CODE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'Vnm1',Vnm1, myThid) |
./pkg/cd_code/cd_code_write_pickup.F |
68 |
CD_CODE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'etaNm1', etaNm1, myThid) |
./pkg/cd_code/cd_code_write_pickup.F |
69 |
CD_CODE_WRITE_PICKUP |
CALL MNC_FILE_CLOSE_ALL_MATCHING(fn, myThid) |
./pkg/cd_code/cd_code_write_pickup.F |
78 |
CD_CODE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, uVelD, 1, myIter, myThid ) |
./pkg/cd_code/cd_code_write_pickup.F |
79 |
CD_CODE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, vVelD, 2, myIter, myThid ) |
./pkg/cd_code/cd_code_write_pickup.F |
80 |
CD_CODE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, uNM1, 3, myIter, myThid ) |
./pkg/cd_code/cd_code_write_pickup.F |
81 |
CD_CODE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, vNM1, 4, myIter, myThid ) |
./pkg/cd_code/cd_code_write_pickup.F |
82 |
CD_CODE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, 1,etaNm1,4*Nr+1,myIter,myThid) |
./pkg/cfc/cfc11_forcing.F |
134 |
CFC11_FORCING |
& myIter,myTime,myThid) |
./pkg/cfc/cfc11_forcing.F |
19 |
CFC11_FORCING |
& myIter,myTime,myThid) |
./pkg/cfc/cfc11_forcing.F |
39 |
CFC11_FORCING |
INTEGER myThid |
./pkg/cfc/cfc11_surfforcing.F |
25 |
CFC11_SURFFORCING |
INTEGER myIter, myThid |
./pkg/cfc/cfc11_surfforcing.F |
9 |
CFC11_SURFFORCING |
I myIter, myTime, myThid ) |
./pkg/cfc/cfc12_forcing.F |
134 |
CFC12_FORCING |
& myIter,myTime,myThid) |
./pkg/cfc/cfc12_forcing.F |
19 |
CFC12_FORCING |
& myIter,myTime,myThid) |
./pkg/cfc/cfc12_forcing.F |
39 |
CFC12_FORCING |
INTEGER myThid |
./pkg/cfc/cfc12_surfforcing.F |
25 |
CFC12_SURFFORCING |
INTEGER myIter, myThid |
./pkg/cfc/cfc12_surfforcing.F |
9 |
CFC12_SURFFORCING |
I myIter, myTime, myThid ) |
./pkg/cfc/cfc_atmos.F |
23 |
CFC_ATMOS |
INTEGER myThid |
./pkg/cfc/cfc_atmos.F |
36 |
CFC_ATMOS |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/cfc/cfc_atmos.F |
37 |
CFC_ATMOS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/cfc/cfc_atmos.F |
52 |
CFC_ATMOS |
& SQUEEZE_RIGHT , myThid) |
./pkg/cfc/cfc_atmos.F |
74 |
CFC_ATMOS |
& SQUEEZE_RIGHT , myThid) |
./pkg/cfc/cfc_atmos.F |
79 |
CFC_ATMOS |
_END_MASTER(myThid) |
./pkg/cfc/cfc_atmos.F |
7 |
CFC_ATMOS |
SUBROUTINE CFC_ATMOS( myThid ) |
./pkg/cfc/cfc_fields_load.F |
102 |
CFC_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/cfc/cfc_fields_load.F |
104 |
CFC_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/cfc/cfc_fields_load.F |
109 |
CFC_FIELDS_LOAD |
_EXCH_XY_RS(wind0, myThid ) |
./pkg/cfc/cfc_fields_load.F |
110 |
CFC_FIELDS_LOAD |
_EXCH_XY_RS(wind1, myThid ) |
./pkg/cfc/cfc_fields_load.F |
112 |
CFC_FIELDS_LOAD |
_EXCH_XY_RS(atmosp0, myThid ) |
./pkg/cfc/cfc_fields_load.F |
113 |
CFC_FIELDS_LOAD |
_EXCH_XY_RS(atmosp1, myThid ) |
./pkg/cfc/cfc_fields_load.F |
115 |
CFC_FIELDS_LOAD |
_EXCH_XY_RS(ice0, myThid ) |
./pkg/cfc/cfc_fields_load.F |
116 |
CFC_FIELDS_LOAD |
_EXCH_XY_RS(ice1, myThid ) |
./pkg/cfc/cfc_fields_load.F |
123 |
CFC_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/cfc/cfc_fields_load.F |
124 |
CFC_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/cfc/cfc_fields_load.F |
138 |
CFC_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/cfc/cfc_fields_load.F |
139 |
CFC_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/cfc/cfc_fields_load.F |
158 |
CFC_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/cfc/cfc_fields_load.F |
159 |
CFC_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/cfc/cfc_fields_load.F |
174 |
CFC_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/cfc/cfc_fields_load.F |
175 |
CFC_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/cfc/cfc_fields_load.F |
187 |
CFC_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/cfc/cfc_fields_load.F |
188 |
CFC_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/cfc/cfc_fields_load.F |
31 |
CFC_FIELDS_LOAD |
INTEGER myThid |
./pkg/cfc/cfc_fields_load.F |
46 |
CFC_FIELDS_LOAD |
CALL LEF_ZERO( wind0,myThid ) |
./pkg/cfc/cfc_fields_load.F |
47 |
CFC_FIELDS_LOAD |
CALL LEF_ZERO( wind1,myThid ) |
./pkg/cfc/cfc_fields_load.F |
48 |
CFC_FIELDS_LOAD |
CALL LEF_ZERO( atmosp0,myThid ) |
./pkg/cfc/cfc_fields_load.F |
49 |
CFC_FIELDS_LOAD |
CALL LEF_ZERO( atmosp1,myThid ) |
./pkg/cfc/cfc_fields_load.F |
50 |
CFC_FIELDS_LOAD |
CALL LEF_ZERO( ice0,myThid ) |
./pkg/cfc/cfc_fields_load.F |
51 |
CFC_FIELDS_LOAD |
CALL LEF_ZERO( ice1,myThid ) |
./pkg/cfc/cfc_fields_load.F |
82 |
CFC_FIELDS_LOAD |
_BEGIN_MASTER(myThid) |
./pkg/cfc/cfc_fields_load.F |
86 |
CFC_FIELDS_LOAD |
_END_MASTER(myThid) |
./pkg/cfc/cfc_fields_load.F |
8 |
CFC_FIELDS_LOAD |
I myIter,myTime,myThid) |
./pkg/cfc/cfc_fields_load.F |
90 |
CFC_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/cfc/cfc_fields_load.F |
92 |
CFC_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/cfc/cfc_fields_load.F |
96 |
CFC_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/cfc/cfc_fields_load.F |
98 |
CFC_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/cfc/cfc_param.F |
23 |
CFC_PARAM |
INTEGER myThid |
./pkg/cfc/cfc_param.F |
30 |
CFC_PARAM |
_BEGIN_MASTER( myThid ) |
./pkg/cfc/cfc_param.F |
61 |
CFC_PARAM |
_END_MASTER( myThid ) |
./pkg/cfc/cfc_param.F |
7 |
CFC_PARAM |
SUBROUTINE CFC_PARAM( myThid ) |
./pkg/cfc/cfc_readparms.F |
30 |
CFC_READPARMS |
INTEGER myThid |
./pkg/cfc/cfc_readparms.F |
49 |
CFC_READPARMS |
_BEGIN_MASTER(myThid) |
./pkg/cfc/cfc_readparms.F |
60 |
CFC_READPARMS |
I SQUEEZE_RIGHT, myThid ) |
./pkg/cfc/cfc_readparms.F |
63 |
CFC_READPARMS |
O iUnit, myThid ) |
./pkg/cfc/cfc_readparms.F |
73 |
CFC_READPARMS |
I SQUEEZE_RIGHT, myThid ) |
./pkg/cfc/cfc_readparms.F |
78 |
CFC_READPARMS |
_END_MASTER(myThid) |
./pkg/cfc/cfc_readparms.F |
9 |
CFC_READPARMS |
SUBROUTINE CFC_READPARMS( myThid ) |
./pkg/cheapaml/adams2d.F |
12 |
ADAMS2D |
I startAB, myIter, myThid ) |
./pkg/cheapaml/adams2d.F |
40 |
ADAMS2D |
INTEGER myIter, myThid |
./pkg/cheapaml/cheapaml.F |
157 |
CHEAPAML |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/cheapaml/cheapaml.F |
158 |
CHEAPAML |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/cheapaml/cheapaml.F |
211 |
CHEAPAML |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/cheapaml/cheapaml.F |
212 |
CHEAPAML |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/cheapaml/cheapaml.F |
227 |
CHEAPAML |
I myTime, myIter, myThid ) |
./pkg/cheapaml/cheapaml.F |
231 |
CHEAPAML |
I nt-1, myThid ) |
./pkg/cheapaml/cheapaml.F |
243 |
CHEAPAML |
I myIter, myThid ) |
./pkg/cheapaml/cheapaml.F |
254 |
CHEAPAML |
I myTime, myIter, myThid ) |
./pkg/cheapaml/cheapaml.F |
280 |
CHEAPAML |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/cheapaml/cheapaml.F |
281 |
CHEAPAML |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/cheapaml/cheapaml.F |
380 |
CHEAPAML |
I 0,myThid) |
./pkg/cheapaml/cheapaml.F |
399 |
CHEAPAML |
I myIter, myThid ) |
./pkg/cheapaml/cheapaml.F |
411 |
CHEAPAML |
I myTime, myIter, myThid ) |
./pkg/cheapaml/cheapaml.F |
441 |
CHEAPAML |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/cheapaml/cheapaml.F |
442 |
CHEAPAML |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/cheapaml/cheapaml_fields_load.F |
112 |
CHEAPAML_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/cheapaml/cheapaml_fields_load.F |
113 |
CHEAPAML_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/cheapaml/cheapaml_fields_load.F |
127 |
CHEAPAML_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/cheapaml/cheapaml_fields_load.F |
128 |
CHEAPAML_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/cheapaml/cheapaml_fields_load.F |
143 |
CHEAPAML_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/cheapaml/cheapaml_fields_load.F |
144 |
CHEAPAML_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/cheapaml/cheapaml_fields_load.F |
157 |
CHEAPAML_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/cheapaml/cheapaml_fields_load.F |
158 |
CHEAPAML_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/cheapaml/cheapaml_fields_load.F |
170 |
CHEAPAML_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/cheapaml/cheapaml_fields_load.F |
171 |
CHEAPAML_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/cheapaml/cheapaml_fields_load.F |
186 |
CHEAPAML_FIELDS_LOAD |
CALL LEF_ZERO( trair0 ,myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
187 |
CHEAPAML_FIELDS_LOAD |
CALL LEF_ZERO( trair1 ,myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
188 |
CHEAPAML_FIELDS_LOAD |
CALL LEF_ZERO( qrair0 ,myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
189 |
CHEAPAML_FIELDS_LOAD |
CALL LEF_ZERO( qrair1 ,myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
190 |
CHEAPAML_FIELDS_LOAD |
CALL LEF_ZERO( solar0 ,myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
191 |
CHEAPAML_FIELDS_LOAD |
CALL LEF_ZERO( solar1 ,myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
192 |
CHEAPAML_FIELDS_LOAD |
CALL LEF_ZERO( uwind0 ,myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
193 |
CHEAPAML_FIELDS_LOAD |
CALL LEF_ZERO( uwind1 ,myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
194 |
CHEAPAML_FIELDS_LOAD |
CALL LEF_ZERO( vwind0 ,myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
195 |
CHEAPAML_FIELDS_LOAD |
CALL LEF_ZERO( vwind1 ,myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
228 |
CHEAPAML_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
230 |
CHEAPAML_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
234 |
CHEAPAML_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
236 |
CHEAPAML_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
240 |
CHEAPAML_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
242 |
CHEAPAML_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
246 |
CHEAPAML_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
248 |
CHEAPAML_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
252 |
CHEAPAML_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
254 |
CHEAPAML_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
257 |
CHEAPAML_FIELDS_LOAD |
_EXCH_XY_RS(trair0 , myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
258 |
CHEAPAML_FIELDS_LOAD |
_EXCH_XY_RS(qrair0 , myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
259 |
CHEAPAML_FIELDS_LOAD |
_EXCH_XY_RS(solar0 , myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
260 |
CHEAPAML_FIELDS_LOAD |
_EXCH_XY_RS(uwind0 , myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
261 |
CHEAPAML_FIELDS_LOAD |
_EXCH_XY_RS(vwind0 , myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
262 |
CHEAPAML_FIELDS_LOAD |
_EXCH_XY_RS(trair1 , myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
263 |
CHEAPAML_FIELDS_LOAD |
_EXCH_XY_RS(qrair1 , myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
264 |
CHEAPAML_FIELDS_LOAD |
_EXCH_XY_RS(solar1 , myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
265 |
CHEAPAML_FIELDS_LOAD |
_EXCH_XY_RS(uwind1 , myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
266 |
CHEAPAML_FIELDS_LOAD |
_EXCH_XY_RS(vwind1 , myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
271 |
CHEAPAML_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/cheapaml/cheapaml_fields_load.F |
272 |
CHEAPAML_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/cheapaml/cheapaml_fields_load.F |
295 |
CHEAPAML_FIELDS_LOAD |
CALL READ_FLD_XY_RL( SolarFile, ' ', solar, 0, myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
297 |
CHEAPAML_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/cheapaml/cheapaml_fields_load.F |
298 |
CHEAPAML_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/cheapaml/cheapaml_fields_load.F |
312 |
CHEAPAML_FIELDS_LOAD |
CALL READ_FLD_XY_RL( TrFile, ' ', tr, 0, myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
314 |
CHEAPAML_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/cheapaml/cheapaml_fields_load.F |
315 |
CHEAPAML_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/cheapaml/cheapaml_fields_load.F |
332 |
CHEAPAML_FIELDS_LOAD |
CALL READ_FLD_XY_RL( QrFile, ' ', qr, 0, myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
335 |
CHEAPAML_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/cheapaml/cheapaml_fields_load.F |
336 |
CHEAPAML_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/cheapaml/cheapaml_fields_load.F |
350 |
CHEAPAML_FIELDS_LOAD |
CALL READ_FLD_XY_RL( UWindFile, ' ', uwind, 0, myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
352 |
CHEAPAML_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/cheapaml/cheapaml_fields_load.F |
353 |
CHEAPAML_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/cheapaml/cheapaml_fields_load.F |
370 |
CHEAPAML_FIELDS_LOAD |
CALL READ_FLD_XY_RL( VWindFile, ' ', vwind, 0, myThid ) |
./pkg/cheapaml/cheapaml_fields_load.F |
372 |
CHEAPAML_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/cheapaml/cheapaml_fields_load.F |
373 |
CHEAPAML_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/cheapaml/cheapaml_fields_load.F |
38 |
CHEAPAML_FIELDS_LOAD |
INTEGER myThid |
./pkg/cheapaml/cheapaml_fields_load.F |
7 |
CHEAPAML_FIELDS_LOAD |
SUBROUTINE CHEAPAML_FIELDS_LOAD( myTime, myIter, myThid ) |
./pkg/cheapaml/cheapaml_init_varia.F |
30 |
CHEAPAML_INIT_VARIA |
INTEGER myThid |
./pkg/cheapaml/cheapaml_init_varia.F |
46 |
CHEAPAML_INIT_VARIA |
CALL READ_FLD_XY_RL( AirTempFile, ' ', Tair, 0, myThid ) |
./pkg/cheapaml/cheapaml_init_varia.F |
7 |
CHEAPAML_INIT_VARIA |
SUBROUTINE CHEAPAML_INIT_VARIA( myThid ) |
./pkg/cheapaml/cheapaml_read_pickup.F |
102 |
CHEAPAML_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/cheapaml/cheapaml_read_pickup.F |
113 |
CHEAPAML_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/cheapaml/cheapaml_read_pickup.F |
11 |
CHEAPAML_READ_PICKUP |
SUBROUTINE CHEAPAML_READ_PICKUP( myIter, myThid ) |
./pkg/cheapaml/cheapaml_read_pickup.F |
131 |
CHEAPAML_READ_PICKUP |
& nj, fp, 1 , myIter, myThid ) |
./pkg/cheapaml/cheapaml_read_pickup.F |
142 |
CHEAPAML_READ_PICKUP |
I myIter, myThid ) |
./pkg/cheapaml/cheapaml_read_pickup.F |
146 |
CHEAPAML_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/cheapaml/cheapaml_read_pickup.F |
154 |
CHEAPAML_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/cheapaml/cheapaml_read_pickup.F |
27 |
CHEAPAML_READ_PICKUP |
INTEGER myThid |
./pkg/cheapaml/cheapaml_read_pickup.F |
67 |
CHEAPAML_READ_PICKUP |
I Nr, myIter, myThid ) |
./pkg/cheapaml/cheapaml_read_pickup.F |
68 |
CHEAPAML_READ_PICKUP |
_BEGIN_MASTER( myThid ) |
./pkg/cheapaml/cheapaml_read_pickup.F |
73 |
CHEAPAML_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/cheapaml/cheapaml_read_pickup.F |
76 |
CHEAPAML_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/cheapaml/cheapaml_read_pickup.F |
79 |
CHEAPAML_READ_PICKUP |
_END_MASTER( myThid ) |
./pkg/cheapaml/cheapaml_read_pickup.F |
88 |
CHEAPAML_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/cheapaml/cheapaml_read_pickup.F |
92 |
CHEAPAML_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/cheapaml/cheapaml_read_pickup.F |
97 |
CHEAPAML_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/cheapaml/cheapaml_readparms.F |
153 |
CHEAPAML_READPARMS |
_END_MASTER(myThid) |
./pkg/cheapaml/cheapaml_readparms.F |
20 |
CHEAPAML_READPARMS |
INTEGER myThid |
./pkg/cheapaml/cheapaml_readparms.F |
50 |
CHEAPAML_READPARMS |
_BEGIN_MASTER(myThid) |
./pkg/cheapaml/cheapaml_readparms.F |
59 |
CHEAPAML_READPARMS |
I myThid ) |
./pkg/cheapaml/cheapaml_readparms.F |
6 |
CHEAPAML_READPARMS |
SUBROUTINE CHEAPAML_READPARMS( myThid ) |
./pkg/cheapaml/cheapaml_write_pickup.F |
110 |
CHEAPAML_WRITE_PICKUP |
& nj, myIter, myThid ) |
./pkg/cheapaml/cheapaml_write_pickup.F |
11 |
CHEAPAML_WRITE_PICKUP |
& suff, myTime, myIter, myThid ) |
./pkg/cheapaml/cheapaml_write_pickup.F |
33 |
CHEAPAML_WRITE_PICKUP |
INTEGER myThid |
./pkg/cheapaml/cheapaml_write_pickup.F |
82 |
CHEAPAML_WRITE_PICKUP |
& Tair, nj, myIter, myThid ) |
./pkg/cheapaml/cheapaml_write_pickup.F |
91 |
CHEAPAML_WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/cheapaml/cheapaml_write_pickup.F |
94 |
CHEAPAML_WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/cheapaml/cycle_2d_tracer.F |
12 |
CYCLE_2D_TRACER |
I myTime, myIter, myThid ) |
./pkg/cheapaml/cycle_2d_tracer.F |
39 |
CYCLE_2D_TRACER |
INTEGER myIter, myThid |
./pkg/cheapaml/gad_2d_calc_rhs.F |
115 |
GAD_2D_CALC_RHS |
CALL GAD_C2_2D_ADV_X(bi,bj,uVel,localT,af,myThid) |
./pkg/cheapaml/gad_2d_calc_rhs.F |
124 |
GAD_2D_CALC_RHS |
CALL GAD_DIFF_2D_X(bi,bj,diffKh,localT,df,myThid) |
./pkg/cheapaml/gad_2d_calc_rhs.F |
147 |
GAD_2D_CALC_RHS |
CALL GAD_C2_2D_ADV_Y(bi,bj,vVel,localT,af,myThid) |
./pkg/cheapaml/gad_2d_calc_rhs.F |
155 |
GAD_2D_CALC_RHS |
CALL GAD_DIFF_2D_Y(bi,bj,diffKh,localT,df,myThid) |
./pkg/cheapaml/gad_2d_calc_rhs.F |
16 |
GAD_2D_CALC_RHS |
I myTime, myIter, myThid ) |
./pkg/cheapaml/gad_2d_calc_rhs.F |
65 |
GAD_2D_CALC_RHS |
INTEGER myIter, myThid |
./pkg/cheapaml/gad_c2_2d_adv_x.F |
15 |
GAD_C2_2D_ADV_X |
I myThid ) |
./pkg/cheapaml/gad_c2_2d_adv_x.F |
37 |
GAD_C2_2D_ADV_X |
INTEGER myThid |
./pkg/cheapaml/gad_c2_2d_adv_y.F |
15 |
GAD_C2_2D_ADV_Y |
I myThid ) |
./pkg/cheapaml/gad_c2_2d_adv_y.F |
37 |
GAD_C2_2D_ADV_Y |
INTEGER myThid |
./pkg/cheapaml/gad_diff_2d_x.F |
15 |
GAD_DIFF_2D_X |
I myThid ) |
./pkg/cheapaml/gad_diff_2d_x.F |
38 |
GAD_DIFF_2D_X |
INTEGER myThid |
./pkg/cheapaml/gad_diff_2d_y.F |
15 |
GAD_DIFF_2D_Y |
I myThid ) |
./pkg/cheapaml/gad_diff_2d_y.F |
38 |
GAD_DIFF_2D_Y |
INTEGER myThid |
./eesupp/src/nml_change_syntax.F |
116 |
NML_CHANGE_SYNTAX |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
./eesupp/src/nml_change_syntax.F |
121 |
NML_CHANGE_SYNTAX |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
./eesupp/src/nml_change_syntax.F |
12 |
NML_CHANGE_SYNTAX |
I data_file, myThid ) |
./eesupp/src/nml_change_syntax.F |
146 |
NML_CHANGE_SYNTAX |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
./eesupp/src/nml_change_syntax.F |
151 |
NML_CHANGE_SYNTAX |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
./eesupp/src/nml_change_syntax.F |
202 |
NML_CHANGE_SYNTAX |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
./eesupp/src/nml_change_syntax.F |
207 |
NML_CHANGE_SYNTAX |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
./eesupp/src/nml_change_syntax.F |
223 |
NML_CHANGE_SYNTAX |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
./eesupp/src/nml_change_syntax.F |
228 |
NML_CHANGE_SYNTAX |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
./eesupp/src/nml_change_syntax.F |
44 |
NML_CHANGE_SYNTAX |
INTEGER myThid |
./pkg/cheapaml/timestep_2d_tracer.F |
13 |
TIMESTEP_2D_TRACER |
I myIter, myThid ) |
./pkg/cheapaml/timestep_2d_tracer.F |
35 |
TIMESTEP_2D_TRACER |
INTEGER myIter, myThid |
./eesupp/src/open_copy_data_file.F |
110 |
OPEN_COPY_DATA_FILE |
& SQUEEZE_RIGHT, myThid ) |
./eesupp/src/open_copy_data_file.F |
113 |
OPEN_COPY_DATA_FILE |
& SQUEEZE_RIGHT, myThid ) |
./eesupp/src/open_copy_data_file.F |
117 |
OPEN_COPY_DATA_FILE |
& SQUEEZE_RIGHT, myThid ) |
./eesupp/src/open_copy_data_file.F |
125 |
OPEN_COPY_DATA_FILE |
& SQUEEZE_RIGHT, myThid ) |
./eesupp/src/open_copy_data_file.F |
12 |
OPEN_COPY_DATA_FILE |
I myThid ) |
./eesupp/src/open_copy_data_file.F |
131 |
OPEN_COPY_DATA_FILE |
& SQUEEZE_RIGHT, myThid ) |
./eesupp/src/open_copy_data_file.F |
137 |
OPEN_COPY_DATA_FILE |
_END_MASTER(myThid) |
./eesupp/src/open_copy_data_file.F |
36 |
OPEN_COPY_DATA_FILE |
INTEGER myThid |
./eesupp/src/open_copy_data_file.F |
55 |
OPEN_COPY_DATA_FILE |
_BEGIN_MASTER(myThid) |
./eesupp/src/open_copy_data_file.F |
63 |
OPEN_COPY_DATA_FILE |
& SQUEEZE_RIGHT, myThid ) |
./eesupp/src/open_copy_data_file.F |
67 |
OPEN_COPY_DATA_FILE |
CALL PRINT_ERROR( msgBuf, myThid ) |
./eesupp/src/open_copy_data_file.F |
69 |
OPEN_COPY_DATA_FILE |
CALL PRINT_ERROR( msgBuf, myThid ) |
./eesupp/src/open_copy_data_file.F |
87 |
OPEN_COPY_DATA_FILE |
CALL PRINT_ERROR( msgBuf, myThid ) |
./eesupp/src/open_copy_data_file.F |
89 |
OPEN_COPY_DATA_FILE |
CALL PRINT_ERROR( msgBuf, myThid ) |
./eesupp/src/open_copy_data_file.F |
98 |
OPEN_COPY_DATA_FILE |
CALL NML_CHANGE_SYNTAX( RECORD, data_file, myThid ) |
./eesupp/src/print.F |
103 |
PRINT_MESSAGE |
_BEGIN_CRIT(myThid) |
./eesupp/src/print.F |
105 |
PRINT_MESSAGE |
WRITE(idString,'(I4.4,A,I4.4)') myProcId,'.',myThid |
./eesupp/src/print.F |
107 |
PRINT_MESSAGE |
_END_CRIT(myThid) |
./eesupp/src/print.F |
113 |
PRINT_MESSAGE |
_BEGIN_CRIT(myThid) |
./eesupp/src/print.F |
118 |
PRINT_MESSAGE |
_END_CRIT(myThid) |
./eesupp/src/print.F |
122 |
PRINT_MESSAGE |
_BEGIN_CRIT(myThid) |
./eesupp/src/print.F |
128 |
PRINT_MESSAGE |
_END_CRIT(myThid) |
./eesupp/src/print.F |
145 |
PRINT_MESSAGE |
ioErrorCount(myThid) = ioErrorCount(myThid)+1 |
./eesupp/src/print.F |
154 |
PRINT_ERROR |
SUBROUTINE PRINT_ERROR( message , myThid ) |
./eesupp/src/print.F |
187 |
PRINT_ERROR |
INTEGER myThid |
./eesupp/src/print.F |
225 |
PRINT_ERROR |
_BEGIN_CRIT(myThid) |
./eesupp/src/print.F |
230 |
PRINT_ERROR |
WRITE(idString,'(I4.4,A,I4.4)') myProcId,'.',myThid |
./eesupp/src/print.F |
252 |
PRINT_ERROR |
WRITE(0,'(A,I4.4,A,A)') '(TID ', myThid, ') ', |
./eesupp/src/print.F |
262 |
PRINT_ERROR |
_END_CRIT(myThid) |
./eesupp/src/print.F |
26 |
PRINT_MESSAGE |
SUBROUTINE PRINT_MESSAGE( message, unit, sq , myThid ) |
./eesupp/src/print.F |
61 |
PRINT_MESSAGE |
INTEGER myThid |
./eesupp/src/scatter_vector.F |
29 |
SCATTER_VECTOR |
_BEGIN_MASTER( myThid ) |
./eesupp/src/scatter_vector.F |
6 |
SCATTER_VECTOR |
SUBROUTINE SCATTER_VECTOR( length, global, local, myThid ) |
./eesupp/src/scatter_vector.F |
79 |
SCATTER_VECTOR |
_END_MASTER( myThid ) |
./pkg/cost/cost_accumulate_mean.F |
27 |
COST_ACCUMULATE_MEAN |
integer myThid |
./pkg/cost/cost_accumulate_mean.F |
6 |
COST_ACCUMULATE_MEAN |
subroutine COST_ACCUMULATE_MEAN( myThid ) |
./pkg/cost/cost_atlantic_heat.F |
25 |
COST_ATLANTIC_HEAT |
integer myThid |
./pkg/cost/cost_atlantic_heat.F |
60 |
COST_ATLANTIC_HEAT |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/cost/cost_atlantic_heat.F |
61 |
COST_ATLANTIC_HEAT |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/cost/cost_atlantic_heat.F |
6 |
COST_ATLANTIC_HEAT |
subroutine COST_ATLANTIC_HEAT( myThid ) |
./pkg/cost/cost_check.F |
21 |
COST_CHECK |
INTEGER myThid |
./pkg/cost/cost_check.F |
6 |
COST_CHECK |
SUBROUTINE COST_CHECK( myThid ) |
./pkg/cost/cost_depth.F |
30 |
COST_DEPTH |
integer myThid |
./pkg/cost/cost_depth.F |
40 |
COST_DEPTH |
DO bj=myByLo(myThid), myByHi(myThid) |
./pkg/cost/cost_depth.F |
41 |
COST_DEPTH |
DO bi=myBxLo(myThid), myBxHi(myThid) |
./pkg/cost/cost_depth.F |
6 |
COST_DEPTH |
subroutine COST_DEPTH( myThid ) |
./pkg/cost/cost_final.F |
142 |
COST_FINAL |
_GLOBAL_SUM_RL( fc , myThid ) |
./pkg/cost/cost_final.F |
155 |
COST_FINAL |
CALL TURNOFF_MODEL_IO( 0, myThid ) |
./pkg/cost/cost_final.F |
59 |
COST_FINAL |
CALL SEAICE_COST_FINAL (myThid) |
./pkg/cost/cost_final.F |
63 |
COST_FINAL |
CALL ECCO_COST_FINAL (myThid) |
./pkg/cost/cost_final.F |
66 |
COST_FINAL |
CALL COST_VECTOR (myThid) |
./pkg/cost/cost_final.F |
69 |
COST_FINAL |
CALL COST_STATE_FINAL (myThid) |
./pkg/cost/cost_final.F |
76 |
COST_FINAL |
CALL COST_TEST (myThid) |
./pkg/cost/cost_final.F |
79 |
COST_FINAL |
CALL COST_ATLANTIC_HEAT (myThid) |
./pkg/cost/cost_final.F |
82 |
COST_FINAL |
CALL COST_HFLUX (myThid) |
./pkg/cost/cost_final.F |
85 |
COST_FINAL |
CALL COST_TEMP (myThid) |
./pkg/cost/cost_final.F |
89 |
COST_FINAL |
CALL SHELFICE_COST_FINAL (myThid) |
./eesupp/src/scatter_xz.F |
30 |
SCATTER_XZ |
_BEGIN_MASTER( myThid ) |
./eesupp/src/scatter_xz.F |
6 |
SCATTER_XZ |
SUBROUTINE SCATTER_XZ( global, local, myThid ) |
./eesupp/src/scatter_xz.F |
86 |
SCATTER_XZ |
_END_MASTER( myThid ) |
./pkg/cost/cost_readparms.F |
104 |
COST_READPARMS |
CALL COST_WEIGHTS( myThid ) |
./pkg/cost/cost_readparms.F |
55 |
COST_READPARMS |
_BEGIN_MASTER( myThid ) |
./pkg/cost/cost_readparms.F |
88 |
COST_READPARMS |
I myThid ) |
./pkg/cost/cost_state_final.F |
24 |
COST_STATE_FINAL |
integer myThid |
./pkg/cost/cost_state_final.F |
31 |
COST_STATE_FINAL |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/cost/cost_state_final.F |
32 |
COST_STATE_FINAL |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/cost/cost_state_final.F |
6 |
COST_STATE_FINAL |
subroutine COST_STATE_FINAL( myThid ) |
./pkg/cost/cost_test.F |
30 |
COST_TEST |
integer myThid |
./pkg/cost/cost_test.F |
6 |
COST_TEST |
subroutine COST_TEST( myThid ) |
./pkg/cost/cost_tile.F |
111 |
COST_TILE |
CALL COST_ACCUMULATE_MEAN (myThid) |
./pkg/cost/cost_tile.F |
115 |
COST_TILE |
CALL SHELFICE_COST_ACCUMULATE (myThid) |
./pkg/cost/cost_tile.F |
120 |
COST_TILE |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/cost/cost_tile.F |
121 |
COST_TILE |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/cost/cost_tile.F |
124 |
COST_TILE |
CALL COST_TRACER( bi, bj, myThid ) |
./pkg/cost/cost_tile.F |
128 |
COST_TILE |
CALL COST_TRANSPORT( bi, bj, myTime, myIter, myThid ) |
./pkg/cost/cost_tile.F |
59 |
COST_TILE |
subroutine COST_TILE( mytime, myiter, myThid ) |
./pkg/cost/cost_tile.F |
88 |
COST_TILE |
integer myThid |
./pkg/cost/cost_tracer.F |
37 |
COST_TRACER |
integer myThid |
./pkg/cost/cost_tracer.F |
6 |
COST_TRACER |
subroutine COST_TRACER( bi, bj, myThid ) |
./pkg/cost/cost_vector.F |
26 |
COST_VECTOR |
integer myThid |
./pkg/cost/cost_vector.F |
56 |
COST_VECTOR |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/cost/cost_vector.F |
57 |
COST_VECTOR |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/cost/cost_vector.F |
6 |
COST_VECTOR |
subroutine COST_VECTOR( myThid ) |
./pkg/ctrl/adctrl_bound.F |
10 |
ADCTRL_BOUND_3D |
I maskFld3d, boundsVec, myThid |
./pkg/ctrl/adctrl_bound.F |
111 |
ADCTRL_BOUND_2D |
integer myThid,bi,bj,i,j,k |
./pkg/ctrl/adctrl_bound.F |
28 |
ADCTRL_BOUND_3D |
integer myThid |
./pkg/ctrl/adctrl_bound.F |
97 |
ADCTRL_BOUND_2D |
I maskFld3d,boundsVec,myThid |
./eesupp/src/scatter_yz.F |
30 |
SCATTER_YZ |
_BEGIN_MASTER( myThid ) |
./eesupp/src/scatter_yz.F |
6 |
SCATTER_YZ |
SUBROUTINE SCATTER_YZ( global, local, myThid ) |
./eesupp/src/scatter_yz.F |
86 |
SCATTER_YZ |
_END_MASTER( myThid ) |
./pkg/ctrl/ctrl_bound.F |
10 |
CTRL_BOUND_3D |
I boundsVec,myThid) |
./pkg/ctrl/ctrl_bound.F |
23 |
CTRL_BOUND_3D |
integer myThid,bi,bj,i,j,k |
./pkg/ctrl/ctrl_bound.F |
63 |
CTRL_BOUND_2D |
I boundsVec,myThid) |
./pkg/ctrl/ctrl_bound.F |
77 |
CTRL_BOUND_2D |
integer myThid,bi,bj,i,j,k |
./pkg/ctrl/ctrl_check.F |
13 |
CTRL_CHECK |
SUBROUTINE CTRL_CHECK( myThid ) |
./pkg/ctrl/ctrl_check.F |
33 |
CTRL_CHECK |
INTEGER myThid |
./pkg/ctrl/ctrl_depth_ini.F |
131 |
CTRL_DEPTH_INI |
_EXCH_XY_RL( xx_r_low, myThid ) |
./eesupp/src/stop_if_error.F |
10 |
STOP_IF_ERROR |
SUBROUTINE STOP_IF_ERROR( errFlag, errMsg, myThid ) |
./eesupp/src/stop_if_error.F |
38 |
STOP_IF_ERROR |
INTEGER myThid |
./eesupp/src/stop_if_error.F |
56 |
STOP_IF_ERROR |
CALL GLOBAL_SUM_INT( errCount, myThid ) |
./eesupp/src/stop_if_error.F |
60 |
STOP_IF_ERROR |
IF ( errFlag ) CALL PRINT_ERROR( errMsg, myThid ) |
./eesupp/src/stop_if_error.F |
63 |
STOP_IF_ERROR |
CALL PRINT_ERROR( msgBuf, myThid ) |
./eesupp/src/stop_if_error.F |
65 |
STOP_IF_ERROR |
CALL ALL_PROC_DIE( myThid ) |
./pkg/ctrl/ctrl_hfacc_ini.F |
111 |
CTRL_HFACC_INI |
_BEGIN_MASTER( myThid ) |
./pkg/ctrl/ctrl_hfacc_ini.F |
112 |
CTRL_HFACC_INI |
CALL READ_FLD_XYZ_RL( 'hFacC', ' ', hFacC, 0, myThid ) |
./pkg/ctrl/ctrl_hfacc_ini.F |
113 |
CTRL_HFACC_INI |
_END_MASTER( myThid ) |
./pkg/ctrl/ctrl_hfacc_ini.F |
114 |
CTRL_HFACC_INI |
_EXCH_XYZ_RS( hFacC ,myThid ) |
./pkg/ctrl/ctrl_hfacc_ini.F |
157 |
CTRL_HFACC_INI |
CALL DUMMY_IN_HFAC( 'C', 0, myThid ) |
./pkg/ctrl/ctrl_hfacc_ini.F |
158 |
CTRL_HFACC_INI |
_EXCH_XYZ_RS( hFacC, myThid ) |
./pkg/ctrl/ctrl_hfacc_ini.F |
159 |
CTRL_HFACC_INI |
CALL DUMMY_IN_HFAC( 'C', 1, myThid ) |
./pkg/ctrl/ctrl_init_ctrlvar.F |
109 |
CTRL_INIT_CTRLVAR |
CALL TURNOFF_MODEL_IO( 1, myThid ) |
./pkg/ctrl/ctrl_init_wet.F |
325 |
CTRL_INIT_WET |
CALL GLOBAL_SUM_INT( nvarlength, myThid ) |
./pkg/ctrl/ctrl_init_wet.F |
348 |
CTRL_INIT_WET |
CALL GLOBAL_SUM_INT( ntmp2(1), myThid ) |
./pkg/ctrl/ctrl_init_wet.F |
357 |
CTRL_INIT_WET |
CALL GLOBAL_SUM_INT( ntmp2(2), myThid ) |
./pkg/ctrl/ctrl_init_wet.F |
366 |
CTRL_INIT_WET |
CALL GLOBAL_SUM_INT( ntmp2(3), myThid ) |
./pkg/ctrl/ctrl_init_wet.F |
375 |
CTRL_INIT_WET |
CALL GLOBAL_SUM_INT( ntmp2(4), myThid ) |
./pkg/ctrl/ctrl_init_wet.F |
400 |
CTRL_INIT_WET |
CALL GLOBAL_SUM_INT( ntmpob(iobcs), myThid ) |
./pkg/ctrl/ctrl_init_wet.F |
416 |
CTRL_INIT_WET |
CALL GLOBAL_SUM_INT( ntmpob(iobcs), myThid ) |
./pkg/ctrl/ctrl_init_wet.F |
432 |
CTRL_INIT_WET |
CALL GLOBAL_SUM_INT( ntmpob(iobcs), myThid ) |
./pkg/ctrl/ctrl_init_wet.F |
448 |
CTRL_INIT_WET |
CALL GLOBAL_SUM_INT( ntmpob(iobcs), myThid ) |
./pkg/ctrl/ctrl_map_forcing.F |
243 |
CTRL_MAP_FORCING |
CALL EXCH_UV_XY_RS(fu,fv,.TRUE.,myThid) |
./pkg/ctrl/ctrl_map_forcing.F |
246 |
CTRL_MAP_FORCING |
_EXCH_XY_RS(EmPmR, myThid ) |
./pkg/ctrl/ctrl_map_forcing.F |
249 |
CTRL_MAP_FORCING |
_EXCH_XY_RS(Qnet, myThid ) |
./pkg/ctrl/ctrl_map_forcing.F |
252 |
CTRL_MAP_FORCING |
_EXCH_XY_RS(SST, myThid ) |
./pkg/ctrl/ctrl_map_forcing.F |
255 |
CTRL_MAP_FORCING |
_EXCH_XY_RS(SSS, myThid ) |
./pkg/ctrl/ctrl_map_forcing.F |
258 |
CTRL_MAP_FORCING |
_EXCH_XY_RS(Qnetm, myThid ) |
./pkg/ctrl/ctrl_map_forcing.F |
40 |
CTRL_MAP_FORCING |
INTEGER myThid |
./pkg/ctrl/ctrl_map_forcing.F |
9 |
CTRL_MAP_FORCING |
SUBROUTINE CTRL_MAP_FORCING(myThid) |
./pkg/ctrl/ctrl_map_ini.F |
572 |
CTRL_MAP_INI |
_EXCH_XYZ_RL(pTracer(1-Olx,1-Oly,1,1,1,1),myThid) |
./pkg/ctrl/ctrl_map_ini.F |
599 |
CTRL_MAP_INI |
CALL EXCH_UV_XYZ_RS(eddyPsiX,eddyPsiY,.TRUE.,myThid) |
./eesupp/src/timers.F |
387 |
TIMER_CONTROL |
_END_MASTER(myThid) |
./eesupp/src/timers.F |
443 |
TIMER_CONTROL |
_END_MASTER(myThid) |
./pkg/ctrl/ctrl_map_ini_ecco.F |
184 |
CTRL_MAP_INI_ECCO |
CALL EXCH_UV_XYZ_RS(uvel,vvel,.TRUE.,myThid) |
./pkg/ctrl/ctrl_map_ini_ecco.F |
272 |
CTRL_MAP_INI_ECCO |
CALL EXCH_UV_XYZ_RS(eddyPsiX,eddyPsiY,.TRUE.,myThid) |
./pkg/ctrl/ctrl_map_ini_ecco.F |
90 |
CTRL_MAP_INI_ECCO |
act3 = myThid - 1 |
./pkg/ctrl/ctrl_map_ini_gen.F |
165 |
CTRL_MAP_INI_GEN3D |
CALL CTRL_BOUND_3D(paramFld3d,maskFld3d,boundsVec,myThid) |
./pkg/ctrl/ctrl_map_ini_gen.F |
253 |
CTRL_MAP_INI_GEN2D |
act3 = myThid - 1 |
./pkg/ctrl/ctrl_map_ini_gen.F |
332 |
CTRL_MAP_INI_GEN2D |
CALL CTRL_BOUND_2D(paramFld2d,maskFld3d,boundsVec,myThid) |
./pkg/ctrl/ctrl_map_ini_gen.F |
81 |
CTRL_MAP_INI_GEN3D |
act3 = myThid - 1 |
./pkg/ctrl/ctrl_mask_set_xz.F |
82 |
CTRL_MASK_SET_XZ |
_BEGIN_MASTER( myThid ) |
./pkg/ctrl/ctrl_mask_set_yz.F |
82 |
CTRL_MASK_SET_YZ |
_BEGIN_MASTER( myThid ) |
./pkg/ctrl/ctrl_readparms.F |
143 |
CTRL_READPARMS |
_BEGIN_MASTER( myThid ) |
./pkg/ctrl/ctrl_readparms.F |
362 |
CTRL_READPARMS |
I myThid ) |
./pkg/ctrl/ctrl_readparms.F |
374 |
CTRL_READPARMS |
_END_MASTER( myThid ) |
./eesupp/src/utils.F |
158 |
DATE |
INTEGER FUNCTION IO_ERRCOUNT(myThid) |
./eesupp/src/utils.F |
175 |
DATE |
INTEGER myThid |
./eesupp/src/utils.F |
179 |
DATE |
IO_ERRCOUNT = ioErrorCount(myThid) |
./pkg/ctrl/ctrl_set_pack_xy.F |
407 |
CTRL_SET_PACK_XY |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/ctrl/ctrl_set_pack_xy.F |
408 |
CTRL_SET_PACK_XY |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/ctrl/ctrl_set_pack_xy.F |
468 |
CTRL_SET_PACK_XY |
& 0, 0, 1, k, 1, 0, 0, .FALSE., myThid ) |
./pkg/ctrl/ctrl_set_pack_xy.F |
469 |
CTRL_SET_PACK_XY |
CALL BAR2( myThid ) |
./pkg/ctrl/ctrl_set_pack_xy.F |
471 |
CTRL_SET_PACK_XY |
& Nx,Ny,.FALSE.,.TRUE.,myThid) |
./pkg/ctrl/ctrl_set_pack_xy.F |
472 |
CTRL_SET_PACK_XY |
CALL BAR2( myThid ) |
./pkg/ctrl/ctrl_set_pack_xy.F |
475 |
CTRL_SET_PACK_XY |
& 0, 0, 1, k, Nr, 0, 0, .FALSE., myThid ) |
./pkg/ctrl/ctrl_set_pack_xy.F |
476 |
CTRL_SET_PACK_XY |
CALL BAR2( myThid ) |
./pkg/ctrl/ctrl_set_pack_xy.F |
478 |
CTRL_SET_PACK_XY |
& Nx,Ny,.FALSE.,.TRUE.,myThid) |
./pkg/ctrl/ctrl_set_pack_xy.F |
479 |
CTRL_SET_PACK_XY |
CALL BAR2( myThid ) |
./pkg/ctrl/ctrl_set_pack_xyz.F |
338 |
CTRL_SET_PACK_XYZ |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/ctrl/ctrl_set_pack_xyz.F |
339 |
CTRL_SET_PACK_XYZ |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/ctrl/ctrl_set_pack_xyz.F |
409 |
CTRL_SET_PACK_XYZ |
& 0, 0, 1, k, Nr, 0, 0, .FALSE., myThid ) |
./pkg/ctrl/ctrl_set_pack_xyz.F |
410 |
CTRL_SET_PACK_XYZ |
CALL BAR2( myThid ) |
./pkg/ctrl/ctrl_set_pack_xyz.F |
412 |
CTRL_SET_PACK_XYZ |
& Nx,Ny,.FALSE.,.TRUE.,myThid) |
./pkg/ctrl/ctrl_set_pack_xyz.F |
413 |
CTRL_SET_PACK_XYZ |
CALL BAR2( myThid ) |
./pkg/ctrl/ctrl_set_pack_xyz.F |
416 |
CTRL_SET_PACK_XYZ |
& 0, 0, 1, k, Nr, 0, 0, .FALSE., myThid ) |
./pkg/ctrl/ctrl_set_pack_xyz.F |
417 |
CTRL_SET_PACK_XYZ |
CALL BAR2( myThid ) |
./pkg/ctrl/ctrl_set_pack_xyz.F |
419 |
CTRL_SET_PACK_XYZ |
& Nx,Ny,.FALSE.,.TRUE.,myThid) |
./pkg/ctrl/ctrl_set_pack_xyz.F |
420 |
CTRL_SET_PACK_XYZ |
CALL BAR2( myThid ) |
./pkg/ctrl/ctrl_set_unpack_xy.F |
471 |
CTRL_SET_UNPACK_XY |
& 0, 0, 1, k, Nr, 0, 0, .FALSE., myThid ) |
./pkg/ctrl/ctrl_set_unpack_xy.F |
472 |
CTRL_SET_UNPACK_XY |
CALL BAR2( myThid ) |
./pkg/ctrl/ctrl_set_unpack_xy.F |
474 |
CTRL_SET_UNPACK_XY |
& Nx,Ny,.FALSE.,.TRUE.,myThid) |
./pkg/ctrl/ctrl_set_unpack_xy.F |
475 |
CTRL_SET_UNPACK_XY |
CALL BAR2( myThid ) |
./pkg/ctrl/ctrl_set_unpack_xy.F |
513 |
CTRL_SET_UNPACK_XY |
CALL BAR2( myThid ) |
./pkg/ctrl/ctrl_set_unpack_xy.F |
515 |
CTRL_SET_UNPACK_XY |
& Nx,Ny,.FALSE.,.TRUE.,myThid) |
./pkg/ctrl/ctrl_set_unpack_xy.F |
516 |
CTRL_SET_UNPACK_XY |
CALL BAR2( myThid ) |
./pkg/ctrl/ctrl_set_unpack_xy.F |
518 |
CTRL_SET_UNPACK_XY |
& 0, 0, 1, k, 1, 0, 0, .TRUE., myThid ) |
./pkg/ctrl/ctrl_set_unpack_xy.F |
524 |
CTRL_SET_UNPACK_XY |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/ctrl/ctrl_set_unpack_xy.F |
525 |
CTRL_SET_UNPACK_XY |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/ctrl/ctrl_set_unpack_xyz.F |
383 |
CTRL_SET_UNPACK_XYZ |
& 0, 0, 1, k, Nr, 0, 0, .FALSE., myThid ) |
./pkg/ctrl/ctrl_set_unpack_xyz.F |
384 |
CTRL_SET_UNPACK_XYZ |
CALL BAR2( myThid ) |
./pkg/ctrl/ctrl_set_unpack_xyz.F |
386 |
CTRL_SET_UNPACK_XYZ |
& Nx,Ny,.FALSE.,.TRUE.,myThid) |
./pkg/ctrl/ctrl_set_unpack_xyz.F |
387 |
CTRL_SET_UNPACK_XYZ |
CALL BAR2( myThid ) |
./pkg/ctrl/ctrl_set_unpack_xyz.F |
425 |
CTRL_SET_UNPACK_XYZ |
CALL BAR2( myThid ) |
./pkg/ctrl/ctrl_set_unpack_xyz.F |
427 |
CTRL_SET_UNPACK_XYZ |
& Nx,Ny,.FALSE.,.TRUE.,myThid) |
./pkg/ctrl/ctrl_set_unpack_xyz.F |
428 |
CTRL_SET_UNPACK_XYZ |
CALL BAR2( myThid ) |
./pkg/ctrl/ctrl_set_unpack_xyz.F |
430 |
CTRL_SET_UNPACK_XYZ |
& 0, 0, 1, k, Nr, 0, 0, .TRUE., myThid ) |
./pkg/ctrl/ctrl_set_unpack_xyz.F |
435 |
CTRL_SET_UNPACK_XYZ |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/ctrl/ctrl_set_unpack_xyz.F |
436 |
CTRL_SET_UNPACK_XYZ |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/ctrl/optim_readparms.F |
83 |
OPTIM_READPARMS |
I myThid ) |
./pkg/debug/chksum_tiled.F |
13 |
CHKSUM_TILED |
INTEGER NN,bi,bj,myThid |
./pkg/debug/chksum_tiled.F |
6 |
CHKSUM_TILED |
SUBROUTINE CHKSUM_TILED( str,fld,NN,bi,bj,myThid ) |
./pkg/debug/debug_call.F |
22 |
DEBUG_CALL |
INTEGER myThid |
./pkg/debug/debug_call.F |
28 |
DEBUG_CALL |
CALL DEBUG_MSG( msgBuf, myThid ) |
./pkg/debug/debug_call.F |
8 |
DEBUG_CALL |
I myThid ) |
./pkg/debug/debug_cs_corner_uv.F |
50 |
DEBUG_CS_CORNER_UV |
INTEGER myThid |
./pkg/debug/debug_cs_corner_uv.F |
9 |
DEBUG_CS_CORNER_UV |
I k, ioUnit, bi,bj, myThid ) |
./pkg/debug/debug_enter.F |
22 |
DEBUG_ENTER |
INTEGER myThid |
./pkg/debug/debug_enter.F |
28 |
DEBUG_ENTER |
CALL DEBUG_MSG( msgBuf, myThid ) |
./pkg/debug/debug_enter.F |
8 |
DEBUG_ENTER |
I myThid ) |
./pkg/debug/debug_fld_stats_rl.F |
28 |
DEBUG_FLD_STATS_RL |
INTEGER myThid |
./pkg/debug/debug_fld_stats_rl.F |
45 |
DEBUG_FLD_STATS_RL |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/debug/debug_fld_stats_rl.F |
46 |
DEBUG_FLD_STATS_RL |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/debug/debug_fld_stats_rl.F |
70 |
DEBUG_FLD_STATS_RL |
_GLOBAL_MAX_RL(theMin,myThid) |
./pkg/debug/debug_fld_stats_rl.F |
72 |
DEBUG_FLD_STATS_RL |
_GLOBAL_MAX_RL(theMax,myThid) |
./pkg/debug/debug_fld_stats_rl.F |
73 |
DEBUG_FLD_STATS_RL |
_GLOBAL_SUM_RL(theMean,myThid) |
./pkg/debug/debug_fld_stats_rl.F |
74 |
DEBUG_FLD_STATS_RL |
_GLOBAL_SUM_RL(theVar,myThid) |
./pkg/debug/debug_fld_stats_rl.F |
76 |
DEBUG_FLD_STATS_RL |
_GLOBAL_SUM_RL(tmpVal,myThid) |
./pkg/debug/debug_fld_stats_rl.F |
84 |
DEBUG_FLD_STATS_RL |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/debug/debug_fld_stats_rl.F |
85 |
DEBUG_FLD_STATS_RL |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/debug/debug_fld_stats_rl.F |
99 |
DEBUG_FLD_STATS_RL |
_GLOBAL_SUM_RL(theSD,myThid) |
./pkg/debug/debug_fld_stats_rl.F |
9 |
DEBUG_FLD_STATS_RL |
I myThid ) |
./pkg/debug/debug_fld_stats_rs.F |
28 |
DEBUG_FLD_STATS_RS |
INTEGER myThid |
./pkg/debug/debug_fld_stats_rs.F |
45 |
DEBUG_FLD_STATS_RS |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/debug/debug_fld_stats_rs.F |
46 |
DEBUG_FLD_STATS_RS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/debug/debug_fld_stats_rs.F |
70 |
DEBUG_FLD_STATS_RS |
_GLOBAL_MAX_RL(theMin,myThid) |
./pkg/debug/debug_fld_stats_rs.F |
72 |
DEBUG_FLD_STATS_RS |
_GLOBAL_MAX_RL(theMax,myThid) |
./pkg/debug/debug_fld_stats_rs.F |
73 |
DEBUG_FLD_STATS_RS |
_GLOBAL_SUM_RL(theMean,myThid) |
./pkg/debug/debug_fld_stats_rs.F |
74 |
DEBUG_FLD_STATS_RS |
_GLOBAL_SUM_RL(theVar,myThid) |
./pkg/debug/debug_fld_stats_rs.F |
76 |
DEBUG_FLD_STATS_RS |
_GLOBAL_SUM_RL(tmpVal,myThid) |
./pkg/debug/debug_fld_stats_rs.F |
84 |
DEBUG_FLD_STATS_RS |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/debug/debug_fld_stats_rs.F |
85 |
DEBUG_FLD_STATS_RS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/debug/debug_fld_stats_rs.F |
99 |
DEBUG_FLD_STATS_RS |
_GLOBAL_SUM_RL(theSD,myThid) |
./pkg/debug/debug_fld_stats_rs.F |
9 |
DEBUG_FLD_STATS_RS |
I myThid ) |
./pkg/debug/debug_leave.F |
22 |
DEBUG_LEAVE |
INTEGER myThid |
./pkg/debug/debug_leave.F |
28 |
DEBUG_LEAVE |
CALL DEBUG_MSG( msgBuf, myThid ) |
./pkg/debug/debug_leave.F |
8 |
DEBUG_LEAVE |
I myThid ) |
./pkg/debug/debug_msg.F |
22 |
DEBUG_MSG |
INTEGER myThid |
./pkg/debug/debug_msg.F |
27 |
DEBUG_MSG |
_BEGIN_MASTER( myThid ) |
./pkg/debug/debug_msg.F |
30 |
DEBUG_MSG |
& standardMessageUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/debug/debug_msg.F |
31 |
DEBUG_MSG |
_END_MASTER( myThid ) |
./pkg/debug/debug_msg.F |
8 |
DEBUG_MSG |
I myThid ) |
./pkg/debug/debug_stats_rl.F |
27 |
DEBUG_STATS_RL |
INTEGER myThid |
./pkg/debug/debug_stats_rl.F |
38 |
DEBUG_STATS_RL |
I myThid ) |
./pkg/debug/debug_stats_rl.F |
40 |
DEBUG_STATS_RL |
_BEGIN_MASTER( myThid ) |
./pkg/debug/debug_stats_rl.F |
49 |
DEBUG_STATS_RL |
_END_MASTER( myThid ) |
./pkg/debug/debug_stats_rl.F |
8 |
DEBUG_STATS_RL |
I myThid ) |
./pkg/debug/debug_stats_rs.F |
27 |
DEBUG_STATS_RS |
INTEGER myThid |
./pkg/debug/debug_stats_rs.F |
38 |
DEBUG_STATS_RS |
I myThid ) |
./pkg/debug/debug_stats_rs.F |
40 |
DEBUG_STATS_RS |
_BEGIN_MASTER( myThid ) |
./pkg/debug/debug_stats_rs.F |
49 |
DEBUG_STATS_RS |
_END_MASTER( myThid ) |
./pkg/debug/debug_stats_rs.F |
8 |
DEBUG_STATS_RS |
I myThid ) |
./pkg/debug/fill_in_corners_rl.F |
31 |
FILL_IN_CORNERS_RL |
INTEGER myThid |
./pkg/debug/fill_in_corners_rl.F |
41 |
FILL_IN_CORNERS_RL |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/debug/fill_in_corners_rl.F |
42 |
FILL_IN_CORNERS_RL |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/debug/fill_in_corners_rl.F |
9 |
FILL_IN_CORNERS_RL |
I myThid ) |
./pkg/debug/write_fullarray_rl.F |
116 |
WRITE_FULLARRAY_RL |
& filePrec, (sNx+2*Olx)*(sNy+2*Oly), myThid ) |
./pkg/debug/write_fullarray_rl.F |
11 |
WRITE_FULLARRAY_RL |
I iRec, myIter, myThid ) |
./pkg/debug/write_fullarray_rl.F |
129 |
WRITE_FULLARRAY_RL |
_END_MASTER( myThid ) |
./pkg/debug/write_fullarray_rl.F |
40 |
WRITE_FULLARRAY_RL |
INTEGER myThid |
./pkg/debug/write_fullarray_rl.F |
60 |
WRITE_FULLARRAY_RL |
_BEGIN_MASTER( myThid ) |
./pkg/debug/write_fullarray_rl.F |
65 |
WRITE_FULLARRAY_RL |
CALL MDSFINDUNIT( dUnit, myThid ) |
./pkg/debug/write_fullarray_rl.F |
87 |
WRITE_FULLARRAY_RL |
& filePrec, (sNx+2*Olx)*(sNy+2*Oly), myThid ) |
./pkg/diagnostics/diag_vegtile_fill.F |
11 |
DIAG_VEGTILE_FILL |
& check, chardiag, kLev, nLevs, bi, bj, myThid ) |
./pkg/diagnostics/diag_vegtile_fill.F |
134 |
DIAG_VEGTILE_FILL |
_BEGIN_MASTER(myThid) |
./pkg/diagnostics/diag_vegtile_fill.F |
137 |
DIAG_VEGTILE_FILL |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diag_vegtile_fill.F |
140 |
DIAG_VEGTILE_FILL |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diag_vegtile_fill.F |
143 |
DIAG_VEGTILE_FILL |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diag_vegtile_fill.F |
146 |
DIAG_VEGTILE_FILL |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diag_vegtile_fill.F |
148 |
DIAG_VEGTILE_FILL |
_END_MASTER(myThid) |
./pkg/diagnostics/diag_vegtile_fill.F |
266 |
DIAG_VEGTILE_FILL |
I 3, bi, bj, myThid ) |
./pkg/diagnostics/diag_vegtile_fill.F |
49 |
DIAG_VEGTILE_FILL |
INTEGER myThid |
./pkg/diagnostics/diagnostics_addtolist.F |
102 |
DIAGNOSTICS_ADDTOLIST |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/diagnostics/diagnostics_addtolist.F |
105 |
DIAGNOSTICS_ADDTOLIST |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/diagnostics/diagnostics_addtolist.F |
127 |
DIAGNOSTICS_ADDTOLIST |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/diagnostics/diagnostics_addtolist.F |
130 |
DIAGNOSTICS_ADDTOLIST |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/diagnostics/diagnostics_addtolist.F |
136 |
DIAGNOSTICS_ADDTOLIST |
_END_MASTER( myThid ) |
./pkg/diagnostics/diagnostics_addtolist.F |
14 |
DIAGNOSTICS_ADDTOLIST |
I myThid ) |
./pkg/diagnostics/diagnostics_addtolist.F |
44 |
DIAGNOSTICS_ADDTOLIST |
INTEGER myThid |
./pkg/diagnostics/diagnostics_addtolist.F |
59 |
DIAGNOSTICS_ADDTOLIST |
_BEGIN_MASTER( myThid) |
./pkg/diagnostics/diagnostics_addtolist.F |
66 |
DIAGNOSTICS_ADDTOLIST |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/diagnostics/diagnostics_addtolist.F |
69 |
DIAGNOSTICS_ADDTOLIST |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/diagnostics/diagnostics_addtolist.F |
72 |
DIAGNOSTICS_ADDTOLIST |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/diagnostics/diagnostics_addtolist.F |
75 |
DIAGNOSTICS_ADDTOLIST |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/diagnostics/diagnostics_addtolist.F |
88 |
DIAGNOSTICS_ADDTOLIST |
& SQUEEZE_RIGHT , myThid) |
./pkg/diagnostics/diagnostics_addtolist.F |
92 |
DIAGNOSTICS_ADDTOLIST |
& SQUEEZE_RIGHT , myThid) |
./pkg/diagnostics/diagnostics_addtolist.F |
99 |
DIAGNOSTICS_ADDTOLIST |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/diagnostics/diagnostics_check.F |
101 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_check.F |
104 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_check.F |
11 |
DIAGNOSTICS_CHECK |
SUBROUTINE DIAGNOSTICS_CHECK(myThid) |
./pkg/diagnostics/diagnostics_check.F |
132 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_check.F |
136 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_check.F |
144 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_check.F |
147 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_check.F |
155 |
DIAGNOSTICS_CHECK |
& jpoint1, ipoint1, myThid ) |
./pkg/diagnostics/diagnostics_check.F |
159 |
DIAGNOSTICS_CHECK |
& jpoint2, ipoint2, myThid ) |
./pkg/diagnostics/diagnostics_check.F |
162 |
DIAGNOSTICS_CHECK |
& jpoint2, ipoint2, myThid ) |
./pkg/diagnostics/diagnostics_check.F |
167 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_check.F |
171 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_check.F |
176 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_check.F |
181 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_check.F |
186 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_check.F |
195 |
DIAGNOSTICS_CHECK |
_END_MASTER(myThid) |
./pkg/diagnostics/diagnostics_check.F |
26 |
DIAGNOSTICS_CHECK |
INTEGER myThid |
./pkg/diagnostics/diagnostics_check.F |
36 |
DIAGNOSTICS_CHECK |
_BEGIN_MASTER(myThid) |
./pkg/diagnostics/diagnostics_check.F |
46 |
DIAGNOSTICS_CHECK |
& SQUEEZE_RIGHT , myThid) |
./pkg/diagnostics/diagnostics_check.F |
50 |
DIAGNOSTICS_CHECK |
& SQUEEZE_RIGHT , myThid) |
./pkg/diagnostics/diagnostics_check.F |
54 |
DIAGNOSTICS_CHECK |
& SQUEEZE_RIGHT , myThid) |
./pkg/diagnostics/diagnostics_check.F |
62 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/diagnostics/diagnostics_check.F |
68 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/diagnostics/diagnostics_check.F |
81 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_check.F |
84 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_check.F |
87 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_check.F |
98 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_clear.F |
28 |
DIAGNOSTICS_CLEAR |
INTEGER listId, myThid |
./pkg/diagnostics/diagnostics_clear.F |
39 |
DIAGNOSTICS_CLEAR |
CALL DIAGNOSTICS_CLRDIAG( ipt, nLev, myThid ) |
./pkg/diagnostics/diagnostics_clear.F |
51 |
DIAGNOSTICS_CLRDIAG |
SUBROUTINE DIAGNOSTICS_CLRDIAG ( ipt, nLev, myThid ) |
./pkg/diagnostics/diagnostics_clear.F |
72 |
DIAGNOSTICS_CLRDIAG |
INTEGER myThid |
./pkg/diagnostics/diagnostics_clear.F |
84 |
DIAGNOSTICS_CLRDIAG |
DO bj=myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagnostics_clear.F |
85 |
DIAGNOSTICS_CLRDIAG |
DO bi=myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagnostics_clear.F |
9 |
DIAGNOSTICS_CLEAR |
SUBROUTINE DIAGNOSTICS_CLEAR (listId, myThid) |
./pkg/diagnostics/diagnostics_fill.F |
11 |
DIAGNOSTICS_FILL |
I kLev, nLevs, bibjFlg, biArg, bjArg, myThid ) |
./pkg/diagnostics/diagnostics_fill.F |
139 |
DIAGNOSTICS_FILL |
I bibjFlg, biArg, bjArg, myThid ) |
./pkg/diagnostics/diagnostics_fill.F |
60 |
DIAGNOSTICS_FILL |
INTEGER myThid |
./pkg/diagnostics/diagnostics_fill.F |
77 |
DIAGNOSTICS_FILL |
bi = myBxLo(myThid) |
./pkg/diagnostics/diagnostics_fill.F |
78 |
DIAGNOSTICS_FILL |
bj = myByLo(myThid) |
./pkg/diagnostics/diagnostics_fill.F |
98 |
DIAGNOSTICS_FILL |
I bibjFlg, biArg, bjArg, myThid ) |
./pkg/diagnostics/diagnostics_fill_field.F |
108 |
DIAGNOSTICS_FILL_FIELD |
DO bj=myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagnostics_fill_field.F |
109 |
DIAGNOSTICS_FILL_FIELD |
DO bi=myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagnostics_fill_field.F |
198 |
DIAGNOSTICS_FILL_FIELD |
_BEGIN_MASTER(myThid) |
./pkg/diagnostics/diagnostics_fill_field.F |
19 |
DIAGNOSTICS_FILL_FIELD |
I bibjFlg, biArg, bjArg, myThid ) |
./pkg/diagnostics/diagnostics_fill_field.F |
201 |
DIAGNOSTICS_FILL_FIELD |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_fill_field.F |
204 |
DIAGNOSTICS_FILL_FIELD |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_fill_field.F |
207 |
DIAGNOSTICS_FILL_FIELD |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_fill_field.F |
210 |
DIAGNOSTICS_FILL_FIELD |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_fill_field.F |
212 |
DIAGNOSTICS_FILL_FIELD |
_END_MASTER(myThid) |
./pkg/diagnostics/diagnostics_fill_field.F |
217 |
DIAGNOSTICS_FILL_FIELD |
DO bj=myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagnostics_fill_field.F |
218 |
DIAGNOSTICS_FILL_FIELD |
DO bi=myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagnostics_fill_field.F |
227 |
DIAGNOSTICS_FILL_FIELD |
I myThid) |
./pkg/diagnostics/diagnostics_fill_field.F |
242 |
DIAGNOSTICS_FILL_FIELD |
I myThid) |
./pkg/diagnostics/diagnostics_fill_field.F |
268 |
DIAGNOSTICS_CUMULATE |
I myThid ) |
./pkg/diagnostics/diagnostics_fill_field.F |
313 |
DIAGNOSTICS_CUMULATE |
INTEGER myThid |
./pkg/diagnostics/diagnostics_fill_field.F |
86 |
DIAGNOSTICS_FILL_FIELD |
INTEGER myThid |
./pkg/diagnostics/diagnostics_fill_rs.F |
11 |
DIAGNOSTICS_FILL_RS |
I kLev, nLevs, bibjFlg, biArg, bjArg, myThid ) |
./pkg/diagnostics/diagnostics_fill_rs.F |
141 |
DIAGNOSTICS_FILL_RS |
I bibjFlg, biArg, bjArg, myThid ) |
./pkg/diagnostics/diagnostics_fill_rs.F |
60 |
DIAGNOSTICS_FILL_RS |
INTEGER myThid |
./pkg/diagnostics/diagnostics_fill_rs.F |
77 |
DIAGNOSTICS_FILL_RS |
bi = myBxLo(myThid) |
./pkg/diagnostics/diagnostics_fill_rs.F |
78 |
DIAGNOSTICS_FILL_RS |
bj = myByLo(myThid) |
./pkg/diagnostics/diagnostics_fill_rs.F |
98 |
DIAGNOSTICS_FILL_RS |
I bibjFlg, biArg, bjArg, myThid ) |
./pkg/diagnostics/diagnostics_fill_state.F |
102 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('UE_VEL_C',myThid) .OR. |
./pkg/diagnostics/diagnostics_fill_state.F |
103 |
DIAGNOSTICS_FILL_STATE |
& DIAGNOSTICS_IS_ON('VN_VEL_C',myThid) .OR. |
./pkg/diagnostics/diagnostics_fill_state.F |
104 |
DIAGNOSTICS_FILL_STATE |
& DIAGNOSTICS_IS_ON('UV_VEL_C',myThid) ) THEN |
./pkg/diagnostics/diagnostics_fill_state.F |
105 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
106 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
121 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpU,'UE_VEL_C',k,1,2,bi,bj,myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
122 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpV,'VN_VEL_C',k,1,2,bi,bj,myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
126 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'UV_VEL_C',0,Nr,0,1,1,myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
129 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('UV_VEL_Z',myThid) ) THEN |
./pkg/diagnostics/diagnostics_fill_state.F |
130 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
131 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
143 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'UV_VEL_Z',0,Nr,0,1,1,myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
146 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('WU_VEL ',myThid) ) THEN |
./pkg/diagnostics/diagnostics_fill_state.F |
147 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
148 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
163 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'WU_VEL ',0,Nr,0,1,1,myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
166 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('WV_VEL ',myThid) ) THEN |
./pkg/diagnostics/diagnostics_fill_state.F |
167 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
168 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
183 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'WV_VEL ',0,Nr,0,1,1,myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
188 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('UVELTH ',myThid) ) THEN |
./pkg/diagnostics/diagnostics_fill_state.F |
189 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
190 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
201 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'UVELTH ',0,Nr,0,1,1,myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
204 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('VVELTH ',myThid) ) THEN |
./pkg/diagnostics/diagnostics_fill_state.F |
205 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
206 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
217 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'VVELTH ',0,Nr,0,1,1,myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
220 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('WVELTH ',myThid) ) THEN |
./pkg/diagnostics/diagnostics_fill_state.F |
221 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
222 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
234 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'WVELTH ',0,Nr,0,1,1,myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
237 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('UVELSLT ',myThid) ) THEN |
./pkg/diagnostics/diagnostics_fill_state.F |
238 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
239 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
250 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'UVELSLT ',0,Nr,0,1,1,myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
253 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('VVELSLT ',myThid) ) THEN |
./pkg/diagnostics/diagnostics_fill_state.F |
254 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
255 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
266 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'VVELSLT ',0,Nr,0,1,1,myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
269 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('WVELSLT ',myThid) ) THEN |
./pkg/diagnostics/diagnostics_fill_state.F |
270 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
271 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
283 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'WVELSLT ',0,Nr,0,1,1,myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
286 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('UVELPHI ',myThid) ) THEN |
./pkg/diagnostics/diagnostics_fill_state.F |
287 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
288 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
299 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'UVELPHI ',0,Nr,0,1,1,myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
302 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('VVELPHI ',myThid) ) THEN |
./pkg/diagnostics/diagnostics_fill_state.F |
303 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
304 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
315 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'VVELPHI ',0,Nr,0,1,1,myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
318 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('RCENTER ',myThid) ) THEN |
./pkg/diagnostics/diagnostics_fill_state.F |
319 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
320 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
340 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'RCENTER ',0,Nr,0,1,1,myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
347 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('TOTUTEND',myThid) ) THEN |
./pkg/diagnostics/diagnostics_fill_state.F |
348 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
349 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
360 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'TOTUTEND',0,Nr,0,1,1,myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
363 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('TOTVTEND',myThid) ) THEN |
./pkg/diagnostics/diagnostics_fill_state.F |
364 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
365 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
376 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'TOTVTEND',0,Nr,0,1,1,myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
379 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('TOTTTEND',myThid) ) THEN |
./pkg/diagnostics/diagnostics_fill_state.F |
380 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
381 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
38 |
DIAGNOSTICS_FILL_STATE |
INTEGER myThid |
./pkg/diagnostics/diagnostics_fill_state.F |
392 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'TOTTTEND',0,Nr,0,1,1,myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
395 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('TOTSTEND',myThid) ) THEN |
./pkg/diagnostics/diagnostics_fill_state.F |
396 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
397 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
408 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'TOTSTEND',0,Nr,0,1,1,myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
419 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(theta,'THETA ',0,Nr,0,1,1,myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
420 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(salt, 'SALT ',0,Nr,0,1,1,myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
423 |
DIAGNOSTICS_FILL_STATE |
IF((useFIZHI).and.(DIAGNOSTICS_IS_ON('RELHUM ',myThid)))THEN |
./pkg/diagnostics/diagnostics_fill_state.F |
425 |
DIAGNOSTICS_FILL_STATE |
do bj = myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
426 |
DIAGNOSTICS_FILL_STATE |
do bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
440 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk, 'RELHUM ',0,Nr,0,1,1,myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
445 |
DIAGNOSTICS_FILL_STATE |
& 'THETASQ ',0,Nr,0,1,1,myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
447 |
DIAGNOSTICS_FILL_STATE |
& 'SALTSQ ',0,Nr,0,1,1,myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
476 |
DIAGNOSTICS_FILL_STATE |
& ( DIAGNOSTICS_IS_ON('SALTanom',myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
477 |
DIAGNOSTICS_FILL_STATE |
& .OR.DIAGNOSTICS_IS_ON('SALTSQan',myThid) ) ) THEN |
./pkg/diagnostics/diagnostics_fill_state.F |
478 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
479 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
489 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL( tmpMk,'SALTanom',0,Nr,0,1,1,myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
491 |
DIAGNOSTICS_FILL_STATE |
& 'SALTSQan',0,Nr,0,1,1,myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
496 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('UVELMASS',myThid) ) THEN |
./pkg/diagnostics/diagnostics_fill_state.F |
497 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
498 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
509 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'UVELMASS',0,Nr,0,1,1,myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
512 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('VVELMASS',myThid) ) THEN |
./pkg/diagnostics/diagnostics_fill_state.F |
513 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
514 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
525 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'VVELMASS',0,Nr,0,1,1,myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
528 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(wVel, 'WVELMASS',0,Nr,0,1,1,myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
530 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('UTHMASS ',myThid) ) THEN |
./pkg/diagnostics/diagnostics_fill_state.F |
531 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
532 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
544 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'UTHMASS ',0,Nr,0,1,1,myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
547 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('VTHMASS ',myThid) ) THEN |
./pkg/diagnostics/diagnostics_fill_state.F |
548 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
549 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
561 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'VTHMASS ',0,Nr,0,1,1,myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
564 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('WTHMASS ',myThid) ) THEN |
./pkg/diagnostics/diagnostics_fill_state.F |
565 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
566 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
578 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'WTHMASS ',0,Nr,0,1,1,myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
581 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('USLTMASS',myThid) ) THEN |
./pkg/diagnostics/diagnostics_fill_state.F |
582 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
583 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
595 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'USLTMASS',0,Nr,0,1,1,myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
598 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('VSLTMASS',myThid) ) THEN |
./pkg/diagnostics/diagnostics_fill_state.F |
599 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
600 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
612 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'VSLTMASS',0,Nr,0,1,1,myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
615 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('WSLTMASS',myThid) ) THEN |
./pkg/diagnostics/diagnostics_fill_state.F |
616 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
617 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
61 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(etaN, 'ETAN ',0, 1,0,1,1,myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
629 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'WSLTMASS',0,Nr,0,1,1,myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
63 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('RSURF ',myThid) ) THEN |
./pkg/diagnostics/diagnostics_fill_state.F |
640 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('TOTUTEND',myThid) ) THEN |
./pkg/diagnostics/diagnostics_fill_state.F |
641 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
642 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
64 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
651 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'TOTUTEND',0,Nr,-1,bi,bj,myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
656 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('TOTVTEND',myThid) ) THEN |
./pkg/diagnostics/diagnostics_fill_state.F |
657 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
658 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
65 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
667 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'TOTVTEND',0,Nr,-1,bi,bj,myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
672 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('TOTTTEND',myThid) ) THEN |
./pkg/diagnostics/diagnostics_fill_state.F |
673 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
674 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
683 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'TOTTTEND',0,Nr,-1,bi,bj,myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
688 |
DIAGNOSTICS_FILL_STATE |
IF ( DIAGNOSTICS_IS_ON('TOTSTEND',myThid) ) THEN |
./pkg/diagnostics/diagnostics_fill_state.F |
689 |
DIAGNOSTICS_FILL_STATE |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
690 |
DIAGNOSTICS_FILL_STATE |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
699 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmpMk,'TOTSTEND',0,Nr,-1,bi,bj,myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
73 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(tmp1k,'RSURF ',0,1,0,1,1,myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
77 |
DIAGNOSTICS_FILL_STATE |
& 'ETANSQ ',0, 1,0,1,1,myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
81 |
DIAGNOSTICS_FILL_STATE |
& 'DETADT2 ',0, 1,0,1,1,myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
85 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL( phi_nh,'PHI_NH ',0,Nr,0,1,1,myThid ) |
./pkg/diagnostics/diagnostics_fill_state.F |
89 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(uVel, 'UVEL ',0,Nr,0,1,1,myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
90 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(vVel, 'VVEL ',0,Nr,0,1,1,myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
91 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL(wVel, 'WVEL ',0,Nr,0,1,1,myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
94 |
DIAGNOSTICS_FILL_STATE |
& 'UVELSQ ',0,Nr,0,1,1,myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
96 |
DIAGNOSTICS_FILL_STATE |
& 'VVELSQ ',0,Nr,0,1,1,myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
98 |
DIAGNOSTICS_FILL_STATE |
& 'WVELSQ ',0,Nr,0,1,1,myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
9 |
DIAGNOSTICS_FILL_STATE |
SUBROUTINE DIAGNOSTICS_FILL_STATE( selectVars, myThid ) |
./pkg/diagnostics/diagnostics_fract_fill.F |
114 |
DIAGNOSTICS_FRACT_FILL |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_fract_fill.F |
117 |
DIAGNOSTICS_FRACT_FILL |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_fract_fill.F |
11 |
DIAGNOSTICS_FRACT_FILL |
I kLev, nLevs, bibjFlg, biArg, bjArg, myThid ) |
./pkg/diagnostics/diagnostics_fract_fill.F |
127 |
DIAGNOSTICS_FRACT_FILL |
I bibjFlg, biArg, bjArg, myThid ) |
./pkg/diagnostics/diagnostics_fract_fill.F |
154 |
DIAGNOSTICS_FRACT_FILL |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_fract_fill.F |
157 |
DIAGNOSTICS_FRACT_FILL |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_fract_fill.F |
185 |
DIAGNOSTICS_FRACT_FILL |
I bibjFlg, biArg, bjArg, myThid ) |
./pkg/diagnostics/diagnostics_fract_fill.F |
73 |
DIAGNOSTICS_FRACT_FILL |
INTEGER myThid |
./pkg/diagnostics/diagnostics_fract_fill.F |
90 |
DIAGNOSTICS_FRACT_FILL |
bi = myBxLo(myThid) |
./pkg/diagnostics/diagnostics_fract_fill.F |
91 |
DIAGNOSTICS_FRACT_FILL |
bj = myByLo(myThid) |
./pkg/diagnostics/diagnostics_init_early.F |
11 |
DIAGNOSTICS_INIT_EARLY |
SUBROUTINE DIAGNOSTICS_INIT_EARLY( myThid ) |
./pkg/diagnostics/diagnostics_init_early.F |
211 |
DIAGNOSTICS_INIT_EARLY |
_END_MASTER( myThid ) |
./pkg/diagnostics/diagnostics_init_early.F |
64 |
DIAGNOSTICS_INIT_EARLY |
INTEGER myThid |
./pkg/diagnostics/diagnostics_init_early.F |
72 |
DIAGNOSTICS_INIT_EARLY |
_BEGIN_MASTER( myThid ) |
./pkg/diagnostics/diagnostics_init_fixed.F |
11 |
DIAGNOSTICS_INIT_FIXED |
SUBROUTINE DIAGNOSTICS_INIT_FIXED(myThid) |
./pkg/diagnostics/diagnostics_init_fixed.F |
28 |
DIAGNOSTICS_INIT_FIXED |
INTEGER myThid |
./pkg/diagnostics/diagnostics_init_fixed.F |
35 |
DIAGNOSTICS_INIT_FIXED |
CALL DIAGNOSTICS_SET_LEVELS( myThid ) |
./pkg/diagnostics/diagnostics_init_fixed.F |
38 |
DIAGNOSTICS_INIT_FIXED |
CALL DIAGNOSTICS_SET_POINTERS( myThid ) |
./pkg/diagnostics/diagnostics_init_fixed.F |
41 |
DIAGNOSTICS_INIT_FIXED |
CALL DIAGSTATS_SET_REGIONS( myThid ) |
./pkg/diagnostics/diagnostics_init_fixed.F |
44 |
DIAGNOSTICS_INIT_FIXED |
CALL DIAGSTATS_SET_POINTERS( myThid ) |
./pkg/diagnostics/diagnostics_init_fixed.F |
46 |
DIAGNOSTICS_INIT_FIXED |
CALL DIAGSTATS_INI_IO( myThid ) |
./pkg/diagnostics/diagnostics_init_fixed.F |
50 |
DIAGNOSTICS_INIT_FIXED |
call FIZHI_DIAGALARMS(myThid) |
./pkg/diagnostics/diagnostics_init_varia.F |
12 |
DIAGNOSTICS_INIT_VARIA |
I myThid ) |
./pkg/diagnostics/diagnostics_init_varia.F |
26 |
DIAGNOSTICS_INIT_VARIA |
INTEGER myThid |
./pkg/diagnostics/diagnostics_init_varia.F |
33 |
DIAGNOSTICS_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagnostics_init_varia.F |
34 |
DIAGNOSTICS_INIT_VARIA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagnostics_init_varia.F |
52 |
DIAGNOSTICS_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagnostics_init_varia.F |
53 |
DIAGNOSTICS_INIT_VARIA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagnostics_init_varia.F |
64 |
DIAGNOSTICS_INIT_VARIA |
CALL DIAGNOSTICS_READ_PICKUP( myThid ) |
./pkg/diagnostics/diagnostics_init_varia.F |
66 |
DIAGNOSTICS_INIT_VARIA |
CALL DIAGNOSTICS_SUMMARY( startTime, nIter0, myThid ) |
./pkg/diagnostics/diagnostics_interp_p2p.F |
13 |
DIAGNOSTICS_INTERP_P2P |
I undef, pInc,ijm,lm, myThid ) |
./pkg/diagnostics/diagnostics_interp_p2p.F |
47 |
DIAGNOSTICS_INTERP_P2P |
INTEGER ijm,lm,myThid |
./pkg/diagnostics/diagnostics_interp_vert.F |
104 |
DIAGNOSTICS_INTERP_VERT |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_interp_vert.F |
111 |
DIAGNOSTICS_INTERP_VERT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagnostics_interp_vert.F |
112 |
DIAGNOSTICS_INTERP_VERT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagnostics_interp_vert.F |
116 |
DIAGNOSTICS_INTERP_VERT |
I jpoint1,0,ipoint1,0, bi,bj,myThid ) |
./pkg/diagnostics/diagnostics_interp_vert.F |
122 |
DIAGNOSTICS_INTERP_VERT |
I jpoint2,0,ipoint2,0, bi,bj,myThid ) |
./pkg/diagnostics/diagnostics_interp_vert.F |
130 |
DIAGNOSTICS_INTERP_VERT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagnostics_interp_vert.F |
131 |
DIAGNOSTICS_INTERP_VERT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagnostics_interp_vert.F |
151 |
DIAGNOSTICS_INTERP_VERT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagnostics_interp_vert.F |
152 |
DIAGNOSTICS_INTERP_VERT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagnostics_interp_vert.F |
15 |
DIAGNOSTICS_INTERP_VERT |
I myTime, myIter, myThid ) |
./pkg/diagnostics/diagnostics_interp_vert.F |
194 |
DIAGNOSTICS_INTERP_VERT |
I undef,pInc,sNx*sNy,kdiag(ndId),myThid ) |
./pkg/diagnostics/diagnostics_interp_vert.F |
52 |
DIAGNOSTICS_INTERP_VERT |
INTEGER myIter, myThid |
./pkg/diagnostics/diagnostics_interp_vert.F |
91 |
DIAGNOSTICS_INTERP_VERT |
& jpoint1, ipoint1, myThid ) |
./pkg/diagnostics/diagnostics_interp_vert.F |
96 |
DIAGNOSTICS_INTERP_VERT |
& jpoint2, ipoint2, myThid ) |
./pkg/diagnostics/diagnostics_interp_vert.F |
99 |
DIAGNOSTICS_INTERP_VERT |
& jpoint2, ipoint2, myThid ) |
./pkg/diagnostics/diagnostics_is_on.F |
12 |
NO PROCEDURE |
LOGICAL FUNCTION DIAGNOSTICS_IS_ON( diagName, myThid ) |
./pkg/diagnostics/diagnostics_is_on.F |
31 |
NO PROCEDURE |
INTEGER myThid |
./pkg/diagnostics/diagnostics_is_on.F |
40 |
NO PROCEDURE |
bi = myBxLo(myThid) |
./pkg/diagnostics/diagnostics_is_on.F |
41 |
NO PROCEDURE |
bj = myByLo(myThid) |
./pkg/diagnostics/diagnostics_list_check.F |
101 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_list_check.F |
104 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_list_check.F |
110 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_list_check.F |
113 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_list_check.F |
121 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_list_check.F |
124 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_list_check.F |
132 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_list_check.F |
135 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_list_check.F |
141 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_list_check.F |
144 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_list_check.F |
14 |
DIAGNOSTICS_LIST_CHECK |
I nbLists, nbFlds, fldsList, myThid ) |
./pkg/diagnostics/diagnostics_list_check.F |
150 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_list_check.F |
153 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_list_check.F |
166 |
DIAGNOSTICS_LIST_CHECK |
_END_MASTER(myThid) |
./pkg/diagnostics/diagnostics_list_check.F |
40 |
DIAGNOSTICS_LIST_CHECK |
INTEGER myThid |
./pkg/diagnostics/diagnostics_list_check.F |
53 |
DIAGNOSTICS_LIST_CHECK |
_BEGIN_MASTER(myThid) |
./pkg/diagnostics/diagnostics_list_check.F |
74 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_list_check.F |
77 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_list_check.F |
83 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_list_check.F |
86 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_list_check.F |
92 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_list_check.F |
95 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
11 |
DIAGNOSTICS_MAIN_INIT |
SUBROUTINE DIAGNOSTICS_MAIN_INIT( myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
131 |
DIAGNOSTICS_MAIN_INIT |
diagTitle = DIAGS_MK_TITLE( eTitle//rTitle//' Anomaly', myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
134 |
DIAGNOSTICS_MAIN_INIT |
diagUnits = DIAGS_MK_UNITS( rUnit2c, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
137 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
141 |
DIAGNOSTICS_MAIN_INIT |
I //' Anomaly', myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
142 |
DIAGNOSTICS_MAIN_INIT |
diagUnits = DIAGS_MK_UNITS( rUnit2c//'^2', myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
145 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
149 |
DIAGNOSTICS_MAIN_INIT |
I //' Anomaly Tendency', myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
150 |
DIAGNOSTICS_MAIN_INIT |
diagUnits = DIAGS_MK_UNITS( rUnit2c//'^2/s^2', myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
153 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
157 |
DIAGNOSTICS_MAIN_INIT |
diagUnits = DIAGS_MK_UNITS( tUnit4c, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
160 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
170 |
DIAGNOSTICS_MAIN_INIT |
diagTitle = DIAGS_MK_TITLE( sTitle, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
171 |
DIAGNOSTICS_MAIN_INIT |
diagUnits = DIAGS_MK_UNITS( sUnit4c, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
174 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
181 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
193 |
DIAGNOSTICS_MAIN_INIT |
diagUnits = DIAGS_MK_UNITS( sUnit4c, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
196 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
205 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
213 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
217 |
DIAGNOSTICS_MAIN_INIT |
diagUnits = DIAGS_MK_UNITS( rUnit2c//'/s', myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
220 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
224 |
DIAGNOSTICS_MAIN_INIT |
diagUnits = DIAGS_MK_UNITS( tUnit4c//'^2', myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
227 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
230 |
DIAGNOSTICS_MAIN_INIT |
diagTitle = DIAGS_MK_TITLE( 'Square of '//sTitle, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
231 |
DIAGNOSTICS_MAIN_INIT |
diagUnits = DIAGS_MK_UNITS( '('//sUnit4c//')^2', myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
234 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
239 |
DIAGNOSTICS_MAIN_INIT |
diagUnits = DIAGS_MK_UNITS( '('//sUnit4c//')^2', myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
242 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
251 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
259 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
263 |
DIAGNOSTICS_MAIN_INIT |
diagUnits = DIAGS_MK_UNITS( rUnit2c//'^2/s^2', myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
266 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
274 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
282 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
290 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
298 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
302 |
DIAGNOSTICS_MAIN_INIT |
diagUnits = DIAGS_MK_UNITS( 'm.'//rUnit2c//'/s^2', myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
305 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
309 |
DIAGNOSTICS_MAIN_INIT |
diagUnits = DIAGS_MK_UNITS( 'm.'//rUnit2c//'/s^2', myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
312 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
320 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
328 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
332 |
DIAGNOSTICS_MAIN_INIT |
diagUnits = DIAGS_MK_UNITS( rUnit2c//'/s', myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
335 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
339 |
DIAGNOSTICS_MAIN_INIT |
diagUnits = DIAGS_MK_UNITS( tUnit4c//'.m/s', myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
343 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
347 |
DIAGNOSTICS_MAIN_INIT |
diagUnits = DIAGS_MK_UNITS( tUnit4c//'.m/s', myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
351 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
355 |
DIAGNOSTICS_MAIN_INIT |
diagUnits = DIAGS_MK_UNITS(tUnit4c//'.'//rUnit2c//'/s', myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
358 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
362 |
DIAGNOSTICS_MAIN_INIT |
I //sTitle, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
363 |
DIAGNOSTICS_MAIN_INIT |
diagUnits = DIAGS_MK_UNITS(sUnit4c//'.m/s', myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
367 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
371 |
DIAGNOSTICS_MAIN_INIT |
I //sTitle, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
372 |
DIAGNOSTICS_MAIN_INIT |
diagUnits = DIAGS_MK_UNITS(sUnit4c//'.m/s', myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
376 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
380 |
DIAGNOSTICS_MAIN_INIT |
I //sTitle, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
381 |
DIAGNOSTICS_MAIN_INIT |
diagUnits = DIAGS_MK_UNITS(sUnit4c//'.'//rUnit2c//'/s', myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
384 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
388 |
DIAGNOSTICS_MAIN_INIT |
diagUnits = DIAGS_MK_UNITS( tUnit4c//'.m/s', myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
392 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
396 |
DIAGNOSTICS_MAIN_INIT |
diagUnits = DIAGS_MK_UNITS( tUnit4c//'.m/s', myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
400 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
404 |
DIAGNOSTICS_MAIN_INIT |
diagUnits = DIAGS_MK_UNITS(tUnit4c//'.'//rUnit2c//'/s', myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
407 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
411 |
DIAGNOSTICS_MAIN_INIT |
I //sTitle, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
412 |
DIAGNOSTICS_MAIN_INIT |
diagUnits = DIAGS_MK_UNITS( sUnit4c//'.m/s', myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
416 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
420 |
DIAGNOSTICS_MAIN_INIT |
I //sTitle, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
421 |
DIAGNOSTICS_MAIN_INIT |
diagUnits = DIAGS_MK_UNITS( sUnit4c//'.m/s', myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
425 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
429 |
DIAGNOSTICS_MAIN_INIT |
I //sTitle, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
430 |
DIAGNOSTICS_MAIN_INIT |
diagUnits = DIAGS_MK_UNITS(sUnit4c//'.'//rUnit2c//'/s', myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
433 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
437 |
DIAGNOSTICS_MAIN_INIT |
I //pTitle//' Anomaly', myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
442 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
446 |
DIAGNOSTICS_MAIN_INIT |
I //pTitle//' Anomaly', myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
451 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
460 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
467 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
475 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
483 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
490 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
494 |
DIAGNOSTICS_MAIN_INIT |
I //pTitle//' Anomaly', myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
498 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
502 |
DIAGNOSTICS_MAIN_INIT |
I //pTitle//' Anomaly', myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
506 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
511 |
DIAGNOSTICS_MAIN_INIT |
I //pTitle//' Anomaly', myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
515 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
520 |
DIAGNOSTICS_MAIN_INIT |
I //pTitle//' Anomaly', myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
524 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
528 |
DIAGNOSTICS_MAIN_INIT |
diagTitle = DIAGS_MK_TITLE( 'Non-Hydrostatic '//pTitle, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
532 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
540 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
548 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
555 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
564 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
572 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
579 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
586 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
594 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
602 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
610 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
618 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
625 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
62 |
DIAGNOSTICS_MAIN_INIT |
INTEGER myThid |
./pkg/diagnostics/diagnostics_main_init.F |
632 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
639 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
647 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
655 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
663 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
671 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
677 |
DIAGNOSTICS_MAIN_INIT |
diagTitle = DIAGS_MK_TITLE( 'Cell-Center '//rTitle, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
678 |
DIAGNOSTICS_MAIN_INIT |
diagUnits = DIAGS_MK_UNITS( rUnit2c, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
681 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
685 |
DIAGNOSTICS_MAIN_INIT |
diagTitle = DIAGS_MK_TITLE( eTitle//rTitle, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
686 |
DIAGNOSTICS_MAIN_INIT |
diagUnits = DIAGS_MK_UNITS( rUnit2c, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
689 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
697 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
705 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
709 |
DIAGNOSTICS_MAIN_INIT |
diagUnits = DIAGS_MK_UNITS( tUnit4c//'/day', myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
712 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
715 |
DIAGNOSTICS_MAIN_INIT |
diagTitle = DIAGS_MK_TITLE('Tendency of '//sTitle, myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
716 |
DIAGNOSTICS_MAIN_INIT |
diagUnits = DIAGS_MK_UNITS( sUnit4c//'/day', myThid ) |
./pkg/diagnostics/diagnostics_main_init.F |
719 |
DIAGNOSTICS_MAIN_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/diagnostics/diagnostics_out.F |
15 |
DIAGNOSTICS_OUT |
I myThid ) |
./pkg/diagnostics/diagnostics_out.F |
210 |
DIAGNOSTICS_OUT |
CALL MNC_CW_SET_UDIM(diag_mnc_bn, -1, myThid) |
./pkg/diagnostics/diagnostics_out.F |
211 |
DIAGNOSTICS_OUT |
CALL MNC_CW_RL_W_S('D',diag_mnc_bn,0,0,'T',tmpLev,myThid) |
./pkg/diagnostics/diagnostics_out.F |
212 |
DIAGNOSTICS_OUT |
CALL MNC_CW_SET_UDIM(diag_mnc_bn, 0, myThid) |
./pkg/diagnostics/diagnostics_out.F |
213 |
DIAGNOSTICS_OUT |
CALL MNC_CW_I_W_S('I',diag_mnc_bn,0,0,'iter',klev,myThid) |
./pkg/diagnostics/diagnostics_out.F |
226 |
DIAGNOSTICS_OUT |
& dim, dn, ib, ie, myThid) |
./pkg/diagnostics/diagnostics_out.F |
228 |
DIAGNOSTICS_OUT |
& 0,0, myThid) |
./pkg/diagnostics/diagnostics_out.F |
231 |
DIAGNOSTICS_OUT |
& myThid) |
./pkg/diagnostics/diagnostics_out.F |
236 |
DIAGNOSTICS_OUT |
I myThid ) |
./pkg/diagnostics/diagnostics_out.F |
239 |
DIAGNOSTICS_OUT |
& 'diag_levels', levs(1,listId), myThid) |
./pkg/diagnostics/diagnostics_out.F |
241 |
DIAGNOSTICS_OUT |
CALL MNC_CW_DEL_VNAME('diag_levels', myThid) |
./pkg/diagnostics/diagnostics_out.F |
242 |
DIAGNOSTICS_OUT |
CALL MNC_CW_DEL_GNAME('diag_levels', myThid) |
./pkg/diagnostics/diagnostics_out.F |
262 |
DIAGNOSTICS_OUT |
CALL MNC_CW_ADD_GNAME(dn(1), 1, dim, dn, ib, ie, myThid) |
./pkg/diagnostics/diagnostics_out.F |
263 |
DIAGNOSTICS_OUT |
CALL MNC_CW_ADD_VNAME(dn(1), dn(1), 0,0, myThid) |
./pkg/diagnostics/diagnostics_out.F |
279 |
DIAGNOSTICS_OUT |
& myThid) |
./pkg/diagnostics/diagnostics_out.F |
286 |
DIAGNOSTICS_OUT |
& myThid) |
./pkg/diagnostics/diagnostics_out.F |
293 |
DIAGNOSTICS_OUT |
& myThid) |
./pkg/diagnostics/diagnostics_out.F |
299 |
DIAGNOSTICS_OUT |
I myThid ) |
./pkg/diagnostics/diagnostics_out.F |
300 |
DIAGNOSTICS_OUT |
CALL MNC_CW_RS_W('D',diag_mnc_bn,0,0, dn(1), ztmp, myThid) |
./pkg/diagnostics/diagnostics_out.F |
301 |
DIAGNOSTICS_OUT |
CALL MNC_CW_DEL_VNAME(dn(1), myThid) |
./pkg/diagnostics/diagnostics_out.F |
302 |
DIAGNOSTICS_OUT |
CALL MNC_CW_DEL_GNAME(dn(1), myThid) |
./pkg/diagnostics/diagnostics_out.F |
340 |
DIAGNOSTICS_OUT |
_BEGIN_MASTER( myThid ) |
./pkg/diagnostics/diagnostics_out.F |
344 |
DIAGNOSTICS_OUT |
& SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_out.F |
349 |
DIAGNOSTICS_OUT |
& SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_out.F |
360 |
DIAGNOSTICS_OUT |
& SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_out.F |
364 |
DIAGNOSTICS_OUT |
& SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_out.F |
365 |
DIAGNOSTICS_OUT |
_END_MASTER( myThid ) |
./pkg/diagnostics/diagnostics_out.F |
366 |
DIAGNOSTICS_OUT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagnostics_out.F |
367 |
DIAGNOSTICS_OUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagnostics_out.F |
381 |
DIAGNOSTICS_OUT |
IF ( debugLevel.GE.debLevA .AND. myThid.EQ.1 ) THEN |
./pkg/diagnostics/diagnostics_out.F |
38 |
DIAGNOSTICS_OUT |
INTEGER listId, myIter, myThid |
./pkg/diagnostics/diagnostics_out.F |
406 |
DIAGNOSTICS_OUT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagnostics_out.F |
407 |
DIAGNOSTICS_OUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagnostics_out.F |
413 |
DIAGNOSTICS_OUT |
I ndId,mate,ip,im,bi,bj,myThid) |
./pkg/diagnostics/diagnostics_out.F |
419 |
DIAGNOSTICS_OUT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagnostics_out.F |
420 |
DIAGNOSTICS_OUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagnostics_out.F |
425 |
DIAGNOSTICS_OUT |
I ndId,mate,ip,im,bi,bj,myThid) |
./pkg/diagnostics/diagnostics_out.F |
441 |
DIAGNOSTICS_OUT |
I undef, myTime, myIter, myThid ) |
./pkg/diagnostics/diagnostics_out.F |
445 |
DIAGNOSTICS_OUT |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_out.F |
454 |
DIAGNOSTICS_OUT |
I undef, myTime, myIter, myThid ) |
./pkg/diagnostics/diagnostics_out.F |
474 |
DIAGNOSTICS_OUT |
I qtmp1, -nRec, myIter, myThid ) |
./pkg/diagnostics/diagnostics_out.F |
480 |
DIAGNOSTICS_OUT |
_BEGIN_MASTER( myThid ) |
./pkg/diagnostics/diagnostics_out.F |
548 |
DIAGNOSTICS_OUT |
& dim, dn, ib, ie, myThid) |
./pkg/diagnostics/diagnostics_out.F |
550 |
DIAGNOSTICS_OUT |
& 4,5, myThid) |
./pkg/diagnostics/diagnostics_out.F |
552 |
DIAGNOSTICS_OUT |
& tdiag(ndId),myThid) |
./pkg/diagnostics/diagnostics_out.F |
554 |
DIAGNOSTICS_OUT |
& udiag(ndId),myThid) |
./pkg/diagnostics/diagnostics_out.F |
563 |
DIAGNOSTICS_OUT |
I myThid ) |
./pkg/diagnostics/diagnostics_out.F |
566 |
DIAGNOSTICS_OUT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagnostics_out.F |
567 |
DIAGNOSTICS_OUT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagnostics_out.F |
589 |
DIAGNOSTICS_OUT |
I myThid ) |
./pkg/diagnostics/diagnostics_out.F |
596 |
DIAGNOSTICS_OUT |
& cdiag(ndId), qtmp1, myThid) |
./pkg/diagnostics/diagnostics_out.F |
600 |
DIAGNOSTICS_OUT |
& cdiag(ndId), qtmp1, myThid) |
./pkg/diagnostics/diagnostics_out.F |
603 |
DIAGNOSTICS_OUT |
CALL MNC_CW_DEL_VNAME(cdiag(ndId), myThid) |
./pkg/diagnostics/diagnostics_out.F |
604 |
DIAGNOSTICS_OUT |
CALL MNC_CW_DEL_GNAME(d_cw_name, myThid) |
./pkg/diagnostics/diagnostics_out.F |
606 |
DIAGNOSTICS_OUT |
_END_MASTER( myThid ) |
./pkg/diagnostics/diagnostics_out.F |
632 |
DIAGNOSTICS_OUT |
& nRec, myIter, myThid) |
./pkg/diagnostics/diagnostics_read_pickup.F |
100 |
DIAGNOSTICS_READ_PICKUP |
& 4,5, myThid) |
./pkg/diagnostics/diagnostics_read_pickup.F |
102 |
DIAGNOSTICS_READ_PICKUP |
& d_cw_name, qdiag, myThid) |
./pkg/diagnostics/diagnostics_read_pickup.F |
103 |
DIAGNOSTICS_READ_PICKUP |
CALL MNC_CW_DEL_VNAME(d_cw_name, myThid) |
./pkg/diagnostics/diagnostics_read_pickup.F |
104 |
DIAGNOSTICS_READ_PICKUP |
CALL MNC_CW_DEL_GNAME(d_cw_name, myThid) |
./pkg/diagnostics/diagnostics_read_pickup.F |
11 |
DIAGNOSTICS_READ_PICKUP |
I myThid ) |
./pkg/diagnostics/diagnostics_read_pickup.F |
121 |
DIAGNOSTICS_READ_PICKUP |
& dim, dn, ib, ie, myThid) |
./pkg/diagnostics/diagnostics_read_pickup.F |
123 |
DIAGNOSTICS_READ_PICKUP |
& 4,5, myThid) |
./pkg/diagnostics/diagnostics_read_pickup.F |
125 |
DIAGNOSTICS_READ_PICKUP |
& 'diagnostics state',myThid) |
./pkg/diagnostics/diagnostics_read_pickup.F |
130 |
DIAGNOSTICS_READ_PICKUP |
CALL MNC_CW_DEL_VNAME(d_cw_name, myThid) |
./pkg/diagnostics/diagnostics_read_pickup.F |
131 |
DIAGNOSTICS_READ_PICKUP |
CALL MNC_CW_DEL_GNAME(d_cw_name, myThid) |
./pkg/diagnostics/diagnostics_read_pickup.F |
142 |
DIAGNOSTICS_READ_PICKUP |
& numDiags, qdiag, nIter0, myThid ) |
./pkg/diagnostics/diagnostics_read_pickup.F |
146 |
DIAGNOSTICS_READ_PICKUP |
_BEGIN_MASTER(myThid) |
./pkg/diagnostics/diagnostics_read_pickup.F |
150 |
DIAGNOSTICS_READ_PICKUP |
CALL MDSFINDUNIT( dUnit, myThid ) |
./pkg/diagnostics/diagnostics_read_pickup.F |
166 |
DIAGNOSTICS_READ_PICKUP |
_END_MASTER(myThid) |
./pkg/diagnostics/diagnostics_read_pickup.F |
28 |
DIAGNOSTICS_READ_PICKUP |
INTEGER myThid |
./pkg/diagnostics/diagnostics_read_pickup.F |
72 |
DIAGNOSTICS_READ_PICKUP |
CALL MNC_FILE_CLOSE_ALL_MATCHING(diag_mnc_bn, myThid) |
./pkg/diagnostics/diagnostics_read_pickup.F |
73 |
DIAGNOSTICS_READ_PICKUP |
CALL MNC_CW_SET_UDIM(diag_mnc_bn, 1, myThid) |
./pkg/diagnostics/diagnostics_read_pickup.F |
98 |
DIAGNOSTICS_READ_PICKUP |
& dim, dn, ib, ie, myThid) |
./pkg/diagnostics/diagnostics_readparms.F |
11 |
DIAGNOSTICS_READPARMS |
SUBROUTINE DIAGNOSTICS_READPARMS(myThid) |
./pkg/diagnostics/diagnostics_readparms.F |
154 |
DIAGNOSTICS_READPARMS |
& 'DIAGNOSTICS_READPARMS', ku, myThid ) |
./pkg/diagnostics/diagnostics_readparms.F |
242 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_readparms.F |
245 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_readparms.F |
26 |
DIAGNOSTICS_READPARMS |
INTEGER myThid |
./pkg/diagnostics/diagnostics_readparms.F |
270 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_readparms.F |
273 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_readparms.F |
276 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_readparms.F |
293 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_readparms.F |
296 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_readparms.F |
299 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_readparms.F |
308 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_readparms.F |
311 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_readparms.F |
314 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_readparms.F |
365 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_readparms.F |
368 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_readparms.F |
396 |
DIAGNOSTICS_READPARMS |
& SQUEEZE_RIGHT , myThid ) |
./pkg/diagnostics/diagnostics_readparms.F |
401 |
DIAGNOSTICS_READPARMS |
& SQUEEZE_RIGHT , myThid ) |
./pkg/diagnostics/diagnostics_readparms.F |
407 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_readparms.F |
411 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_readparms.F |
428 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_readparms.F |
432 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_readparms.F |
435 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_readparms.F |
444 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_readparms.F |
447 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_readparms.F |
450 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_readparms.F |
460 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_readparms.F |
463 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_readparms.F |
466 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_readparms.F |
469 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_readparms.F |
472 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_readparms.F |
476 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_readparms.F |
487 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_readparms.F |
490 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_readparms.F |
493 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_readparms.F |
498 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_readparms.F |
506 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_readparms.F |
512 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_readparms.F |
517 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_readparms.F |
520 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_readparms.F |
524 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_readparms.F |
527 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_readparms.F |
536 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_readparms.F |
541 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_readparms.F |
546 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_readparms.F |
548 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_readparms.F |
550 |
DIAGNOSTICS_READPARMS |
_END_MASTER(myThid) |
./pkg/diagnostics/diagnostics_readparms.F |
99 |
DIAGNOSTICS_READPARMS |
_BEGIN_MASTER(myThid) |
./pkg/diagnostics/diagnostics_scale_fill.F |
100 |
DIAGNOSTICS_SCALE_FILL |
I bibjFlg, biArg, bjArg, myThid ) |
./pkg/diagnostics/diagnostics_scale_fill.F |
11 |
DIAGNOSTICS_SCALE_FILL |
I kLev, nLevs, bibjFlg, biArg, bjArg, myThid ) |
./pkg/diagnostics/diagnostics_scale_fill.F |
141 |
DIAGNOSTICS_SCALE_FILL |
I bibjFlg, biArg, bjArg, myThid ) |
./pkg/diagnostics/diagnostics_scale_fill.F |
64 |
DIAGNOSTICS_SCALE_FILL |
INTEGER myThid |
./pkg/diagnostics/diagnostics_scale_fill.F |
79 |
DIAGNOSTICS_SCALE_FILL |
bi = myBxLo(myThid) |
./pkg/diagnostics/diagnostics_scale_fill.F |
80 |
DIAGNOSTICS_SCALE_FILL |
bj = myByLo(myThid) |
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
100 |
DIAGNOSTICS_SCALE_FILL_RS |
I bibjFlg, biArg, bjArg, myThid ) |
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
11 |
DIAGNOSTICS_SCALE_FILL_RS |
I kLev, nLevs, bibjFlg, biArg, bjArg, myThid ) |
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
143 |
DIAGNOSTICS_SCALE_FILL_RS |
I bibjFlg, biArg, bjArg, myThid ) |
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
64 |
DIAGNOSTICS_SCALE_FILL_RS |
INTEGER myThid |
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
79 |
DIAGNOSTICS_SCALE_FILL_RS |
bi = myBxLo(myThid) |
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
80 |
DIAGNOSTICS_SCALE_FILL_RS |
bj = myByLo(myThid) |
./pkg/diagnostics/diagnostics_set_levels.F |
109 |
DIAGNOSTICS_SET_LEVELS |
& SQUEEZE_RIGHT , myThid ) |
./pkg/diagnostics/diagnostics_set_levels.F |
10 |
DIAGNOSTICS_SET_LEVELS |
SUBROUTINE DIAGNOSTICS_SET_LEVELS( myThid ) |
./pkg/diagnostics/diagnostics_set_levels.F |
116 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_set_levels.F |
123 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_set_levels.F |
135 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_set_levels.F |
142 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_set_levels.F |
152 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_set_levels.F |
159 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_set_levels.F |
167 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_set_levels.F |
169 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_set_levels.F |
172 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_set_levels.F |
181 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_set_levels.F |
240 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_set_levels.F |
243 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_set_levels.F |
246 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_set_levels.F |
259 |
DIAGNOSTICS_SET_LEVELS |
_END_MASTER( myThid ) |
./pkg/diagnostics/diagnostics_set_levels.F |
59 |
DIAGNOSTICS_SET_LEVELS |
INTEGER myThid |
./pkg/diagnostics/diagnostics_set_levels.F |
76 |
DIAGNOSTICS_SET_LEVELS |
_BEGIN_MASTER( myThid ) |
./pkg/diagnostics/diagnostics_set_pointers.F |
103 |
DIAGNOSTICS_SET_POINTERS |
& SQUEEZE_RIGHT , myThid) |
./pkg/diagnostics/diagnostics_set_pointers.F |
109 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_set_pointers.F |
113 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_set_pointers.F |
119 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_set_pointers.F |
123 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_set_pointers.F |
151 |
DIAGNOSTICS_SET_POINTERS |
& SQUEEZE_RIGHT , myThid) |
./pkg/diagnostics/diagnostics_set_pointers.F |
173 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_set_pointers.F |
179 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_set_pointers.F |
182 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_set_pointers.F |
192 |
DIAGNOSTICS_SET_POINTERS |
& SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_set_pointers.F |
199 |
DIAGNOSTICS_SET_POINTERS |
& SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_set_pointers.F |
217 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_set_pointers.F |
221 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_set_pointers.F |
224 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_set_pointers.F |
233 |
DIAGNOSTICS_SET_POINTERS |
& SQUEEZE_RIGHT , myThid) |
./pkg/diagnostics/diagnostics_set_pointers.F |
237 |
DIAGNOSTICS_SET_POINTERS |
& SQUEEZE_RIGHT , myThid) |
./pkg/diagnostics/diagnostics_set_pointers.F |
239 |
DIAGNOSTICS_SET_POINTERS |
_END_MASTER( myThid ) |
./pkg/diagnostics/diagnostics_set_pointers.F |
30 |
DIAGNOSTICS_SET_POINTERS |
INTEGER myThid |
./pkg/diagnostics/diagnostics_set_pointers.F |
43 |
DIAGNOSTICS_SET_POINTERS |
_BEGIN_MASTER( myThid) |
./pkg/diagnostics/diagnostics_set_pointers.F |
67 |
DIAGNOSTICS_SET_POINTERS |
CALL DIAGNOSTICS_SETDIAG(mate,ndiagcount,md,ld,nd,myThid) |
./pkg/diagnostics/diagnostics_set_pointers.F |
75 |
DIAGNOSTICS_SET_POINTERS |
I ld, md, nlists, nfields, flds, myThid ) |
./pkg/diagnostics/diagnostics_set_pointers.F |
79 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_set_pointers.F |
9 |
DIAGNOSTICS_SET_POINTERS |
SUBROUTINE DIAGNOSTICS_SET_POINTERS( myThid ) |
./pkg/diagnostics/diagnostics_setdiag.F |
104 |
DIAGNOSTICS_SETDIAG |
CALL PRINT_MESSAGE(msgBuf, errUnit, SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_setdiag.F |
12 |
DIAGNOSTICS_SETDIAG |
I mId, listId, ndId, myThid ) |
./pkg/diagnostics/diagnostics_setdiag.F |
142 |
DIAGNOSTICS_SETDIAG |
CALL PRINT_MESSAGE(msgBuf, errUnit, SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_setdiag.F |
147 |
DIAGNOSTICS_SETDIAG |
CALL PRINT_MESSAGE(msgBuf, stdUnit, SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_setdiag.F |
153 |
DIAGNOSTICS_SETDIAG |
CALL PRINT_MESSAGE(msgBuf, stdUnit, SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_setdiag.F |
43 |
DIAGNOSTICS_SETDIAG |
INTEGER myThid |
./pkg/diagnostics/diagnostics_setdiag.F |
93 |
DIAGNOSTICS_SETDIAG |
CALL PRINT_MESSAGE(msgBuf, errUnit, SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_setdiag.F |
98 |
DIAGNOSTICS_SETDIAG |
CALL PRINT_MESSAGE(msgBuf, stdUnit, SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_sum_levels.F |
15 |
DIAGNOSTICS_SUM_LEVELS |
I myTime, myIter, myThid ) |
./pkg/diagnostics/diagnostics_sum_levels.F |
50 |
DIAGNOSTICS_SUM_LEVELS |
INTEGER myIter, myThid |
./pkg/diagnostics/diagnostics_sum_levels.F |
72 |
DIAGNOSTICS_SUM_LEVELS |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagnostics_sum_levels.F |
73 |
DIAGNOSTICS_SUM_LEVELS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagnostics_summary.F |
10 |
DIAGNOSTICS_SUMMARY |
SUBROUTINE DIAGNOSTICS_SUMMARY( myTime, myIter, myThid ) |
./pkg/diagnostics/diagnostics_summary.F |
228 |
DIAGNOSTICS_SUMMARY |
_END_MASTER( myThid ) |
./pkg/diagnostics/diagnostics_summary.F |
29 |
DIAGNOSTICS_SUMMARY |
INTEGER myIter, myThid |
./pkg/diagnostics/diagnostics_summary.F |
45 |
DIAGNOSTICS_SUMMARY |
_BEGIN_MASTER( myThid ) |
./pkg/diagnostics/diagnostics_summary.F |
56 |
DIAGNOSTICS_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_summary.F |
66 |
DIAGNOSTICS_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_switch_onoff.F |
11 |
DIAGNOSTICS_SWITCH_ONOFF |
SUBROUTINE DIAGNOSTICS_SWITCH_ONOFF( myTime, myIter, myThid ) |
./pkg/diagnostics/diagnostics_switch_onoff.F |
129 |
DIAGNOSTICS_SWITCH_ONOFF |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_switch_onoff.F |
132 |
DIAGNOSTICS_SWITCH_ONOFF |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_switch_onoff.F |
136 |
DIAGNOSTICS_SWITCH_ONOFF |
DO bj=myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagnostics_switch_onoff.F |
137 |
DIAGNOSTICS_SWITCH_ONOFF |
DO bi=myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagnostics_switch_onoff.F |
167 |
DIAGNOSTICS_SWITCH_ONOFF |
DO bj=myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagnostics_switch_onoff.F |
168 |
DIAGNOSTICS_SWITCH_ONOFF |
DO bi=myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagnostics_switch_onoff.F |
169 |
DIAGNOSTICS_SWITCH_ONOFF |
dBugFlag = dBugFlag.AND.(bi.EQ.1.AND.bj.EQ.1.AND.myThid.EQ.1) |
./pkg/diagnostics/diagnostics_switch_onoff.F |
38 |
DIAGNOSTICS_SWITCH_ONOFF |
INTEGER myThid |
./pkg/diagnostics/diagnostics_switch_onoff.F |
64 |
DIAGNOSTICS_SWITCH_ONOFF |
dBugFlag = debugLevel.GT.debLevB .AND. myThid.EQ.1 |
./pkg/diagnostics/diagnostics_switch_onoff.F |
84 |
DIAGNOSTICS_SWITCH_ONOFF |
DO bj=myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagnostics_switch_onoff.F |
85 |
DIAGNOSTICS_SWITCH_ONOFF |
DO bi=myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagnostics_utils.F |
121 |
DIAGNOSTICS_COUNT |
I biArg, bjArg, myThid) |
./pkg/diagnostics/diagnostics_utils.F |
147 |
DIAGNOSTICS_COUNT |
INTEGER myThid |
./pkg/diagnostics/diagnostics_utils.F |
158 |
DIAGNOSTICS_COUNT |
bi = myBxLo(myThid) |
./pkg/diagnostics/diagnostics_utils.F |
159 |
DIAGNOSTICS_COUNT |
bj = myByLo(myThid) |
./pkg/diagnostics/diagnostics_utils.F |
176 |
DIAGNOSTICS_COUNT |
DO bj=myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagnostics_utils.F |
177 |
DIAGNOSTICS_COUNT |
DO bi=myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagnostics_utils.F |
201 |
DIAGNOSTICS_GET_POINTERS |
I myThid ) |
./pkg/diagnostics/diagnostics_utils.F |
237 |
DIAGNOSTICS_GET_POINTERS |
INTEGER myThid |
./pkg/diagnostics/diagnostics_utils.F |
24 |
GETDIAG |
I ndId, mate, ip, im, bi, bj, myThid ) |
./pkg/diagnostics/diagnostics_utils.F |
303 |
DIAGNOSTICS_SETKLEV |
I diagName, nLevDiag, myThid ) |
./pkg/diagnostics/diagnostics_utils.F |
327 |
DIAGNOSTICS_SETKLEV |
INTEGER myThid |
./pkg/diagnostics/diagnostics_utils.F |
336 |
DIAGNOSTICS_SETKLEV |
_BEGIN_MASTER( myThid) |
./pkg/diagnostics/diagnostics_utils.F |
343 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/diagnostics/diagnostics_utils.F |
346 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/diagnostics/diagnostics_utils.F |
349 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/diagnostics/diagnostics_utils.F |
352 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/diagnostics/diagnostics_utils.F |
366 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/diagnostics/diagnostics_utils.F |
380 |
DIAGNOSTICS_SETKLEV |
& SQUEEZE_RIGHT , myThid ) |
./pkg/diagnostics/diagnostics_utils.F |
384 |
DIAGNOSTICS_SETKLEV |
& SQUEEZE_RIGHT , myThid ) |
./pkg/diagnostics/diagnostics_utils.F |
389 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/diagnostics/diagnostics_utils.F |
392 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/diagnostics/diagnostics_utils.F |
398 |
DIAGNOSTICS_SETKLEV |
& SQUEEZE_RIGHT , myThid ) |
./pkg/diagnostics/diagnostics_utils.F |
402 |
DIAGNOSTICS_SETKLEV |
& SQUEEZE_RIGHT , myThid ) |
./pkg/diagnostics/diagnostics_utils.F |
406 |
DIAGNOSTICS_SETKLEV |
& SQUEEZE_RIGHT , myThid ) |
./pkg/diagnostics/diagnostics_utils.F |
409 |
DIAGNOSTICS_SETKLEV |
_END_MASTER( myThid) |
./pkg/diagnostics/diagnostics_utils.F |
421 |
DIAGNOSTICS_SETKLEV |
I parName, myThid ) |
./pkg/diagnostics/diagnostics_utils.F |
441 |
DIAGNOSTICS_SETKLEV |
INTEGER myThid |
./pkg/diagnostics/diagnostics_utils.F |
459 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/diagnostics/diagnostics_utils.F |
473 |
DIAGNOSTICS_SETKLEV |
I diagUnitsInPieces, myThid ) |
./pkg/diagnostics/diagnostics_utils.F |
491 |
DIAGNOSTICS_SETKLEV |
INTEGER myThid |
./pkg/diagnostics/diagnostics_utils.F |
49 |
GETDIAG |
INTEGER bi,bj, myThid |
./pkg/diagnostics/diagnostics_utils.F |
513 |
DIAGNOSTICS_SETKLEV |
& SQUEEZE_RIGHT , myThid) |
./pkg/diagnostics/diagnostics_utils.F |
517 |
DIAGNOSTICS_SETKLEV |
& SQUEEZE_RIGHT , myThid) |
./pkg/diagnostics/diagnostics_utils.F |
530 |
DIAGNOSTICS_SETKLEV |
I diagTitleInPieces, myThid ) |
./pkg/diagnostics/diagnostics_utils.F |
548 |
DIAGNOSTICS_SETKLEV |
INTEGER myThid |
./pkg/diagnostics/diagnostics_utils.F |
582 |
DIAGNOSTICS_SETKLEV |
& SQUEEZE_RIGHT , myThid) |
./pkg/diagnostics/diagnostics_utils.F |
586 |
DIAGNOSTICS_SETKLEV |
& SQUEEZE_RIGHT , myThid) |
./pkg/diagnostics/diagnostics_write.F |
126 |
DIAGNOSTICS_WRITE |
CALL DIAGSTATS_OUTPUT(n,wrTime,wrIter,myThid) |
./pkg/diagnostics/diagnostics_write.F |
134 |
DIAGNOSTICS_WRITE |
CALL DIAGNOSTICS_SUMMARY( myTime, myIter, myThid ) |
./pkg/diagnostics/diagnostics_write.F |
141 |
DIAGNOSTICS_WRITE |
CALL DIAGSTATS_CLOSE_IO( myThid ) |
./pkg/diagnostics/diagnostics_write.F |
164 |
DIAGNOSTICS_WRITE |
I myTime, myIter, myThid ) |
./pkg/diagnostics/diagnostics_write.F |
169 |
DIAGNOSTICS_WRITE |
IF ( dump2fileNow ) CALL DIAGNOSTICS_CLEAR(n,myThid) |
./pkg/diagnostics/diagnostics_write.F |
187 |
DIAGNOSTICS_WRITE |
IF ( dump2fileNow ) CALL DIAGSTATS_CLEAR( n, myThid ) |
./pkg/diagnostics/diagnostics_write.F |
31 |
DIAGNOSTICS_WRITE |
INTEGER myIter, myThid |
./pkg/diagnostics/diagnostics_write.F |
84 |
DIAGNOSTICS_WRITE |
I myTime, myIter, myThid ) |
./pkg/diagnostics/diagnostics_write.F |
8 |
DIAGNOSTICS_WRITE |
I myTime, myIter, myThid ) |
./pkg/diagnostics/diagnostics_write.F |
91 |
DIAGNOSTICS_WRITE |
CALL DIAGNOSTICS_OUT(n,wrIter,wrTime,myThid) |
./pkg/diagnostics/diagnostics_write_pickup.F |
101 |
DIAGNOSTICS_WRITE_PICKUP |
CALL MNC_CW_RL_W_S('D',diag_mnc_bn,0,0,'T',myTime,myThid) |
./pkg/diagnostics/diagnostics_write_pickup.F |
102 |
DIAGNOSTICS_WRITE_PICKUP |
CALL MNC_CW_I_W_S('I',diag_mnc_bn,0,0,'iter',myIter,myThid) |
./pkg/diagnostics/diagnostics_write_pickup.F |
128 |
DIAGNOSTICS_WRITE_PICKUP |
& dim, dn, ib, ie, myThid) |
./pkg/diagnostics/diagnostics_write_pickup.F |
130 |
DIAGNOSTICS_WRITE_PICKUP |
& 4,5, myThid) |
./pkg/diagnostics/diagnostics_write_pickup.F |
132 |
DIAGNOSTICS_WRITE_PICKUP |
& 'diagnostics state',myThid) |
./pkg/diagnostics/diagnostics_write_pickup.F |
135 |
DIAGNOSTICS_WRITE_PICKUP |
& d_cw_name, qdiag, myThid) |
./pkg/diagnostics/diagnostics_write_pickup.F |
137 |
DIAGNOSTICS_WRITE_PICKUP |
CALL MNC_CW_DEL_VNAME(d_cw_name, myThid) |
./pkg/diagnostics/diagnostics_write_pickup.F |
138 |
DIAGNOSTICS_WRITE_PICKUP |
CALL MNC_CW_DEL_GNAME(d_cw_name, myThid) |
./pkg/diagnostics/diagnostics_write_pickup.F |
156 |
DIAGNOSTICS_WRITE_PICKUP |
& dim, dn, ib, ie, myThid) |
./pkg/diagnostics/diagnostics_write_pickup.F |
158 |
DIAGNOSTICS_WRITE_PICKUP |
& 4,5, myThid) |
./pkg/diagnostics/diagnostics_write_pickup.F |
15 |
DIAGNOSTICS_WRITE_PICKUP |
I myThid ) |
./pkg/diagnostics/diagnostics_write_pickup.F |
160 |
DIAGNOSTICS_WRITE_PICKUP |
& 'diagnostics state',myThid) |
./pkg/diagnostics/diagnostics_write_pickup.F |
163 |
DIAGNOSTICS_WRITE_PICKUP |
& d_cw_name, ndiag, myThid) |
./pkg/diagnostics/diagnostics_write_pickup.F |
165 |
DIAGNOSTICS_WRITE_PICKUP |
CALL MNC_CW_DEL_VNAME(d_cw_name, myThid) |
./pkg/diagnostics/diagnostics_write_pickup.F |
166 |
DIAGNOSTICS_WRITE_PICKUP |
CALL MNC_CW_DEL_GNAME(d_cw_name, myThid) |
./pkg/diagnostics/diagnostics_write_pickup.F |
180 |
DIAGNOSTICS_WRITE_PICKUP |
& 1, myIter, myThid ) |
./pkg/diagnostics/diagnostics_write_pickup.F |
184 |
DIAGNOSTICS_WRITE_PICKUP |
_BEGIN_MASTER( myThid ) |
./pkg/diagnostics/diagnostics_write_pickup.F |
194 |
DIAGNOSTICS_WRITE_PICKUP |
_END_MASTER( myThid ) |
./pkg/diagnostics/diagnostics_write_pickup.F |
40 |
DIAGNOSTICS_WRITE_PICKUP |
INTEGER myThid |
./pkg/diagnostics/diagnostics_write_pickup.F |
91 |
DIAGNOSTICS_WRITE_PICKUP |
CALL MNC_CW_SET_UDIM(fn, 0, myThid) |
./pkg/diagnostics/diagnostics_write_pickup.F |
93 |
DIAGNOSTICS_WRITE_PICKUP |
CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, 0, myThid) |
./pkg/diagnostics/diagnostics_write_pickup.F |
95 |
DIAGNOSTICS_WRITE_PICKUP |
CALL MNC_CW_SET_CITER(fn, 2, -1, -1, -1, myThid) |
./pkg/diagnostics/diagnostics_write_pickup.F |
98 |
DIAGNOSTICS_WRITE_PICKUP |
CALL MNC_CW_SET_UDIM(fn, 1, myThid) |
./pkg/diagnostics/diagstats_ascii_out.F |
13 |
DIAGSTATS_ASCII_OUT |
I mId, listId, myIter, myThid ) |
./pkg/diagnostics/diagstats_ascii_out.F |
37 |
DIAGSTATS_ASCII_OUT |
INTEGER myIter, myThid |
./pkg/diagnostics/diagstats_ascii_out.F |
47 |
DIAGSTATS_ASCII_OUT |
_BEGIN_MASTER( myThid) |
./pkg/diagnostics/diagstats_ascii_out.F |
84 |
DIAGSTATS_ASCII_OUT |
_END_MASTER( myThid ) |
./pkg/diagnostics/diagstats_calc.F |
16 |
DIAGSTATS_CALC |
I myThid ) |
./pkg/diagnostics/diagstats_calc.F |
71 |
DIAGSTATS_CALC |
INTEGER myThid |
./pkg/diagnostics/diagstats_clear.F |
11 |
DIAGSTATS_CLEAR |
SUBROUTINE DIAGSTATS_CLEAR( listId, myThid) |
./pkg/diagnostics/diagstats_clear.F |
26 |
DIAGSTATS_CLEAR |
INTEGER listId, myThid |
./pkg/diagnostics/diagstats_clear.F |
36 |
DIAGSTATS_CLEAR |
CALL DIAGSTATS_CLRDIAG( ndId, iSp, myThid ) |
./pkg/diagnostics/diagstats_clear.F |
49 |
DIAGSTATS_CLRDIAG |
SUBROUTINE DIAGSTATS_CLRDIAG( ndId, iSp, myThid ) |
./pkg/diagnostics/diagstats_clear.F |
65 |
DIAGSTATS_CLRDIAG |
INTEGER ndId, iSp, myThid |
./pkg/diagnostics/diagstats_clear.F |
76 |
DIAGSTATS_CLRDIAG |
DO bj=myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagstats_clear.F |
77 |
DIAGSTATS_CLRDIAG |
DO bi=myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagstats_close_io.F |
31 |
DIAGSTATS_CLOSE_IO |
INTEGER myThid |
./pkg/diagnostics/diagstats_close_io.F |
42 |
DIAGSTATS_CLOSE_IO |
_BEGIN_MASTER( myThid) |
./pkg/diagnostics/diagstats_close_io.F |
60 |
DIAGSTATS_CLOSE_IO |
& SQUEEZE_RIGHT , myThid) |
./pkg/diagnostics/diagstats_close_io.F |
66 |
DIAGSTATS_CLOSE_IO |
_END_MASTER( myThid ) |
./pkg/diagnostics/diagstats_close_io.F |
9 |
DIAGSTATS_CLOSE_IO |
SUBROUTINE DIAGSTATS_CLOSE_IO( myThid ) |
./pkg/diagnostics/diagstats_fill.F |
199 |
DIAGSTATS_FILL |
_BEGIN_MASTER(myThid) |
./pkg/diagnostics/diagstats_fill.F |
202 |
DIAGSTATS_FILL |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagstats_fill.F |
205 |
DIAGSTATS_FILL |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagstats_fill.F |
208 |
DIAGSTATS_FILL |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagstats_fill.F |
211 |
DIAGSTATS_FILL |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagstats_fill.F |
213 |
DIAGSTATS_FILL |
_END_MASTER(myThid) |
./pkg/diagnostics/diagstats_fill.F |
220 |
DIAGSTATS_FILL |
DO bj=myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagstats_fill.F |
221 |
DIAGSTATS_FILL |
DO bi=myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagstats_fill.F |
232 |
DIAGSTATS_FILL |
I ndId, gdiag(ndId), myThid ) |
./pkg/diagnostics/diagstats_fill.F |
23 |
DIAGSTATS_FILL |
I bibjflg, biArg, bjArg, myThid ) |
./pkg/diagnostics/diagstats_fill.F |
249 |
DIAGSTATS_FILL |
I ndId, gdiag(ndId), myThid ) |
./pkg/diagnostics/diagstats_fill.F |
256 |
DIAGSTATS_FILL |
DO bj=myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagstats_fill.F |
257 |
DIAGSTATS_FILL |
DO bi=myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagstats_fill.F |
266 |
DIAGSTATS_FILL |
I iRun,jRun,k,bi,bj, myThid ) |
./pkg/diagnostics/diagstats_fill.F |
274 |
DIAGSTATS_FILL |
I ndId, gdiag(ndId), myThid ) |
./pkg/diagnostics/diagstats_fill.F |
289 |
DIAGSTATS_FILL |
I iRun,jRun,k,bi,bj, myThid ) |
./pkg/diagnostics/diagstats_fill.F |
297 |
DIAGSTATS_FILL |
I ndId, gdiag(ndId), myThid ) |
./pkg/diagnostics/diagstats_fill.F |
323 |
DIAGSTATS_TO_RL |
I myThid ) |
./pkg/diagnostics/diagstats_fill.F |
365 |
DIAGSTATS_TO_RL |
INTEGER myThid |
./pkg/diagnostics/diagstats_fill.F |
96 |
DIAGSTATS_FILL |
INTEGER myThid |
./pkg/diagnostics/diagstats_global.F |
114 |
DIAGSTATS_GLOBAL |
_GLOBAL_SUM_RL(qtmp1(i,k),myThid) |
./pkg/diagnostics/diagstats_global.F |
124 |
DIAGSTATS_GLOBAL |
_GLOBAL_MAX_RL(tmpMin,myThid) |
./pkg/diagnostics/diagstats_global.F |
125 |
DIAGSTATS_GLOBAL |
_GLOBAL_MAX_RL(tmpMax,myThid) |
./pkg/diagnostics/diagstats_global.F |
132 |
DIAGSTATS_GLOBAL |
_GLOBAL_SUM_RL(qtmp2(i,k),myThid) |
./pkg/diagnostics/diagstats_global.F |
14 |
DIAGSTATS_GLOBAL |
I ndId, mate, iSp, iSm, myThid ) |
./pkg/diagnostics/diagstats_global.F |
37 |
DIAGSTATS_GLOBAL |
INTEGER myThid |
./pkg/diagnostics/diagstats_global.F |
70 |
DIAGSTATS_GLOBAL |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/diagnostics/diagstats_global.F |
71 |
DIAGSTATS_GLOBAL |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/diagnostics/diagstats_ini_io.F |
32 |
DIAGSTATS_INI_IO |
INTEGER myThid |
./pkg/diagnostics/diagstats_ini_io.F |
43 |
DIAGSTATS_INI_IO |
_BEGIN_MASTER( myThid) |
./pkg/diagnostics/diagstats_ini_io.F |
54 |
DIAGSTATS_INI_IO |
CALL MDSFINDUNIT( nUnit, myThid ) |
./pkg/diagnostics/diagstats_ini_io.F |
65 |
DIAGSTATS_INI_IO |
& SQUEEZE_RIGHT , myThid) |
./pkg/diagnostics/diagstats_ini_io.F |
98 |
DIAGSTATS_INI_IO |
_END_MASTER( myThid ) |
./pkg/diagnostics/diagstats_ini_io.F |
9 |
DIAGSTATS_INI_IO |
SUBROUTINE DIAGSTATS_INI_IO( myThid ) |
./pkg/diagnostics/diagstats_local.F |
129 |
DIAGSTATS_LOCAL |
I drLoc, specialVal, exclSpVal, useWeight, myThid ) |
./pkg/diagnostics/diagstats_local.F |
141 |
DIAGSTATS_LOCAL |
I drLoc, specialVal, exclSpVal, useWeight, myThid ) |
./pkg/diagnostics/diagstats_local.F |
152 |
DIAGSTATS_LOCAL |
I drLoc, specialVal, exclSpVal, useWeight, myThid ) |
./pkg/diagnostics/diagstats_local.F |
167 |
DIAGSTATS_LOCAL |
I k,bi,bj, parsFld, myThid ) |
./pkg/diagnostics/diagstats_local.F |
16 |
DIAGSTATS_LOCAL |
I myThid ) |
./pkg/diagnostics/diagstats_local.F |
180 |
DIAGSTATS_LOCAL |
I k,bi,bj, parsFld, myThid ) |
./pkg/diagnostics/diagstats_local.F |
196 |
DIAGSTATS_LOCAL |
I drLoc, specialVal, exclSpVal, useWeight, myThid ) |
./pkg/diagnostics/diagstats_local.F |
207 |
DIAGSTATS_LOCAL |
I drLoc, specialVal, exclSpVal, useWeight, myThid ) |
./pkg/diagnostics/diagstats_local.F |
218 |
DIAGSTATS_LOCAL |
I drLoc, specialVal, exclSpVal, useWeight, myThid ) |
./pkg/diagnostics/diagstats_local.F |
73 |
DIAGSTATS_LOCAL |
INTEGER myThid |
./pkg/diagnostics/diagstats_mnc_out.F |
106 |
DIAGSTATS_MNC_OUT |
CALL MNC_CW_SET_UDIM(diag_mnc_bn, -1, myThid) |
./pkg/diagnostics/diagstats_mnc_out.F |
107 |
DIAGSTATS_MNC_OUT |
CALL MNC_CW_RL_W_S('D',diag_mnc_bn,1,1,'T',myTime,myThid) |
./pkg/diagnostics/diagstats_mnc_out.F |
108 |
DIAGSTATS_MNC_OUT |
CALL MNC_CW_SET_UDIM(diag_mnc_bn, 0, myThid) |
./pkg/diagnostics/diagstats_mnc_out.F |
109 |
DIAGSTATS_MNC_OUT |
CALL MNC_CW_I_W_S('I',diag_mnc_bn,1,1,'iter',myIter,myThid) |
./pkg/diagnostics/diagstats_mnc_out.F |
128 |
DIAGSTATS_MNC_OUT |
& dim, dn, ib, ie, myThid) |
./pkg/diagnostics/diagstats_mnc_out.F |
130 |
DIAGSTATS_MNC_OUT |
& 0,0, myThid) |
./pkg/diagnostics/diagstats_mnc_out.F |
133 |
DIAGSTATS_MNC_OUT |
& myThid) |
./pkg/diagnostics/diagstats_mnc_out.F |
136 |
DIAGSTATS_MNC_OUT |
& 'diag_levels', levs(1,listId), myThid) |
./pkg/diagnostics/diagstats_mnc_out.F |
138 |
DIAGSTATS_MNC_OUT |
CALL MNC_CW_DEL_VNAME('diag_levels', myThid) |
./pkg/diagnostics/diagstats_mnc_out.F |
139 |
DIAGSTATS_MNC_OUT |
CALL MNC_CW_DEL_GNAME('diag_levels', myThid) |
./pkg/diagnostics/diagstats_mnc_out.F |
13 |
DIAGSTATS_MNC_OUT |
I mId, listId, myTime, myIter, myThid ) |
./pkg/diagnostics/diagstats_mnc_out.F |
146 |
DIAGSTATS_MNC_OUT |
CALL MNC_CW_ADD_GNAME(dn(1), 1, dim, dn, ib, ie, myThid) |
./pkg/diagnostics/diagstats_mnc_out.F |
147 |
DIAGSTATS_MNC_OUT |
CALL MNC_CW_ADD_VNAME(dn(1), dn(1), 0,0, myThid) |
./pkg/diagnostics/diagstats_mnc_out.F |
163 |
DIAGSTATS_MNC_OUT |
& myThid) |
./pkg/diagnostics/diagstats_mnc_out.F |
170 |
DIAGSTATS_MNC_OUT |
& myThid) |
./pkg/diagnostics/diagstats_mnc_out.F |
177 |
DIAGSTATS_MNC_OUT |
& myThid) |
./pkg/diagnostics/diagstats_mnc_out.F |
179 |
DIAGSTATS_MNC_OUT |
CALL MNC_CW_RS_W('D',diag_mnc_bn,1,1, dn(1), ztmp, myThid) |
./pkg/diagnostics/diagstats_mnc_out.F |
180 |
DIAGSTATS_MNC_OUT |
CALL MNC_CW_DEL_VNAME(dn(1), myThid) |
./pkg/diagnostics/diagstats_mnc_out.F |
181 |
DIAGSTATS_MNC_OUT |
CALL MNC_CW_DEL_GNAME(dn(1), myThid) |
./pkg/diagnostics/diagstats_mnc_out.F |
230 |
DIAGSTATS_MNC_OUT |
& dim, dn, ib, ie, myThid) |
./pkg/diagnostics/diagstats_mnc_out.F |
236 |
DIAGSTATS_MNC_OUT |
& dim, dn, ib, ie, myThid) |
./pkg/diagnostics/diagstats_mnc_out.F |
251 |
DIAGSTATS_MNC_OUT |
& 0,0, myThid) |
./pkg/diagnostics/diagstats_mnc_out.F |
253 |
DIAGSTATS_MNC_OUT |
& tdiag(ndId),myThid) |
./pkg/diagnostics/diagstats_mnc_out.F |
255 |
DIAGSTATS_MNC_OUT |
& udiag(ndId),myThid) |
./pkg/diagnostics/diagstats_mnc_out.F |
273 |
DIAGSTATS_MNC_OUT |
& tnam, stmp, myThid) |
./pkg/diagnostics/diagstats_mnc_out.F |
282 |
DIAGSTATS_MNC_OUT |
CALL MNC_CW_DEL_VNAME(tnam, myThid) |
./pkg/diagnostics/diagstats_mnc_out.F |
293 |
DIAGSTATS_MNC_OUT |
& 0,0, myThid) |
./pkg/diagnostics/diagstats_mnc_out.F |
295 |
DIAGSTATS_MNC_OUT |
& tdiag(ndId),myThid) |
./pkg/diagnostics/diagstats_mnc_out.F |
297 |
DIAGSTATS_MNC_OUT |
& udiag(ndId),myThid) |
./pkg/diagnostics/diagstats_mnc_out.F |
308 |
DIAGSTATS_MNC_OUT |
& tnam, stmp, myThid) |
./pkg/diagnostics/diagstats_mnc_out.F |
310 |
DIAGSTATS_MNC_OUT |
CALL MNC_CW_DEL_VNAME(tnam, myThid) |
./pkg/diagnostics/diagstats_mnc_out.F |
316 |
DIAGSTATS_MNC_OUT |
CALL MNC_CW_DEL_GNAME(d_cw_gname, myThid) |
./pkg/diagnostics/diagstats_mnc_out.F |
317 |
DIAGSTATS_MNC_OUT |
CALL MNC_CW_DEL_GNAME(d_cw_gname0, myThid) |
./pkg/diagnostics/diagstats_mnc_out.F |
321 |
DIAGSTATS_MNC_OUT |
_END_MASTER( myThid ) |
./pkg/diagnostics/diagstats_mnc_out.F |
48 |
DIAGSTATS_MNC_OUT |
INTEGER myIter, myThid |
./pkg/diagnostics/diagstats_mnc_out.F |
81 |
DIAGSTATS_MNC_OUT |
_BEGIN_MASTER( myThid) |
./pkg/diagnostics/diagstats_others_calc.F |
108 |
DIAGSTATS_LM_CALC |
I drLoc, specialVal, exclSpVal, useWeight, myThid ) |
./pkg/diagnostics/diagstats_others_calc.F |
122 |
DIAGSTATS_LM_CALC |
I drLoc, specialVal, exclSpVal, useWeight, myThid ) |
./pkg/diagnostics/diagstats_others_calc.F |
143 |
DIAGSTATS_G_CALC |
I k,bi,bj, parsFld, myThid ) |
./pkg/diagnostics/diagstats_others_calc.F |
200 |
DIAGSTATS_G_CALC |
INTEGER myThid |
./pkg/diagnostics/diagstats_others_calc.F |
21 |
DIAGSTATS_LM_CALC |
I k,bi,bj, parsFld, myThid ) |
./pkg/diagnostics/diagstats_others_calc.F |
226 |
DIAGSTATS_G_CALC |
I drLoc, specialVal, exclSpVal, useWeight, myThid ) |
./pkg/diagnostics/diagstats_others_calc.F |
76 |
DIAGSTATS_LM_CALC |
INTEGER myThid |
./pkg/diagnostics/diagstats_output.F |
101 |
DIAGSTATS_OUTPUT |
& SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagstats_output.F |
106 |
DIAGSTATS_OUTPUT |
& SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagstats_output.F |
110 |
DIAGSTATS_OUTPUT |
& SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagstats_output.F |
114 |
DIAGSTATS_OUTPUT |
& SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagstats_output.F |
115 |
DIAGSTATS_OUTPUT |
_END_MASTER( myThid ) |
./pkg/diagnostics/diagstats_output.F |
119 |
DIAGSTATS_OUTPUT |
_BEGIN_MASTER( myThid ) |
./pkg/diagnostics/diagstats_output.F |
128 |
DIAGSTATS_OUTPUT |
_END_MASTER( myThid ) |
./pkg/diagnostics/diagstats_output.F |
136 |
DIAGSTATS_OUTPUT |
& m, listId, myIter, myThid ) |
./pkg/diagnostics/diagstats_output.F |
13 |
DIAGSTATS_OUTPUT |
I myTime, myIter, myThid ) |
./pkg/diagnostics/diagstats_output.F |
143 |
DIAGSTATS_OUTPUT |
& m, listId, myTime, myIter, myThid ) |
./pkg/diagnostics/diagstats_output.F |
41 |
DIAGSTATS_OUTPUT |
INTEGER listId, myIter, myThid |
./pkg/diagnostics/diagstats_output.F |
92 |
DIAGSTATS_OUTPUT |
I ndId, mate, iSp, iSm, myThid ) |
./pkg/diagnostics/diagstats_output.F |
96 |
DIAGSTATS_OUTPUT |
_BEGIN_MASTER( myThid ) |
./pkg/diagnostics/diagstats_set_pointers.F |
122 |
DIAGSTATS_SET_POINTERS |
& SQUEEZE_RIGHT , myThid) |
./pkg/diagnostics/diagstats_set_pointers.F |
128 |
DIAGSTATS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagstats_set_pointers.F |
132 |
DIAGSTATS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagstats_set_pointers.F |
138 |
DIAGSTATS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagstats_set_pointers.F |
142 |
DIAGSTATS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagstats_set_pointers.F |
159 |
DIAGSTATS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagstats_set_pointers.F |
168 |
DIAGSTATS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagstats_set_pointers.F |
176 |
DIAGSTATS_SET_POINTERS |
& SQUEEZE_RIGHT , myThid) |
./pkg/diagnostics/diagstats_set_pointers.F |
180 |
DIAGSTATS_SET_POINTERS |
& SQUEEZE_RIGHT , myThid) |
./pkg/diagnostics/diagstats_set_pointers.F |
182 |
DIAGSTATS_SET_POINTERS |
_END_MASTER( myThid ) |
./pkg/diagnostics/diagstats_set_pointers.F |
31 |
DIAGSTATS_SET_POINTERS |
INTEGER myThid |
./pkg/diagnostics/diagstats_set_pointers.F |
44 |
DIAGSTATS_SET_POINTERS |
_BEGIN_MASTER( myThid) |
./pkg/diagnostics/diagstats_set_pointers.F |
67 |
DIAGSTATS_SET_POINTERS |
CALL DIAGSTATS_SETDIAG(mate,ndiagcount,md,ld,nd,myThid) |
./pkg/diagnostics/diagstats_set_pointers.F |
76 |
DIAGSTATS_SET_POINTERS |
I diagSt_nbFlds,diagSt_Flds,myThid) |
./pkg/diagnostics/diagstats_set_pointers.F |
80 |
DIAGSTATS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagstats_set_pointers.F |
9 |
DIAGSTATS_SET_POINTERS |
SUBROUTINE DIAGSTATS_SET_POINTERS( myThid ) |
./pkg/diagnostics/diagstats_set_regions.F |
103 |
DIAGSTATS_SET_REGIONS |
_EXCH_XY_RS( tmpVar, myThid ) |
./pkg/diagnostics/diagstats_set_regions.F |
104 |
DIAGSTATS_SET_REGIONS |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagstats_set_regions.F |
105 |
DIAGSTATS_SET_REGIONS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagstats_set_regions.F |
121 |
DIAGSTATS_SET_REGIONS |
_BEGIN_MASTER( myThid ) |
./pkg/diagnostics/diagstats_set_regions.F |
123 |
DIAGSTATS_SET_REGIONS |
_END_MASTER( myThid ) |
./pkg/diagnostics/diagstats_set_regions.F |
128 |
DIAGSTATS_SET_REGIONS |
_BEGIN_MASTER( myThid ) |
./pkg/diagnostics/diagstats_set_regions.F |
137 |
DIAGSTATS_SET_REGIONS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagstats_set_regions.F |
144 |
DIAGSTATS_SET_REGIONS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagstats_set_regions.F |
181 |
DIAGSTATS_SET_REGIONS |
& SQUEEZE_RIGHT , myThid) |
./pkg/diagnostics/diagstats_set_regions.F |
185 |
DIAGSTATS_SET_REGIONS |
& SQUEEZE_RIGHT , myThid) |
./pkg/diagnostics/diagstats_set_regions.F |
187 |
DIAGSTATS_SET_REGIONS |
_END_MASTER( myThid ) |
./pkg/diagnostics/diagstats_set_regions.F |
192 |
DIAGSTATS_SET_REGIONS |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagstats_set_regions.F |
193 |
DIAGSTATS_SET_REGIONS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagstats_set_regions.F |
204 |
DIAGSTATS_SET_REGIONS |
_BEGIN_MASTER( myThid ) |
./pkg/diagnostics/diagstats_set_regions.F |
215 |
DIAGSTATS_SET_REGIONS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagstats_set_regions.F |
221 |
DIAGSTATS_SET_REGIONS |
& SQUEEZE_RIGHT , myThid) |
./pkg/diagnostics/diagstats_set_regions.F |
225 |
DIAGSTATS_SET_REGIONS |
& SQUEEZE_RIGHT , myThid) |
./pkg/diagnostics/diagstats_set_regions.F |
227 |
DIAGSTATS_SET_REGIONS |
_END_MASTER( myThid ) |
./pkg/diagnostics/diagstats_set_regions.F |
31 |
DIAGSTATS_SET_REGIONS |
INTEGER myThid |
./pkg/diagnostics/diagstats_set_regions.F |
55 |
DIAGSTATS_SET_REGIONS |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/diagnostics/diagstats_set_regions.F |
56 |
DIAGSTATS_SET_REGIONS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/diagnostics/diagstats_set_regions.F |
68 |
DIAGSTATS_SET_REGIONS |
_BEGIN_MASTER( myThid ) |
./pkg/diagnostics/diagstats_set_regions.F |
75 |
DIAGSTATS_SET_REGIONS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagstats_set_regions.F |
82 |
DIAGSTATS_SET_REGIONS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagstats_set_regions.F |
85 |
DIAGSTATS_SET_REGIONS |
_END_MASTER( myThid ) |
./pkg/diagnostics/diagstats_set_regions.F |
99 |
DIAGSTATS_SET_REGIONS |
& nIter0, myThid ) |
./pkg/diagnostics/diagstats_set_regions.F |
9 |
DIAGSTATS_SET_REGIONS |
SUBROUTINE DIAGSTATS_SET_REGIONS( myThid ) |
./pkg/diagnostics/diagstats_setdiag.F |
100 |
DIAGSTATS_SETDIAG |
CALL PRINT_MESSAGE(msgBuf, errUnit, SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagstats_setdiag.F |
12 |
DIAGSTATS_SETDIAG |
I mId, listId, ndId, myThid ) |
./pkg/diagnostics/diagstats_setdiag.F |
133 |
DIAGSTATS_SETDIAG |
CALL PRINT_MESSAGE(msgBuf, errUnit, SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagstats_setdiag.F |
137 |
DIAGSTATS_SETDIAG |
CALL PRINT_MESSAGE(msgBuf, stdUnit, SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagstats_setdiag.F |
145 |
DIAGSTATS_SETDIAG |
CALL PRINT_MESSAGE(msgBuf, stdUnit, SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagstats_setdiag.F |
43 |
DIAGSTATS_SETDIAG |
INTEGER myThid |
./pkg/diagnostics/diagstats_setdiag.F |
88 |
DIAGSTATS_SETDIAG |
CALL PRINT_MESSAGE(msgBuf, errUnit, SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagstats_setdiag.F |
92 |
DIAGSTATS_SETDIAG |
CALL PRINT_MESSAGE(msgBuf, stdUnit, SQUEEZE_RIGHT, myThid) |
./pkg/dic/alk_surfforcing.F |
12 |
ALK_SURFFORCING |
I myIter,myTime,myThid) |
./pkg/dic/alk_surfforcing.F |
34 |
ALK_SURFFORCING |
INTEGER myIter, myThid |
./pkg/dic/bio_export.F |
16 |
BIO_EXPORT |
I myIter,myTime,myThid) |
./pkg/dic/bio_export.F |
41 |
BIO_EXPORT |
INTEGER myThid |
./pkg/dic/bio_export.F |
75 |
BIO_EXPORT |
CALL INSOL(myTime,sfac,bi,bj,myThid) |
./pkg/dic/calcite_saturation.F |
118 |
CALCITE_SATURATION |
I i,j,k,bi,bj,myIter,myThid ) |
./pkg/dic/calcite_saturation.F |
12 |
CALCITE_SATURATION |
I myIter,myTime,myThid) |
./pkg/dic/calcite_saturation.F |
37 |
CALCITE_SATURATION |
INTEGER myThid |
./pkg/dic/calcite_saturation.F |
78 |
CALCITE_SATURATION |
I k,myThid) |
./pkg/dic/car_flux.F |
12 |
CAR_FLUX |
I myIter,myTime,myThid) |
./pkg/dic/car_flux.F |
33 |
CAR_FLUX |
INTEGER myThid |
./pkg/dic/car_flux_omega_top.F |
12 |
CAR_FLUX_OMEGA_TOP |
I myIter,myTime,myThid) |
./pkg/dic/car_flux_omega_top.F |
35 |
CAR_FLUX_OMEGA_TOP |
INTEGER myThid |
./pkg/dic/carbon_chem.F |
29 |
CALC_PCO2 |
I i,j,k,bi,bj,myIter,myThid ) |
./pkg/dic/carbon_chem.F |
336 |
CALC_PCO2_APPROX_CO3 |
I i,j,k,bi,bj,myIter,myThid ) |
./pkg/dic/carbon_chem.F |
379 |
CALC_PCO2_APPROX_CO3 |
INTEGER myThid |
./pkg/dic/carbon_chem.F |
486 |
CALC_PCO2_APPROX |
I i,j,k,bi,bj,myIter,myThid ) |
./pkg/dic/carbon_chem.F |
526 |
CALC_PCO2_APPROX |
INTEGER myThid |
./pkg/dic/carbon_chem.F |
626 |
CARBON_COEFFS |
I bi,bj,iMin,iMax,jMin,jMax,myThid) |
./pkg/dic/carbon_chem.F |
65 |
CALC_PCO2 |
INTEGER myThid |
./pkg/dic/carbon_chem.F |
674 |
CARBON_COEFFS |
INTEGER myThid |
./pkg/dic/carbon_chem.F |
846 |
CARBON_COEFFS_PRESSURE_DEP |
I Klevel,myThid) |
./pkg/dic/carbon_chem.F |
903 |
CARBON_COEFFS_PRESSURE_DEP |
INTEGER myThid |
./pkg/dic/dic_atmos.F |
114 |
DIC_ATMOS |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/dic/dic_atmos.F |
115 |
DIC_ATMOS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/dic/dic_atmos.F |
11 |
DIC_ATMOS |
SUBROUTINE DIC_ATMOS( istate, myTime, myIter, myThid ) |
./pkg/dic/dic_atmos.F |
135 |
DIC_ATMOS |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/dic/dic_atmos.F |
136 |
DIC_ATMOS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/dic/dic_atmos.F |
164 |
DIC_ATMOS |
CALL GLOBAL_SUM_TILE_RL( tile_flux, total_flux, myThid ) |
./pkg/dic/dic_atmos.F |
165 |
DIC_ATMOS |
CALL GLOBAL_SUM_TILE_RL( tile_carbon, total_carbon, myThid ) |
./pkg/dic/dic_atmos.F |
169 |
DIC_ATMOS |
_BEGIN_MASTER(myThid) |
./pkg/dic/dic_atmos.F |
172 |
DIC_ATMOS |
_END_MASTER(myThid) |
./pkg/dic/dic_atmos.F |
177 |
DIC_ATMOS |
CALL DIC_READ_CO2_PICKUP( nIter0, myThid ) |
./pkg/dic/dic_atmos.F |
179 |
DIC_ATMOS |
_BEGIN_MASTER(myThid) |
./pkg/dic/dic_atmos.F |
185 |
DIC_ATMOS |
_END_MASTER(myThid) |
./pkg/dic/dic_atmos.F |
187 |
DIC_ATMOS |
_BEGIN_MASTER(myThid) |
./pkg/dic/dic_atmos.F |
196 |
DIC_ATMOS |
_END_MASTER(myThid) |
./pkg/dic/dic_atmos.F |
198 |
DIC_ATMOS |
_BEGIN_MASTER(myThid) |
./pkg/dic/dic_atmos.F |
242 |
DIC_ATMOS |
_END_MASTER(myThid) |
./pkg/dic/dic_atmos.F |
246 |
DIC_ATMOS |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/dic/dic_atmos.F |
247 |
DIC_ATMOS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/dic/dic_atmos.F |
40 |
DIC_ATMOS |
INTEGER myIter, myThid |
./pkg/dic/dic_atmos.F |
85 |
DIC_ATMOS |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/dic/dic_atmos.F |
86 |
DIC_ATMOS |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/dic/dic_aver.F |
32 |
DIC_AVER |
INTEGER myThid |
./pkg/dic/dic_aver.F |
44 |
DIC_AVER |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/dic/dic_aver.F |
45 |
DIC_AVER |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/dic/dic_aver.F |
68 |
DIC_AVER |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/dic/dic_aver.F |
69 |
DIC_AVER |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/dic/dic_aver.F |
8 |
DIC_AVER |
I myTime,myIter,myThid) |
./pkg/dic/dic_aver_final.F |
27 |
DIC_AVER_FINAL |
INTEGER myThid |
./pkg/dic/dic_aver_final.F |
36 |
DIC_AVER_FINAL |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/dic/dic_aver_final.F |
37 |
DIC_AVER_FINAL |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/dic/dic_aver_final.F |
39 |
DIC_AVER_FINAL |
& bi,bj,myThid) |
./pkg/dic/dic_aver_final.F |
41 |
DIC_AVER_FINAL |
& bi,bj,myThid) |
./pkg/dic/dic_aver_final.F |
44 |
DIC_AVER_FINAL |
& bi,bj,myThid) |
./pkg/dic/dic_aver_final.F |
46 |
DIC_AVER_FINAL |
& bi,bj,myThid) |
./pkg/dic/dic_aver_final.F |
48 |
DIC_AVER_FINAL |
& bi,bj,myThid) |
./pkg/dic/dic_aver_final.F |
52 |
DIC_AVER_FINAL |
& bi,bj,myThid) |
./pkg/dic/dic_aver_final.F |
54 |
DIC_AVER_FINAL |
& bi,bj,myThid) |
./pkg/dic/dic_aver_final.F |
56 |
DIC_AVER_FINAL |
& bi,bj,myThid) |
./pkg/dic/dic_aver_final.F |
8 |
DIC_AVER_FINAL |
I myThid) |
./pkg/dic/dic_aver_init.F |
103 |
DIC_AVER_INIT |
_EXCH_XYZ_RL(po4obs , myThid ) |
./pkg/dic/dic_aver_init.F |
104 |
DIC_AVER_INIT |
_EXCH_XYZ_RL(o2obs , myThid ) |
./pkg/dic/dic_aver_init.F |
106 |
DIC_AVER_INIT |
_EXCH_XYZ_RL(po4obsl1 , myThid ) |
./pkg/dic/dic_aver_init.F |
107 |
DIC_AVER_INIT |
_EXCH_XYZ_RL(po4obsl2 , myThid ) |
./pkg/dic/dic_aver_init.F |
108 |
DIC_AVER_INIT |
_EXCH_XYZ_RL(po4obsl3 , myThid ) |
./pkg/dic/dic_aver_init.F |
110 |
DIC_AVER_INIT |
_EXCH_XYZ_RL(o2obsl1 , myThid ) |
./pkg/dic/dic_aver_init.F |
111 |
DIC_AVER_INIT |
_EXCH_XYZ_RL(o2obsl2 , myThid ) |
./pkg/dic/dic_aver_init.F |
112 |
DIC_AVER_INIT |
_EXCH_XYZ_RL(o2obsl3 , myThid ) |
./pkg/dic/dic_aver_init.F |
119 |
DIC_AVER_INIT |
& po4av(k),myThid) |
./pkg/dic/dic_aver_init.F |
121 |
DIC_AVER_INIT |
& o2av(k),myThid) |
./pkg/dic/dic_aver_init.F |
127 |
DIC_AVER_INIT |
& po4avm(it,1),myThid) |
./pkg/dic/dic_aver_init.F |
129 |
DIC_AVER_INIT |
& po4avm(it,2),myThid) |
./pkg/dic/dic_aver_init.F |
131 |
DIC_AVER_INIT |
& po4avm(it,3),myThid) |
./pkg/dic/dic_aver_init.F |
135 |
DIC_AVER_INIT |
& o2avm(it,1),myThid) |
./pkg/dic/dic_aver_init.F |
137 |
DIC_AVER_INIT |
& o2avm(it,2),myThid) |
./pkg/dic/dic_aver_init.F |
139 |
DIC_AVER_INIT |
& o2avm(it,3),myThid) |
./pkg/dic/dic_aver_init.F |
145 |
DIC_AVER_INIT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/dic/dic_aver_init.F |
146 |
DIC_AVER_INIT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/dic/dic_aver_init.F |
205 |
DIC_AVER_INIT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/dic/dic_aver_init.F |
206 |
DIC_AVER_INIT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/dic/dic_aver_init.F |
207 |
DIC_AVER_INIT |
CALL TIMEAVE_RESET(PO4ann,Nr,bi,bj,myThid) |
./pkg/dic/dic_aver_init.F |
208 |
DIC_AVER_INIT |
CALL TIMEAVE_RESET(O2ann,Nr,bi,bj,myThid) |
./pkg/dic/dic_aver_init.F |
209 |
DIC_AVER_INIT |
CALL TIMEAVE_RESET(PO4lev1, 12, bi, bj, myThid) |
./pkg/dic/dic_aver_init.F |
210 |
DIC_AVER_INIT |
CALL TIMEAVE_RESET(PO4lev2, 12, bi, bj, myThid) |
./pkg/dic/dic_aver_init.F |
211 |
DIC_AVER_INIT |
CALL TIMEAVE_RESET(PO4lev3, 12, bi, bj, myThid) |
./pkg/dic/dic_aver_init.F |
213 |
DIC_AVER_INIT |
CALL TIMEAVE_RESET(O2lev1, 12, bi, bj, myThid) |
./pkg/dic/dic_aver_init.F |
214 |
DIC_AVER_INIT |
CALL TIMEAVE_RESET(O2lev2, 12, bi, bj, myThid) |
./pkg/dic/dic_aver_init.F |
215 |
DIC_AVER_INIT |
CALL TIMEAVE_RESET(O2lev3, 12, bi, bj, myThid) |
./pkg/dic/dic_aver_init.F |
30 |
DIC_AVER_INIT |
INTEGER myThid |
./pkg/dic/dic_aver_init.F |
47 |
DIC_AVER_INIT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/dic/dic_aver_init.F |
48 |
DIC_AVER_INIT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/dic/dic_aver_init.F |
49 |
DIC_AVER_INIT |
CALL TIMEAVE_RESET(PO4obs, Nr, bi, bj, myThid) |
./pkg/dic/dic_aver_init.F |
50 |
DIC_AVER_INIT |
CALL TIMEAVE_RESET(O2obs, Nr, bi, bj, myThid) |
./pkg/dic/dic_aver_init.F |
52 |
DIC_AVER_INIT |
CALL TIMEAVE_RESET(PO4obsl1, Nr, bi, bj, myThid) |
./pkg/dic/dic_aver_init.F |
53 |
DIC_AVER_INIT |
CALL TIMEAVE_RESET(PO4obsl2, Nr, bi, bj, myThid) |
./pkg/dic/dic_aver_init.F |
54 |
DIC_AVER_INIT |
CALL TIMEAVE_RESET(PO4obsl3, Nr, bi, bj, myThid) |
./pkg/dic/dic_aver_init.F |
56 |
DIC_AVER_INIT |
CALL TIMEAVE_RESET(O2obsl1, Nr, bi, bj, myThid) |
./pkg/dic/dic_aver_init.F |
57 |
DIC_AVER_INIT |
CALL TIMEAVE_RESET(O2obsl2, Nr, bi, bj, myThid) |
./pkg/dic/dic_aver_init.F |
58 |
DIC_AVER_INIT |
CALL TIMEAVE_RESET(O2obsl3, Nr, bi, bj, myThid) |
./pkg/dic/dic_aver_init.F |
82 |
DIC_AVER_INIT |
& po4obs, 0, myThid ) |
./pkg/dic/dic_aver_init.F |
84 |
DIC_AVER_INIT |
& o2obs, 0, myThid ) |
./pkg/dic/dic_aver_init.F |
87 |
DIC_AVER_INIT |
& po4obsl1, 0, myThid ) |
./pkg/dic/dic_aver_init.F |
89 |
DIC_AVER_INIT |
& po4obsl2, 0, myThid ) |
./pkg/dic/dic_aver_init.F |
8 |
DIC_AVER_INIT |
I myThid) |
./pkg/dic/dic_aver_init.F |
91 |
DIC_AVER_INIT |
& po4obsl3, 0, myThid ) |
./pkg/dic/dic_aver_init.F |
95 |
DIC_AVER_INIT |
& o2obsl1, 0, myThid ) |
./pkg/dic/dic_aver_init.F |
97 |
DIC_AVER_INIT |
& o2obsl2, 0, myThid ) |
./pkg/dic/dic_aver_init.F |
99 |
DIC_AVER_INIT |
& o2obsl3, 0, myThid ) |
./pkg/dic/dic_biotic_diags.F |
109 |
DIC_BIOTIC_DIAGS |
CALL MNC_CW_SET_UDIM('dic_tave', -1, myThid) |
./pkg/dic/dic_biotic_diags.F |
110 |
DIC_BIOTIC_DIAGS |
CALL MNC_CW_RL_W_S('D','dic_tave',0,0,'T',myTime,myThid) |
./pkg/dic/dic_biotic_diags.F |
111 |
DIC_BIOTIC_DIAGS |
CALL MNC_CW_SET_UDIM('dic_tave', 0, myThid) |
./pkg/dic/dic_biotic_diags.F |
112 |
DIC_BIOTIC_DIAGS |
CALL MNC_CW_I_W_S('I','dic_tave',0,0,'iter',myIter,myThid) |
./pkg/dic/dic_biotic_diags.F |
114 |
DIC_BIOTIC_DIAGS |
& pf,'dic_tave',0,0,'dic_BIO_ave',BIOave,myThid) |
./pkg/dic/dic_biotic_diags.F |
116 |
DIC_BIOTIC_DIAGS |
& pf,'dic_tave',0,0,'dic_CAR_ave',CARave,myThid) |
./pkg/dic/dic_biotic_diags.F |
118 |
DIC_BIOTIC_DIAGS |
& pf,'dic_tave',0,0,'dic_SUR_ave',SURave,myThid) |
./pkg/dic/dic_biotic_diags.F |
120 |
DIC_BIOTIC_DIAGS |
& pf,'dic_tave',0,0,'dic_SURO_ave',SUROave,myThid) |
./pkg/dic/dic_biotic_diags.F |
122 |
DIC_BIOTIC_DIAGS |
& pf,'dic_tave',0,0,'dic_pH_ave',pHave,myThid) |
./pkg/dic/dic_biotic_diags.F |
124 |
DIC_BIOTIC_DIAGS |
& pf,'dic_tave',0,0,'dic_pCO2_ave',pCO2ave,myThid) |
./pkg/dic/dic_biotic_diags.F |
126 |
DIC_BIOTIC_DIAGS |
& pf,'dic_tave',0,0,'dic_fluxCO2_ave',fluxCO2ave,myThid) |
./pkg/dic/dic_biotic_diags.F |
128 |
DIC_BIOTIC_DIAGS |
& pf,'dic_tave',0,0,'dic_OmegaC_ave',OmegaCave,myThid) |
./pkg/dic/dic_biotic_diags.F |
130 |
DIC_BIOTIC_DIAGS |
& pf,'dic_tave',0,0,'dic_pflux_ave',pfluxave,myThid) |
./pkg/dic/dic_biotic_diags.F |
132 |
DIC_BIOTIC_DIAGS |
& pf,'dic_tave',0,0,'dic_epflux_ave',epfluxave,myThid) |
./pkg/dic/dic_biotic_diags.F |
134 |
DIC_BIOTIC_DIAGS |
& pf,'dic_tave',0,0,'dic_cflux_ave',cfluxave,myThid) |
./pkg/dic/dic_biotic_diags.F |
139 |
DIC_BIOTIC_DIAGS |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/dic/dic_biotic_diags.F |
140 |
DIC_BIOTIC_DIAGS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/dic/dic_biotic_diags.F |
141 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_RESET(BIOave,Nr,bi,bj,myThid) |
./pkg/dic/dic_biotic_diags.F |
142 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_RESET(CARave,Nr,bi,bj,myThid) |
./pkg/dic/dic_biotic_diags.F |
143 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_RESET(SURave,1,bi,bj,myThid) |
./pkg/dic/dic_biotic_diags.F |
144 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_RESET(SUROave,1,bi,bj,myThid) |
./pkg/dic/dic_biotic_diags.F |
145 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_RESET(pCO2ave,1,bi,bj,myThid) |
./pkg/dic/dic_biotic_diags.F |
146 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_RESET(pHave,1,bi,bj,myThid) |
./pkg/dic/dic_biotic_diags.F |
147 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_RESET(fluxCO2ave,1,bi,bj,myThid) |
./pkg/dic/dic_biotic_diags.F |
148 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_RESET(OmegaCave,Nr,bi,bj,myThid) |
./pkg/dic/dic_biotic_diags.F |
149 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_RESET(pfluxave,Nr,bi,bj,myThid) |
./pkg/dic/dic_biotic_diags.F |
150 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_RESET(epfluxave,Nr,bi,bj,myThid) |
./pkg/dic/dic_biotic_diags.F |
151 |
DIC_BIOTIC_DIAGS |
CALL TIMEAVE_RESET(cfluxave,Nr,bi,bj,myThid) |
./pkg/dic/dic_biotic_diags.F |
30 |
DIC_BIOTIC_DIAGS |
INTEGER myThid |
./pkg/dic/dic_biotic_diags.F |
49 |
DIC_BIOTIC_DIAGS |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/dic/dic_biotic_diags.F |
50 |
DIC_BIOTIC_DIAGS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/dic/dic_biotic_diags.F |
52 |
DIC_BIOTIC_DIAGS |
& bi,bj,myThid) |
./pkg/dic/dic_biotic_diags.F |
54 |
DIC_BIOTIC_DIAGS |
& bi,bj,myThid) |
./pkg/dic/dic_biotic_diags.F |
56 |
DIC_BIOTIC_DIAGS |
& bi,bj,myThid) |
./pkg/dic/dic_biotic_diags.F |
58 |
DIC_BIOTIC_DIAGS |
& bi,bj,myThid) |
./pkg/dic/dic_biotic_diags.F |
60 |
DIC_BIOTIC_DIAGS |
& bi,bj,myThid) |
./pkg/dic/dic_biotic_diags.F |
62 |
DIC_BIOTIC_DIAGS |
& bi,bj,myThid) |
./pkg/dic/dic_biotic_diags.F |
64 |
DIC_BIOTIC_DIAGS |
& bi,bj,myThid) |
./pkg/dic/dic_biotic_diags.F |
66 |
DIC_BIOTIC_DIAGS |
& bi,bj,myThid) |
./pkg/dic/dic_biotic_diags.F |
68 |
DIC_BIOTIC_DIAGS |
& bi,bj,myThid) |
./pkg/dic/dic_biotic_diags.F |
70 |
DIC_BIOTIC_DIAGS |
& bi,bj,myThid) |
./pkg/dic/dic_biotic_diags.F |
72 |
DIC_BIOTIC_DIAGS |
& bi,bj,myThid) |
./pkg/dic/dic_biotic_diags.F |
79 |
DIC_BIOTIC_DIAGS |
& myIter,myThid) |
./pkg/dic/dic_biotic_diags.F |
7 |
DIC_BIOTIC_DIAGS |
SUBROUTINE DIC_BIOTIC_DIAGS( myTime, myIter, myThid ) |
./pkg/dic/dic_biotic_diags.F |
81 |
DIC_BIOTIC_DIAGS |
& myIter,myThid) |
./pkg/dic/dic_biotic_diags.F |
83 |
DIC_BIOTIC_DIAGS |
& myIter,myThid) |
./pkg/dic/dic_biotic_diags.F |
85 |
DIC_BIOTIC_DIAGS |
& myIter,myThid) |
./pkg/dic/dic_biotic_diags.F |
87 |
DIC_BIOTIC_DIAGS |
& myIter,myThid) |
./pkg/dic/dic_biotic_diags.F |
89 |
DIC_BIOTIC_DIAGS |
& myIter,myThid) |
./pkg/dic/dic_biotic_diags.F |
91 |
DIC_BIOTIC_DIAGS |
& myIter,myThid) |
./pkg/dic/dic_biotic_diags.F |
93 |
DIC_BIOTIC_DIAGS |
& myIter,myThid) |
./pkg/dic/dic_biotic_diags.F |
95 |
DIC_BIOTIC_DIAGS |
& myIter,myThid) |
./pkg/dic/dic_biotic_diags.F |
97 |
DIC_BIOTIC_DIAGS |
& myIter,myThid) |
./pkg/dic/dic_biotic_diags.F |
99 |
DIC_BIOTIC_DIAGS |
& myIter,myThid) |
./pkg/dic/dic_biotic_forcing.F |
143 |
DIC_BIOTIC_FORCING |
& myIter,myTime,myThid) |
./pkg/dic/dic_biotic_forcing.F |
148 |
DIC_BIOTIC_FORCING |
& myIter,myTime,myThid) |
./pkg/dic/dic_biotic_forcing.F |
154 |
DIC_BIOTIC_FORCING |
& myIter,myTime,myThid) |
./pkg/dic/dic_biotic_forcing.F |
171 |
DIC_BIOTIC_FORCING |
I myIter,myTime,myThid) |
./pkg/dic/dic_biotic_forcing.F |
176 |
DIC_BIOTIC_FORCING |
& myIter,myTime,myThid) |
./pkg/dic/dic_biotic_forcing.F |
197 |
DIC_BIOTIC_FORCING |
I myIter,myTime,myThid) |
./pkg/dic/dic_biotic_forcing.F |
19 |
DIC_BIOTIC_FORCING |
& myIter,myTime,myThid) |
./pkg/dic/dic_biotic_forcing.F |
202 |
DIC_BIOTIC_FORCING |
& myIter,myTime,myThid) |
./pkg/dic/dic_biotic_forcing.F |
207 |
DIC_BIOTIC_FORCING |
& myIter,myTime,myThid) |
./pkg/dic/dic_biotic_forcing.F |
341 |
DIC_BIOTIC_FORCING |
CALL DIAGNOSTICS_FILL(BIOac ,'DICBIOA ',0,Nr,2,bi,bj,myThid) |
./pkg/dic/dic_biotic_forcing.F |
342 |
DIC_BIOTIC_FORCING |
CALL DIAGNOSTICS_FILL(CAR ,'DICCARB ',0,Nr,2,bi,bj,myThid) |
./pkg/dic/dic_biotic_forcing.F |
343 |
DIC_BIOTIC_FORCING |
CALL DIAGNOSTICS_FILL(pCO2 ,'DICPCO2 ',0,1 ,1,bi,bj,myThid) |
./pkg/dic/dic_biotic_forcing.F |
344 |
DIC_BIOTIC_FORCING |
CALL DIAGNOSTICS_FILL(fluxCO2,'DICCFLX ',0,1 ,1,bi,bj,myThid) |
./pkg/dic/dic_biotic_forcing.F |
345 |
DIC_BIOTIC_FORCING |
CALL DIAGNOSTICS_FILL(pH ,'DICPHAV ',0,1 ,1,bi,bj,myThid) |
./pkg/dic/dic_biotic_forcing.F |
346 |
DIC_BIOTIC_FORCING |
CALL DIAGNOSTICS_FILL(SURC ,'DICTFLX ',0,1 ,2,bi,bj,myThid) |
./pkg/dic/dic_biotic_forcing.F |
348 |
DIC_BIOTIC_FORCING |
CALL DIAGNOSTICS_FILL(SURO ,'DICOFLX ',0,1 ,2,bi,bj,myThid) |
./pkg/dic/dic_biotic_forcing.F |
48 |
DIC_BIOTIC_FORCING |
INTEGER myThid |
./pkg/dic/dic_biotic_init.F |
10 |
DIC_BIOTIC_INIT |
SUBROUTINE DIC_BIOTIC_INIT( myThid ) |
./pkg/dic/dic_biotic_init.F |
24 |
DIC_BIOTIC_INIT |
INTEGER myThid |
./pkg/dic/dic_biotic_init.F |
35 |
DIC_BIOTIC_INIT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/dic/dic_biotic_init.F |
36 |
DIC_BIOTIC_INIT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/dic/dic_biotic_init.F |
37 |
DIC_BIOTIC_INIT |
CALL TIMEAVE_RESET(BIOave, Nr, bi, bj, myThid) |
./pkg/dic/dic_biotic_init.F |
38 |
DIC_BIOTIC_INIT |
CALL TIMEAVE_RESET(CARave, Nr, bi, bj, myThid) |
./pkg/dic/dic_biotic_init.F |
39 |
DIC_BIOTIC_INIT |
CALL TIMEAVE_RESET(SURave, 1, bi, bj, myThid) |
./pkg/dic/dic_biotic_init.F |
40 |
DIC_BIOTIC_INIT |
CALL TIMEAVE_RESET(SUROave, 1, bi, bj, myThid) |
./pkg/dic/dic_biotic_init.F |
41 |
DIC_BIOTIC_INIT |
CALL TIMEAVE_RESET(pCO2ave, 1, bi, bj, myThid) |
./pkg/dic/dic_biotic_init.F |
42 |
DIC_BIOTIC_INIT |
CALL TIMEAVE_RESET(pHave, 1, bi, bj, myThid) |
./pkg/dic/dic_biotic_init.F |
43 |
DIC_BIOTIC_INIT |
CALL TIMEAVE_RESET(fluxCO2ave, 1, bi, bj, myThid) |
./pkg/dic/dic_biotic_init.F |
44 |
DIC_BIOTIC_INIT |
CALL TIMEAVE_RESET(OmegaCave, Nr, bi, bj, myThid) |
./pkg/dic/dic_biotic_init.F |
45 |
DIC_BIOTIC_INIT |
CALL TIMEAVE_RESET(pfluxave, Nr, bi, bj, myThid) |
./pkg/dic/dic_biotic_init.F |
46 |
DIC_BIOTIC_INIT |
CALL TIMEAVE_RESET(epfluxave, Nr, bi, bj, myThid) |
./pkg/dic/dic_biotic_init.F |
47 |
DIC_BIOTIC_INIT |
CALL TIMEAVE_RESET(cfluxave, Nr, bi, bj, myThid) |
./pkg/dic/dic_cost.F |
30 |
DIC_COST |
INTEGER myThid |
./pkg/dic/dic_cost.F |
42 |
DIC_COST |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/dic/dic_cost.F |
43 |
DIC_COST |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/dic/dic_cost.F |
53 |
DIC_COST |
_GLOBAL_SUM_RL(tmpcost,myThid) |
./pkg/dic/dic_cost.F |
8 |
DIC_COST |
I myTime,myIter,myThid) |
./pkg/dic/dic_diagnostics_init.F |
20 |
DIC_DIAGNOSTICS_INIT |
INTEGER myThid |
./pkg/dic/dic_diagnostics_init.F |
40 |
DIC_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/dic/dic_diagnostics_init.F |
47 |
DIC_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/dic/dic_diagnostics_init.F |
54 |
DIC_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/dic/dic_diagnostics_init.F |
61 |
DIC_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/dic/dic_diagnostics_init.F |
68 |
DIC_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/dic/dic_diagnostics_init.F |
75 |
DIC_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/dic/dic_diagnostics_init.F |
7 |
DIC_DIAGNOSTICS_INIT |
SUBROUTINE DIC_DIAGNOSTICS_INIT(myThid ) |
./pkg/dic/dic_diagnostics_init.F |
82 |
DIC_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/dic/dic_fields_load.F |
101 |
DIC_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/dic/dic_fields_load.F |
103 |
DIC_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/dic/dic_fields_load.F |
107 |
DIC_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/dic/dic_fields_load.F |
109 |
DIC_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/dic/dic_fields_load.F |
114 |
DIC_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/dic/dic_fields_load.F |
116 |
DIC_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/dic/dic_fields_load.F |
11 |
DIC_FIELDS_LOAD |
I myIter,myTime,myThid) |
./pkg/dic/dic_fields_load.F |
122 |
DIC_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/dic/dic_fields_load.F |
124 |
DIC_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/dic/dic_fields_load.F |
132 |
DIC_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/dic/dic_fields_load.F |
133 |
DIC_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/dic/dic_fields_load.F |
185 |
DIC_FIELDS_LOAD |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/dic/dic_fields_load.F |
205 |
DIC_FIELDS_LOAD |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/dic/dic_fields_load.F |
206 |
DIC_FIELDS_LOAD |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/dic/dic_fields_load.F |
37 |
DIC_FIELDS_LOAD |
INTEGER myThid |
./pkg/dic/dic_fields_load.F |
80 |
DIC_FIELDS_LOAD |
_BEGIN_MASTER(myThid) |
./pkg/dic/dic_fields_load.F |
84 |
DIC_FIELDS_LOAD |
_END_MASTER(myThid) |
./pkg/dic/dic_fields_load.F |
89 |
DIC_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/dic/dic_fields_load.F |
91 |
DIC_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/dic/dic_fields_load.F |
95 |
DIC_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/dic/dic_fields_load.F |
97 |
DIC_FIELDS_LOAD |
& myIter,myThid ) |
./pkg/dic/dic_ini_forcing.F |
10 |
DIC_INI_FORCING |
SUBROUTINE DIC_INI_FORCING( myThid ) |
./pkg/dic/dic_ini_forcing.F |
29 |
DIC_INI_FORCING |
INTEGER myThid |
./pkg/dic/dic_ini_forcing.F |
41 |
DIC_INI_FORCING |
CALL LEF_ZERO( dicwind0,myThid ) |
./pkg/dic/dic_ini_forcing.F |
42 |
DIC_INI_FORCING |
CALL LEF_ZERO( dicwind1,myThid ) |
./pkg/dic/dic_ini_forcing.F |
43 |
DIC_INI_FORCING |
CALL LEF_ZERO( atmosp0,myThid ) |
./pkg/dic/dic_ini_forcing.F |
44 |
DIC_INI_FORCING |
CALL LEF_ZERO( atmosp1,myThid ) |
./pkg/dic/dic_ini_forcing.F |
45 |
DIC_INI_FORCING |
CALL LEF_ZERO( silica0,myThid ) |
./pkg/dic/dic_ini_forcing.F |
46 |
DIC_INI_FORCING |
CALL LEF_ZERO( silica1,myThid ) |
./pkg/dic/dic_ini_forcing.F |
47 |
DIC_INI_FORCING |
CALL LEF_ZERO( ice0,myThid ) |
./pkg/dic/dic_ini_forcing.F |
48 |
DIC_INI_FORCING |
CALL LEF_ZERO( ice1,myThid ) |
./pkg/dic/dic_ini_forcing.F |
50 |
DIC_INI_FORCING |
CALL LEF_ZERO( par0,myThid ) |
./pkg/dic/dic_ini_forcing.F |
51 |
DIC_INI_FORCING |
CALL LEF_ZERO( par1,myThid ) |
./pkg/dic/dic_ini_forcing.F |
54 |
DIC_INI_FORCING |
CALL LEF_ZERO( feinput0,myThid ) |
./pkg/dic/dic_ini_forcing.F |
55 |
DIC_INI_FORCING |
CALL LEF_ZERO( feinput1,myThid ) |
./pkg/dic/dic_ini_forcing.F |
58 |
DIC_INI_FORCING |
_EXCH_XY_RS(dicwind0, myThid ) |
./pkg/dic/dic_ini_forcing.F |
59 |
DIC_INI_FORCING |
_EXCH_XY_RS(dicwind1, myThid ) |
./pkg/dic/dic_ini_forcing.F |
60 |
DIC_INI_FORCING |
_EXCH_XY_RS(atmosp0, myThid ) |
./pkg/dic/dic_ini_forcing.F |
61 |
DIC_INI_FORCING |
_EXCH_XY_RS(atmosp1, myThid ) |
./pkg/dic/dic_ini_forcing.F |
62 |
DIC_INI_FORCING |
_EXCH_XY_RS(silica0, myThid ) |
./pkg/dic/dic_ini_forcing.F |
63 |
DIC_INI_FORCING |
_EXCH_XY_RS(silica1, myThid ) |
./pkg/dic/dic_ini_forcing.F |
64 |
DIC_INI_FORCING |
_EXCH_XY_RS(ice0, myThid ) |
./pkg/dic/dic_ini_forcing.F |
65 |
DIC_INI_FORCING |
_EXCH_XY_RS(ice1, myThid ) |
./pkg/dic/dic_ini_forcing.F |
67 |
DIC_INI_FORCING |
_EXCH_XY_RS(par0, myThid ) |
./pkg/dic/dic_ini_forcing.F |
68 |
DIC_INI_FORCING |
_EXCH_XY_RS(par1, myThid ) |
./pkg/dic/dic_ini_forcing.F |
71 |
DIC_INI_FORCING |
_EXCH_XY_RS(feinput0, myThid ) |
./pkg/dic/dic_ini_forcing.F |
72 |
DIC_INI_FORCING |
_EXCH_XY_RS(feinput1, myThid ) |
./pkg/dic/dic_ini_forcing.F |
80 |
DIC_INI_FORCING |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/dic/dic_ini_forcing.F |
86 |
DIC_INI_FORCING |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/dic/dic_ini_forcing.F |
87 |
DIC_INI_FORCING |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/dic/dic_init_fixed.F |
105 |
DIC_INIT_FIXED |
_END_MASTER(myThid) |
./pkg/dic/dic_init_fixed.F |
109 |
DIC_INIT_FIXED |
CALL DIC_MNC_INIT( myThid ) |
./pkg/dic/dic_init_fixed.F |
115 |
DIC_INIT_FIXED |
CALL DIC_DIAGNOSTICS_INIT( myThid ) |
./pkg/dic/dic_init_fixed.F |
11 |
DIC_INIT_FIXED |
SUBROUTINE DIC_INIT_FIXED( myThid ) |
./pkg/dic/dic_init_fixed.F |
27 |
DIC_INIT_FIXED |
INTEGER myThid |
./pkg/dic/dic_init_fixed.F |
37 |
DIC_INIT_FIXED |
_BEGIN_MASTER(myThid) |
./pkg/dic/dic_init_fixed.F |
95 |
DIC_INIT_FIXED |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
./pkg/dic/dic_init_fixed.F |
97 |
DIC_INIT_FIXED |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
./pkg/dic/dic_init_fixed.F |
99 |
DIC_INIT_FIXED |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
./pkg/dic/dic_init_varia.F |
11 |
DIC_INIT_VARIA |
SUBROUTINE DIC_INIT_VARIA( myThid ) |
./pkg/dic/dic_init_varia.F |
29 |
DIC_INIT_VARIA |
INTEGER myThid |
./pkg/dic/dic_init_varia.F |
41 |
DIC_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/dic/dic_init_varia.F |
42 |
DIC_INIT_VARIA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/dic/dic_mnc_init.F |
100 |
DIC_MNC_INIT |
& '', myThid) |
./pkg/dic/dic_mnc_init.F |
103 |
DIC_MNC_INIT |
& 'dic_cflux_ave', 'Cen_xy_Hn__C__t', 4,5, myThid) |
./pkg/dic/dic_mnc_init.F |
105 |
DIC_MNC_INIT |
& 'dic_cflux_ave','units','--', myThid) |
./pkg/dic/dic_mnc_init.F |
107 |
DIC_MNC_INIT |
& '', myThid) |
./pkg/dic/dic_mnc_init.F |
11 |
DIC_MNC_INIT |
SUBROUTINE DIC_MNC_INIT( myThid ) |
./pkg/dic/dic_mnc_init.F |
24 |
DIC_MNC_INIT |
INTEGER myThid |
./pkg/dic/dic_mnc_init.F |
33 |
DIC_MNC_INIT |
& 'dic_BIO_ave', 'Cen_xy_Hn__C__t', 4,5, myThid) |
./pkg/dic/dic_mnc_init.F |
35 |
DIC_MNC_INIT |
& 'dic_BIO_ave','units','--', myThid) |
./pkg/dic/dic_mnc_init.F |
37 |
DIC_MNC_INIT |
& '', myThid) |
./pkg/dic/dic_mnc_init.F |
40 |
DIC_MNC_INIT |
& 'dic_CAR_ave', 'Cen_xy_Hn__C__t', 4,5, myThid) |
./pkg/dic/dic_mnc_init.F |
42 |
DIC_MNC_INIT |
& 'dic_CAR_ave','units','--', myThid) |
./pkg/dic/dic_mnc_init.F |
44 |
DIC_MNC_INIT |
& '', myThid) |
./pkg/dic/dic_mnc_init.F |
47 |
DIC_MNC_INIT |
& 'dic_SUR_ave', 'Cen_xy_Hn__-__t', 3,4, myThid) |
./pkg/dic/dic_mnc_init.F |
49 |
DIC_MNC_INIT |
& 'dic_SUR_ave','units','--', myThid) |
./pkg/dic/dic_mnc_init.F |
51 |
DIC_MNC_INIT |
& '', myThid) |
./pkg/dic/dic_mnc_init.F |
54 |
DIC_MNC_INIT |
& 'dic_SURO_ave', 'Cen_xy_Hn__-__t', 3,4, myThid) |
./pkg/dic/dic_mnc_init.F |
56 |
DIC_MNC_INIT |
& 'dic_SURO_ave','units','--', myThid) |
./pkg/dic/dic_mnc_init.F |
58 |
DIC_MNC_INIT |
& '', myThid) |
./pkg/dic/dic_mnc_init.F |
61 |
DIC_MNC_INIT |
& 'dic_pH_ave', 'Cen_xy_Hn__-__t', 3,4, myThid) |
./pkg/dic/dic_mnc_init.F |
63 |
DIC_MNC_INIT |
& 'dic_pH_ave','units','--', myThid) |
./pkg/dic/dic_mnc_init.F |
65 |
DIC_MNC_INIT |
& '', myThid) |
./pkg/dic/dic_mnc_init.F |
68 |
DIC_MNC_INIT |
& 'dic_pCO2_ave', 'Cen_xy_Hn__-__t', 3,4, myThid) |
./pkg/dic/dic_mnc_init.F |
70 |
DIC_MNC_INIT |
& 'dic_pCO2_ave','units','--', myThid) |
./pkg/dic/dic_mnc_init.F |
72 |
DIC_MNC_INIT |
& '', myThid) |
./pkg/dic/dic_mnc_init.F |
75 |
DIC_MNC_INIT |
& 'dic_fluxCO2_ave', 'Cen_xy_Hn__-__t', 3,4, myThid) |
./pkg/dic/dic_mnc_init.F |
77 |
DIC_MNC_INIT |
& 'dic_fluxCO2_ave','units','--', myThid) |
./pkg/dic/dic_mnc_init.F |
79 |
DIC_MNC_INIT |
& '', myThid) |
./pkg/dic/dic_mnc_init.F |
82 |
DIC_MNC_INIT |
& 'dic_OmegaC_ave', 'Cen_xy_Hn__C__t', 4,5, myThid) |
./pkg/dic/dic_mnc_init.F |
84 |
DIC_MNC_INIT |
& 'dic_OmegaC_ave','units','--', myThid) |
./pkg/dic/dic_mnc_init.F |
86 |
DIC_MNC_INIT |
& '', myThid) |
./pkg/dic/dic_mnc_init.F |
89 |
DIC_MNC_INIT |
& 'dic_pflux_ave', 'Cen_xy_Hn__C__t', 4,5, myThid) |
./pkg/dic/dic_mnc_init.F |
91 |
DIC_MNC_INIT |
& 'dic_pflux_ave','units','--', myThid) |
./pkg/dic/dic_mnc_init.F |
93 |
DIC_MNC_INIT |
& '', myThid) |
./pkg/dic/dic_mnc_init.F |
96 |
DIC_MNC_INIT |
& 'dic_epflux_ave', 'Cen_xy_Hn__C__t', 4,5, myThid) |
./pkg/dic/dic_mnc_init.F |
98 |
DIC_MNC_INIT |
& 'dic_epflux_ave','units','--', myThid) |
./pkg/dic/dic_read_co2_pickup.F |
20 |
DIC_READ_CO2_PICKUP |
INTEGER myThid |
./pkg/dic/dic_read_co2_pickup.F |
57 |
DIC_READ_CO2_PICKUP |
I myThid ) |
./pkg/dic/dic_read_co2_pickup.F |
61 |
DIC_READ_CO2_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/dic/dic_read_co2_pickup.F |
64 |
DIC_READ_CO2_PICKUP |
_BEGIN_MASTER(myThid) |
./pkg/dic/dic_read_co2_pickup.F |
65 |
DIC_READ_CO2_PICKUP |
CALL MDSFINDUNIT( ioUnit, myThid ) |
./pkg/dic/dic_read_co2_pickup.F |
66 |
DIC_READ_CO2_PICKUP |
length_of_rec = MDS_RECLEN( fp, 2, myThid ) |
./pkg/dic/dic_read_co2_pickup.F |
76 |
DIC_READ_CO2_PICKUP |
_END_MASTER(myThid) |
./pkg/dic/dic_read_co2_pickup.F |
7 |
DIC_READ_CO2_PICKUP |
I myIter, myThid ) |
./pkg/dic/dic_read_pickup.F |
21 |
DIC_READ_PICKUP |
INTEGER myThid |
./pkg/dic/dic_read_pickup.F |
51 |
DIC_READ_PICKUP |
I myThid ) |
./pkg/dic/dic_read_pickup.F |
55 |
DIC_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, pH, 1, myIter, myThid ) |
./pkg/dic/dic_read_pickup.F |
58 |
DIC_READ_PICKUP |
_EXCH_XY_RL( pH, myThid ) |
./pkg/dic/dic_read_pickup.F |
65 |
DIC_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/dic/dic_read_pickup.F |
70 |
DIC_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/dic/dic_read_pickup.F |
8 |
DIC_READ_PICKUP |
I myIter, myThid ) |
./pkg/dic/dic_readparms.F |
100 |
DIC_READPARMS |
_BEGIN_MASTER(myThid) |
./pkg/dic/dic_readparms.F |
144 |
DIC_READPARMS |
I SQUEEZE_RIGHT, myThid ) |
./pkg/dic/dic_readparms.F |
147 |
DIC_READPARMS |
O iUnit, myThid ) |
./pkg/dic/dic_readparms.F |
165 |
DIC_READPARMS |
I SQUEEZE_RIGHT, myThid ) |
./pkg/dic/dic_readparms.F |
190 |
DIC_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
./pkg/dic/dic_readparms.F |
192 |
DIC_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
./pkg/dic/dic_readparms.F |
194 |
DIC_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
./pkg/dic/dic_readparms.F |
196 |
DIC_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
./pkg/dic/dic_readparms.F |
288 |
DIC_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/dic/dic_readparms.F |
292 |
DIC_READPARMS |
_END_MASTER(myThid) |
./pkg/dic/dic_readparms.F |
30 |
DIC_READPARMS |
INTEGER myThid |
./pkg/dic/dic_readparms.F |
9 |
DIC_READPARMS |
SUBROUTINE DIC_READPARMS( myThid ) |
./pkg/dic/dic_set_control.F |
110 |
DIC_SET_CONTROL |
_EXCH_XY_RL( alpha, myThid ) |
./pkg/dic/dic_set_control.F |
111 |
DIC_SET_CONTROL |
_EXCH_XY_RL( rain_ratio, myThid ) |
./pkg/dic/dic_set_control.F |
112 |
DIC_SET_CONTROL |
_EXCH_XY_RL( feload, myThid ) |
./pkg/dic/dic_set_control.F |
11 |
DIC_SET_CONTROL |
SUBROUTINE DIC_SET_CONTROL( myThid ) |
./pkg/dic/dic_set_control.F |
33 |
DIC_SET_CONTROL |
INTEGER myThid |
./pkg/dic/dic_set_control.F |
72 |
DIC_SET_CONTROL |
& myThid, xx_gen2d_dummy ) |
./pkg/dic/dic_set_control.F |
74 |
DIC_SET_CONTROL |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/dic/dic_set_control.F |
75 |
DIC_SET_CONTROL |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/dic/dic_set_control.F |
98 |
DIC_SET_CONTROL |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/dic/dic_set_control.F |
99 |
DIC_SET_CONTROL |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/dic/dic_store_fluxco2.F |
10 |
DIC_STORE_FLUXCO2 |
I myThid ) |
./pkg/dic/dic_store_fluxco2.F |
40 |
DIC_STORE_FLUXCO2 |
INTEGER myThid |
./pkg/dic/dic_store_fluxco2.F |
51 |
DIC_STORE_FLUXCO2 |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/dic/dic_store_fluxco2.F |
52 |
DIC_STORE_FLUXCO2 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/dic/dic_surfforcing.F |
103 |
DIC_SURFFORCING |
I bi,bj,iMin,iMax,jMin,jMax,myThid) |
./pkg/dic/dic_surfforcing.F |
13 |
DIC_SURFFORCING |
I myIter,myTime,myThid) |
./pkg/dic/dic_surfforcing.F |
145 |
DIC_SURFFORCING |
I i,j,kLev,bi,bj,myIter,myThid ) |
./pkg/dic/dic_surfforcing.F |
34 |
DIC_SURFFORCING |
INTEGER myIter, myThid |
./pkg/dic/dic_surfforcing_init.F |
103 |
DIC_SURFFORCING_INIT |
_EXCH_XY_RS(silica0, myThid ) |
./pkg/dic/dic_surfforcing_init.F |
104 |
DIC_SURFFORCING_INIT |
_EXCH_XY_RS(silica1, myThid ) |
./pkg/dic/dic_surfforcing_init.F |
107 |
DIC_SURFFORCING_INIT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/dic/dic_surfforcing_init.F |
108 |
DIC_SURFFORCING_INIT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/dic/dic_surfforcing_init.F |
129 |
DIC_SURFFORCING_INIT |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/dic/dic_surfforcing_init.F |
12 |
DIC_SURFFORCING_INIT |
I myThid) |
./pkg/dic/dic_surfforcing_init.F |
130 |
DIC_SURFFORCING_INIT |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/dic/dic_surfforcing_init.F |
139 |
DIC_SURFFORCING_INIT |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/dic/dic_surfforcing_init.F |
140 |
DIC_SURFFORCING_INIT |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/dic/dic_surfforcing_init.F |
169 |
DIC_SURFFORCING_INIT |
I nIter0, myThid ) |
./pkg/dic/dic_surfforcing_init.F |
172 |
DIC_SURFFORCING_INIT |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/dic/dic_surfforcing_init.F |
173 |
DIC_SURFFORCING_INIT |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/dic/dic_surfforcing_init.F |
198 |
DIC_SURFFORCING_INIT |
I bi,bj,iMin,iMax,jMin,jMax,myThid) |
./pkg/dic/dic_surfforcing_init.F |
226 |
DIC_SURFFORCING_INIT |
I i,j,kLev,bi,bj, it , myThid ) |
./pkg/dic/dic_surfforcing_init.F |
33 |
DIC_SURFFORCING_INIT |
INTEGER myThid |
./pkg/dic/dic_surfforcing_init.F |
58 |
DIC_SURFFORCING_INIT |
CALL DIC_ATMOS(0, startTime, nIter0, myThid ) |
./pkg/dic/dic_surfforcing_init.F |
64 |
DIC_SURFFORCING_INIT |
CALL LEF_ZERO( silica0,myThid ) |
./pkg/dic/dic_surfforcing_init.F |
65 |
DIC_SURFFORCING_INIT |
CALL LEF_ZERO( silica1,myThid ) |
./pkg/dic/dic_surfforcing_init.F |
84 |
DIC_SURFFORCING_INIT |
_BEGIN_MASTER(myThid) |
./pkg/dic/dic_surfforcing_init.F |
88 |
DIC_SURFFORCING_INIT |
_END_MASTER(myThid) |
./pkg/dic/dic_surfforcing_init.F |
92 |
DIC_SURFFORCING_INIT |
& nIter0,myThid ) |
./pkg/dic/dic_surfforcing_init.F |
94 |
DIC_SURFFORCING_INIT |
& nIter0,myThid ) |
./pkg/dic/dic_surfforcing_init.F |
99 |
DIC_SURFFORCING_INIT |
CALL OFFLINE_FIELDS_LOAD( startTime, nIter0, myThid ) |
./pkg/dic/dic_write_pickup.F |
100 |
DIC_WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/dic/dic_write_pickup.F |
118 |
DIC_WRITE_PICKUP |
& nj, myIter, myThid ) |
./pkg/dic/dic_write_pickup.F |
11 |
DIC_WRITE_PICKUP |
I suff, myTime, myIter, myThid ) |
./pkg/dic/dic_write_pickup.F |
35 |
DIC_WRITE_PICKUP |
INTEGER myThid |
./pkg/dic/dic_write_pickup.F |
72 |
DIC_WRITE_PICKUP |
I 0, 0, 1, myIter, myThid ) |
./pkg/dic/dic_write_pickup.F |
89 |
DIC_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, 1, pH, nj, myIter, myThid ) |
./pkg/dic/dic_write_pickup.F |
97 |
DIC_WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/dic/fe_chem.F |
12 |
FE_CHEM |
I myIter, myThid ) |
./pkg/dic/fe_chem.F |
40 |
FE_CHEM |
INTEGER myIter, myThid |
./pkg/dic/insol.F |
10 |
INSOL |
SUBROUTINE INSOL(Time,sfac,bi,bj,myThid) |
./pkg/dic/insol.F |
32 |
INSOL |
INTEGER myThid |
./pkg/dic/o2_surfforcing.F |
12 |
O2_SURFFORCING |
I myIter, myTime, myThid ) |
./pkg/dic/o2_surfforcing.F |
35 |
O2_SURFFORCING |
INTEGER myIter, myThid |
./pkg/dic/phos_flux.F |
12 |
PHOS_FLUX |
I myIter,myTime,myThid) |
./pkg/dic/phos_flux.F |
33 |
PHOS_FLUX |
INTEGER myThid |
./pkg/dic/tracer_meanarea.F |
10 |
TRACER_MEANAREA |
I myThid ) |
./pkg/dic/tracer_meanarea.F |
25 |
TRACER_MEANAREA |
INTEGER myThid |
./pkg/dic/tracer_meanarea.F |
40 |
TRACER_MEANAREA |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/dic/tracer_meanarea.F |
41 |
TRACER_MEANAREA |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/dic/tracer_meanarea.F |
51 |
TRACER_MEANAREA |
_GLOBAL_SUM_RL(sumTracer,myThid) |
./pkg/down_slope/dwnslp_apply.F |
107 |
DWNSLP_APPLY |
diagSufx = GAD_DIAG_SUFX( trIdentity, myThid ) |
./pkg/down_slope/dwnslp_apply.F |
115 |
DWNSLP_APPLY |
doDiagDwnSlpTend = DIAGNOSTICS_IS_ON(diagName,myThid) |
./pkg/down_slope/dwnslp_apply.F |
15 |
DWNSLP_APPLY |
I myTime, myIter, myThid ) |
./pkg/down_slope/dwnslp_apply.F |
194 |
DWNSLP_APPLY |
& CALL DIAGNOSTICS_FILL( gTracer, diagName, 0,Nr,2,bi,bj,myThid ) |
./pkg/down_slope/dwnslp_apply.F |
60 |
DWNSLP_APPLY |
INTEGER myIter, myThid |
./pkg/down_slope/dwnslp_calc_flow.F |
11 |
DWNSLP_CALC_FLOW |
I myTime, myIter, myThid ) |
./pkg/down_slope/dwnslp_calc_flow.F |
163 |
DWNSLP_CALC_FLOW |
CALL DIAGNOSTICS_FILL( uFlow, 'DSLPuFlw', 0,1,2,bi,bj,myThid ) |
./pkg/down_slope/dwnslp_calc_flow.F |
164 |
DWNSLP_CALC_FLOW |
CALL DIAGNOSTICS_FILL( vFlow, 'DSLPvFlw', 0,1,2,bi,bj,myThid ) |
./pkg/down_slope/dwnslp_calc_flow.F |
43 |
DWNSLP_CALC_FLOW |
INTEGER myIter, myThid |
./pkg/down_slope/dwnslp_calc_flow.F |
80 |
DWNSLP_CALC_FLOW |
doDiagDwnSlpFlow = DIAGNOSTICS_IS_ON( 'DSLPuFlw', myThid ) |
./pkg/down_slope/dwnslp_calc_flow.F |
81 |
DWNSLP_CALC_FLOW |
& .OR. DIAGNOSTICS_IS_ON( 'DSLPvFlw', myThid ) |
./pkg/down_slope/dwnslp_calc_rho.F |
12 |
DWNSLP_CALC_RHO |
I k, bi, bj, myTime, myIter, myThid ) |
./pkg/down_slope/dwnslp_calc_rho.F |
49 |
DWNSLP_CALC_RHO |
INTEGER myIter, myThid |
./pkg/down_slope/dwnslp_calc_rho.F |
88 |
DWNSLP_CALC_RHO |
I k, bi, bj, myThid ) |
./pkg/down_slope/dwnslp_diagnostics_init.F |
102 |
DWNSLP_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/down_slope/dwnslp_diagnostics_init.F |
11 |
DWNSLP_DIAGNOSTICS_INIT |
SUBROUTINE DWNSLP_DIAGNOSTICS_INIT( myThid ) |
./pkg/down_slope/dwnslp_diagnostics_init.F |
27 |
DWNSLP_DIAGNOSTICS_INIT |
INTEGER myThid |
./pkg/down_slope/dwnslp_diagnostics_init.F |
58 |
DWNSLP_DIAGNOSTICS_INIT |
diagNum = DIAGS_GET_PARMS_I( 'LAST_DIAG_ID', myThid ) |
./pkg/down_slope/dwnslp_diagnostics_init.F |
73 |
DWNSLP_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/down_slope/dwnslp_diagnostics_init.F |
81 |
DWNSLP_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, diagMate, myThid ) |
./pkg/down_slope/dwnslp_diagnostics_init.F |
85 |
DWNSLP_DIAGNOSTICS_INIT |
diagSufx = GAD_DIAG_SUFX( GAD_TEMPERATURE, myThid ) |
./pkg/down_slope/dwnslp_diagnostics_init.F |
92 |
DWNSLP_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/down_slope/dwnslp_diagnostics_init.F |
95 |
DWNSLP_DIAGNOSTICS_INIT |
diagSufx = GAD_DIAG_SUFX( GAD_SALINITY, myThid ) |
./pkg/down_slope/dwnslp_init_fixed.F |
200 |
DWNSLP_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/down_slope/dwnslp_init_fixed.F |
203 |
DWNSLP_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/down_slope/dwnslp_init_fixed.F |
282 |
DWNSLP_INIT_FIXED |
_BEGIN_MASTER(myThid) |
./pkg/down_slope/dwnslp_init_fixed.F |
286 |
DWNSLP_INIT_FIXED |
CALL MDSFINDUNIT( DWNSLP_ioUnit, myThid ) |
./pkg/down_slope/dwnslp_init_fixed.F |
32 |
DWNSLP_INIT_FIXED |
INTEGER myThid |
./pkg/down_slope/dwnslp_init_fixed.F |
333 |
DWNSLP_INIT_FIXED |
_END_MASTER(myThid) |
./pkg/down_slope/dwnslp_init_fixed.F |
337 |
DWNSLP_INIT_FIXED |
CALL DWNSLP_DIAGNOSTICS_INIT( myThid ) |
./pkg/down_slope/dwnslp_init_fixed.F |
52 |
DWNSLP_INIT_FIXED |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/down_slope/dwnslp_init_fixed.F |
53 |
DWNSLP_INIT_FIXED |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/down_slope/dwnslp_init_fixed.F |
9 |
DWNSLP_INIT_FIXED |
SUBROUTINE DWNSLP_INIT_FIXED( myThid ) |
./pkg/down_slope/dwnslp_init_varia.F |
33 |
DWNSLP_INIT_VARIA |
INTEGER myThid |
./pkg/down_slope/dwnslp_init_varia.F |
45 |
DWNSLP_INIT_VARIA |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/down_slope/dwnslp_init_varia.F |
46 |
DWNSLP_INIT_VARIA |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/down_slope/dwnslp_init_varia.F |
9 |
DWNSLP_INIT_VARIA |
SUBROUTINE DWNSLP_INIT_VARIA( myThid ) |
./pkg/down_slope/dwnslp_readparms.F |
101 |
DWNSLP_READPARMS |
_END_MASTER(myThid) |
./pkg/down_slope/dwnslp_readparms.F |
28 |
DWNSLP_READPARMS |
INTEGER myThid |
./pkg/down_slope/dwnslp_readparms.F |
44 |
DWNSLP_READPARMS |
_BEGIN_MASTER(myThid) |
./pkg/down_slope/dwnslp_readparms.F |
53 |
DWNSLP_READPARMS |
I myThid ) |
./pkg/down_slope/dwnslp_readparms.F |
72 |
DWNSLP_READPARMS |
_END_MASTER(myThid) |
./pkg/down_slope/dwnslp_readparms.F |
81 |
DWNSLP_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/down_slope/dwnslp_readparms.F |
87 |
DWNSLP_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/down_slope/dwnslp_readparms.F |
92 |
DWNSLP_READPARMS |
_BEGIN_MASTER(myThid) |
./pkg/down_slope/dwnslp_readparms.F |
9 |
DWNSLP_READPARMS |
SUBROUTINE DWNSLP_READPARMS( myThid ) |
./pkg/ebm/ebm_area_t.F |
124 |
EBM_AREA_T |
_GLOBAL_SUM_RL( TmlS, myThid ) |
./pkg/ebm/ebm_area_t.F |
125 |
EBM_AREA_T |
_GLOBAL_SUM_RL( TmlN, myThid ) |
./pkg/ebm/ebm_area_t.F |
126 |
EBM_AREA_T |
_GLOBAL_SUM_RL( TtS, myThid ) |
./pkg/ebm/ebm_area_t.F |
127 |
EBM_AREA_T |
_GLOBAL_SUM_RL( TtN, myThid ) |
./pkg/ebm/ebm_area_t.F |
129 |
EBM_AREA_T |
_GLOBAL_SUM_RL( CountmlS, myThid ) |
./pkg/ebm/ebm_area_t.F |
130 |
EBM_AREA_T |
_GLOBAL_SUM_RL( CountmlN, myThid ) |
./pkg/ebm/ebm_area_t.F |
131 |
EBM_AREA_T |
_GLOBAL_SUM_RL( CounttS, myThid ) |
./pkg/ebm/ebm_area_t.F |
132 |
EBM_AREA_T |
_GLOBAL_SUM_RL( CounttN, myThid ) |
./pkg/ebm/ebm_area_t.F |
30 |
EBM_AREA_T |
INTEGER myThid |
./pkg/ebm/ebm_area_t.F |
67 |
EBM_AREA_T |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/ebm/ebm_area_t.F |
68 |
EBM_AREA_T |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/ebm/ebm_area_t.F |
6 |
EBM_AREA_T |
SUBROUTINE EBM_AREA_T( myTime, myIter, myThid ) |
./pkg/ebm/ebm_atmosphere.F |
345 |
EBM_ATMOSPHERE |
_EXCH_XY_RS(Qnet , myThid ) |
./pkg/ebm/ebm_atmosphere.F |
346 |
EBM_ATMOSPHERE |
_EXCH_XY_RS(EmPmR , myThid ) |
./pkg/ebm/ebm_atmosphere.F |
42 |
EBM_ATMOSPHERE |
INTEGER myThid |
./pkg/ebm/ebm_atmosphere.F |
62 |
EBM_ATMOSPHERE |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/ebm/ebm_atmosphere.F |
63 |
EBM_ATMOSPHERE |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/ebm/ebm_atmosphere.F |
66 |
EBM_ATMOSPHERE |
act1 = bi - myBxLo(myThid) |
./pkg/ebm/ebm_atmosphere.F |
67 |
EBM_ATMOSPHERE |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
./pkg/ebm/ebm_atmosphere.F |
68 |
EBM_ATMOSPHERE |
act2 = bj - myByLo(myThid) |
./pkg/ebm/ebm_atmosphere.F |
69 |
EBM_ATMOSPHERE |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
./pkg/ebm/ebm_atmosphere.F |
6 |
EBM_ATMOSPHERE |
SUBROUTINE EBM_ATMOSPHERE ( myTime, myiter, myThid ) |
./pkg/ebm/ebm_atmosphere.F |
70 |
EBM_ATMOSPHERE |
act3 = myThid - 1 |
./pkg/ebm/ebm_driver.F |
39 |
EBM_DRIVER |
INTEGER myThid |
./pkg/ebm/ebm_driver.F |
49 |
EBM_DRIVER |
CALL EBM_ZONALMEAN ( myTime, myIter, myThid ) |
./pkg/ebm/ebm_driver.F |
52 |
EBM_DRIVER |
CALL EBM_AREA_T ( myTime, myIter, myThid ) |
./pkg/ebm/ebm_driver.F |
55 |
EBM_DRIVER |
CALL EBM_ATMOSPHERE ( myTime, myIter, myThid ) |
./pkg/ebm/ebm_driver.F |
58 |
EBM_DRIVER |
CALL EBM_WIND_PERTURB( myTime, myIter, myThid ) |
./pkg/ebm/ebm_driver.F |
6 |
EBM_DRIVER |
SUBROUTINE EBM_DRIVER( myTime, myIter, myThid ) |
./pkg/ebm/ebm_forcing_surf.F |
11 |
EBM_FORCING_SURF |
I myTime, myIter, myThid ) |
./pkg/ebm/ebm_forcing_surf.F |
39 |
EBM_FORCING_SURF |
INTEGER myThid |
./pkg/ebm/ebm_ini_vars.F |
26 |
EBM_INI_VARS |
INTEGER myThid |
./pkg/ebm/ebm_ini_vars.F |
38 |
EBM_INI_VARS |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/ebm/ebm_ini_vars.F |
39 |
EBM_INI_VARS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/ebm/ebm_ini_vars.F |
49 |
EBM_INI_VARS |
_EXCH_XY_RS(Run, myThid ) |
./pkg/ebm/ebm_ini_vars.F |
50 |
EBM_INI_VARS |
_EXCH_XY_RS(winPert, myThid ) |
./pkg/ebm/ebm_ini_vars.F |
52 |
EBM_INI_VARS |
CALL EBM_LOAD_CLIMATOLOGY( myThid ) |
./pkg/ebm/ebm_ini_vars.F |
54 |
EBM_INI_VARS |
CALL EBM_DRIVER( startTime, niter0, myThid ) |
./pkg/ebm/ebm_ini_vars.F |
59 |
EBM_INI_VARS |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/ebm/ebm_ini_vars.F |
60 |
EBM_INI_VARS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/ebm/ebm_ini_vars.F |
68 |
EBM_INI_VARS |
I startTime, niter0, myThid ) |
./pkg/ebm/ebm_ini_vars.F |
6 |
EBM_INI_VARS |
SUBROUTINE EBM_INI_VARS( myThid ) |
./pkg/ebm/ebm_load_climatology.F |
23 |
EBM_LOAD_CLIMATOLOGY |
INTEGER myThid |
./pkg/ebm/ebm_load_climatology.F |
35 |
EBM_LOAD_CLIMATOLOGY |
CALL READ_FLD_XY_RS( saltClimFile, ' ', SSS, 0, myThid ) |
./pkg/ebm/ebm_load_climatology.F |
39 |
EBM_LOAD_CLIMATOLOGY |
CALL READ_FLD_XY_RS( thetaClimFile, ' ', SST, 0, myThid ) |
./pkg/ebm/ebm_load_climatology.F |
43 |
EBM_LOAD_CLIMATOLOGY |
CALL READ_FLD_XY_RS( RunoffFile, ' ', Run, 0, myThid ) |
./pkg/ebm/ebm_load_climatology.F |
55 |
EBM_LOAD_CLIMATOLOGY |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/ebm/ebm_load_climatology.F |
56 |
EBM_LOAD_CLIMATOLOGY |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/ebm/ebm_load_climatology.F |
71 |
EBM_LOAD_CLIMATOLOGY |
CALL READ_FLD_XY_RS( zonalWindFile, ' ', fu, 0, myThid ) |
./pkg/ebm/ebm_load_climatology.F |
75 |
EBM_LOAD_CLIMATOLOGY |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/ebm/ebm_load_climatology.F |
76 |
EBM_LOAD_CLIMATOLOGY |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/ebm/ebm_load_climatology.F |
7 |
EBM_LOAD_CLIMATOLOGY |
SUBROUTINE EBM_LOAD_CLIMATOLOGY( myThid ) |
./pkg/ebm/ebm_load_climatology.F |
85 |
EBM_LOAD_CLIMATOLOGY |
CALL READ_FLD_XY_RS( meridWindFile, ' ', fv, 0, myThid ) |
./pkg/ebm/ebm_load_climatology.F |
88 |
EBM_LOAD_CLIMATOLOGY |
_EXCH_XY_RS( SSS, myThid ) |
./pkg/ebm/ebm_load_climatology.F |
89 |
EBM_LOAD_CLIMATOLOGY |
_EXCH_XY_RS( SST, myThid ) |
./pkg/ebm/ebm_load_climatology.F |
90 |
EBM_LOAD_CLIMATOLOGY |
_EXCH_XY_RS( Run, myThid ) |
./pkg/ebm/ebm_load_climatology.F |
91 |
EBM_LOAD_CLIMATOLOGY |
CALL EXCH_UV_XY_RS( fu, fv, .TRUE., myThid ) |
./pkg/ebm/ebm_load_climatology.F |
93 |
EBM_LOAD_CLIMATOLOGY |
CALL PLOT_FIELD_XYRS( SST, 'Theta Climatology' , 1, myThid ) |
./pkg/ebm/ebm_load_climatology.F |
94 |
EBM_LOAD_CLIMATOLOGY |
CALL PLOT_FIELD_XYRS( SSS, 'Salt Climatology' , 1, myThid ) |
./pkg/ebm/ebm_load_climatology.F |
95 |
EBM_LOAD_CLIMATOLOGY |
CALL PLOT_FIELD_XYRS( Run, 'Runoff Climatology' , 1, myThid ) |
./pkg/ebm/ebm_load_climatology.F |
97 |
EBM_LOAD_CLIMATOLOGY |
& 'WIND_STRESS_CLIMATOLOGY FU',1,myThid) |
./pkg/ebm/ebm_load_climatology.F |
99 |
EBM_LOAD_CLIMATOLOGY |
& 'WIND_STRESS_CLIMATOLOGY FV',1,myThid) |
./pkg/ebm/ebm_readparms.F |
23 |
EBM_READPARMS |
INTEGER myThid |
./pkg/ebm/ebm_readparms.F |
41 |
EBM_READPARMS |
_BEGIN_MASTER(myThid) |
./pkg/ebm/ebm_readparms.F |
49 |
EBM_READPARMS |
O iUnit, myThid ) |
./pkg/ebm/ebm_readparms.F |
5 |
EBM_READPARMS |
SUBROUTINE EBM_READPARMS( myThid ) |
./pkg/ebm/ebm_readparms.F |
88 |
EBM_READPARMS |
_END_MASTER(myThid) |
./pkg/ebm/ebm_wind_perturb.F |
127 |
EBM_WIND_PERTURB |
_EXCH_XY_RS(winPert , myThid ) |
./pkg/ebm/ebm_wind_perturb.F |
28 |
EBM_WIND_PERTURB |
INTEGER myThid |
./pkg/ebm/ebm_wind_perturb.F |
52 |
EBM_WIND_PERTURB |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/ebm/ebm_wind_perturb.F |
53 |
EBM_WIND_PERTURB |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/ebm/ebm_wind_perturb.F |
7 |
EBM_WIND_PERTURB |
SUBROUTINE EBM_WIND_PERTURB( myTime, myIter, myThid ) |
./pkg/ebm/ebm_zonalmean.F |
29 |
EBM_ZONALMEAN |
INTEGER myThid |
./pkg/ebm/ebm_zonalmean.F |
50 |
EBM_ZONALMEAN |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/ebm/ebm_zonalmean.F |
58 |
EBM_ZONALMEAN |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/ebm/ebm_zonalmean.F |
59 |
EBM_ZONALMEAN |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/ebm/ebm_zonalmean.F |
6 |
EBM_ZONALMEAN |
SUBROUTINE EBM_ZONALMEAN( myTime, myIter, myThid ) |
./pkg/ebm/ebm_zonalmean.F |
76 |
EBM_ZONALMEAN |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/ebm/ebm_zonalmean.F |
78 |
EBM_ZONALMEAN |
_GLOBAL_SUM_RL( CountX(j,bj), myThid ) |
./pkg/ebm/ebm_zonalmean.F |
79 |
EBM_ZONALMEAN |
_GLOBAL_SUM_RL( ZonalMeanSST(j,bj), myThid ) |
./pkg/ebm/ebm_zonalmean.F |
86 |
EBM_ZONALMEAN |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/ecco/cost_averagesfields.F |
128 |
COST_AVERAGESFIELDS |
& CALL DEBUG_CALL('cost_averagesflags',myThid) |
./pkg/ecco/cost_averagesfields.F |
155 |
COST_AVERAGESFIELDS |
& CALL DEBUG_CALL('cost_averagesgeneric psbar',myThid) |
./pkg/ecco/cost_averagesfields.F |
172 |
COST_AVERAGESFIELDS |
& CALL DEBUG_CALL('cost_averagesgeneric tbar',myThid) |
./pkg/ecco/cost_averagesfields.F |
193 |
COST_AVERAGESFIELDS |
& CALL DEBUG_CALL('cost_averagesgeneric sstbar',myThid) |
./pkg/ecco/cost_averagesfields.F |
209 |
COST_AVERAGESFIELDS |
& CALL DEBUG_CALL('cost_averagesgeneric sbar',myThid) |
./pkg/ecco/cost_averagesfields.F |
404 |
COST_AVERAGESFIELDS |
& CALL DEBUG_CALL('cost_averagesgeneric hfluxmeanbar',myThid) |
./pkg/ecco/cost_averagesfields.F |
418 |
COST_AVERAGESFIELDS |
& CALL DEBUG_CALL('cost_averagesgeneric sfluxmeanbar',myThid) |
./pkg/ecco/cost_averagesfields.F |
428 |
COST_AVERAGESFIELDS |
& CALL DEBUG_CALL('cost_averagesgeneric sfluxmeanbar',myThid) |
./pkg/ecco/cost_averagesfields.F |
452 |
COST_AVERAGESFIELDS |
& CALL DEBUG_CALL('cost_averagesgeneric smrareabar',myThid) |
./pkg/ecco/cost_averagesfields.F |
462 |
COST_AVERAGESFIELDS |
& CALL DEBUG_CALL('cost_averagesgeneric smrsstbar',myThid) |
./pkg/ecco/cost_averagesfields.F |
473 |
COST_AVERAGESFIELDS |
& CALL DEBUG_CALL('cost_averagesgeneric smrsssbar',myThid) |
./pkg/ecco/cost_averagesfields.F |
548 |
COST_AVERAGESFIELDS |
& CALL DEBUG_CALL('cost_averagesfields leave',myThid) |
./pkg/ecco/cost_bottomdrag.F |
141 |
COST_BOTTOMDRAG |
_GLOBAL_SUM_RL( fcthread , myThid ) |
./pkg/ecco/cost_ctds.F |
208 |
COST_CTDS |
_GLOBAL_SUM_RL( fcthread_ctds , myThid ) |
./pkg/ecco/cost_ctdsclim.F |
233 |
COST_CTDSCLIM |
_GLOBAL_SUM_RL( fcthread , myThid ) |
./pkg/ecco/cost_ctdt.F |
212 |
COST_CTDT |
_GLOBAL_SUM_RL( fcthread_ctdt , myThid ) |
./pkg/ecco/cost_ctdtclim.F |
233 |
COST_CTDTCLIM |
_GLOBAL_SUM_RL( fcthread , myThid ) |
./pkg/ecco/cost_curmtr.F |
313 |
COST_CURMTR |
_GLOBAL_SUM_RL( fcthread_curmtr , myThid ) |
./pkg/ecco/cost_diffkr.F |
144 |
COST_DIFFKR |
_GLOBAL_SUM_RL( fcthread , myThid ) |
./pkg/ecco/cost_drifter.F |
134 |
COST_DRIFTER |
act1 = bi - myBxLo(myThid) |
./pkg/ecco/cost_drifter.F |
135 |
COST_DRIFTER |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
./pkg/ecco/cost_drifter.F |
136 |
COST_DRIFTER |
act2 = bj - myByLo(myThid) |
./pkg/ecco/cost_drifter.F |
137 |
COST_DRIFTER |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
./pkg/ecco/cost_drifter.F |
138 |
COST_DRIFTER |
act3 = myThid - 1 |
./pkg/ecco/cost_drifter.F |
346 |
COST_DRIFTER |
_GLOBAL_SUM_RL( fcthread_drift , myThid ) |
./pkg/ecco/cost_driftw.F |
229 |
COST_DRIFTW |
_GLOBAL_SUM_RL( fcthread_wdrift , myThid ) |
./pkg/ecco/cost_gen_transport.F |
80 |
COST_GEN_TRANSPORT |
_GLOBAL_SUM_RL( ftmp , myThid ) |
./pkg/ecco/cost_kapgm.F |
147 |
COST_KAPGM |
_GLOBAL_SUM_RL( fcthread , myThid ) |
./pkg/ecco/cost_kapredi.F |
147 |
COST_KAPREDI |
_GLOBAL_SUM_RL( fcthread , myThid ) |
./pkg/ecco/cost_mean_heatflux.F |
128 |
COST_MEAN_HEATFLUX |
_GLOBAL_SUM_RL( sumtot , myThid ) |
./pkg/ecco/cost_mean_heatflux.F |
129 |
COST_MEAN_HEATFLUX |
_GLOBAL_SUM_RL( fctiletot , myThid ) |
./pkg/ecco/cost_mean_saltflux.F |
128 |
COST_MEAN_SALTFLUX |
_GLOBAL_SUM_RL( sumtot , myThid ) |
./pkg/ecco/cost_mean_saltflux.F |
129 |
COST_MEAN_SALTFLUX |
_GLOBAL_SUM_RL( fctiletot , myThid ) |
./pkg/ecco/cost_obcs_ageos.F |
209 |
COST_OBCS_AGEOS |
_EXCH_XYZ_RL(tbar,myThid) |
./pkg/ecco/cost_obcs_ageos.F |
210 |
COST_OBCS_AGEOS |
_EXCH_XYZ_RL(sbar,myThid) |
./pkg/ecco/cost_obcs_ageos.F |
246 |
COST_OBCS_AGEOS |
I k, bi, bj, myThid ) |
./pkg/ecco/cost_obcs_ageos.F |
247 |
COST_OBCS_AGEOS |
_EXCH_XY_RL(rholoc , myThid) |
./pkg/ecco/cost_obcs_ageos.F |
310 |
COST_OBCS_AGEOS |
I k, bi, bj, myThid ) |
./pkg/ecco/cost_obcs_ageos.F |
312 |
COST_OBCS_AGEOS |
_EXCH_XY_RL(rholoc , myThid) |
./pkg/ecco/cost_obcs_ageos.F |
374 |
COST_OBCS_AGEOS |
I k, bi, bj, myThid ) |
./pkg/ecco/cost_obcs_ageos.F |
375 |
COST_OBCS_AGEOS |
_EXCH_XY_RL(rholoc , myThid) |
./pkg/ecco/cost_obcs_ageos.F |
437 |
COST_OBCS_AGEOS |
I k, bi, bj, myThid ) |
./pkg/ecco/cost_obcs_ageos.F |
438 |
COST_OBCS_AGEOS |
_EXCH_XY_RL(rholoc , myThid) |
./pkg/ecco/cost_obcs_ageos.F |
501 |
COST_OBCS_AGEOS |
_GLOBAL_SUM_RL( fcthread , myThid ) |
./pkg/ecco/cost_obcse.F |
256 |
COST_OBCSE |
_GLOBAL_SUM_RL( fcthread , myThid ) |
./pkg/ecco/cost_obcsn.F |
256 |
COST_OBCSN |
_GLOBAL_SUM_RL( fcthread , myThid ) |
./pkg/ecco/cost_obcss.F |
256 |
COST_OBCSS |
_GLOBAL_SUM_RL( fcthread , myThid ) |
./pkg/ecco/cost_obcsw.F |
256 |
COST_OBCSW |
_GLOBAL_SUM_RL( fcthread , myThid ) |
./pkg/ecco/cost_salt_ini_fin.F |
142 |
COST_SALT_INI_FIN |
_GLOBAL_SUM_RL( fcthread , myThid ) |
./pkg/ecco/cost_scat.F |
224 |
COST_SCAT |
_GLOBAL_SUM_RL( fcthread_scatx , myThid ) |
./pkg/ecco/cost_tau_eddy.F |
184 |
COST_TAU_EDDY |
_GLOBAL_SUM_RL( fcthread , myThid ) |
./pkg/ecco/cost_tau_eddy.F |
217 |
COST_TAU_EDDY |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/ecco/cost_tau_eddy.F |
218 |
COST_TAU_EDDY |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/ecco/cost_tau_eddy.F |
221 |
COST_TAU_EDDY |
act1 = bi - myBxLo(myThid) |
./pkg/ecco/cost_tau_eddy.F |
222 |
COST_TAU_EDDY |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
./pkg/ecco/cost_tau_eddy.F |
223 |
COST_TAU_EDDY |
act2 = bj - myByLo(myThid) |
./pkg/ecco/cost_tau_eddy.F |
224 |
COST_TAU_EDDY |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
./pkg/ecco/cost_tau_eddy.F |
225 |
COST_TAU_EDDY |
act3 = myThid - 1 |
./pkg/ecco/cost_theta_ini_fin.F |
142 |
COST_THETA_INI_FIN |
_GLOBAL_SUM_RL( fcthread , myThid ) |
./pkg/ecco/cost_xbt.F |
225 |
COST_XBT |
_GLOBAL_SUM_RL( fcthread_xbt , myThid ) |
./pkg/ecco/ecco_check.F |
35 |
ECCO_CHECK |
INTEGER myThid |
./pkg/ecco/ecco_check.F |
41 |
ECCO_CHECK |
_BEGIN_MASTER(myThid) |
./pkg/ecco/ecco_check.F |
49 |
ECCO_CHECK |
& SQUEEZE_RIGHT , myThid ) |
./pkg/ecco/ecco_check.F |
50 |
ECCO_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/ecco/ecco_check.F |
54 |
ECCO_CHECK |
_END_MASTER(myThid) |
./pkg/ecco/ecco_check.F |
6 |
ECCO_CHECK |
SUBROUTINE ECCO_CHECK( myThid ) |
./pkg/ecco/ecco_cost_driver.F |
114 |
ECCO_COST_DRIVER |
IF (debugMode) CALL DEBUG_CALL('cost_hyd',myThid) |
./pkg/ecco/ecco_cost_driver.F |
122 |
ECCO_COST_DRIVER |
IF (debugMode) CALL DEBUG_CALL('seaice_cost_driver',myThid) |
./pkg/ecco/ecco_cost_driver.F |
133 |
ECCO_COST_DRIVER |
IF (debugMode) CALL DEBUG_CALL('cost_obcs',myThid) |
./pkg/ecco/ecco_cost_driver.F |
142 |
ECCO_COST_DRIVER |
IF (debugMode) CALL DEBUG_CALL('cost_curmtr',myThid) |
./pkg/ecco/ecco_cost_driver.F |
153 |
ECCO_COST_DRIVER |
IF (debugMode) CALL DEBUG_CALL('cost_drifter',myThid) |
./pkg/ecco/ecco_cost_driver.F |
165 |
ECCO_COST_DRIVER |
IF (debugMode) CALL DEBUG_CALL('cost_scat',myThid) |
./pkg/ecco/ecco_cost_driver.F |
176 |
ECCO_COST_DRIVER |
IF (debugMode) CALL DEBUG_CALL('cost_drift',myThid) |
./pkg/ecco/ecco_cost_driver.F |
184 |
ECCO_COST_DRIVER |
IF (debugMode) CALL DEBUG_CALL('cost_driftw',myThid) |
./pkg/ecco/ecco_cost_driver.F |
47 |
ECCO_COST_DRIVER |
IF (debugMode) CALL DEBUG_CALL('cost_atlantic',myThid) |
./pkg/ecco/ecco_cost_driver.F |
57 |
ECCO_COST_DRIVER |
IF (debugMode) CALL DEBUG_CALL('cost_forcing',myThid) |
./pkg/ecco/ecco_cost_driver.F |
83 |
ECCO_COST_DRIVER |
IF (debugMode) CALL DEBUG_CALL('cost_ssh',myThid) |
./pkg/ecco/ecco_cost_final.F |
1007 |
ECCO_COST_FINAL |
IF ( MASTER_CPU_THREAD(myThid) ) THEN |
./pkg/ecco/ecco_cost_final.F |
611 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( fc , myThid ) |
./pkg/ecco/ecco_cost_final.F |
615 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_temp , myThid ) |
./pkg/ecco/ecco_cost_final.F |
616 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_salt , myThid ) |
./pkg/ecco/ecco_cost_final.F |
617 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_temp0, myThid ) |
./pkg/ecco/ecco_cost_final.F |
618 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_salt0, myThid ) |
./pkg/ecco/ecco_cost_final.F |
619 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_temp0smoo, myThid ) |
./pkg/ecco/ecco_cost_final.F |
620 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_salt0smoo, myThid ) |
./pkg/ecco/ecco_cost_final.F |
621 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_tauu , myThid ) |
./pkg/ecco/ecco_cost_final.F |
622 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_tauum , myThid ) |
./pkg/ecco/ecco_cost_final.F |
623 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_tauusmoo , myThid ) |
./pkg/ecco/ecco_cost_final.F |
624 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_tauv , myThid ) |
./pkg/ecco/ecco_cost_final.F |
625 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_tauvm , myThid ) |
./pkg/ecco/ecco_cost_final.F |
626 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_tauvsmoo , myThid ) |
./pkg/ecco/ecco_cost_final.F |
627 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_hflux , myThid ) |
./pkg/ecco/ecco_cost_final.F |
628 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_hfluxmm , myThid ) |
./pkg/ecco/ecco_cost_final.F |
629 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_hfluxsmoo , myThid ) |
./pkg/ecco/ecco_cost_final.F |
630 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_sflux , myThid ) |
./pkg/ecco/ecco_cost_final.F |
631 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_sfluxsmoo , myThid ) |
./pkg/ecco/ecco_cost_final.F |
632 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_uwind , myThid ) |
./pkg/ecco/ecco_cost_final.F |
633 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_vwind , myThid ) |
./pkg/ecco/ecco_cost_final.F |
634 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_atemp , myThid ) |
./pkg/ecco/ecco_cost_final.F |
635 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_aqh , myThid ) |
./pkg/ecco/ecco_cost_final.F |
636 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_precip , myThid ) |
./pkg/ecco/ecco_cost_final.F |
637 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_swflux , myThid ) |
./pkg/ecco/ecco_cost_final.F |
638 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_swdown , myThid ) |
./pkg/ecco/ecco_cost_final.F |
639 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_uwindm , myThid ) |
./pkg/ecco/ecco_cost_final.F |
640 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_vwindm , myThid ) |
./pkg/ecco/ecco_cost_final.F |
641 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_atempm , myThid ) |
./pkg/ecco/ecco_cost_final.F |
642 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_aqhm , myThid ) |
./pkg/ecco/ecco_cost_final.F |
643 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_precipm , myThid ) |
./pkg/ecco/ecco_cost_final.F |
644 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_swfluxm , myThid ) |
./pkg/ecco/ecco_cost_final.F |
645 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_swdownm , myThid ) |
./pkg/ecco/ecco_cost_final.F |
646 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_uwindsmoo , myThid ) |
./pkg/ecco/ecco_cost_final.F |
647 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_vwindsmoo , myThid ) |
./pkg/ecco/ecco_cost_final.F |
648 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_atempsmoo , myThid ) |
./pkg/ecco/ecco_cost_final.F |
649 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_aqhsmoo , myThid ) |
./pkg/ecco/ecco_cost_final.F |
650 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_precipsmoo , myThid ) |
./pkg/ecco/ecco_cost_final.F |
651 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_swfluxsmoo , myThid ) |
./pkg/ecco/ecco_cost_final.F |
652 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_swdownsmoo , myThid ) |
./pkg/ecco/ecco_cost_final.F |
653 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_ssh , myThid ) |
./pkg/ecco/ecco_cost_final.F |
654 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_tp , myThid ) |
./pkg/ecco/ecco_cost_final.F |
655 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_ers , myThid ) |
./pkg/ecco/ecco_cost_final.F |
656 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_gfo , myThid ) |
./pkg/ecco/ecco_cost_final.F |
657 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_sst , myThid ) |
./pkg/ecco/ecco_cost_final.F |
658 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_tmi , myThid ) |
./pkg/ecco/ecco_cost_final.F |
659 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_sss , myThid ) |
./pkg/ecco/ecco_cost_final.F |
660 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_bp , myThid ) |
./pkg/ecco/ecco_cost_final.F |
661 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_atl , myThid ) |
./pkg/ecco/ecco_cost_final.F |
662 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_ctdt , myThid ) |
./pkg/ecco/ecco_cost_final.F |
663 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_ctds , myThid ) |
./pkg/ecco/ecco_cost_final.F |
664 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_ctdtclim , myThid ) |
./pkg/ecco/ecco_cost_final.F |
665 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_ctdsclim , myThid ) |
./pkg/ecco/ecco_cost_final.F |
666 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_xbt , myThid ) |
./pkg/ecco/ecco_cost_final.F |
667 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_argot , myThid ) |
./pkg/ecco/ecco_cost_final.F |
668 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_argos , myThid ) |
./pkg/ecco/ecco_cost_final.F |
669 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_drifter , myThid ) |
./pkg/ecco/ecco_cost_final.F |
670 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_sdrift , myThid ) |
./pkg/ecco/ecco_cost_final.F |
671 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_tdrift , myThid ) |
./pkg/ecco/ecco_cost_final.F |
672 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_wdrift , myThid ) |
./pkg/ecco/ecco_cost_final.F |
673 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_scatx , myThid ) |
./pkg/ecco/ecco_cost_final.F |
674 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_scaty , myThid ) |
./pkg/ecco/ecco_cost_final.F |
675 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_scatxm , myThid ) |
./pkg/ecco/ecco_cost_final.F |
676 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_scatym , myThid ) |
./pkg/ecco/ecco_cost_final.F |
677 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_obcsn , myThid ) |
./pkg/ecco/ecco_cost_final.F |
678 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_obcss , myThid ) |
./pkg/ecco/ecco_cost_final.F |
679 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_obcsw , myThid ) |
./pkg/ecco/ecco_cost_final.F |
680 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_obcse , myThid ) |
./pkg/ecco/ecco_cost_final.F |
681 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_curmtr , myThid ) |
./pkg/ecco/ecco_cost_final.F |
682 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_ageos , myThid ) |
./pkg/ecco/ecco_cost_final.F |
683 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_kapgm , myThid ) |
./pkg/ecco/ecco_cost_final.F |
684 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_kapredi, myThid ) |
./pkg/ecco/ecco_cost_final.F |
685 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_diffkr , myThid ) |
./pkg/ecco/ecco_cost_final.F |
686 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_ini_fin , myThid ) |
./pkg/ecco/ecco_cost_final.F |
687 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_eddytau , myThid ) |
./pkg/ecco/ecco_cost_final.F |
688 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( f_bottomdrag , myThid ) |
./pkg/ecco/ecco_cost_final.F |
692 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL(f_profiles(num_file,num_var), myThid ) |
./pkg/ecco/ecco_cost_final.F |
698 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL(f_gencost(num_var), myThid ) |
./pkg/ecco/ecco_cost_final.F |
703 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL(f_usercost(num_var), myThid ) |
./pkg/ecco/ecco_cost_final.F |
708 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL(f_sshv4cost(num_var), myThid ) |
./pkg/ecco/ecco_cost_final.F |
711 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_temp , myThid ) |
./pkg/ecco/ecco_cost_final.F |
712 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_salt , myThid ) |
./pkg/ecco/ecco_cost_final.F |
713 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_temp0, myThid ) |
./pkg/ecco/ecco_cost_final.F |
714 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_salt0, myThid ) |
./pkg/ecco/ecco_cost_final.F |
715 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_tauu , myThid ) |
./pkg/ecco/ecco_cost_final.F |
716 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_tauum , myThid ) |
./pkg/ecco/ecco_cost_final.F |
717 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_tauv , myThid ) |
./pkg/ecco/ecco_cost_final.F |
718 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_tauvm , myThid ) |
./pkg/ecco/ecco_cost_final.F |
719 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_hflux , myThid ) |
./pkg/ecco/ecco_cost_final.F |
720 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_hfluxmm , myThid ) |
./pkg/ecco/ecco_cost_final.F |
721 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_sflux , myThid ) |
./pkg/ecco/ecco_cost_final.F |
722 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_sfluxmm , myThid ) |
./pkg/ecco/ecco_cost_final.F |
723 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_uwind , myThid ) |
./pkg/ecco/ecco_cost_final.F |
724 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_vwind , myThid ) |
./pkg/ecco/ecco_cost_final.F |
725 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_atemp , myThid ) |
./pkg/ecco/ecco_cost_final.F |
726 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_aqh , myThid ) |
./pkg/ecco/ecco_cost_final.F |
727 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_precip , myThid ) |
./pkg/ecco/ecco_cost_final.F |
728 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_swflux , myThid ) |
./pkg/ecco/ecco_cost_final.F |
729 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_swdown , myThid ) |
./pkg/ecco/ecco_cost_final.F |
730 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_uwindm , myThid ) |
./pkg/ecco/ecco_cost_final.F |
731 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_vwindm , myThid ) |
./pkg/ecco/ecco_cost_final.F |
732 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_atempm , myThid ) |
./pkg/ecco/ecco_cost_final.F |
733 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_aqhm , myThid ) |
./pkg/ecco/ecco_cost_final.F |
734 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_precipm , myThid ) |
./pkg/ecco/ecco_cost_final.F |
735 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_swfluxm , myThid ) |
./pkg/ecco/ecco_cost_final.F |
736 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_swdownm , myThid ) |
./pkg/ecco/ecco_cost_final.F |
737 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_ssh , myThid ) |
./pkg/ecco/ecco_cost_final.F |
738 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_tp , myThid ) |
./pkg/ecco/ecco_cost_final.F |
739 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_ers , myThid ) |
./pkg/ecco/ecco_cost_final.F |
740 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_gfo , myThid ) |
./pkg/ecco/ecco_cost_final.F |
741 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_sst , myThid ) |
./pkg/ecco/ecco_cost_final.F |
742 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_tmi , myThid ) |
./pkg/ecco/ecco_cost_final.F |
743 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_sss , myThid ) |
./pkg/ecco/ecco_cost_final.F |
744 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_bp , myThid ) |
./pkg/ecco/ecco_cost_final.F |
745 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_atl , myThid ) |
./pkg/ecco/ecco_cost_final.F |
746 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_ctdt , myThid ) |
./pkg/ecco/ecco_cost_final.F |
747 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_ctds , myThid ) |
./pkg/ecco/ecco_cost_final.F |
748 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_ctdtclim , myThid ) |
./pkg/ecco/ecco_cost_final.F |
749 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_ctdsclim , myThid ) |
./pkg/ecco/ecco_cost_final.F |
750 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_xbt , myThid ) |
./pkg/ecco/ecco_cost_final.F |
751 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_argot , myThid ) |
./pkg/ecco/ecco_cost_final.F |
752 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_argos , myThid ) |
./pkg/ecco/ecco_cost_final.F |
753 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_drifter , myThid ) |
./pkg/ecco/ecco_cost_final.F |
754 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_sdrift , myThid ) |
./pkg/ecco/ecco_cost_final.F |
755 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_tdrift , myThid ) |
./pkg/ecco/ecco_cost_final.F |
756 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_wdrift , myThid ) |
./pkg/ecco/ecco_cost_final.F |
757 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_scatx , myThid ) |
./pkg/ecco/ecco_cost_final.F |
758 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_scaty , myThid ) |
./pkg/ecco/ecco_cost_final.F |
759 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_scatxm , myThid ) |
./pkg/ecco/ecco_cost_final.F |
760 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_scatym , myThid ) |
./pkg/ecco/ecco_cost_final.F |
761 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_obcsn , myThid ) |
./pkg/ecco/ecco_cost_final.F |
762 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_obcss , myThid ) |
./pkg/ecco/ecco_cost_final.F |
763 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_obcsw , myThid ) |
./pkg/ecco/ecco_cost_final.F |
764 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_obcse , myThid ) |
./pkg/ecco/ecco_cost_final.F |
765 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_curmtr , myThid ) |
./pkg/ecco/ecco_cost_final.F |
766 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_ageos , myThid ) |
./pkg/ecco/ecco_cost_final.F |
767 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_kapgm , myThid ) |
./pkg/ecco/ecco_cost_final.F |
768 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_kapredi , myThid ) |
./pkg/ecco/ecco_cost_final.F |
769 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_diffkr , myThid ) |
./pkg/ecco/ecco_cost_final.F |
770 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_ini_fin , myThid ) |
./pkg/ecco/ecco_cost_final.F |
771 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_eddytau , myThid ) |
./pkg/ecco/ecco_cost_final.F |
772 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL( no_bottomdrag , myThid ) |
./pkg/ecco/ecco_cost_final.F |
776 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL(no_profiles(num_file,num_var), myThid ) |
./pkg/ecco/ecco_cost_final.F |
782 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL(no_gencost(num_var), myThid ) |
./pkg/ecco/ecco_cost_final.F |
787 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL(no_usercost(num_var), myThid ) |
./pkg/ecco/ecco_cost_final.F |
792 |
ECCO_COST_FINAL |
_GLOBAL_SUM_RL(no_sshv4cost(num_var), myThid ) |
./pkg/ecco/ecco_cost_init_fixed.F |
160 |
ECCO_COST_INIT_FIXED |
call ECCO_CHECK( myThid ) |
./pkg/ecco/ecco_cost_init_fixed.F |
189 |
ECCO_COST_INIT_FIXED |
_BEGIN_MASTER(myThid) |
./pkg/ecco/ecco_cost_init_fixed.F |
196 |
ECCO_COST_INIT_FIXED |
I myThid ) |
./pkg/ecco/ecco_cost_init_fixed.F |
210 |
ECCO_COST_INIT_FIXED |
_END_MASTER(myThid) |
./pkg/ecco/ecco_cost_init_fixed.F |
224 |
ECCO_COST_INIT_FIXED |
_BEGIN_MASTER(myThid) |
./pkg/ecco/ecco_cost_init_fixed.F |
234 |
ECCO_COST_INIT_FIXED |
I myThid ) |
./pkg/ecco/ecco_cost_init_fixed.F |
249 |
ECCO_COST_INIT_FIXED |
I myThid ) |
./pkg/ecco/ecco_cost_init_fixed.F |
264 |
ECCO_COST_INIT_FIXED |
I myThid ) |
./pkg/ecco/ecco_cost_init_fixed.F |
281 |
ECCO_COST_INIT_FIXED |
& SQUEEZE_RIGHT , myThid ) |
./pkg/ecco/ecco_cost_init_fixed.F |
282 |
ECCO_COST_INIT_FIXED |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/ecco/ecco_cost_init_fixed.F |
287 |
ECCO_COST_INIT_FIXED |
_END_MASTER(myThid) |
./pkg/ecco/ecco_cost_init_fixed.F |
87 |
ECCO_COST_INIT_FIXED |
_BEGIN_MASTER( myThid ) |
./pkg/ecco/ecco_cost_weights.F |
254 |
ECCO_COST_WEIGHTS |
_BEGIN_MASTER(myThid) |
./pkg/ecco/ecco_cost_weights.F |
261 |
ECCO_COST_WEIGHTS |
I myThid ) |
./pkg/ecco/ecco_cost_weights.F |
275 |
ECCO_COST_WEIGHTS |
_END_MASTER(myThid) |
./pkg/ecco/ecco_cost_weights.F |
377 |
ECCO_COST_WEIGHTS |
_EXCH_XYZ_RL( wsaltLev, myThid ) |
./pkg/ecco/ecco_cost_weights.F |
418 |
ECCO_COST_WEIGHTS |
_EXCH_XYZ_RL( wthetaLev, myThid ) |
./pkg/ecco/ecco_cost_weights.F |
463 |
ECCO_COST_WEIGHTS |
_EXCH_XYZ_RL( wsalt2, myThid ) |
./pkg/ecco/ecco_cost_weights.F |
514 |
ECCO_COST_WEIGHTS |
_EXCH_XYZ_RL( wtheta2, myThid ) |
./pkg/ecco/ecco_readparms.F |
145 |
ECCO_READPARMS |
_BEGIN_MASTER( myThid ) |
./pkg/ecco/ecco_readparms.F |
380 |
ECCO_READPARMS |
I myThid ) |
./pkg/ecco/ecco_readparms.F |
441 |
ECCO_READPARMS |
_END_MASTER( myThid ) |
./pkg/ecco/ecco_readparms.F |
445 |
ECCO_READPARMS |
_BEGIN_MASTER( myThid ) |
./pkg/ecco/ecco_readparms.F |
503 |
ECCO_READPARMS |
_END_MASTER( myThid ) |
./pkg/ecco/ecco_readparms.F |
507 |
ECCO_READPARMS |
_BEGIN_MASTER( myThid ) |
./pkg/ecco/ecco_readparms.F |
511 |
ECCO_READPARMS |
_END_MASTER( myThid ) |
./pkg/ecco/forward_step.F |
10 |
FORWARD_STEP |
SUBROUTINE FORWARD_STEP( iloop, myTime, myIter, myThid ) |
./pkg/ecco/forward_step.F |
53 |
FORWARD_STEP |
IF (debugMode) CALL DEBUG_ENTER('FORWARD_STEP',myThid) |
./pkg/ecco/the_main_loop.F |
1000 |
THE_MAIN_LOOP |
CALL AUTODIFF_INADMODE_SET( myThid ) |
./pkg/ecco/the_main_loop.F |
1005 |
THE_MAIN_LOOP |
IF (debugMode) CALL DEBUG_CALL('DO_STATEVARS_TAVE',myThid) |
./pkg/ecco/the_main_loop.F |
1008 |
THE_MAIN_LOOP |
CALL TIMER_START('DO_STATEVARS_TAVE [FORWARD_STEP]',myThid) |
./pkg/ecco/the_main_loop.F |
1009 |
THE_MAIN_LOOP |
CALL DO_STATEVARS_TAVE( myTime, myIter, myThid ) |
./pkg/ecco/the_main_loop.F |
1010 |
THE_MAIN_LOOP |
CALL TIMER_STOP ('DO_STATEVARS_TAVE [FORWARD_STEP]',myThid) |
./pkg/ecco/the_main_loop.F |
1016 |
THE_MAIN_LOOP |
IF (debugMode) CALL DEBUG_CALL('MONITOR',myThid) |
./pkg/ecco/the_main_loop.F |
1019 |
THE_MAIN_LOOP |
CALL TIMER_START('MONITOR [FORWARD_STEP]',myThid) |
./pkg/ecco/the_main_loop.F |
1020 |
THE_MAIN_LOOP |
CALL MONITOR( myTime, myIter, myThid ) |
./pkg/ecco/the_main_loop.F |
1021 |
THE_MAIN_LOOP |
CALL TIMER_STOP ('MONITOR [FORWARD_STEP]',myThid) |
./pkg/ecco/the_main_loop.F |
1026 |
THE_MAIN_LOOP |
IF (debugMode) CALL DEBUG_CALL('DO_THE_MODEL_IO',myThid) |
./pkg/ecco/the_main_loop.F |
1029 |
THE_MAIN_LOOP |
CALL TIMER_START('DO_THE_MODEL_IO [FORWARD_STEP]',myThid) |
./pkg/ecco/the_main_loop.F |
1030 |
THE_MAIN_LOOP |
CALL DO_THE_MODEL_IO( .FALSE., myTime, myIter, myThid ) |
./pkg/ecco/the_main_loop.F |
1031 |
THE_MAIN_LOOP |
CALL TIMER_STOP ('DO_THE_MODEL_IO [FORWARD_STEP]',myThid) |
./pkg/ecco/the_main_loop.F |
1038 |
THE_MAIN_LOOP |
IF (debugMode) CALL DEBUG_CALL('DO_WRITE_PICKUP',myThid) |
./pkg/ecco/the_main_loop.F |
1041 |
THE_MAIN_LOOP |
I .TRUE., myTime, myIter, myThid ) |
./pkg/ecco/the_main_loop.F |
1048 |
THE_MAIN_LOOP |
IF (debugMode) CALL DEBUG_CALL('DO_WRITE_PICKUP',myThid) |
./pkg/ecco/the_main_loop.F |
1050 |
THE_MAIN_LOOP |
CALL TIMER_START('DO_WRITE_PICKUP [FORWARD_STEP]',myThid) |
./pkg/ecco/the_main_loop.F |
1052 |
THE_MAIN_LOOP |
I .FALSE., myTime, myIter, myThid ) |
./pkg/ecco/the_main_loop.F |
1053 |
THE_MAIN_LOOP |
CALL TIMER_STOP ('DO_WRITE_PICKUP [FORWARD_STEP]',myThid) |
./pkg/ecco/the_main_loop.F |
1063 |
THE_MAIN_LOOP |
IF (debugMode) CALL DEBUG_CALL('END OF TIMESTEP',myThid) |
./pkg/ecco/the_main_loop.F |
1110 |
THE_MAIN_LOOP |
IF (debugMode) CALL DEBUG_CALL('cost_averagesfields',myThid) |
./pkg/ecco/the_main_loop.F |
1124 |
THE_MAIN_LOOP |
IF (debugMode) CALL DEBUG_CALL('cost_atlantic',myThid) |
./pkg/ecco/the_main_loop.F |
1134 |
THE_MAIN_LOOP |
IF (debugMode) CALL DEBUG_CALL('cost_forcing',myThid) |
./pkg/ecco/the_main_loop.F |
1160 |
THE_MAIN_LOOP |
IF (debugMode) CALL DEBUG_CALL('cost_ssh',myThid) |
./pkg/ecco/the_main_loop.F |
1191 |
THE_MAIN_LOOP |
IF (debugMode) CALL DEBUG_CALL('cost_hyd',myThid) |
./pkg/ecco/the_main_loop.F |
1200 |
THE_MAIN_LOOP |
IF (debugMode) CALL DEBUG_CALL('seaice_cost_driver',myThid) |
./pkg/ecco/the_main_loop.F |
1210 |
THE_MAIN_LOOP |
IF (debugMode) CALL DEBUG_CALL('cost_obcs',myThid) |
./pkg/ecco/the_main_loop.F |
1219 |
THE_MAIN_LOOP |
IF (debugMode) CALL DEBUG_CALL('cost_curmtr',myThid) |
./pkg/ecco/the_main_loop.F |
1230 |
THE_MAIN_LOOP |
IF (debugMode) CALL DEBUG_CALL('cost_drifter',myThid) |
./pkg/ecco/the_main_loop.F |
1242 |
THE_MAIN_LOOP |
IF (debugMode) CALL DEBUG_CALL('cost_scat',myThid) |
./pkg/ecco/the_main_loop.F |
1253 |
THE_MAIN_LOOP |
IF (debugMode) CALL DEBUG_CALL('cost_drift',myThid) |
./pkg/ecco/the_main_loop.F |
1261 |
THE_MAIN_LOOP |
IF (debugMode) CALL DEBUG_CALL('cost_driftw',myThid) |
./pkg/ecco/the_main_loop.F |
1296 |
THE_MAIN_LOOP |
IF (debugMode) CALL DEBUG_CALL('cost_final',myThid) |
./pkg/ecco/the_main_loop.F |
1307 |
THE_MAIN_LOOP |
IF (debugMode) CALL DEBUG_LEAVE('THE_MAIN_LOOP',myThid) |
./pkg/ecco/the_main_loop.F |
211 |
THE_MAIN_LOOP |
IF (debugMode) CALL DEBUG_ENTER('THE_MAIN_LOOP',myThid) |
./pkg/ecco/the_main_loop.F |
262 |
THE_MAIN_LOOP |
IF (debugMode) CALL DEBUG_CALL('INITIALISE_VARIA',myThid) |
./pkg/ecco/the_main_loop.F |
273 |
THE_MAIN_LOOP |
CALL SHOWFLOPS_INIT( myThid ) |
./pkg/ecco/the_main_loop.F |
300 |
THE_MAIN_LOOP |
CALL AUTODIFF_STORE( myThid ) |
./pkg/ecco/the_main_loop.F |
302 |
THE_MAIN_LOOP |
CALL AUTODIFF_RESTORE( myThid ) |
./pkg/ecco/the_main_loop.F |
312 |
THE_MAIN_LOOP |
CALL AUTODIFF_STORE( myThid ) |
./pkg/ecco/the_main_loop.F |
314 |
THE_MAIN_LOOP |
CALL AUTODIFF_RESTORE( myThid ) |
./pkg/ecco/the_main_loop.F |
323 |
THE_MAIN_LOOP |
CALL AUTODIFF_STORE( myThid ) |
./pkg/ecco/the_main_loop.F |
325 |
THE_MAIN_LOOP |
CALL AUTODIFF_RESTORE( myThid ) |
./pkg/ecco/the_main_loop.F |
462 |
THE_MAIN_LOOP |
CALL AUTODIFF_INADMODE_UNSET( myThid ) |
./pkg/ecco/the_main_loop.F |
469 |
THE_MAIN_LOOP |
IF (debugMode) CALL DEBUG_CALL('DO_STATEVARS_DIAGS',myThid) |
./pkg/ecco/the_main_loop.F |
472 |
THE_MAIN_LOOP |
CALL DIAGNOSTICS_SWITCH_ONOFF( myTime, myIter, myThid ) |
./pkg/ecco/the_main_loop.F |
473 |
THE_MAIN_LOOP |
CALL TIMER_START('DO_STATEVARS_DIAGS [FORWARD_STEP]',myThid) |
./pkg/ecco/the_main_loop.F |
474 |
THE_MAIN_LOOP |
CALL DO_STATEVARS_DIAGS( myTime, 0, myIter, myThid ) |
./pkg/ecco/the_main_loop.F |
475 |
THE_MAIN_LOOP |
CALL TIMER_STOP ('DO_STATEVARS_DIAGS [FORWARD_STEP]',myThid) |
./pkg/ecco/the_main_loop.F |
482 |
THE_MAIN_LOOP |
IF (debugMode) CALL DEBUG_CALL('profiles_inloop',myThid) |
./pkg/ecco/the_main_loop.F |
492 |
THE_MAIN_LOOP |
IF (debugMode) CALL DEBUG_CALL('cost_averagesfields',myThid) |
./pkg/ecco/the_main_loop.F |
522 |
THE_MAIN_LOOP |
IF (debugMode) CALL DEBUG_CALL('LOAD_FIELDS_DRIVER',myThid) |
./pkg/ecco/the_main_loop.F |
529 |
THE_MAIN_LOOP |
CALL TIMER_START('LOAD_FIELDS_DRIVER [FORWARD_STEP]',myThid) |
./pkg/ecco/the_main_loop.F |
530 |
THE_MAIN_LOOP |
CALL LOAD_FIELDS_DRIVER( myTime, myIter, myThid ) |
./pkg/ecco/the_main_loop.F |
531 |
THE_MAIN_LOOP |
CALL TIMER_STOP ('LOAD_FIELDS_DRIVER [FORWARD_STEP]',myThid) |
./pkg/ecco/the_main_loop.F |
535 |
THE_MAIN_LOOP |
CALL DUMMY_IN_STEPPING( myTime, myIter, myThid ) |
./pkg/ecco/the_main_loop.F |
549 |
THE_MAIN_LOOP |
IF (debugMode) CALL DEBUG_CALL('EBM',myThid) |
./pkg/ecco/the_main_loop.F |
552 |
THE_MAIN_LOOP |
CALL EBM_DRIVER ( myTime, myIter, myThid ) |
./pkg/ecco/the_main_loop.F |
560 |
THE_MAIN_LOOP |
IF (debugMode) CALL DEBUG_CALL('DO_ATMOSPHERIC_PHYS',myThid) |
./pkg/ecco/the_main_loop.F |
563 |
THE_MAIN_LOOP |
CALL DO_ATMOSPHERIC_PHYS( myTime, myIter, myThid ) |
./pkg/ecco/the_main_loop.F |
586 |
THE_MAIN_LOOP |
IF (debugMode) CALL DEBUG_CALL('DO_OCEANIC_PHYS',myThid) |
./pkg/ecco/the_main_loop.F |
589 |
THE_MAIN_LOOP |
CALL DO_OCEANIC_PHYS( myTime, myIter, myThid ) |
./pkg/ecco/the_main_loop.F |
624 |
THE_MAIN_LOOP |
IF (debugMode) CALL DEBUG_CALL('GCHEM_CALC_TENDENCY',myThid) |
./pkg/ecco/the_main_loop.F |
626 |
THE_MAIN_LOOP |
CALL TIMER_START('GCHEM_CALC_TENDENCY [FORWARD_STEP]',myThid) |
./pkg/ecco/the_main_loop.F |
627 |
THE_MAIN_LOOP |
CALL GCHEM_CALC_TENDENCY( myTime, myIter, myThid ) |
./pkg/ecco/the_main_loop.F |
628 |
THE_MAIN_LOOP |
CALL TIMER_STOP ('GCHEM_CALC_TENDENCY [FORWARD_STEP]',myThid) |
./pkg/ecco/the_main_loop.F |
676 |
THE_MAIN_LOOP |
IF (debugMode) CALL DEBUG_CALL('THERMODYNAMICS',myThid) |
./pkg/ecco/the_main_loop.F |
679 |
THE_MAIN_LOOP |
CALL THERMODYNAMICS( myTime, myIter, myThid ) |
./pkg/ecco/the_main_loop.F |
702 |
THE_MAIN_LOOP |
IF (debugMode) CALL DEBUG_CALL('DYNAMICS',myThid) |
./pkg/ecco/the_main_loop.F |
705 |
THE_MAIN_LOOP |
CALL DYNAMICS( myTime, myIter, myThid ) |
./pkg/ecco/the_main_loop.F |
726 |
THE_MAIN_LOOP |
CALL MNC_CW_CITER_SETG( 1, 1, -1, myIter , myThid ) |
./pkg/ecco/the_main_loop.F |
738 |
THE_MAIN_LOOP |
CALL MNC_CW_CITER_SETG( 1, 1, myIter, -1 , myThid ) |
./pkg/ecco/the_main_loop.F |
759 |
THE_MAIN_LOOP |
CALL TIMER_START('UPDATE_R_STAR [FORWARD_STEP]',myThid) |
./pkg/ecco/the_main_loop.F |
760 |
THE_MAIN_LOOP |
CALL UPDATE_R_STAR( myTime, myIter, myThid ) |
./pkg/ecco/the_main_loop.F |
761 |
THE_MAIN_LOOP |
CALL TIMER_STOP ('UPDATE_R_STAR [FORWARD_STEP]',myThid) |
./pkg/ecco/the_main_loop.F |
777 |
THE_MAIN_LOOP |
CALL TIMER_START('UPDATE_SURF_DR [FORWARD_STEP]',myThid) |
./pkg/ecco/the_main_loop.F |
778 |
THE_MAIN_LOOP |
CALL UPDATE_SURF_DR( myTime, myIter, myThid ) |
./pkg/ecco/the_main_loop.F |
779 |
THE_MAIN_LOOP |
CALL TIMER_STOP ('UPDATE_SURF_DR [FORWARD_STEP]',myThid) |
./pkg/ecco/the_main_loop.F |
793 |
THE_MAIN_LOOP |
CALL TIMER_START('UPDATE_CG2D [FORWARD_STEP]',myThid) |
./pkg/ecco/the_main_loop.F |
794 |
THE_MAIN_LOOP |
CALL UPDATE_CG2D( myTime, myIter, myThid ) |
./pkg/ecco/the_main_loop.F |
795 |
THE_MAIN_LOOP |
CALL TIMER_STOP ('UPDATE_CG2D [FORWARD_STEP]',myThid) |
./pkg/ecco/the_main_loop.F |
802 |
THE_MAIN_LOOP |
CALL TIMER_START('SHAP_FILT [FORWARD_STEP]',myThid) |
./pkg/ecco/the_main_loop.F |
807 |
THE_MAIN_LOOP |
& myTime, myIter, myThid ) |
./pkg/ecco/the_main_loop.F |
809 |
THE_MAIN_LOOP |
CALL SHAP_FILT_APPLY_UV( gU,gV,myTime,myIter,myThid) |
./pkg/ecco/the_main_loop.F |
810 |
THE_MAIN_LOOP |
CALL TIMER_STOP ('SHAP_FILT [FORWARD_STEP]',myThid) |
./pkg/ecco/the_main_loop.F |
815 |
THE_MAIN_LOOP |
CALL TIMER_START('ZONAL_FILT_APPLY [FORWARD_STEP]',myThid) |
./pkg/ecco/the_main_loop.F |
819 |
THE_MAIN_LOOP |
CALL ZONAL_FILT_APPLY_UV( uVel, vVel, myThid ) |
./pkg/ecco/the_main_loop.F |
821 |
THE_MAIN_LOOP |
CALL ZONAL_FILT_APPLY_UV( gU, gV, myThid ) |
./pkg/ecco/the_main_loop.F |
822 |
THE_MAIN_LOOP |
CALL TIMER_STOP ('ZONAL_FILT_APPLY [FORWARD_STEP]',myThid) |
./pkg/ecco/the_main_loop.F |
840 |
THE_MAIN_LOOP |
IF (debugMode) CALL DEBUG_CALL('SOLVE_FOR_PRESSURE',myThid) |
./pkg/ecco/the_main_loop.F |
842 |
THE_MAIN_LOOP |
CALL TIMER_START('SOLVE_FOR_PRESSURE [FORWARD_STEP]',myThid) |
./pkg/ecco/the_main_loop.F |
843 |
THE_MAIN_LOOP |
CALL SOLVE_FOR_PRESSURE(myTime, myIter, myThid) |
./pkg/ecco/the_main_loop.F |
844 |
THE_MAIN_LOOP |
CALL TIMER_STOP ('SOLVE_FOR_PRESSURE [FORWARD_STEP]',myThid) |
./pkg/ecco/the_main_loop.F |
853 |
THE_MAIN_LOOP |
& CALL DEBUG_CALL('MOMENTUM_CORRECTION_STEP',myThid) |
./pkg/ecco/the_main_loop.F |
855 |
THE_MAIN_LOOP |
CALL TIMER_START('UV_CORRECTION_STEP [FORWARD_STEP]',myThid) |
./pkg/ecco/the_main_loop.F |
856 |
THE_MAIN_LOOP |
CALL MOMENTUM_CORRECTION_STEP(myTime, myIter, myThid) |
./pkg/ecco/the_main_loop.F |
857 |
THE_MAIN_LOOP |
CALL TIMER_STOP ('UV_CORRECTION_STEP [FORWARD_STEP]',myThid) |
./pkg/ecco/the_main_loop.F |
868 |
THE_MAIN_LOOP |
IF (debugMode) CALL DEBUG_CALL('UPDATE_ETAH',myThid) |
./pkg/ecco/the_main_loop.F |
872 |
THE_MAIN_LOOP |
CALL UPDATE_ETAH( myTime, myIter, myThid ) |
./pkg/ecco/the_main_loop.F |
882 |
THE_MAIN_LOOP |
CALL CALC_R_STAR(etaH, myTime, myIter, myThid ) |
./pkg/ecco/the_main_loop.F |
891 |
THE_MAIN_LOOP |
CALL CALC_SURF_DR(etaH, myTime, myIter, myThid ) |
./pkg/ecco/the_main_loop.F |
907 |
THE_MAIN_LOOP |
& CALL DEBUG_CALL('DO_STAGGER_FIELDS_EXCH.',myThid) |
./pkg/ecco/the_main_loop.F |
909 |
THE_MAIN_LOOP |
CALL TIMER_START('BLOCKING_EXCHANGES [FORWARD_STEP]',myThid) |
./pkg/ecco/the_main_loop.F |
910 |
THE_MAIN_LOOP |
CALL DO_STAGGER_FIELDS_EXCHANGES( myTime, myIter, myThid ) |
./pkg/ecco/the_main_loop.F |
911 |
THE_MAIN_LOOP |
CALL TIMER_STOP ('BLOCKING_EXCHANGES [FORWARD_STEP]',myThid) |
./pkg/ecco/the_main_loop.F |
916 |
THE_MAIN_LOOP |
CALL TIMER_START('DO_STATEVARS_DIAGS [FORWARD_STEP]',myThid) |
./pkg/ecco/the_main_loop.F |
917 |
THE_MAIN_LOOP |
CALL DO_STATEVARS_DIAGS( myTime, 1, myIter, myThid ) |
./pkg/ecco/the_main_loop.F |
918 |
THE_MAIN_LOOP |
CALL TIMER_STOP ('DO_STATEVARS_DIAGS [FORWARD_STEP]',myThid) |
./pkg/ecco/the_main_loop.F |
923 |
THE_MAIN_LOOP |
IF (debugMode) CALL DEBUG_CALL('THERMODYNAMICS',myThid) |
./pkg/ecco/the_main_loop.F |
926 |
THE_MAIN_LOOP |
CALL THERMODYNAMICS( myTime, myIter, myThid ) |
./pkg/ecco/the_main_loop.F |
940 |
THE_MAIN_LOOP |
& CALL DEBUG_CALL('TRACERS_CORRECTION_STEP',myThid) |
./pkg/ecco/the_main_loop.F |
943 |
THE_MAIN_LOOP |
CALL TIMER_START('TS_CORRECTION_STEP [FORWARD_STEP]',myThid) |
./pkg/ecco/the_main_loop.F |
944 |
THE_MAIN_LOOP |
CALL TRACERS_CORRECTION_STEP(myTime, myIter, myThid) |
./pkg/ecco/the_main_loop.F |
945 |
THE_MAIN_LOOP |
CALL TIMER_STOP ('TS_CORRECTION_STEP [FORWARD_STEP]',myThid) |
./pkg/ecco/the_main_loop.F |
957 |
THE_MAIN_LOOP |
IF (debugMode) CALL DEBUG_CALL('GCHEM_FORCING_SEP',myThid) |
./pkg/ecco/the_main_loop.F |
959 |
THE_MAIN_LOOP |
CALL TIMER_START('GCHEM_FORCING_SEP [FORWARD_STEP]',myThid) |
./pkg/ecco/the_main_loop.F |
960 |
THE_MAIN_LOOP |
CALL GCHEM_FORCING_SEP( myTime,myIter,myThid ) |
./pkg/ecco/the_main_loop.F |
961 |
THE_MAIN_LOOP |
CALL TIMER_STOP ('GCHEM_FORCING_SEP [FORWARD_STEP]',myThid) |
./pkg/ecco/the_main_loop.F |
972 |
THE_MAIN_LOOP |
& CALL DEBUG_CALL('DO_FIELDS_BLOCKING_EXCHANGES',myThid) |
./pkg/ecco/the_main_loop.F |
975 |
THE_MAIN_LOOP |
CALL TIMER_START('BLOCKING_EXCHANGES [FORWARD_STEP]',myThid) |
./pkg/ecco/the_main_loop.F |
976 |
THE_MAIN_LOOP |
CALL DO_FIELDS_BLOCKING_EXCHANGES( myThid ) |
./pkg/ecco/the_main_loop.F |
977 |
THE_MAIN_LOOP |
CALL TIMER_STOP ('BLOCKING_EXCHANGES [FORWARD_STEP]',myThid) |
./pkg/ecco/the_main_loop.F |
982 |
THE_MAIN_LOOP |
IF (debugMode) CALL DEBUG_CALL('DO_STATEVARS_DIAGS',myThid) |
./pkg/ecco/the_main_loop.F |
984 |
THE_MAIN_LOOP |
CALL TIMER_START('DO_STATEVARS_DIAGS [FORWARD_STEP]',myThid) |
./pkg/ecco/the_main_loop.F |
985 |
THE_MAIN_LOOP |
CALL DO_STATEVARS_DIAGS( myTime, 2, myIter, myThid ) |
./pkg/ecco/the_main_loop.F |
986 |
THE_MAIN_LOOP |
CALL TIMER_STOP ('DO_STATEVARS_DIAGS [FORWARD_STEP]',myThid) |
./pkg/ecco/the_main_loop.F |
993 |
THE_MAIN_LOOP |
CALL TIMER_START('FLOATS [FORWARD_STEP]',myThid) |
./pkg/ecco/the_main_loop.F |
994 |
THE_MAIN_LOOP |
CALL FLT_MAIN(myIter,myTime, myThid) |
./pkg/ecco/the_main_loop.F |
995 |
THE_MAIN_LOOP |
CALL TIMER_STOP ('FLOATS [FORWARD_STEP]',myThid) |
./pkg/embed_files/embed_files_init.F |
11 |
EMBED_FILES_INIT |
SUBROUTINE EMBED_FILES_INIT( myThid ) |
./pkg/embed_files/embed_files_init.F |
24 |
EMBED_FILES_INIT |
integer myThid |
./pkg/embed_files/embed_files_init.F |
29 |
EMBED_FILES_INIT |
_BEGIN_MASTER( myThid ) |
./pkg/embed_files/embed_files_init.F |
41 |
EMBED_FILES_INIT |
_END_MASTER( myThid ) |
./pkg/exch2/exch2_check_depths.F |
114 |
EXCH2_CHECK_DEPTHS |
& SQUEEZE_RIGHT, myThid ) |
./pkg/exch2/exch2_check_depths.F |
119 |
EXCH2_CHECK_DEPTHS |
& SQUEEZE_RIGHT, myThid ) |
./pkg/exch2/exch2_check_depths.F |
125 |
EXCH2_CHECK_DEPTHS |
& SQUEEZE_RIGHT, myThid ) |
./pkg/exch2/exch2_check_depths.F |
12 |
EXCH2_CHECK_DEPTHS |
SUBROUTINE EXCH2_CHECK_DEPTHS( rLow, rHigh, myThid ) |
./pkg/exch2/exch2_check_depths.F |
131 |
EXCH2_CHECK_DEPTHS |
& SQUEEZE_RIGHT, myThid ) |
./pkg/exch2/exch2_check_depths.F |
137 |
EXCH2_CHECK_DEPTHS |
& SQUEEZE_RIGHT, myThid ) |
./pkg/exch2/exch2_check_depths.F |
155 |
EXCH2_CHECK_DEPTHS |
& SQUEEZE_RIGHT, myThid ) |
./pkg/exch2/exch2_check_depths.F |
159 |
EXCH2_CHECK_DEPTHS |
& SQUEEZE_RIGHT, myThid ) |
./pkg/exch2/exch2_check_depths.F |
42 |
EXCH2_CHECK_DEPTHS |
INTEGER myThid |
./pkg/exch2/exch2_check_depths.F |
59 |
EXCH2_CHECK_DEPTHS |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/exch2/exch2_check_depths.F |
60 |
EXCH2_CHECK_DEPTHS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/exch2/exch2_get_scal_bounds.F |
15 |
EXCH2_GET_SCAL_BOUNDS |
I myThid ) |
./pkg/exch2/exch2_get_scal_bounds.F |
49 |
EXCH2_GET_SCAL_BOUNDS |
INTEGER myThid |
./pkg/exch2/exch2_get_uv_bounds.F |
15 |
EXCH2_GET_UV_BOUNDS |
I myThid ) |
./pkg/exch2/exch2_get_uv_bounds.F |
57 |
EXCH2_GET_UV_BOUNDS |
INTEGER myThid |
./pkg/exch2/w2_e2setup.F |
100 |
W2_E2SETUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_e2setup.F |
103 |
W2_E2SETUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_e2setup.F |
115 |
W2_E2SETUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_e2setup.F |
122 |
W2_E2SETUP |
CALL W2_SET_GEN_FACETS( myThid ) |
./pkg/exch2/w2_e2setup.F |
124 |
W2_E2SETUP |
CALL W2_SET_SINGLE_FACET( myThid ) |
./pkg/exch2/w2_e2setup.F |
126 |
W2_E2SETUP |
CALL W2_SET_MYOWN_FACETS( myThid ) |
./pkg/exch2/w2_e2setup.F |
128 |
W2_E2SETUP |
CALL W2_SET_CS6_FACETS( myThid ) |
./pkg/exch2/w2_e2setup.F |
135 |
W2_E2SETUP |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/exch2/w2_e2setup.F |
138 |
W2_E2SETUP |
CALL W2_SET_F2F_INDEX( myThid ) |
./pkg/exch2/w2_e2setup.F |
13 |
W2_E2SETUP |
SUBROUTINE W2_E2SETUP( myThid ) |
./pkg/exch2/w2_e2setup.F |
141 |
W2_E2SETUP |
CALL W2_SET_MAP_TILES( myThid ) |
./pkg/exch2/w2_e2setup.F |
144 |
W2_E2SETUP |
CALL W2_SET_TILE2TILES( myThid ) |
./pkg/exch2/w2_e2setup.F |
33 |
W2_E2SETUP |
INTEGER myThid |
./pkg/exch2/w2_e2setup.F |
74 |
W2_E2SETUP |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit,SQUEEZE_RIGHT,myThid ) |
./pkg/exch2/w2_e2setup.F |
76 |
W2_E2SETUP |
& SQUEEZE_RIGHT, myThid ) |
./pkg/exch2/w2_e2setup.F |
89 |
W2_E2SETUP |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/exch2/w2_e2setup.F |
92 |
W2_E2SETUP |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/exch2/w2_e2setup.F |
95 |
W2_E2SETUP |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/exch2/w2_eeboot.F |
101 |
W2_EEBOOT |
CALL PRINT_MESSAGE( msgBuf, stdUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/exch2/w2_eeboot.F |
105 |
W2_EEBOOT |
CALL W2_E2SETUP( myThid ) |
./pkg/exch2/w2_eeboot.F |
179 |
W2_EEBOOT |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_BOTH, myThid ) |
./pkg/exch2/w2_eeboot.F |
186 |
W2_EEBOOT |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/exch2/w2_eeboot.F |
200 |
W2_EEBOOT |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/exch2/w2_eeboot.F |
207 |
W2_EEBOOT |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/exch2/w2_eeboot.F |
227 |
W2_EEBOOT |
CALL W2_PRINT_COMM_SEQUENCE( myThid ) |
./pkg/exch2/w2_eeboot.F |
233 |
W2_EEBOOT |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_BOTH, myThid ) |
./pkg/exch2/w2_eeboot.F |
237 |
W2_EEBOOT |
CALL PRINT_MESSAGE( msgBuf, stdUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/exch2/w2_eeboot.F |
239 |
W2_EEBOOT |
CALL PRINT_MESSAGE( msgBuf, stdUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/exch2/w2_eeboot.F |
45 |
W2_EEBOOT |
INTEGER myThid, I, J |
./pkg/exch2/w2_eeboot.F |
50 |
W2_EEBOOT |
myThid = 1 |
./pkg/exch2/w2_eeboot.F |
86 |
W2_EEBOOT |
CALL W2_READPARMS( myThid ) |
./pkg/exch2/w2_eeboot.F |
90 |
W2_EEBOOT |
CALL PRINT_MESSAGE( msgBuf, stdUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/exch2/w2_eeboot.F |
97 |
W2_EEBOOT |
CALL MDSFINDUNIT( W2_oUnit, myThid ) |
./pkg/exch2/w2_print_comm_sequence.F |
102 |
W2_PRINT_COMM_SEQUENCE |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/exch2/w2_print_comm_sequence.F |
112 |
W2_PRINT_COMM_SEQUENCE |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/exch2/w2_print_comm_sequence.F |
11 |
W2_PRINT_COMM_SEQUENCE |
SUBROUTINE W2_PRINT_COMM_SEQUENCE( myThid ) |
./pkg/exch2/w2_print_comm_sequence.F |
138 |
W2_PRINT_COMM_SEQUENCE |
I myThid ) |
./pkg/exch2/w2_print_comm_sequence.F |
146 |
W2_PRINT_COMM_SEQUENCE |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/exch2/w2_print_comm_sequence.F |
34 |
W2_PRINT_COMM_SEQUENCE |
INTEGER myThid |
./pkg/exch2/w2_print_comm_sequence.F |
86 |
W2_PRINT_COMM_SEQUENCE |
I myThid ) |
./pkg/exch2/w2_print_e2setup.F |
12 |
W2_PRINT_E2SETUP |
SUBROUTINE W2_PRINT_E2SETUP( myThid ) |
./pkg/exch2/w2_print_e2setup.F |
155 |
W2_PRINT_E2SETUP |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/exch2/w2_print_e2setup.F |
164 |
W2_PRINT_E2SETUP |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/exch2/w2_print_e2setup.F |
170 |
W2_PRINT_E2SETUP |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/exch2/w2_print_e2setup.F |
199 |
W2_PRINT_E2SETUP |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/exch2/w2_print_e2setup.F |
226 |
W2_PRINT_E2SETUP |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/exch2/w2_print_e2setup.F |
32 |
W2_PRINT_E2SETUP |
INTEGER myThid |
./pkg/exch2/w2_print_e2setup.F |
56 |
W2_PRINT_E2SETUP |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/exch2/w2_readparms.F |
105 |
W2_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit, SQUEEZE_RIGHT , myThid ) |
./pkg/exch2/w2_readparms.F |
109 |
W2_READPARMS |
I myThid ) |
./pkg/exch2/w2_readparms.F |
115 |
W2_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit, SQUEEZE_RIGHT , myThid ) |
./pkg/exch2/w2_readparms.F |
120 |
W2_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit, SQUEEZE_RIGHT , myThid ) |
./pkg/exch2/w2_readparms.F |
12 |
W2_READPARMS |
SUBROUTINE W2_READPARMS( myThid ) |
./pkg/exch2/w2_readparms.F |
131 |
W2_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit, SQUEEZE_RIGHT , myThid ) |
./pkg/exch2/w2_readparms.F |
157 |
W2_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_readparms.F |
160 |
W2_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_readparms.F |
173 |
W2_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_readparms.F |
176 |
W2_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_readparms.F |
185 |
W2_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit, SQUEEZE_RIGHT , myThid ) |
./pkg/exch2/w2_readparms.F |
188 |
W2_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit, SQUEEZE_RIGHT , myThid ) |
./pkg/exch2/w2_readparms.F |
191 |
W2_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit, SQUEEZE_RIGHT , myThid ) |
./pkg/exch2/w2_readparms.F |
28 |
W2_READPARMS |
INTEGER myThid |
./pkg/exch2/w2_set_cs6_facets.F |
113 |
W2_SET_CS6_FACETS |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit,SQUEEZE_RIGHT,myThid ) |
./pkg/exch2/w2_set_cs6_facets.F |
117 |
W2_SET_CS6_FACETS |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit,SQUEEZE_RIGHT,myThid ) |
./pkg/exch2/w2_set_cs6_facets.F |
120 |
W2_SET_CS6_FACETS |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit,SQUEEZE_RIGHT,myThid ) |
./pkg/exch2/w2_set_cs6_facets.F |
123 |
W2_SET_CS6_FACETS |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit,SQUEEZE_RIGHT,myThid ) |
./pkg/exch2/w2_set_cs6_facets.F |
124 |
W2_SET_CS6_FACETS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_set_cs6_facets.F |
128 |
W2_SET_CS6_FACETS |
CALL ALL_PROC_DIE( myThid ) |
./pkg/exch2/w2_set_cs6_facets.F |
12 |
W2_SET_CS6_FACETS |
SUBROUTINE W2_SET_CS6_FACETS( myThid ) |
./pkg/exch2/w2_set_cs6_facets.F |
160 |
W2_SET_CS6_FACETS |
CALL PRINT_MESSAGE(msgBuf,W2_oUnit,SQUEEZE_RIGHT,myThid) |
./pkg/exch2/w2_set_cs6_facets.F |
172 |
W2_SET_CS6_FACETS |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/exch2/w2_set_cs6_facets.F |
173 |
W2_SET_CS6_FACETS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_set_cs6_facets.F |
179 |
W2_SET_CS6_FACETS |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit,SQUEEZE_RIGHT,myThid ) |
./pkg/exch2/w2_set_cs6_facets.F |
180 |
W2_SET_CS6_FACETS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_set_cs6_facets.F |
183 |
W2_SET_CS6_FACETS |
CALL ALL_PROC_DIE( myThid ) |
./pkg/exch2/w2_set_cs6_facets.F |
33 |
W2_SET_CS6_FACETS |
INTEGER myThid |
./pkg/exch2/w2_set_cs6_facets.F |
50 |
W2_SET_CS6_FACETS |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit,SQUEEZE_RIGHT,myThid ) |
./pkg/exch2/w2_set_cs6_facets.F |
57 |
W2_SET_CS6_FACETS |
CALL ALL_PROC_DIE( myThid ) |
./pkg/exch2/w2_set_cs6_facets.F |
92 |
W2_SET_CS6_FACETS |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit,SQUEEZE_RIGHT,myThid ) |
./pkg/exch2/w2_set_cs6_facets.F |
93 |
W2_SET_CS6_FACETS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_set_cs6_facets.F |
94 |
W2_SET_CS6_FACETS |
CALL ALL_PROC_DIE( myThid ) |
./pkg/exch2/w2_set_f2f_index.F |
116 |
W2_SET_F2F_INDEX |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_set_f2f_index.F |
119 |
W2_SET_F2F_INDEX |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_set_f2f_index.F |
12 |
W2_SET_F2F_INDEX |
SUBROUTINE W2_SET_F2F_INDEX( myThid ) |
./pkg/exch2/w2_set_f2f_index.F |
192 |
W2_SET_F2F_INDEX |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_set_f2f_index.F |
195 |
W2_SET_F2F_INDEX |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_set_f2f_index.F |
210 |
W2_SET_F2F_INDEX |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_set_f2f_index.F |
252 |
W2_SET_F2F_INDEX |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_set_f2f_index.F |
255 |
W2_SET_F2F_INDEX |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_set_f2f_index.F |
264 |
W2_SET_F2F_INDEX |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_set_f2f_index.F |
30 |
W2_SET_F2F_INDEX |
INTEGER myThid |
./pkg/exch2/w2_set_f2f_index.F |
46 |
W2_SET_F2F_INDEX |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/exch2/w2_set_f2f_index.F |
61 |
W2_SET_F2F_INDEX |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/exch2/w2_set_f2f_index.F |
67 |
W2_SET_F2F_INDEX |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_set_f2f_index.F |
77 |
W2_SET_F2F_INDEX |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_set_f2f_index.F |
87 |
W2_SET_F2F_INDEX |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_set_f2f_index.F |
96 |
W2_SET_F2F_INDEX |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_set_gen_facets.F |
103 |
W2_SET_GEN_FACETS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_set_gen_facets.F |
109 |
W2_SET_GEN_FACETS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_set_gen_facets.F |
122 |
W2_SET_GEN_FACETS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_set_gen_facets.F |
125 |
W2_SET_GEN_FACETS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_set_gen_facets.F |
12 |
W2_SET_GEN_FACETS |
SUBROUTINE W2_SET_GEN_FACETS( myThid ) |
./pkg/exch2/w2_set_gen_facets.F |
132 |
W2_SET_GEN_FACETS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_set_gen_facets.F |
31 |
W2_SET_GEN_FACETS |
INTEGER myThid |
./pkg/exch2/w2_set_gen_facets.F |
45 |
W2_SET_GEN_FACETS |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit,SQUEEZE_RIGHT,myThid ) |
./pkg/exch2/w2_set_gen_facets.F |
63 |
W2_SET_GEN_FACETS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_set_gen_facets.F |
70 |
W2_SET_GEN_FACETS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_set_gen_facets.F |
75 |
W2_SET_GEN_FACETS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_set_gen_facets.F |
83 |
W2_SET_GEN_FACETS |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/exch2/w2_set_gen_facets.F |
92 |
W2_SET_GEN_FACETS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_set_map_tiles.F |
101 |
W2_SET_MAP_TILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_set_map_tiles.F |
115 |
W2_SET_MAP_TILES |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/exch2/w2_set_map_tiles.F |
145 |
W2_SET_MAP_TILES |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/exch2/w2_set_map_tiles.F |
150 |
W2_SET_MAP_TILES |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/exch2/w2_set_map_tiles.F |
17 |
W2_SET_MAP_TILES |
SUBROUTINE W2_SET_MAP_TILES( myThid ) |
./pkg/exch2/w2_set_map_tiles.F |
35 |
W2_SET_MAP_TILES |
INTEGER myThid |
./pkg/exch2/w2_set_map_tiles.F |
56 |
W2_SET_MAP_TILES |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/exch2/w2_set_map_tiles.F |
74 |
W2_SET_MAP_TILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_set_map_tiles.F |
80 |
W2_SET_MAP_TILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_set_map_tiles.F |
91 |
W2_SET_MAP_TILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_set_map_tiles.F |
98 |
W2_SET_MAP_TILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_set_myown_facets.F |
13 |
W2_SET_MYOWN_FACETS |
SUBROUTINE W2_SET_MYOWN_FACETS( myThid ) |
./pkg/exch2/w2_set_myown_facets.F |
34 |
W2_SET_MYOWN_FACETS |
INTEGER myThid |
./pkg/exch2/w2_set_single_facet.F |
12 |
W2_SET_SINGLE_FACET |
SUBROUTINE W2_SET_SINGLE_FACET( myThid ) |
./pkg/exch2/w2_set_single_facet.F |
30 |
W2_SET_SINGLE_FACET |
INTEGER myThid |
./pkg/exch2/w2_set_single_facet.F |
41 |
W2_SET_SINGLE_FACET |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit,SQUEEZE_RIGHT,myThid ) |
./pkg/exch2/w2_set_single_facet.F |
66 |
W2_SET_SINGLE_FACET |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit,SQUEEZE_RIGHT,myThid ) |
./pkg/exch2/w2_set_single_facet.F |
67 |
W2_SET_SINGLE_FACET |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_set_single_facet.F |
68 |
W2_SET_SINGLE_FACET |
CALL ALL_PROC_DIE( myThid ) |
./pkg/exch2/w2_set_single_facet.F |
75 |
W2_SET_SINGLE_FACET |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit,SQUEEZE_RIGHT,myThid ) |
./pkg/exch2/w2_set_single_facet.F |
76 |
W2_SET_SINGLE_FACET |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_set_single_facet.F |
77 |
W2_SET_SINGLE_FACET |
CALL ALL_PROC_DIE( myThid ) |
./pkg/exch2/w2_set_tile2tiles.F |
12 |
W2_SET_TILE2TILES |
SUBROUTINE W2_SET_TILE2TILES( myThid ) |
./pkg/exch2/w2_set_tile2tiles.F |
254 |
W2_SET_TILE2TILES |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/exch2/w2_set_tile2tiles.F |
259 |
W2_SET_TILE2TILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_set_tile2tiles.F |
262 |
W2_SET_TILE2TILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_set_tile2tiles.F |
288 |
W2_SET_TILE2TILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_set_tile2tiles.F |
292 |
W2_SET_TILE2TILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_set_tile2tiles.F |
300 |
W2_SET_TILE2TILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_set_tile2tiles.F |
309 |
W2_SET_TILE2TILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_set_tile2tiles.F |
30 |
W2_SET_TILE2TILES |
INTEGER myThid |
./pkg/exch2/w2_set_tile2tiles.F |
323 |
W2_SET_TILE2TILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_set_tile2tiles.F |
326 |
W2_SET_TILE2TILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_set_tile2tiles.F |
329 |
W2_SET_TILE2TILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_set_tile2tiles.F |
332 |
W2_SET_TILE2TILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_set_tile2tiles.F |
340 |
W2_SET_TILE2TILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_set_tile2tiles.F |
57 |
W2_SET_TILE2TILES |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/exf/exf_ad_dump.F |
102 |
EXF_AD_DUMP |
& adlwflux, 1, myIter, myThid ) |
./pkg/exf/exf_ad_dump.F |
105 |
EXF_AD_DUMP |
& adprecip, 1, myIter, myThid ) |
./pkg/exf/exf_ad_dump.F |
110 |
EXF_AD_DUMP |
& aduwind, 1, myIter, myThid ) |
./pkg/exf/exf_ad_dump.F |
113 |
EXF_AD_DUMP |
& advwind, 1, myIter, myThid ) |
./pkg/exf/exf_ad_dump.F |
118 |
EXF_AD_DUMP |
& adswdown, 1, myIter, myThid ) |
./pkg/exf/exf_ad_dump.F |
11 |
EXF_AD_DUMP |
SUBROUTINE EXF_AD_DUMP( myTime, myIter, myThid ) |
./pkg/exf/exf_ad_dump.F |
121 |
EXF_AD_DUMP |
& adlwdown, 1, myIter, myThid ) |
./pkg/exf/exf_ad_dump.F |
141 |
EXF_AD_DUMP |
CALL TIMER_STOP( 'I/O (WRITE) [EXF_AD_DUMP]', myThid ) |
./pkg/exf/exf_ad_dump.F |
49 |
EXF_AD_DUMP |
INTEGER myThid |
./pkg/exf/exf_ad_dump.F |
70 |
EXF_AD_DUMP |
CALL TIMER_START('I/O (WRITE) [EXF_AD_DUMP]', myThid ) |
./pkg/exf/exf_ad_dump.F |
82 |
EXF_AD_DUMP |
& adhflux, 1, myIter, myThid ) |
./pkg/exf/exf_ad_dump.F |
85 |
EXF_AD_DUMP |
& adsflux, 1, myIter, myThid ) |
./pkg/exf/exf_ad_dump.F |
88 |
EXF_AD_DUMP |
& adustress, 1, myIter, myThid ) |
./pkg/exf/exf_ad_dump.F |
91 |
EXF_AD_DUMP |
& advstress, 1, myIter, myThid ) |
./pkg/exf/exf_ad_dump.F |
96 |
EXF_AD_DUMP |
& adatemp, 1, myIter, myThid ) |
./pkg/exf/exf_ad_dump.F |
99 |
EXF_AD_DUMP |
& adaqh, 1, myIter, myThid ) |
./pkg/exf/exf_adjoint_snapshots.F |
20 |
EXF_ADJOINT_SNAPSHOTS |
integer myThid |
./pkg/exf/exf_adjoint_snapshots.F |
25 |
EXF_ADJOINT_SNAPSHOTS |
call TIMER_START('I/O (WRITE) [ADJOINT LOOP]', myThid ) |
./pkg/exf/exf_adjoint_snapshots.F |
27 |
EXF_ADJOINT_SNAPSHOTS |
call TIMER_STOP( 'I/O (WRITE) [ADJOINT LOOP]', myThid ) |
./pkg/exf/exf_adjoint_snapshots.F |
6 |
EXF_ADJOINT_SNAPSHOTS |
subroutine EXF_ADJOINT_SNAPSHOTS( iwhen, mytime, myiter, myThid ) |
./pkg/exf/exf_adjoint_snapshots__g.F |
101 |
G_EXF_ADJOINT_SNAPSHOTS |
& suff, g_atemp, myIter, myThid) |
./pkg/exf/exf_adjoint_snapshots__g.F |
103 |
G_EXF_ADJOINT_SNAPSHOTS |
& suff, g_aqh, myIter, myThid) |
./pkg/exf/exf_adjoint_snapshots__g.F |
105 |
G_EXF_ADJOINT_SNAPSHOTS |
& suff, g_precip, myIter, myThid) |
./pkg/exf/exf_adjoint_snapshots__g.F |
109 |
G_EXF_ADJOINT_SNAPSHOTS |
& suff, g_uwind, myIter, myThid) |
./pkg/exf/exf_adjoint_snapshots__g.F |
10 |
G_EXF_ADJOINT_SNAPSHOTS |
& iwhen, mytime, myiter, myThid ) |
./pkg/exf/exf_adjoint_snapshots__g.F |
111 |
G_EXF_ADJOINT_SNAPSHOTS |
& suff, g_vwind, myIter, myThid) |
./pkg/exf/exf_adjoint_snapshots__g.F |
115 |
G_EXF_ADJOINT_SNAPSHOTS |
& suff, g_swdown, myIter, myThid) |
./pkg/exf/exf_adjoint_snapshots__g.F |
119 |
G_EXF_ADJOINT_SNAPSHOTS |
& suff, g_climsst, myIter, myThid) |
./pkg/exf/exf_adjoint_snapshots__g.F |
123 |
G_EXF_ADJOINT_SNAPSHOTS |
& suff, g_climsss, myIter, myThid) |
./pkg/exf/exf_adjoint_snapshots__g.F |
128 |
G_EXF_ADJOINT_SNAPSHOTS |
_END_MASTER( myThid ) |
./pkg/exf/exf_adjoint_snapshots__g.F |
136 |
G_EXF_ADJOINT_SNAPSHOTS |
call TIMER_STOP( 'I/O (WRITE) [TLM LOOP]', myThid ) |
./pkg/exf/exf_adjoint_snapshots__g.F |
48 |
G_EXF_ADJOINT_SNAPSHOTS |
integer myThid |
./pkg/exf/exf_adjoint_snapshots__g.F |
69 |
G_EXF_ADJOINT_SNAPSHOTS |
call TIMER_START('I/O (WRITE) [TLM LOOP]', myThid ) |
./pkg/exf/exf_adjoint_snapshots__g.F |
77 |
G_EXF_ADJOINT_SNAPSHOTS |
_BEGIN_MASTER( myThid ) |
./pkg/exf/exf_adjoint_snapshots__g.F |
84 |
G_EXF_ADJOINT_SNAPSHOTS |
beginIOErrCount = IO_ERRCOUNT(myThid) |
./pkg/exf/exf_adjoint_snapshots__g.F |
89 |
G_EXF_ADJOINT_SNAPSHOTS |
& suff, g_ustress, myIter, myThid) |
./pkg/exf/exf_adjoint_snapshots__g.F |
91 |
G_EXF_ADJOINT_SNAPSHOTS |
& suff, g_vstress, myIter, myThid) |
./pkg/exf/exf_adjoint_snapshots__g.F |
93 |
G_EXF_ADJOINT_SNAPSHOTS |
& suff, g_hflux, myIter, myThid) |
./pkg/exf/exf_adjoint_snapshots__g.F |
95 |
G_EXF_ADJOINT_SNAPSHOTS |
& suff, g_sflux, myIter, myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
105 |
ADEXF_ADJOINT_SNAPSHOTS |
& suff, adatemp, myIter, myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
107 |
ADEXF_ADJOINT_SNAPSHOTS |
& suff, adaqh, myIter, myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
109 |
ADEXF_ADJOINT_SNAPSHOTS |
& suff, adprecip, myIter, myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
10 |
ADEXF_ADJOINT_SNAPSHOTS |
& iwhen, mytime, myiter, myThid ) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
113 |
ADEXF_ADJOINT_SNAPSHOTS |
& suff, aduwind, myIter, myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
115 |
ADEXF_ADJOINT_SNAPSHOTS |
& suff, advwind, myIter, myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
119 |
ADEXF_ADJOINT_SNAPSHOTS |
& suff, adswdown, myIter, myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
123 |
ADEXF_ADJOINT_SNAPSHOTS |
& suff, adclimsst, myIter, myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
127 |
ADEXF_ADJOINT_SNAPSHOTS |
& suff, adclimsss, myIter, myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
132 |
ADEXF_ADJOINT_SNAPSHOTS |
CALL WRITE_FLD_XY_RL ( 'ADJtaux.',suff, adfu, myIter, myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
133 |
ADEXF_ADJOINT_SNAPSHOTS |
CALL WRITE_FLD_XY_RL ( 'ADJtauy.',suff, adfv, myIter, myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
134 |
ADEXF_ADJOINT_SNAPSHOTS |
CALL WRITE_FLD_XY_RL ( 'ADJqnet.',suff, adqnet, myIter, myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
135 |
ADEXF_ADJOINT_SNAPSHOTS |
CALL WRITE_FLD_XY_RL ( 'ADJempr.',suff, adempmr, myIter, myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
137 |
ADEXF_ADJOINT_SNAPSHOTS |
CALL WRITE_FLD_XY_RL ( 'ADJqsw.',suff, adqsw, myIter, myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
142 |
ADEXF_ADJOINT_SNAPSHOTS |
_END_MASTER( myThid ) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
150 |
ADEXF_ADJOINT_SNAPSHOTS |
CALL MNC_CW_SET_UDIM('adexf', -1, myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
151 |
ADEXF_ADJOINT_SNAPSHOTS |
CALL MNC_CW_RL_W_S('D','adexf',0,0,'T',myTime,myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
152 |
ADEXF_ADJOINT_SNAPSHOTS |
CALL MNC_CW_SET_UDIM('adexf', 0, myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
153 |
ADEXF_ADJOINT_SNAPSHOTS |
CALL MNC_CW_I_W_S('I','adexf',0,0,'iter',myIter,myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
155 |
ADEXF_ADJOINT_SNAPSHOTS |
& myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
158 |
ADEXF_ADJOINT_SNAPSHOTS |
& adustress, myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
160 |
ADEXF_ADJOINT_SNAPSHOTS |
& advstress, myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
162 |
ADEXF_ADJOINT_SNAPSHOTS |
& adhflux, myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
164 |
ADEXF_ADJOINT_SNAPSHOTS |
& adsflux, myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
168 |
ADEXF_ADJOINT_SNAPSHOTS |
& adatemp, myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
170 |
ADEXF_ADJOINT_SNAPSHOTS |
& adaqh, myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
172 |
ADEXF_ADJOINT_SNAPSHOTS |
& adprecip, myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
176 |
ADEXF_ADJOINT_SNAPSHOTS |
& aduwind, myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
178 |
ADEXF_ADJOINT_SNAPSHOTS |
& advwind, myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
182 |
ADEXF_ADJOINT_SNAPSHOTS |
& adswdown, myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
186 |
ADEXF_ADJOINT_SNAPSHOTS |
& adclimsst, myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
190 |
ADEXF_ADJOINT_SNAPSHOTS |
& adclimsss, myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
202 |
ADEXF_ADJOINT_SNAPSHOTS |
call TIMER_STOP( 'I/O (WRITE) [ADJOINT LOOP]', myThid ) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
52 |
ADEXF_ADJOINT_SNAPSHOTS |
integer myThid |
./pkg/exf/exf_adjoint_snapshots_ad.F |
73 |
ADEXF_ADJOINT_SNAPSHOTS |
call TIMER_START('I/O (WRITE) [ADJOINT LOOP]', myThid ) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
81 |
ADEXF_ADJOINT_SNAPSHOTS |
_BEGIN_MASTER( myThid ) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
88 |
ADEXF_ADJOINT_SNAPSHOTS |
beginIOErrCount = IO_ERRCOUNT(myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
93 |
ADEXF_ADJOINT_SNAPSHOTS |
& suff, adustress, myIter, myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
95 |
ADEXF_ADJOINT_SNAPSHOTS |
& suff, advstress, myIter, myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
97 |
ADEXF_ADJOINT_SNAPSHOTS |
& suff, adhflux, myIter, myThid) |
./pkg/exf/exf_adjoint_snapshots_ad.F |
99 |
ADEXF_ADJOINT_SNAPSHOTS |
& suff, adsflux, myIter, myThid) |
./pkg/exf/exf_bulkformulae.F |
164 |
EXF_BULKFORMULAE |
INTEGER myThid |
./pkg/exf/exf_bulkformulae.F |
244 |
EXF_BULKFORMULAE |
DO bj = myByLo(myThid),myByHi(myThid) |
./pkg/exf/exf_bulkformulae.F |
249 |
EXF_BULKFORMULAE |
DO bi = myBxLo(myThid),myBxHi(myThid) |
./pkg/exf/exf_bulkformulae.F |
256 |
EXF_BULKFORMULAE |
act1 = bi - myBxLo(myThid) |
./pkg/exf/exf_bulkformulae.F |
257 |
EXF_BULKFORMULAE |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
./pkg/exf/exf_bulkformulae.F |
258 |
EXF_BULKFORMULAE |
act2 = bj - myByLo(myThid) |
./pkg/exf/exf_bulkformulae.F |
259 |
EXF_BULKFORMULAE |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
./pkg/exf/exf_bulkformulae.F |
260 |
EXF_BULKFORMULAE |
act3 = myThid - 1 |
./pkg/exf/exf_bulkformulae.F |
9 |
EXF_BULKFORMULAE |
SUBROUTINE EXF_BULKFORMULAE( myTime, myIter, myThid ) |
./pkg/exf/exf_check_range.F |
233 |
EXF_CHECK_RANGE |
_END_MASTER( myThid ) |
./pkg/exf/exf_check_range.F |
55 |
EXF_CHECK_RANGE |
_BEGIN_MASTER( myThid ) |
./pkg/exf/exf_diagnostics_fill.F |
38 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(ustress, 'EXFtaux ',0,1,0,1,1,myThid) |
./pkg/exf/exf_diagnostics_fill.F |
39 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(vstress, 'EXFtauy ',0,1,0,1,1,myThid) |
./pkg/exf/exf_diagnostics_fill.F |
40 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(wspeed, 'EXFwspee',0,1,0,1,1,myThid) |
./pkg/exf/exf_diagnostics_fill.F |
41 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(sflux, 'EXFempmr',0,1,0,1,1,myThid) |
./pkg/exf/exf_diagnostics_fill.F |
42 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(hflux, 'EXFqnet ',0,1,0,1,1,myThid) |
./pkg/exf/exf_diagnostics_fill.F |
44 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(swflux, 'EXFswnet',0,1,0,1,1,myThid) |
./pkg/exf/exf_diagnostics_fill.F |
47 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(uwind, 'EXFuwind',0,1,0,1,1,myThid) |
./pkg/exf/exf_diagnostics_fill.F |
48 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(vwind, 'EXFvwind',0,1,0,1,1,myThid) |
./pkg/exf/exf_diagnostics_fill.F |
51 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(atemp, 'EXFatemp',0,1,0,1,1,myThid) |
./pkg/exf/exf_diagnostics_fill.F |
52 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(aqh, 'EXFaqh ',0,1,0,1,1,myThid) |
./pkg/exf/exf_diagnostics_fill.F |
53 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(hs , 'EXFhs ',0,1,0,1,1,myThid) |
./pkg/exf/exf_diagnostics_fill.F |
54 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(hl , 'EXFhl ',0,1,0,1,1,myThid) |
./pkg/exf/exf_diagnostics_fill.F |
55 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(lwflux, 'EXFlwnet',0,1,0,1,1,myThid) |
./pkg/exf/exf_diagnostics_fill.F |
56 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(precip, 'EXFpreci',0,1,0,1,1,myThid) |
./pkg/exf/exf_diagnostics_fill.F |
57 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(snowprecip, 'EXFsnow ',0,1,0,1,1,myThid) |
./pkg/exf/exf_diagnostics_fill.F |
60 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(evap, 'EXFevap ',0,1,0,1,1,myThid) |
./pkg/exf/exf_diagnostics_fill.F |
63 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(lwdown, 'EXFlwdn ',0,1,0,1,1,myThid) |
./pkg/exf/exf_diagnostics_fill.F |
64 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(swdown, 'EXFswdn ',0,1,0,1,1,myThid) |
./pkg/exf/exf_diagnostics_fill.F |
67 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(apressure, 'EXFpress',0,1,0,1,1,myThid) |
./pkg/exf/exf_diagnostics_fill.F |
70 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(runoff, 'EXFroff ',0,1,0,1,1,myThid) |
./pkg/exf/exf_diagnostics_init.F |
107 |
EXF_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/exf/exf_diagnostics_init.F |
118 |
EXF_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/exf/exf_diagnostics_init.F |
125 |
EXF_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/exf/exf_diagnostics_init.F |
132 |
EXF_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/exf/exf_diagnostics_init.F |
139 |
EXF_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/exf/exf_diagnostics_init.F |
146 |
EXF_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/exf/exf_diagnostics_init.F |
153 |
EXF_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/exf/exf_diagnostics_init.F |
160 |
EXF_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/exf/exf_diagnostics_init.F |
167 |
EXF_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/exf/exf_diagnostics_init.F |
174 |
EXF_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/exf/exf_diagnostics_init.F |
181 |
EXF_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/exf/exf_diagnostics_init.F |
188 |
EXF_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/exf/exf_diagnostics_init.F |
195 |
EXF_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/exf/exf_diagnostics_init.F |
28 |
EXF_DIAGNOSTICS_INIT |
INTEGER myThid |
./pkg/exf/exf_diagnostics_init.F |
53 |
EXF_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/exf/exf_diagnostics_init.F |
60 |
EXF_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/exf/exf_diagnostics_init.F |
67 |
EXF_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/exf/exf_diagnostics_init.F |
74 |
EXF_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/exf/exf_diagnostics_init.F |
81 |
EXF_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/exf/exf_diagnostics_init.F |
88 |
EXF_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/exf/exf_diagnostics_init.F |
95 |
EXF_DIAGNOSTICS_INIT |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
./pkg/exf/exf_diagnostics_init.F |
9 |
EXF_DIAGNOSTICS_INIT |
SUBROUTINE EXF_DIAGNOSTICS_INIT( myThid ) |
./pkg/exf/exf_getclim.F |
142 |
EXF_GETCLIM |
CALL EXCH_UV_XY_RL( climustr, climvstr, .TRUE., myThid ) |
./pkg/exf/exf_getclim.F |
147 |
EXF_GETCLIM |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/exf/exf_getclim.F |
148 |
EXF_GETCLIM |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/exf/exf_getffieldrec.F |
144 |
EXF_GETFFIELDREC |
CALL CAL_TIMEPASSED(yearStartDate,mydate,difftime,myThid) |
./pkg/exf/exf_getffieldrec.F |
145 |
EXF_GETFFIELDREC |
CALL CAL_TOSECONDS (difftime,myDateSeconds,myThid) |
./pkg/exf/exf_getforcing.F |
167 |
EXF_GETFORCING |
& CALL EXCH_UV_XY_RL( ustress, vstress, .TRUE., myThid ) |
./pkg/exf/exf_getforcing.F |
172 |
EXF_GETFORCING |
CALL EXF_ADJOINT_SNAPSHOTS( 2, myTime, myIter, myThid ) |
./pkg/exf/exf_getforcing.F |
229 |
EXF_GETFORCING |
CALL EXCH_UV_XY_RL( ustress, vstress, .TRUE., myThid ) |
./pkg/exf/exf_getforcing.F |
231 |
EXF_GETFORCING |
CALL EXCH_UV_AGRID_3D_RL(ustress, vstress, .TRUE., 1, myThid) |
./pkg/exf/exf_getforcing.F |
253 |
EXF_GETFORCING |
CALL EXF_ADJOINT_SNAPSHOTS( 1, myTime, myIter, myThid ) |
./pkg/exf/exf_getforcing.F |
286 |
EXF_GETFORCING |
& CALL EXF_ADJOINT_SNAPSHOTS( 3, myTime, myIter, myThid ) |
./pkg/exf/exf_getsurfacefluxes.F |
131 |
EXF_GETSURFACEFLUXES |
_EXCH_XY_RL(tmpUE,myThid) |
./pkg/exf/exf_getsurfacefluxes.F |
132 |
EXF_GETSURFACEFLUXES |
_EXCH_XY_RL(tmpVN,myThid) |
./pkg/exf/exf_getsurfacefluxes.F |
138 |
EXF_GETSURFACEFLUXES |
CALL EXCH_UV_XY_RL( tmpUX, tmpVY, .TRUE., myThid ) |
./pkg/exf/exf_getsurfacefluxes.F |
140 |
EXF_GETSURFACEFLUXES |
CALL EXCH_UV_AGRID_3D_RL( tmpUX, tmpVY, .TRUE., 1, myThid) |
./pkg/exf/exf_init.F |
373 |
EXF_INIT |
CALL EXCH_UV_XY_RL( climustr, climvstr, .TRUE., myThid ) |
./pkg/exf/exf_init.F |
376 |
EXF_INIT |
DO bj=myByLo(myThid),myByHi(myThid) |
./pkg/exf/exf_init.F |
377 |
EXF_INIT |
DO bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/exf/exf_init.F |
49 |
EXF_INIT |
DO bj = myByLo(myThid), myByHi(myThid) |
./pkg/exf/exf_init.F |
50 |
EXF_INIT |
DO bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/exf/exf_init_fixed.F |
100 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
101 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, wspeedstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
103 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED(modelstartdate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
104 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, wspeedstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
110 |
EXF_INIT_FIXED |
& date_array, myThid ) |
./pkg/exf/exf_init_fixed.F |
116 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
117 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, ustressstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
119 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED(modelstartdate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
120 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, ustressstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
126 |
EXF_INIT_FIXED |
& date_array, myThid ) |
./pkg/exf/exf_init_fixed.F |
12 |
EXF_INIT_FIXED |
SUBROUTINE EXF_INIT_FIXED( myThid ) |
./pkg/exf/exf_init_fixed.F |
132 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
133 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, vstressstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
135 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED(modelstartdate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
136 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, vstressstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
144 |
EXF_INIT_FIXED |
& date_array, myThid ) |
./pkg/exf/exf_init_fixed.F |
150 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
151 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, atempstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
153 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED(modelstartdate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
154 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, atempstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
160 |
EXF_INIT_FIXED |
& date_array, myThid ) |
./pkg/exf/exf_init_fixed.F |
166 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
167 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, aqhstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
169 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED(modelstartdate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
170 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, aqhstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
176 |
EXF_INIT_FIXED |
& date_array, myThid ) |
./pkg/exf/exf_init_fixed.F |
182 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
183 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, lwfluxstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
185 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED(modelstartdate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
186 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, lwfluxstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
192 |
EXF_INIT_FIXED |
& date_array, myThid ) |
./pkg/exf/exf_init_fixed.F |
198 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
199 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, precipstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
201 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED(modelstartdate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
202 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, precipstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
208 |
EXF_INIT_FIXED |
& date_array, myThid ) |
./pkg/exf/exf_init_fixed.F |
214 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
215 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, snowprecipstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
217 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED(modelstartdate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
218 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, snowprecipstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
225 |
EXF_INIT_FIXED |
& date_array, myThid ) |
./pkg/exf/exf_init_fixed.F |
231 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
232 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, hfluxstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
234 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED(modelstartdate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
235 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, hfluxstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
241 |
EXF_INIT_FIXED |
& date_array, myThid ) |
./pkg/exf/exf_init_fixed.F |
247 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
248 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, sfluxstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
250 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED(modelstartdate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
251 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, sfluxstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
260 |
EXF_INIT_FIXED |
& date_array, myThid ) |
./pkg/exf/exf_init_fixed.F |
266 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
267 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, swfluxstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
269 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED(modelstartdate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
270 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, swfluxstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
279 |
EXF_INIT_FIXED |
& date_array, myThid ) |
./pkg/exf/exf_init_fixed.F |
285 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
286 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, evapstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
288 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED(modelstartdate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
289 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, evapstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
298 |
EXF_INIT_FIXED |
& date_array, myThid ) |
./pkg/exf/exf_init_fixed.F |
304 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
305 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, runoffstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
307 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED(modelstartdate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
308 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, runoffstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
317 |
EXF_INIT_FIXED |
& date_array, myThid ) |
./pkg/exf/exf_init_fixed.F |
323 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
324 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, sgrunoffstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
326 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED(modelstartdate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
327 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, sgrunoffstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
336 |
EXF_INIT_FIXED |
& date_array, myThid ) |
./pkg/exf/exf_init_fixed.F |
342 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
343 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, swdownstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
345 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED(modelstartdate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
346 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, swdownstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
352 |
EXF_INIT_FIXED |
& date_array, myThid ) |
./pkg/exf/exf_init_fixed.F |
358 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
359 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, lwdownstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
361 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED(modelstartdate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
362 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, lwdownstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
371 |
EXF_INIT_FIXED |
& date_array, myThid ) |
./pkg/exf/exf_init_fixed.F |
377 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
378 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, apressurestartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
380 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED(modelstartdate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
381 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, apressurestartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
390 |
EXF_INIT_FIXED |
& date_array, myThid ) |
./pkg/exf/exf_init_fixed.F |
396 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
397 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, areamaskstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
399 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED(modelstartdate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
400 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, areamaskstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
410 |
EXF_INIT_FIXED |
& date_array, myThid ) |
./pkg/exf/exf_init_fixed.F |
416 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
417 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, obcsNstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
419 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED(modelstartdate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
420 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, obcsNstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
428 |
EXF_INIT_FIXED |
& date_array, myThid ) |
./pkg/exf/exf_init_fixed.F |
42 |
EXF_INIT_FIXED |
INTEGER myThid |
./pkg/exf/exf_init_fixed.F |
434 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
435 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, obcsSstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
437 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED(modelstartdate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
438 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, obcsSstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
446 |
EXF_INIT_FIXED |
& date_array, myThid ) |
./pkg/exf/exf_init_fixed.F |
452 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
453 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, obcsEstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
455 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED(modelstartdate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
456 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, obcsEstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
464 |
EXF_INIT_FIXED |
& date_array, myThid ) |
./pkg/exf/exf_init_fixed.F |
470 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
471 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, obcsWstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
473 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED(modelstartdate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
474 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, obcsWstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
483 |
EXF_INIT_FIXED |
& date_array, myThid ) |
./pkg/exf/exf_init_fixed.F |
489 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
490 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, siobNstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
492 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED(modelstartdate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
493 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, siobNstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
501 |
EXF_INIT_FIXED |
& date_array, myThid ) |
./pkg/exf/exf_init_fixed.F |
507 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
508 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, siobSstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
510 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED(modelstartdate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
511 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, siobSstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
519 |
EXF_INIT_FIXED |
& date_array, myThid ) |
./pkg/exf/exf_init_fixed.F |
525 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
526 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, siobEstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
528 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED(modelstartdate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
529 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, siobEstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
537 |
EXF_INIT_FIXED |
& date_array, myThid ) |
./pkg/exf/exf_init_fixed.F |
543 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
544 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, siobWstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
546 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED(modelstartdate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
547 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, siobWstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
558 |
EXF_INIT_FIXED |
& date_array, myThid ) |
./pkg/exf/exf_init_fixed.F |
564 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
565 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS (difftime, climsststartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
567 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED(modelstartdate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
568 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS (difftime, climsststartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
56 |
EXF_INIT_FIXED |
_BEGIN_MASTER( myThid ) |
./pkg/exf/exf_init_fixed.F |
577 |
EXF_INIT_FIXED |
& date_array, myThid ) |
./pkg/exf/exf_init_fixed.F |
583 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
584 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS (difftime, climsssstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
586 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED(modelstartdate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
587 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS (difftime, climsssstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
596 |
EXF_INIT_FIXED |
& date_array, myThid ) |
./pkg/exf/exf_init_fixed.F |
602 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
603 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS (difftime, climustrstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
605 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED(modelstartdate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
606 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS (difftime, climustrstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
613 |
EXF_INIT_FIXED |
& date_array, myThid ) |
./pkg/exf/exf_init_fixed.F |
619 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
61 |
EXF_INIT_FIXED |
& date_array, myThid ) |
./pkg/exf/exf_init_fixed.F |
620 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS (difftime, climvstrstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
622 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED(modelstartdate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
623 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS (difftime, climvstrstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
629 |
EXF_INIT_FIXED |
_END_MASTER( myThid ) |
./pkg/exf/exf_init_fixed.F |
634 |
EXF_INIT_FIXED |
CALL EXF_ZENITHANGLE_TABLE(myThid) |
./pkg/exf/exf_init_fixed.F |
639 |
EXF_INIT_FIXED |
CALL EXF_SUMMARY( myThid ) |
./pkg/exf/exf_init_fixed.F |
643 |
EXF_INIT_FIXED |
CALL EXF_DIAGNOSTICS_INIT( myThid ) |
./pkg/exf/exf_init_fixed.F |
67 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
68 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, uwindstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
70 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED(modelstartdate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
71 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, uwindstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
77 |
EXF_INIT_FIXED |
& date_array, myThid ) |
./pkg/exf/exf_init_fixed.F |
83 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED( yearStartDate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
84 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, vwindstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
86 |
EXF_INIT_FIXED |
CALL CAL_TIMEPASSED(modelstartdate,date_array,difftime,myThid) |
./pkg/exf/exf_init_fixed.F |
87 |
EXF_INIT_FIXED |
CALL CAL_TOSECONDS ( difftime, vwindstartdate ,myThid) |
./pkg/exf/exf_init_fixed.F |
94 |
EXF_INIT_FIXED |
& date_array, myThid ) |
./pkg/exf/exf_interp.F |
111 |
EXF_INTERP |
do bj=myByLo(myThid),myByHi(myThid) |
./pkg/exf/exf_interp.F |
112 |
EXF_INTERP |
do bi=myBxLo(myThid),myBxHi(myThid) |
./pkg/exf/exf_interp_read.F |
109 |
EXF_INTERP_READ |
IF ( MASTER_CPU_IO(myThid) ) THEN |
./pkg/exf/exf_interp_read.F |
120 |
EXF_INTERP_READ |
& SQUEEZE_RIGHT , myThid) |
./pkg/exf/exf_interp_read.F |
126 |
EXF_INTERP_READ |
& SQUEEZE_RIGHT , myThid) |
./pkg/exf/exf_interp_read.F |
127 |
EXF_INTERP_READ |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_interp_read.F |
12 |
EXF_INTERP_READ |
I irecord, nx_in, ny_in, myThid ) |
./pkg/exf/exf_interp_read.F |
131 |
EXF_INTERP_READ |
& SQUEEZE_RIGHT , myThid) |
./pkg/exf/exf_interp_read.F |
132 |
EXF_INTERP_READ |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_interp_read.F |
137 |
EXF_INTERP_READ |
CALL MDSFINDUNIT( ioUnit, myThid ) |
./pkg/exf/exf_interp_read.F |
138 |
EXF_INTERP_READ |
length_of_rec=MDS_RECLEN( filePrec, nx_in*ny_in, myThid ) |
./pkg/exf/exf_interp_read.F |
164 |
EXF_INTERP_READ |
_BEGIN_MASTER( myThid ) |
./pkg/exf/exf_interp_read.F |
185 |
EXF_INTERP_READ |
_END_MASTER( myThid ) |
./pkg/exf/exf_interp_read.F |
40 |
EXF_INTERP_READ |
INTEGER myThid |
./pkg/exf/exf_mapfields.F |
246 |
EXF_MAPFIELDS |
CALL EXCH_UV_XY_RS(fu, fv, .TRUE., myThid) |
./pkg/exf/exf_mapfields.F |
81 |
EXF_MAPFIELDS |
DO bj = myByLo(myThid),myByHi(myThid) |
./pkg/exf/exf_mapfields.F |
82 |
EXF_MAPFIELDS |
DO bi = myBxLo(myThid),myBxHi(myThid) |
./pkg/exf/exf_mapfields.F |
85 |
EXF_MAPFIELDS |
act1 = bi - myBxLo(myThid) |
./pkg/exf/exf_mapfields.F |
86 |
EXF_MAPFIELDS |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
./pkg/exf/exf_mapfields.F |
87 |
EXF_MAPFIELDS |
act2 = bj - myByLo(myThid) |
./pkg/exf/exf_mapfields.F |
88 |
EXF_MAPFIELDS |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
./pkg/exf/exf_mapfields.F |
89 |
EXF_MAPFIELDS |
act3 = myThid - 1 |
./pkg/exf/exf_monitor.F |
103 |
EXF_MONITOR |
& maskInW, maskInW, rAw, drF, dummyRL, myThid ) |
./pkg/exf/exf_monitor.F |
105 |
EXF_MONITOR |
& maskInS, maskInS, rAs, drF, dummyRL, myThid ) |
./pkg/exf/exf_monitor.F |
108 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
./pkg/exf/exf_monitor.F |
110 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
./pkg/exf/exf_monitor.F |
113 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
./pkg/exf/exf_monitor.F |
115 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
./pkg/exf/exf_monitor.F |
118 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
./pkg/exf/exf_monitor.F |
120 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
./pkg/exf/exf_monitor.F |
123 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
./pkg/exf/exf_monitor.F |
126 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
./pkg/exf/exf_monitor.F |
128 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
./pkg/exf/exf_monitor.F |
12 |
EXF_MONITOR |
I myTime, myIter, myThid ) |
./pkg/exf/exf_monitor.F |
130 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
./pkg/exf/exf_monitor.F |
132 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
./pkg/exf/exf_monitor.F |
134 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
./pkg/exf/exf_monitor.F |
138 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
./pkg/exf/exf_monitor.F |
142 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
./pkg/exf/exf_monitor.F |
146 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
./pkg/exf/exf_monitor.F |
148 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
./pkg/exf/exf_monitor.F |
152 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
./pkg/exf/exf_monitor.F |
156 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
./pkg/exf/exf_monitor.F |
160 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
./pkg/exf/exf_monitor.F |
164 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
./pkg/exf/exf_monitor.F |
168 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
./pkg/exf/exf_monitor.F |
172 |
EXF_MONITOR |
& maskInW, maskInW, rAw, drF, dummyRL, myThid ) |
./pkg/exf/exf_monitor.F |
174 |
EXF_MONITOR |
& maskInS, maskInS, rAs, drF, dummyRL, myThid ) |
./pkg/exf/exf_monitor.F |
177 |
EXF_MONITOR |
IF ( MASTER_CPU_IO(myThid) ) THEN |
./pkg/exf/exf_monitor.F |
35 |
EXF_MONITOR |
INTEGER myThid |
./pkg/exf/exf_monitor.F |
56 |
EXF_MONITOR |
IF ( MASTER_CPU_IO(myThid) ) THEN |
./pkg/exf/exf_monitor.F |
73 |
EXF_MONITOR |
& 'T', '-_-_--__-__t', 0,0, myThid) |
./pkg/exf/exf_monitor.F |
74 |
EXF_MONITOR |
CALL MNC_CW_SET_UDIM(mon_fname, -1, myThid) |
./pkg/exf/exf_monitor.F |
76 |
EXF_MONITOR |
& 'D',mon_fname,1,1,'T', myTime, myThid) |
./pkg/exf/exf_monitor.F |
77 |
EXF_MONITOR |
CALL MNC_CW_SET_UDIM(mon_fname, 0, myThid) |
./pkg/exf/exf_monitor.F |
96 |
EXF_MONITOR |
CALL MON_SET_PREF('exf',myThid) |
./pkg/exf/exf_monitor.F |
97 |
EXF_MONITOR |
CALL MON_OUT_I ('_tsnumber', myIter,mon_string_none,myThid) |
./pkg/exf/exf_monitor.F |
98 |
EXF_MONITOR |
CALL MON_OUT_RL('_time_sec', myTime,mon_string_none,myThid) |
./pkg/exf/exf_radiation.F |
117 |
EXF_RADIATION |
CALL EXF_ZENITHANGLE(myTime, myIter, myThid) |
./pkg/exf/exf_radiation.F |
120 |
EXF_RADIATION |
DO bj = myByLo(myThid),myByHi(myThid) |
./pkg/exf/exf_radiation.F |
121 |
EXF_RADIATION |
DO bi = myBxLo(myThid),myBxHi(myThid) |
./pkg/exf/exf_radiation.F |
36 |
EXF_RADIATION |
INTEGER myThid |
./pkg/exf/exf_radiation.F |
62 |
EXF_RADIATION |
DO bj = myByLo(myThid),myByHi(myThid) |
./pkg/exf/exf_radiation.F |
63 |
EXF_RADIATION |
DO bi = myBxLo(myThid),myBxHi(myThid) |
./pkg/exf/exf_radiation.F |
6 |
EXF_RADIATION |
SUBROUTINE EXF_RADIATION(myTime, myIter, myThid) |
./pkg/exf/exf_readparms.F |
55 |
EXF_READPARMS |
integer myThid |
./pkg/exf/exf_readparms.F |
6 |
EXF_READPARMS |
SUBROUTINE EXF_READPARMS( myThid ) |
./pkg/exf/exf_readparms.F |
774 |
EXF_READPARMS |
I myThid ) |
./pkg/exf/exf_readparms.F |
854 |
EXF_READPARMS |
& SQUEEZE_RIGHT , myThid) |
./pkg/exf/exf_readparms.F |
858 |
EXF_READPARMS |
& SQUEEZE_RIGHT , myThid) |
./pkg/exf/exf_readparms.F |
865 |
EXF_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_readparms.F |
868 |
EXF_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_readparms.F |
888 |
EXF_READPARMS |
& SQUEEZE_RIGHT , myThid) |
./pkg/exf/exf_readparms.F |
892 |
EXF_READPARMS |
& SQUEEZE_RIGHT , myThid) |
./pkg/exf/exf_readparms.F |
899 |
EXF_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_readparms.F |
902 |
EXF_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_readparms.F |
916 |
EXF_READPARMS |
CALL EXF_CHECK( myThid ) |
./pkg/exf/exf_set_gen.F |
143 |
EXF_SET_GEN |
& gen1, count0, myIter, myThid ) |
./pkg/exf/exf_set_gen.F |
177 |
EXF_SET_GEN |
& gen1, count1, myIter, myThid ) |
./pkg/exf/exf_set_gen.F |
308 |
EXF_INIT_GEN |
& genfld, count, 0, myThid ) |
./pkg/exf/exf_set_obcs.F |
100 |
EXF_SET_OBCS_XZ |
DO bi = myBxLo(myThid),myBxHi(myThid) |
./pkg/exf/exf_set_obcs.F |
125 |
EXF_SET_OBCS_YZ |
I myTime, myIter, myThid) |
./pkg/exf/exf_set_obcs.F |
163 |
EXF_SET_OBCS_YZ |
INTEGER myThid |
./pkg/exf/exf_set_obcs.F |
183 |
EXF_SET_OBCS_YZ |
I myTime, myIter, myThid ) |
./pkg/exf/exf_set_obcs.F |
186 |
EXF_SET_OBCS_YZ |
& obcs_yz_1, count0, myIter, myThid ) |
./pkg/exf/exf_set_obcs.F |
190 |
EXF_SET_OBCS_YZ |
CALL EXF_SWAPFFIELDS_YZ( obcs_yz_0, obcs_yz_1, myThid ) |
./pkg/exf/exf_set_obcs.F |
196 |
EXF_SET_OBCS_YZ |
I myTime, myIter, myThid ) |
./pkg/exf/exf_set_obcs.F |
199 |
EXF_SET_OBCS_YZ |
& obcs_yz_1, count1, myIter, myThid ) |
./pkg/exf/exf_set_obcs.F |
202 |
EXF_SET_OBCS_YZ |
DO bj = myByLo(myThid),myByHi(myThid) |
./pkg/exf/exf_set_obcs.F |
203 |
EXF_SET_OBCS_YZ |
DO bi = myBxLo(myThid),myBxHi(myThid) |
./pkg/exf/exf_set_obcs.F |
20 |
EXF_SET_OBCS_XZ |
I myTime, myIter, myThid ) |
./pkg/exf/exf_set_obcs.F |
228 |
EXF_SET_OBCS_X |
I myTime, myIter, myThid ) |
./pkg/exf/exf_set_obcs.F |
266 |
EXF_SET_OBCS_X |
INTEGER myThid |
./pkg/exf/exf_set_obcs.F |
285 |
EXF_SET_OBCS_X |
I myTime, myIter, myThid ) |
./pkg/exf/exf_set_obcs.F |
288 |
EXF_SET_OBCS_X |
& obcs_x_1, count0, myIter, myThid ) |
./pkg/exf/exf_set_obcs.F |
292 |
EXF_SET_OBCS_X |
CALL EXF_SWAPFFIELDS_X( obcs_x_0, obcs_x_1, myThid ) |
./pkg/exf/exf_set_obcs.F |
298 |
EXF_SET_OBCS_X |
I myTime, myIter, myThid ) |
./pkg/exf/exf_set_obcs.F |
301 |
EXF_SET_OBCS_X |
& obcs_x_1, count1, myIter, myThid ) |
./pkg/exf/exf_set_obcs.F |
304 |
EXF_SET_OBCS_X |
DO bj = myByLo(myThid),myByHi(myThid) |
./pkg/exf/exf_set_obcs.F |
305 |
EXF_SET_OBCS_X |
DO bi = myBxLo(myThid),myBxHi(myThid) |
./pkg/exf/exf_set_obcs.F |
328 |
EXF_SET_OBCS_Y |
I myTime, myIter, myThid ) |
./pkg/exf/exf_set_obcs.F |
365 |
EXF_SET_OBCS_Y |
INTEGER myThid |
./pkg/exf/exf_set_obcs.F |
384 |
EXF_SET_OBCS_Y |
I myTime, myIter, myThid ) |
./pkg/exf/exf_set_obcs.F |
387 |
EXF_SET_OBCS_Y |
& obcs_y_1, count0, myIter, myThid ) |
./pkg/exf/exf_set_obcs.F |
391 |
EXF_SET_OBCS_Y |
CALL EXF_SWAPFFIELDS_Y( obcs_y_0, obcs_y_1, myThid ) |
./pkg/exf/exf_set_obcs.F |
397 |
EXF_SET_OBCS_Y |
I myTime, myIter, myThid ) |
./pkg/exf/exf_set_obcs.F |
400 |
EXF_SET_OBCS_Y |
& obcs_y_1, count1, myIter, myThid ) |
./pkg/exf/exf_set_obcs.F |
403 |
EXF_SET_OBCS_Y |
DO bj = myByLo(myThid),myByHi(myThid) |
./pkg/exf/exf_set_obcs.F |
404 |
EXF_SET_OBCS_Y |
DO bi = myBxLo(myThid),myBxHi(myThid) |
./pkg/exf/exf_set_obcs.F |
60 |
EXF_SET_OBCS_XZ |
INTEGER myThid |
./pkg/exf/exf_set_obcs.F |
80 |
EXF_SET_OBCS_XZ |
I myTime, myIter, myThid ) |
./pkg/exf/exf_set_obcs.F |
83 |
EXF_SET_OBCS_XZ |
& obcs_xz_1, count0, myIter, myThid ) |
./pkg/exf/exf_set_obcs.F |
87 |
EXF_SET_OBCS_XZ |
CALL EXF_SWAPFFIELDS_XZ( obcs_xz_0, obcs_xz_1, myThid ) |
./pkg/exf/exf_set_obcs.F |
93 |
EXF_SET_OBCS_XZ |
I myTime, myIter, myThid ) |
./pkg/exf/exf_set_obcs.F |
96 |
EXF_SET_OBCS_XZ |
& obcs_xz_1, count1, myIter, myThid ) |
./pkg/exf/exf_set_obcs.F |
99 |
EXF_SET_OBCS_XZ |
DO bj = myByLo(myThid),myByHi(myThid) |
./pkg/exf/exf_set_runoff.F |
110 |
EXF_SET_RUNOFF |
& gen1, count0, myIter, myThid ) |
./pkg/exf/exf_set_runoff.F |
131 |
EXF_SET_RUNOFF |
& gen1, count1, myIter, myThid ) |
./pkg/exf/exf_set_runoff.F |
228 |
EXF_INIT_RUNOFF |
& genfld, count, 0, myThid ) |
./pkg/exf/exf_summary.F |
196 |
EXF_SUMMARY |
& SQUEEZE_RIGHT , myThid ) |
./pkg/exf/exf_summary.F |
202 |
EXF_SUMMARY |
& SQUEEZE_RIGHT , myThid ) |
./pkg/exf/exf_summary.F |
205 |
EXF_SUMMARY |
& SQUEEZE_RIGHT , myThid ) |
./pkg/exf/exf_summary.F |
45 |
EXF_SUMMARY |
integer myThid |
./pkg/exf/exf_summary.F |
60 |
EXF_SUMMARY |
_BEGIN_MASTER( myThid ) |
./pkg/exf/exf_summary.F |
7 |
EXF_SUMMARY |
SUBROUTINE EXF_SUMMARY( myThid ) |
./pkg/exf/exf_summary.F |
849 |
EXF_SUMMARY |
_END_MASTER( myThid ) |
./pkg/exf/exf_summary.F |
84 |
EXF_SUMMARY |
& SQUEEZE_RIGHT , myThid ) |
./pkg/exf/exf_summary.F |
87 |
EXF_SUMMARY |
& SQUEEZE_RIGHT , myThid ) |
./pkg/exf/exf_wind.F |
39 |
EXF_WIND |
INTEGER myThid |
./pkg/exf/exf_wind.F |
62 |
EXF_WIND |
DO bj = myByLo(myThid),myByHi(myThid) |
./pkg/exf/exf_wind.F |
63 |
EXF_WIND |
DO bi = myBxLo(myThid),myBxHi(myThid) |
./pkg/exf/exf_wind.F |
66 |
EXF_WIND |
act1 = bi - myBxLo(myThid) |
./pkg/exf/exf_wind.F |
67 |
EXF_WIND |
max1 = myBxHi(myThid) - myBxLo(myThid) + 1 |
./pkg/exf/exf_wind.F |
68 |
EXF_WIND |
act2 = bj - myByLo(myThid) |
./pkg/exf/exf_wind.F |
69 |
EXF_WIND |
max2 = myByHi(myThid) - myByLo(myThid) + 1 |
./pkg/exf/exf_wind.F |
6 |
EXF_WIND |
SUBROUTINE EXF_WIND( myTime, myIter, myThid ) |
./pkg/exf/exf_wind.F |
70 |
EXF_WIND |
act3 = myThid - 1 |
./pkg/exf/exf_zenithangle.F |
244 |
EXF_ZENITHANGLE |
DO bj = myByLo(myThid),myByHi(myThid) |
./pkg/exf/exf_zenithangle.F |
245 |
EXF_ZENITHANGLE |
DO bi = myBxLo(myThid),myBxHi(myThid) |
./pkg/exf/exf_zenithangle.F |
38 |
EXF_ZENITHANGLE |
INTEGER myThid |
./pkg/exf/exf_zenithangle.F |
6 |
EXF_ZENITHANGLE |
SUBROUTINE EXF_ZENITHANGLE(myTime, myIter, myThid) |
./pkg/exf/exf_zenithangle.F |
81 |
EXF_ZENITHANGLE |
CALL CAL_TIMEPASSED(yearStartDate,mydate,difftime,myThid) |
./pkg/exf/exf_zenithangle.F |
82 |
EXF_ZENITHANGLE |
CALL CAL_TOSECONDS (difftime,myDateSeconds,myThid) |
./pkg/exf/exf_zenithangle.F |
90 |
EXF_ZENITHANGLE |
CALL CAL_TIMEPASSED(dayStartDate,mydate,difftime,myThid) |
./pkg/exf/exf_zenithangle.F |
91 |
EXF_ZENITHANGLE |
CALL CAL_TOSECONDS (difftime,myDateSeconds,myThid) |
./pkg/exf/exf_zenithangle.F |
98 |
EXF_ZENITHANGLE |
DO bj = myByLo(myThid),myByHi(myThid) |
./pkg/exf/exf_zenithangle.F |
99 |
EXF_ZENITHANGLE |
DO bi = myBxLo(myThid),myBxHi(myThid) |
./pkg/exf/exf_zenithangle_table.F |
124 |
EXF_ZENITHANGLE_TABLE |
_END_MASTER( myThid ) |
./pkg/exf/exf_zenithangle_table.F |
129 |
EXF_ZENITHANGLE_TABLE |
DO bj = myByLo(myThid),myByHi(myThid) |
./pkg/exf/exf_zenithangle_table.F |
130 |
EXF_ZENITHANGLE_TABLE |
DO bi = myBxLo(myThid),myBxHi(myThid) |
./pkg/exf/exf_zenithangle_table.F |
34 |
EXF_ZENITHANGLE_TABLE |
INTEGER myThid |
./pkg/exf/exf_zenithangle_table.F |
50 |
EXF_ZENITHANGLE_TABLE |
_BEGIN_MASTER( myThid ) |
./pkg/exf/exf_zenithangle_table.F |
6 |
EXF_ZENITHANGLE_TABLE |
SUBROUTINE EXF_ZENITHANGLE_TABLE(myThid) |
./pkg/fizhi/AtoC.F |
31 |
ATOC |
integer myThid, numlevs |
./pkg/fizhi/AtoC.F |
47 |
ATOC |
I .TRUE., numlevs, myThid ) |
./pkg/fizhi/AtoC.F |
50 |
ATOC |
do bj = myByLo(myThid), myByHi(myThid) |
./pkg/fizhi/AtoC.F |
51 |
ATOC |
do bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/fizhi/AtoC.F |
5 |
ATOC |
subroutine ATOC(myThid,fieldin1,fieldin2,mask,idim1,idim2, |
./pkg/fizhi/CtoA.F |
32 |
CTOA |
integer myThid, numlevs |
./pkg/fizhi/CtoA.F |
49 |
CTOA |
call EXCH_UV_XYZ_RL(fieldin1,fieldin2,withSigns,myThid) |
./pkg/fizhi/CtoA.F |
52 |
CTOA |
do bj = myByLo(myThid), myByHi(myThid) |
./pkg/fizhi/CtoA.F |
53 |
CTOA |
do bi = myBxLo(myThid), myBxHi(myThid) |
./pkg/fizhi/CtoA.F |
5 |
CTOA |
subroutine CTOA(myThid,fieldin1,fieldin2,mask1,mask2,idim1,idim2, |