/[MITgcm]/MITgcm/pkg/atm2d/cpl_send_ocn_fields.F
ViewVC logotype

Diff of /MITgcm/pkg/atm2d/cpl_send_ocn_fields.F

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

revision 1.1 by jscott, Wed Sep 6 15:32:39 2006 UTC revision 1.2 by jscott, Thu May 17 21:11:10 2007 UTC
# Line 55  C     Send sea-ice mass to ocean compone Line 55  C     Send sea-ice mass to ocean compone
55        CALL COUPSEND_R8TILES( ocnCompName, ocnSeaIceName,        CALL COUPSEND_R8TILES( ocnCompName, ocnSeaIceName,
56       I                       Nx_ocn, Ny_ocn, sIceMass_ocn )       I                       Nx_ocn, Ny_ocn, sIceMass_ocn )
57    
58          IF ( ocnCpl_exchange_DIC ) THEN
59    
60    C       Send atmos CO2 to ocean component
61            CALL COUPSEND_R8TILES( ocnCompName, ocnAirCO2Name,
62         I                       Nx_ocn, Ny_ocn, aCO2_ocn )
63    
64    C       Send surface windspeed to ocean component
65            CALL COUPSEND_R8TILES( ocnCompName, ocnWSpdName,
66         I                       Nx_ocn, Ny_ocn, wSpeed_ocn )
67    
68    C       Send sea-ice fraction to ocean component
69            CALL COUPSEND_R8TILES( ocnCompName, ocnFIceName,
70         I                       Nx_ocn, Ny_ocn, SIceFrac_ocn )
71    
72          ENDIF
73        
74        RETURN        RETURN
75        END        END
76    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22