/[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.2 by heimbach, Tue Nov 12 20:47:27 2002 UTC revision 1.4 by dimitri, Sat Dec 28 10:11:11 2002 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( lwflux,'Current lwflux ', myIter, myThid )
121  c       CALL PLOT_FIELD_XYRS( fsh  ,'Current fsh '  , myIter, myThid )  c      CALL PLOT_FIELD_XYRS( swflux,'Current swflux ', 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  #endif SEAICE_DEBUG
126    
127           ENDIF           ENDIF
# Line 218  C      Reset averages to zero Line 218  C      Reset averages to zero
218           CALL TIMEAVE_RESET(HEFFtave ,1,bi,bj,myThid)           CALL TIMEAVE_RESET(HEFFtave ,1,bi,bj,myThid)
219           CALL TIMEAVE_RESET(AREAtave ,1,bi,bj,myThid)           CALL TIMEAVE_RESET(AREAtave ,1,bi,bj,myThid)
220           DO k=1,Nr           DO k=1,Nr
221            SEAICE_TimeAve(k,bi,bj)=0.            SEAICE_TimeAve(k,bi,bj)=ZERO
222           ENDDO           ENDDO
223          ENDDO          ENDDO
224         ENDDO         ENDDO
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22