/[MITgcm]/MITgcm/pkg/seaice/seaice_do_diags.F
ViewVC logotype

Diff of /MITgcm/pkg/seaice/seaice_do_diags.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.13 by jmc, Sun May 22 02:06:07 2005 UTC revision 1.14 by edhill, Wed May 25 04:03:10 2005 UTC
# Line 45  C     == Local variables == Line 45  C     == Local variables ==
45  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
46             IF (useMNC .AND. SEAICE_dump_mnc) THEN             IF (useMNC .AND. SEAICE_dump_mnc) THEN
47               CALL MNC_CW_SET_UDIM('sice', -1, myThid)               CALL MNC_CW_SET_UDIM('sice', -1, myThid)
48               CALL MNC_CW_I_W_S('I','sice',0,0,'T', myIter, myThid)               CALL MNC_CW_RL_W_S('D','sice',0,0,'T', myTime, myThid)
49               CALL MNC_CW_SET_UDIM('sice', 0, myThid)               CALL MNC_CW_SET_UDIM('sice', 0, myThid)
50                 CALL MNC_CW_I_W_S('I','sice',0,0,'iter', myIter, myThid)
51               CALL MNC_CW_RL_W_S('D','sice',0,0,'model_time',               CALL MNC_CW_RL_W_S('D','sice',0,0,'model_time',
52       &            myTime,myThid)       &            myTime,myThid)
53               CALL MNC_CW_RL_W('D','sice',0,0,'UWIND',uwind,myThid)               CALL MNC_CW_RL_W('D','sice',0,0,'UWIND',uwind,myThid)
# Line 262  C      Normalize by integrated time Line 263  C      Normalize by integrated time
263  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
264         IF (useMNC .AND. SEAICE_tave_mnc) THEN         IF (useMNC .AND. SEAICE_tave_mnc) THEN
265           CALL MNC_CW_SET_UDIM('sice_tave', -1, myThid)           CALL MNC_CW_SET_UDIM('sice_tave', -1, myThid)
266           CALL MNC_CW_I_W_S('I','sice_tave',0,0,'T', myIter, myThid)           CALL MNC_CW_RL_W_S('D','sice_tave',0,0,'T', myTime, myThid)
267           CALL MNC_CW_SET_UDIM('sice_tave', 0, myThid)           CALL MNC_CW_SET_UDIM('sice_tave', 0, myThid)
268             CALL MNC_CW_I_W_S('I','sice_tave',0,0,'iter', myIter, myThid)
269           CALL MNC_CW_RL_W_S('D','sice_tave',0,0,'model_time',           CALL MNC_CW_RL_W_S('D','sice_tave',0,0,'model_time',
270       &        myTime,myThid)       &        myTime,myThid)
271           CALL MNC_CW_RL_W('R','sice_tave',0,0,           CALL MNC_CW_RL_W('R','sice_tave',0,0,
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22