/[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.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
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22