/[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.3 by dimitri, Thu Dec 5 08:43:03 2002 UTC revision 1.5 by dimitri, Tue Feb 18 05:33:55 2003 UTC
# Line 113  C     == Local variables == Line 113  C     == Local variables ==
113              _BARRIER              _BARRIER
114    
115  #ifdef SEAICE_DEBUG  #ifdef SEAICE_DEBUG
116  c       CALL PLOT_FIELD_XYRS( gairx,'Current gairx ', myIter, myThid )  c      CALL PLOT_FIELD_XYRS( uwind ,'Current uwind ' , myIter, myThid )
117  c       CALL PLOT_FIELD_XYRS( gairy,'Current gairy ', myIter, myThid )  c      CALL PLOT_FIELD_XYRS( vwind ,'Current vwind ' , myIter, myThid )
118  c       CALL PLOT_FIELD_XYRS( tair ,'Current tair ' , myIter, myThid )  c      CALL PLOT_FIELD_XYRS( atemp ,'Current atemp ' , myIter, myThid )
119  c       CALL PLOT_FIELD_XYRS( qa   ,'Current qa '   , myIter, myThid )  c      CALL PLOT_FIELD_XYRS( aqh   ,'Current aqh '   , myIter, myThid )
120  c       CALL PLOT_FIELD_XYRS( flo  ,'Current flo '  , myIter, myThid )  c      CALL PLOT_FIELD_XYRS( lwdown,'Current lwdown ', myIter, myThid )
121  c       CALL PLOT_FIELD_XYRS( fsh  ,'Current fsh '  , myIter, myThid )  c      CALL PLOT_FIELD_XYRS( swdown,'Current swdown ', myIter, myThid )
122         CALL PLOT_FIELD_XYRL( fu   ,'Current fu '   , myIter, myThid )         CALL PLOT_FIELD_XYRL( fu    ,'Current fu '    , myIter, myThid )
123         CALL PLOT_FIELD_XYRL( fv   ,'Current fv '   , myIter, myThid )         CALL PLOT_FIELD_XYRL( fv    ,'Current fv '    , myIter, myThid )
124         CALL PLOT_FIELD_XYRL( Qnet ,'Current Qnet ' , myIter, myThid )         CALL PLOT_FIELD_XYRL( Qnet  ,'Current Qnet '  , myIter, myThid )
125  #endif SEAICE_DEBUG         CALL PLOT_FIELD_XYRL( evap  ,'Current evap '  , myIter, myThid )
126    #endif
127    
128           ENDIF           ENDIF
129        ENDIF        ENDIF
# Line 194  C      Normalize by integrated time Line 195  C      Normalize by integrated time
195         ENDDO         ENDDO
196    
197         WRITE(suff,'(I10.10)') myIter         WRITE(suff,'(I10.10)') myIter
198                 _BARRIER
199           _BEGIN_MASTER( myThid )
200         CALL WRITE_FLD_XY_RL('FUtave.'   ,suff,FUtave   ,myIter,myThid)         CALL WRITE_FLD_XY_RL('FUtave.'   ,suff,FUtave   ,myIter,myThid)
201         CALL WRITE_FLD_XY_RL('FVtave.'   ,suff,FVtave   ,myIter,myThid)         CALL WRITE_FLD_XY_RL('FVtave.'   ,suff,FVtave   ,myIter,myThid)
202         CALL WRITE_FLD_XY_RL('EmPmRtave.',suff,EmPmRtave,myIter,myThid)         CALL WRITE_FLD_XY_RL('EmPmRtave.',suff,EmPmRtave,myIter,myThid)
# Line 204  C      Normalize by integrated time Line 206  C      Normalize by integrated time
206         CALL WRITE_FLD_XY_RL('VICEtave.' ,suff,VICEtave ,myIter,myThid)         CALL WRITE_FLD_XY_RL('VICEtave.' ,suff,VICEtave ,myIter,myThid)
207         CALL WRITE_FLD_XY_RL('HEFFtave.' ,suff,HEFFtave ,myIter,myThid)         CALL WRITE_FLD_XY_RL('HEFFtave.' ,suff,HEFFtave ,myIter,myThid)
208         CALL WRITE_FLD_XY_RL('AREAtave.' ,suff,AREAtave ,myIter,myThid)         CALL WRITE_FLD_XY_RL('AREAtave.' ,suff,AREAtave ,myIter,myThid)
209           _END_MASTER( myThid )
210           _BARRIER
211                
212  C      Reset averages to zero  C      Reset averages to zero
213         DO bj = myByLo(myThid), myByHi(myThid)         DO bj = myByLo(myThid), myByHi(myThid)
# Line 227  C      Reset averages to zero Line 231  C      Reset averages to zero
231                
232  #endif /* ALLOW_TIMEAVE */  #endif /* ALLOW_TIMEAVE */
233    
234  #endif ALLOW_SEAICE  #endif /* ALLOW_SEAICE */
235                
236        RETURN        RETURN
237        END        END
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22