| File |
Line number |
Procedure |
Code |
|
./pkg/monitor/mon_ke.F |
312 |
MON_KE |
CALL GLOBAL_SUM_TILE_RL( tileAMu , totAMu, myThid ) |
|
./pkg/monitor/mon_ke.F |
317 |
MON_KE |
totAMu = totAMu*rUnit2mass |
|
./pkg/monitor/mon_ke.F |
319 |
MON_KE |
IF ( globalArea.GT.0. ) totAMu = totAMu/globalArea |
|
./pkg/monitor/mon_ke.F |
323 |
MON_KE |
CALL MON_OUT_RL( mon_string_none, totAMu, |
|
./pkg/monitor/mon_ke.F |
325 |
MON_KE |
totAMu = totAMu + freeSurfFac*totAMs |
|
./pkg/monitor/mon_ke.F |
326 |
MON_KE |
CALL MON_OUT_RL( mon_string_none, totAMu, |
|
./pkg/monitor/mon_ke.F |
39 |
MON_KE |
_RL totAMu, totAMs |