--- MITgcm/pkg/timeave/timeave_statv_write.F 2004/09/10 12:19:31 1.18 +++ MITgcm/pkg/timeave/timeave_statv_write.F 2004/09/13 18:42:11 1.19 @@ -1,4 +1,4 @@ -C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/timeave/timeave_statv_write.F,v 1.18 2004/09/10 12:19:31 edhill Exp $ +C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/timeave/timeave_statv_write.F,v 1.19 2004/09/13 18:42:11 edhill Exp $ C $Name: $ #include "TIMEAVE_OPTIONS.h" @@ -217,7 +217,7 @@ ENDIF #ifdef ALLOW_MNC - IF (useMNC .AND. timeave_mdsio) THEN + IF (useMNC .AND. timeave_mnc) THEN CALL MNC_CW_SET_UDIM('tave', -1, myThid) CALL MNC_CW_I_W('I','tave',0,0,'iter', myIter, myThid) @@ -226,7 +226,8 @@ CALL MNC_CW_RL_W('D','tave',0,0,'ETAtave',etatave,myThid) #ifndef HRCUBE - CALL MNC_CW_RL_W('D','tave',0,0,'Eta2tave',Eta2tave,myThid) +C EH3: something is wriong here... +C CALL MNC_CW_RL_W('D','tave',0,0,'Eta2tave',Eta2tave,myThid) #endif /* ndef HRCUBE */ CALL MNC_CW_RL_W('D','tave',0,0,'Ttave',thetatave,myThid) CALL MNC_CW_RL_W('D','tave',0,0,'Stave',salttave,myThid)