/[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.16 by edhill, Thu Aug 11 02:50:12 2005 UTC revision 1.17 by edhill, Thu Sep 29 12:19:52 2005 UTC
# Line 36  C     == Local variables == Line 36  C     == Local variables ==
36        _RS arr(1-oLx:sNx+oLx,1-oLy:sNy+oLy,nSx,nSy)        _RS arr(1-oLx:sNx+oLx,1-oLy:sNy+oLy,nSx,nSy)
37        INTEGER thisdate(4), prevdate(4)        INTEGER thisdate(4), prevdate(4)
38        LOGICAL dumpFiles        LOGICAL dumpFiles
39                  CHARACTER*(1) pf
40    
41          IF ( writeBinaryPrec .EQ. precFloat64 ) THEN
42            pf(1:1) = 'D'
43          ELSE
44            pf(1:1) = 'R'
45          ENDIF
46          
47        IF (SEAICEwriteState) THEN        IF (SEAICEwriteState) THEN
48    
49          IF ( DIFFERENT_MULTIPLE(SEAICE_dumpFreq,myTime,deltaTClock)          IF ( DIFFERENT_MULTIPLE(SEAICE_dumpFreq,myTime,deltaTClock)
# Line 50  C     == Local variables == Line 57  C     == Local variables ==
57              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)
58              CALL MNC_CW_RL_W_S('D','sice',0,0,'model_time',              CALL MNC_CW_RL_W_S('D','sice',0,0,'model_time',
59       &           myTime,myThid)       &           myTime,myThid)
60              CALL MNC_CW_RS_W('D','sice',0,0,'si_UWIND',uwind,myThid)              CALL MNC_CW_RS_W(pf,'sice',0,0,'si_UWIND',uwind,myThid)
61              CALL MNC_CW_RS_W('D','sice',0,0,'si_VWIND',vwind,myThid)              CALL MNC_CW_RS_W(pf,'sice',0,0,'si_VWIND',vwind,myThid)
62              CALL MNC_CW_RS_W('D','sice',0,0,'fu',fu,myThid)              CALL MNC_CW_RS_W(pf,'sice',0,0,'fu',fu,myThid)
63              CALL MNC_CW_RS_W('D','sice',0,0,'fv',fv,myThid)              CALL MNC_CW_RS_W(pf,'sice',0,0,'fv',fv,myThid)
64              CALL MNC_CW_RS_W('D','sice',0,0,'EmPmR',EmPmR,myThid)              CALL MNC_CW_RS_W(pf,'sice',0,0,'EmPmR',EmPmR,myThid)
65              CALL MNC_CW_RS_W('D','sice',0,0,'Qnet',Qnet,myThid)              CALL MNC_CW_RS_W(pf,'sice',0,0,'Qnet',Qnet,myThid)
66              CALL MNC_CW_RS_W('D','sice',0,0,'Qsw',Qsw,myThid)              CALL MNC_CW_RS_W(pf,'sice',0,0,'Qsw',Qsw,myThid)
67            ENDIF            ENDIF
68  #endif  #endif
69            IF (SEAICE_dump_mdsio) THEN            IF (SEAICE_dump_mdsio) THEN
# Line 112  C     == Local variables == Line 119  C     == Local variables ==
119            ENDIF            ENDIF
120  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
121            IF ( useMNC .AND. SEAICE_dump_mnc ) THEN            IF ( useMNC .AND. SEAICE_dump_mnc ) THEN
122              CALL MNC_CW_RS_W('D','sice',0,0,'si_UICE',arr,myThid)              CALL MNC_CW_RS_W(pf,'sice',0,0,'si_UICE',arr,myThid)
123            ENDIF            ENDIF
124  #endif  #endif
125  #ifdef SEAICE_DEBUG  #ifdef SEAICE_DEBUG
# Line 139  C     == Local variables == Line 146  C     == Local variables ==
146            ENDIF            ENDIF
147  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
148            IF ( useMNC .AND. SEAICE_dump_mnc ) THEN            IF ( useMNC .AND. SEAICE_dump_mnc ) THEN
149              CALL MNC_CW_RS_W('D','sice',0,0,'si_VICE',arr,myThid)              CALL MNC_CW_RS_W(pf,'sice',0,0,'si_VICE',arr,myThid)
150            ENDIF            ENDIF
151  #endif  #endif
152  #ifdef SEAICE_DEBUG  #ifdef SEAICE_DEBUG
# Line 166  C     == Local variables == Line 173  C     == Local variables ==
173            ENDIF            ENDIF
174  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
175            IF ( useMNC .AND. SEAICE_dump_mnc ) THEN            IF ( useMNC .AND. SEAICE_dump_mnc ) THEN
176              CALL MNC_CW_RS_W('D','sice',0,0,'si_HEFF',arr,myThid)              CALL MNC_CW_RS_W(pf,'sice',0,0,'si_HEFF',arr,myThid)
177            ENDIF            ENDIF
178  #endif  #endif
179  #ifdef SEAICE_DEBUG  #ifdef SEAICE_DEBUG
# Line 193  C     == Local variables == Line 200  C     == Local variables ==
200            ENDIF            ENDIF
201  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
202            IF ( useMNC .AND. SEAICE_dump_mnc ) THEN            IF ( useMNC .AND. SEAICE_dump_mnc ) THEN
203              CALL MNC_CW_RS_W('D','sice',0,0,'si_AREA',arr,myThid)              CALL MNC_CW_RS_W(pf,'sice',0,0,'si_AREA',arr,myThid)
204            ENDIF            ENDIF
205  #endif  #endif
206  #ifdef SEAICE_DEBUG  #ifdef SEAICE_DEBUG
# Line 299  C      Normalize by integrated time Line 306  C      Normalize by integrated time
306           CALL MNC_CW_RL_W_S('D','sice_tave',0,0,'T', myTime, myThid)           CALL MNC_CW_RL_W_S('D','sice_tave',0,0,'T', myTime, myThid)
307           CALL MNC_CW_SET_UDIM('sice_tave', 0, myThid)           CALL MNC_CW_SET_UDIM('sice_tave', 0, myThid)
308           CALL MNC_CW_I_W_S('I','sice_tave',0,0,'iter', myIter, myThid)           CALL MNC_CW_I_W_S('I','sice_tave',0,0,'iter', myIter, myThid)
309           CALL MNC_CW_RL_W_S('D','sice_tave',0,0,'model_time',  C        CALL MNC_CW_RL_W_S('D','sice_tave',0,0,'model_time',
310       &        myTime,myThid)  C    &        myTime,myThid)
311           CALL MNC_CW_RL_W('R','sice_tave',0,0,           CALL MNC_CW_RL_W(pf,'sice_tave',0,0,
312       &        'si_UICEtave',UICEtave,myThid)       &        'si_UICEtave',UICEtave,myThid)
313           CALL MNC_CW_RL_W('R','sice_tave',0,0,           CALL MNC_CW_RL_W(pf,'sice_tave',0,0,
314       &        'si_VICEtave',VICEtave,myThid)       &        'si_VICEtave',VICEtave,myThid)
315           CALL MNC_CW_RL_W('R','sice_tave',0,0,           CALL MNC_CW_RL_W(pf,'sice_tave',0,0,
316       &        'si_FUtave',FUtave,myThid)       &        'si_FUtave',FUtave,myThid)
317           CALL MNC_CW_RL_W('R','sice_tave',0,0,           CALL MNC_CW_RL_W(pf,'sice_tave',0,0,
318       &        'si_FVtave',FVtave,myThid)       &        'si_FVtave',FVtave,myThid)
319           CALL MNC_CW_RL_W('R','sice_tave',0,0,           CALL MNC_CW_RL_W(pf,'sice_tave',0,0,
320       &        'si_EmPmRtave',EmPmRtave,myThid)       &        'si_EmPmRtave',EmPmRtave,myThid)
321           CALL MNC_CW_RL_W('R','sice_tave',0,0,           CALL MNC_CW_RL_W(pf,'sice_tave',0,0,
322       &        'si_QNETtave',QNETtave,myThid)       &        'si_QNETtave',QNETtave,myThid)
323           CALL MNC_CW_RL_W('R','sice_tave',0,0,           CALL MNC_CW_RL_W(pf,'sice_tave',0,0,
324       &        'si_QSWtave',QSWtave,myThid)       &        'si_QSWtave',QSWtave,myThid)
325           CALL MNC_CW_RL_W('R','sice_tave',0,0,           CALL MNC_CW_RL_W(pf,'sice_tave',0,0,
326       &        'si_HEFFtave',HEFFtave,myThid)       &        'si_HEFFtave',HEFFtave,myThid)
327           CALL MNC_CW_RL_W('R','sice_tave',0,0,           CALL MNC_CW_RL_W(pf,'sice_tave',0,0,
328       &        'si_AREAtave',AREAtave,myThid)       &        'si_AREAtave',AREAtave,myThid)
329         ENDIF         ENDIF
330  #endif  #endif
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22