/[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.5 by dimitri, Tue Feb 18 05:33:55 2003 UTC revision 1.6 by dimitri, Fri May 23 20:19:16 2003 UTC
# Line 44  C     == Local variables == Line 44  C     == Local variables ==
44              WRITE(suff,'(I10.10)') myIter              WRITE(suff,'(I10.10)') myIter
45              _BARRIER              _BARRIER
46              _BEGIN_MASTER( myThid )              _BEGIN_MASTER( myThid )
47                CALL WRITE_FLD_XY_RS( 'UWIND.',suff,uwind,myIter,myThid)
48                CALL WRITE_FLD_XY_RS( 'VWIND.',suff,vwind,myIter,myThid)
49              CALL WRITE_FLD_XY_RS( 'FU.',suff,fu,myIter,myThid)              CALL WRITE_FLD_XY_RS( 'FU.',suff,fu,myIter,myThid)
50              CALL WRITE_FLD_XY_RS( 'FV.',suff,fv,myIter,myThid)              CALL WRITE_FLD_XY_RS( 'FV.',suff,fv,myIter,myThid)
51              CALL WRITE_FLD_XY_RS( 'EmPmR.',suff,EmPmR,myIter,myThid)              CALL WRITE_FLD_XY_RS( 'EmPmR.',suff,EmPmR,myIter,myThid)
# Line 52  C     == Local variables == Line 54  C     == Local variables ==
54              _END_MASTER( myThid )              _END_MASTER( myThid )
55              _BARRIER              _BARRIER
56    
57    #ifdef SEAICE_DEBUG
58           CALL PLOT_FIELD_XYRS( uwind , 'Current uwind ', myIter, myThid )
59           CALL PLOT_FIELD_XYRS( vwind , 'Current vwind ', myIter, myThid )
60           CALL PLOT_FIELD_XYRS( atemp , 'Current atemp ', myIter, myThid )
61           CALL PLOT_FIELD_XYRS( aqh   , 'Current aqh   ', myIter, myThid )
62           CALL PLOT_FIELD_XYRS( lwdown, 'Current lwdown', myIter, myThid )
63           CALL PLOT_FIELD_XYRS( swdown, 'Current swdown', myIter, myThid )
64           CALL PLOT_FIELD_XYRS( precip, 'Current precip', myIter, myThid )
65           CALL PLOT_FIELD_XYRL( evap  , 'Current evap  ', myIter, myThid )
66           CALL PLOT_FIELD_XYRS( runoff, 'Current runoff', myIter, myThid )
67           CALL PLOT_FIELD_XYRS( SSS   , 'Current SSS   ', myIter, myThid )
68           CALL PLOT_FIELD_XYRS( SST   , 'Current SST   ', myIter, myThid )
69           CALL PLOT_FIELD_XYRL( fu    , 'Current fu    ', myIter, myThid )
70           CALL PLOT_FIELD_XYRL( fv    , 'Current fv    ', myIter, myThid )
71           CALL PLOT_FIELD_XYRL( EmPmR , 'Current EmPmR ', myIter, myThid )
72           CALL PLOT_FIELD_XYRL( Qnet  , 'Current Qnet  ', myIter, myThid )
73           CALL PLOT_FIELD_XYRL( Qsw   , 'Current Qsw   ', myIter, myThid )
74    #endif
75    
76              DO bj=myByLo(myThid),myByHi(myThid)              DO bj=myByLo(myThid),myByHi(myThid)
77                 DO bi=myBxLo(myThid),myBxHi(myThid)                 DO bi=myBxLo(myThid),myBxHi(myThid)
78                    DO j=1,sNy                    DO j=1,sNy
# Line 66  C     == Local variables == Line 87  C     == Local variables ==
87              CALL WRITE_FLD_XY_RS( 'UICE.',suff,arr,myIter,myThid)              CALL WRITE_FLD_XY_RS( 'UICE.',suff,arr,myIter,myThid)
88              _END_MASTER( myThid )              _END_MASTER( myThid )
89              _BARRIER              _BARRIER
90                #ifdef SEAICE_DEBUG
91           _EXCH_XY_R4( arr, myThid )
92           CALL PLOT_FIELD_XYRS( arr   , 'Current uice  ', myIter, myThid )
93    #endif
94    
95              DO bj=myByLo(myThid),myByHi(myThid)              DO bj=myByLo(myThid),myByHi(myThid)
96                 DO bi=myBxLo(myThid),myBxHi(myThid)                 DO bi=myBxLo(myThid),myBxHi(myThid)
97                    DO j=1,sNy                    DO j=1,sNy
# Line 81  C     == Local variables == Line 106  C     == Local variables ==
106              CALL WRITE_FLD_XY_RS( 'VICE.',suff,arr,myIter,myThid)              CALL WRITE_FLD_XY_RS( 'VICE.',suff,arr,myIter,myThid)
107              _END_MASTER( myThid )              _END_MASTER( myThid )
108              _BARRIER              _BARRIER
109    #ifdef SEAICE_DEBUG
110           _EXCH_XY_R4( arr, myThid )
111           CALL PLOT_FIELD_XYRS( arr   , 'Current vice  ', myIter, myThid )
112    #endif
113                            
114              DO bj=myByLo(myThid),myByHi(myThid)              DO bj=myByLo(myThid),myByHi(myThid)
115                 DO bi=myBxLo(myThid),myBxHi(myThid)                 DO bi=myBxLo(myThid),myBxHi(myThid)
# Line 96  C     == Local variables == Line 125  C     == Local variables ==
125              CALL WRITE_FLD_XY_RS( 'HEFF.',suff,arr,myIter,myThid)              CALL WRITE_FLD_XY_RS( 'HEFF.',suff,arr,myIter,myThid)
126              _END_MASTER( myThid )              _END_MASTER( myThid )
127              _BARRIER              _BARRIER
128    #ifdef SEAICE_DEBUG
129           _EXCH_XY_R4( arr, myThid )
130           CALL PLOT_FIELD_XYRS( arr   , 'Current heff  ', myIter, myThid )
131    #endif
132                            
133              DO bj=myByLo(myThid),myByHi(myThid)              DO bj=myByLo(myThid),myByHi(myThid)
134                 DO bi=myBxLo(myThid),myBxHi(myThid)                 DO bi=myBxLo(myThid),myBxHi(myThid)
# Line 111  C     == Local variables == Line 144  C     == Local variables ==
144              CALL WRITE_FLD_XY_RS( 'AREA.',suff,arr,myIter,myThid)              CALL WRITE_FLD_XY_RS( 'AREA.',suff,arr,myIter,myThid)
145              _END_MASTER( myThid )              _END_MASTER( myThid )
146              _BARRIER              _BARRIER
   
147  #ifdef SEAICE_DEBUG  #ifdef SEAICE_DEBUG
148  c      CALL PLOT_FIELD_XYRS( uwind ,'Current uwind ' , myIter, myThid )         _EXCH_XY_R4( arr, myThid )
149  c      CALL PLOT_FIELD_XYRS( vwind ,'Current vwind ' , myIter, myThid )         CALL PLOT_FIELD_XYRS( arr   , 'Current area  ', myIter, myThid )
 c      CALL PLOT_FIELD_XYRS( atemp ,'Current atemp ' , myIter, myThid )  
 c      CALL PLOT_FIELD_XYRS( aqh   ,'Current aqh '   , myIter, myThid )  
 c      CALL PLOT_FIELD_XYRS( lwdown,'Current lwdown ', myIter, myThid )  
 c      CALL PLOT_FIELD_XYRS( swdown,'Current swdown ', myIter, myThid )  
        CALL PLOT_FIELD_XYRL( fu    ,'Current fu '    , myIter, myThid )  
        CALL PLOT_FIELD_XYRL( fv    ,'Current fv '    , myIter, myThid )  
        CALL PLOT_FIELD_XYRL( Qnet  ,'Current Qnet '  , myIter, myThid )  
        CALL PLOT_FIELD_XYRL( evap  ,'Current evap '  , myIter, myThid )  
150  #endif  #endif
151    
152           ENDIF           ENDIF
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22