Parent Directory | Revision Log | Revision Graph | Patch
revision 1.1 by heimbach, Thu Oct 2 21:26:06 2003 UTC | revision 1.2 by heimbach, Mon Nov 17 22:32:33 2003 UTC | |
---|---|---|
# | Line 40 c END DO | Line 40 c END DO |
40 | END DO | END DO |
41 | END DO | END DO |
42 | ||
43 | fc = objf_state_final(45,4,1,1) | cph fc = objf_state_final(45,4,1,1) |
44 | _GLOBAL_SUM_R8( fc , myThid ) | cph _GLOBAL_SUM_R8( fc , myThid ) |
45 | print *, 'fc for admtlm test at 83,33 : ', fc | cph print *, 'fc for admtlm test at 83,33 : ', fc |
46 | ||
47 | #endif | #endif |
48 |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |