634 |
|
|
635 |
IF ( selectVars.EQ.4 ) THEN |
IF ( selectVars.EQ.4 ) THEN |
636 |
C Second fill sequence for state variable tendency diagnostics: add state variable |
C Second fill sequence for state variable tendency diagnostics: add state variable |
637 |
C NOTE: send a '-1' for the bibjflag and allow counter to be incremented |
C NOTE: send a '-1' for the bibjflag and do not increment counter |
638 |
C this means that diag fill is called from inside the bi-bj loop |
C (next fill for these diagnostics WILL allow counter to be incremented) |
639 |
|
|
640 |
IF ( DIAGNOSTICS_IS_ON('TOTUTEND',myThid) ) THEN |
IF ( DIAGNOSTICS_IS_ON('TOTUTEND',myThid) ) THEN |
641 |
DO bj = myByLo(myThid), myByHi(myThid) |
DO bj = myByLo(myThid), myByHi(myThid) |