/[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.14 by edhill, Wed May 25 04:03:10 2005 UTC revision 1.15 by edhill, Wed Aug 10 19:18:52 2005 UTC
# Line 50  C     == Local variables == Line 50  C     == Local variables ==
50               CALL MNC_CW_I_W_S('I','sice',0,0,'iter', myIter, myThid)               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,'si_UWIND',uwind,myThid)
54               CALL MNC_CW_RL_W('D','sice',0,0,'VWIND',vwind,myThid)               CALL MNC_CW_RL_W('D','sice',0,0,'si_VWIND',vwind,myThid)
55               CALL MNC_CW_RL_W('D','sice',0,0,'FU',fu,myThid)               CALL MNC_CW_RS_W('D','sice',0,0,'fu',fu,myThid)
56               CALL MNC_CW_RL_W('D','sice',0,0,'FV',fv,myThid)               CALL MNC_CW_RS_W('D','sice',0,0,'fv',fv,myThid)
57               CALL MNC_CW_RL_W('D','sice',0,0,'EmPmR',EmPmR,myThid)               CALL MNC_CW_RS_W('D','sice',0,0,'EmPmR',EmPmR,myThid)
58               CALL MNC_CW_RL_W('D','sice',0,0,'Qnet',Qnet,myThid)               CALL MNC_CW_RS_W('D','sice',0,0,'Qnet',Qnet,myThid)
59               CALL MNC_CW_RL_W('D','sice',0,0,'Qsw',Qsw,myThid)               CALL MNC_CW_RS_W('D','sice',0,0,'Qsw',Qsw,myThid)
60             ENDIF             ENDIF
61  #endif  #endif
62             IF (SEAICE_dump_mdsio) THEN             IF (SEAICE_dump_mdsio) THEN
# Line 269  C      Normalize by integrated time Line 269  C      Normalize by integrated time
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,
272       &        'UICEtave',UICEtave,myThid)       &        'si_UICEtave',UICEtave,myThid)
273           CALL MNC_CW_RL_W('R','sice_tave',0,0,           CALL MNC_CW_RL_W('R','sice_tave',0,0,
274       &        'VICEtave',VICEtave,myThid)       &        'si_VICEtave',VICEtave,myThid)
275           CALL MNC_CW_RL_W('R','sice_tave',0,0,           CALL MNC_CW_RL_W('R','sice_tave',0,0,
276       &        'FUtave',FUtave,myThid)       &        'si_FUtave',FUtave,myThid)
277           CALL MNC_CW_RL_W('R','sice_tave',0,0,           CALL MNC_CW_RL_W('R','sice_tave',0,0,
278       &        'FVtave',FVtave,myThid)       &        'si_FVtave',FVtave,myThid)
279           CALL MNC_CW_RL_W('R','sice_tave',0,0,           CALL MNC_CW_RL_W('R','sice_tave',0,0,
280       &        'EmPmRtave',EmPmRtave,myThid)       &        'si_EmPmRtave',EmPmRtave,myThid)
281           CALL MNC_CW_RL_W('R','sice_tave',0,0,           CALL MNC_CW_RL_W('R','sice_tave',0,0,
282       &        'QNETtave',QNETtave,myThid)       &        'si_QNETtave',QNETtave,myThid)
283           CALL MNC_CW_RL_W('R','sice_tave',0,0,           CALL MNC_CW_RL_W('R','sice_tave',0,0,
284       &        'QSWtave',QSWtave,myThid)       &        'si_QSWtave',QSWtave,myThid)
285           CALL MNC_CW_RL_W('R','sice_tave',0,0,           CALL MNC_CW_RL_W('R','sice_tave',0,0,
286       &        'HEFFtave',HEFFtave,myThid)       &        'si_HEFFtave',HEFFtave,myThid)
287           CALL MNC_CW_RL_W('R','sice_tave',0,0,           CALL MNC_CW_RL_W('R','sice_tave',0,0,
288       &        'AREAtave',AREAtave,myThid)       &        'si_AREAtave',AREAtave,myThid)
289         ENDIF         ENDIF
290  #endif  #endif
291         IF (SEAICE_tave_mdsio) THEN         IF (SEAICE_tave_mdsio) THEN
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22