121 |
IF (useMNC .AND. snapshot_mnc .AND. writeDiag) THEN |
IF (useMNC .AND. snapshot_mnc .AND. writeDiag) THEN |
122 |
IF ((bi .EQ. 1).AND.(bj .EQ. 1).AND.(k .EQ. 1)) THEN |
IF ((bi .EQ. 1).AND.(bj .EQ. 1).AND.(k .EQ. 1)) THEN |
123 |
CALL MNC_CW_SET_UDIM('mom_vi', -1, myThid) |
CALL MNC_CW_SET_UDIM('mom_vi', -1, myThid) |
124 |
CALL MNC_CW_I_W_S('I','mom_vi',0,0,'iter',myIter,myThid) |
CALL MNC_CW_I_W_S('I','mom_vi',0,0,'T',myIter,myThid) |
125 |
CALL MNC_CW_SET_UDIM('mom_vi', 0, myThid) |
CALL MNC_CW_SET_UDIM('mom_vi', 0, myThid) |
126 |
ENDIF |
ENDIF |
127 |
DO i = 1,9 |
DO i = 1,9 |