/[MITgcm]/MITgcm/pkg/ebm/ebm_load_climatology.F
ViewVC logotype

Diff of /MITgcm/pkg/ebm/ebm_load_climatology.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by jmc, Tue Sep 9 19:58:26 2008 UTC revision 1.3 by jmc, Tue Apr 28 18:11:51 2009 UTC
# Line 82  C          tauX  = -tauMax*cos(2. _d 0*P Line 82  C          tauX  = -tauMax*cos(2. _d 0*P
82         CALL READ_FLD_XY_RS( meridWindFile, ' ', fv, 0, myThid )         CALL READ_FLD_XY_RS( meridWindFile, ' ', fv, 0, myThid )
83        ENDIF        ENDIF
84    
85        _EXCH_XY_R4( SSS, myThid )        _EXCH_XY_RS( SSS, myThid )
86        _EXCH_XY_R4( SST, myThid )        _EXCH_XY_RS( SST, myThid )
87        _EXCH_XY_R4( Run, myThid )        _EXCH_XY_RS( Run, myThid )
88        CALL EXCH_UV_XY_RS( fu, fv, .TRUE., myThid )        CALL EXCH_UV_XY_RS( fu, fv, .TRUE., myThid )
89    
90        CALL PLOT_FIELD_XYRS( SST, 'Theta Climatology' , 1, myThid )        CALL PLOT_FIELD_XYRS( SST, 'Theta Climatology' , 1, myThid )
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22