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

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

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

revision 1.5 by jmc, Mon Oct 1 13:35:34 2007 UTC revision 1.6 by jmc, Tue Apr 28 18:11:51 2009 UTC
# Line 339  c--   Pacific Line 339  c--   Pacific
339         ENDDO         ENDDO
340        ENDDO        ENDDO
341    
342        _EXCH_XY_R4(Qnet , myThid )        _EXCH_XY_RS(Qnet , myThid )
343        _EXCH_XY_R4(EmPmR , myThid )        _EXCH_XY_RS(EmPmR , myThid )
344                
345    
346  C      CALL PLOT_FIELD_XYRS( Qnet, 'Qnet' , 1, myThid )  C      CALL PLOT_FIELD_XYRS( Qnet, 'Qnet' , 1, myThid )
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22