53 |
C = 4 :: fill-in state variable tendency diagnostics the second time |
C = 4 :: fill-in state variable tendency diagnostics the second time |
54 |
C bi,bj :: tile indices |
C bi,bj :: tile indices |
55 |
INTEGER selectVars |
INTEGER selectVars |
56 |
|
#if defined(ALLOW_THSICE) || defined(ALLOW_LAND) |
57 |
INTEGER bi, bj |
INTEGER bi, bj |
58 |
|
#endif |
59 |
|
|
60 |
C-- Fill-in Diagnostics pkg storage array (for state-variables) |
C-- Fill-in Diagnostics pkg storage array (for state-variables) |
61 |
IF ( usediagnostics ) THEN |
IF ( usediagnostics ) THEN |