/[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.4 by dimitri, Sat Dec 28 10:11:11 2002 UTC revision 1.5 by dimitri, Tue Feb 18 05:33:55 2003 UTC
# Line 117  c      CALL PLOT_FIELD_XYRS( uwind ,'Cur Line 117  c      CALL PLOT_FIELD_XYRS( uwind ,'Cur
117  c      CALL PLOT_FIELD_XYRS( vwind ,'Current vwind ' , myIter, myThid )  c      CALL PLOT_FIELD_XYRS( vwind ,'Current vwind ' , myIter, myThid )
118  c      CALL PLOT_FIELD_XYRS( atemp ,'Current atemp ' , myIter, myThid )  c      CALL PLOT_FIELD_XYRS( atemp ,'Current atemp ' , myIter, myThid )
119  c      CALL PLOT_FIELD_XYRS( aqh   ,'Current aqh '   , myIter, myThid )  c      CALL PLOT_FIELD_XYRS( aqh   ,'Current aqh '   , myIter, myThid )
120  c      CALL PLOT_FIELD_XYRS( lwflux,'Current lwflux ', myIter, myThid )  c      CALL PLOT_FIELD_XYRS( lwdown,'Current lwdown ', myIter, myThid )
121  c      CALL PLOT_FIELD_XYRS( swflux,'Current swflux ', 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.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22