/[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.2 by jscott, Thu May 17 21:11:10 2007 UTC revision 1.3 by jmc, Mon Oct 8 23:48:28 2007 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3    
4  #include "ATM2D_OPTIONS.h"  #include "ATM2D_OPTIONS.h"
5  #ifdef ATM2D_MPI_ON  #ifdef ATM2D_MPI_ON
6    
# Line 24  C     == Local variables == Line 27  C     == Local variables ==
27  CEndOfInterface  CEndOfInterface
28    
29  C     Send Sea Level atmos. pressure to ocean component  C     Send Sea Level atmos. pressure to ocean component
30        CALL COUPSEND_R8TILES( ocnCompName, ocnSLPrName,        CALL COUPSEND_R8TILES( ocnCompName, ocnSLPrName,
31       I                       Nx_ocn, Ny_ocn, atmSLPr_ocn )       I                       Nx_ocn, Ny_ocn, atmSLPr_ocn )
32    
33  C     Send (net) heatflux. to ocean component  C     Send (net) heatflux. to ocean component
34        CALL COUPSEND_R8TILES( ocnCompName, ocnHeatFluxName,        CALL COUPSEND_R8TILES( ocnCompName, ocnHeatFluxName,
35       I                       Nx_ocn, Ny_ocn, HeatFlux_ocn )       I                       Nx_ocn, Ny_ocn, HeatFlux_ocn )
36    
37  C     Send net shortwave radiation to ocean component  C     Send net shortwave radiation to ocean component
38        CALL COUPSEND_R8TILES( ocnCompName, ocnQshortWaveName,        CALL COUPSEND_R8TILES( ocnCompName, ocnQshortWaveName,
39       I                       Nx_ocn, Ny_ocn, qShortWave_ocn )       I                       Nx_ocn, Ny_ocn, qShortWave_ocn )
40    
41  C     Send Zonal momentum flux to ocean component  C     Send Zonal momentum flux to ocean component
42        CALL COUPSEND_R8TILES( ocnCompName, ocnTauXName,        CALL COUPSEND_R8TILES( ocnCompName, ocnTauXName,
43       I                       Nx_ocn, Ny_ocn, TauX_ocn )       I                       Nx_ocn, Ny_ocn, TauX_ocn )
44    
45  C     Send Meridional momentum flux to ocean component  C     Send Meridional momentum flux to ocean component
46        CALL COUPSEND_R8TILES( ocnCompName, ocnTauYName,        CALL COUPSEND_R8TILES( ocnCompName, ocnTauYName,
47       I                       Nx_ocn, Ny_ocn, TauY_ocn )       I                       Nx_ocn, Ny_ocn, TauY_ocn )
48    
49  C     Send E-P-R to ocean component  C     Send E-P-R to ocean component
50        CALL COUPSEND_R8TILES( ocnCompName, ocnFWFluxName,        CALL COUPSEND_R8TILES( ocnCompName, ocnFWFluxName,
51       I                       Nx_ocn, Ny_ocn, FWFlux_ocn )       I                       Nx_ocn, Ny_ocn, FWFlux_ocn )
52    
53  C     Send salt flux to ocean component  C     Send salt flux to ocean component
54        CALL COUPSEND_R8TILES( ocnCompName, ocnSaltFxName,        CALL COUPSEND_R8TILES( ocnCompName, ocnSaltFxName,
55       I                       Nx_ocn, Ny_ocn, SaltFlx_ocn )       I                       Nx_ocn, Ny_ocn, SaltFlx_ocn )
56    
57  C     Send sea-ice mass to ocean component  C     Send sea-ice mass to ocean component
58        CALL COUPSEND_R8TILES( ocnCompName, ocnSeaIceName,        CALL COUPSEND_R8TILES( ocnCompName, ocnSeaIceName,
59       I                       Nx_ocn, Ny_ocn, sIceMass_ocn )       I                       Nx_ocn, Ny_ocn, sIceMass_ocn )
60    
61        IF ( ocnCpl_exchange_DIC ) THEN        IF ( ocnCpl_exchange_DIC ) THEN
62    
63  C       Send atmos CO2 to ocean component  C       Send atmos CO2 to ocean component
64          CALL COUPSEND_R8TILES( ocnCompName, ocnAirCO2Name,          CALL COUPSEND_R8TILES( ocnCompName, ocnAirCO2Name,
65       I                       Nx_ocn, Ny_ocn, aCO2_ocn )       I                       Nx_ocn, Ny_ocn, aCO2_ocn )
66    
67  C       Send surface windspeed to ocean component  C       Send surface windspeed to ocean component
68          CALL COUPSEND_R8TILES( ocnCompName, ocnWSpdName,          CALL COUPSEND_R8TILES( ocnCompName, ocnWSpdName,
69       I                       Nx_ocn, Ny_ocn, wSpeed_ocn )       I                       Nx_ocn, Ny_ocn, wSpeed_ocn )
70    
71  C       Send sea-ice fraction to ocean component  C       Send sea-ice fraction to ocean component
72          CALL COUPSEND_R8TILES( ocnCompName, ocnFIceName,          CALL COUPSEND_R8TILES( ocnCompName, ocnFIceName,
73       I                       Nx_ocn, Ny_ocn, SIceFrac_ocn )       I                       Nx_ocn, Ny_ocn, SIceFrac_ocn )
74    
75        ENDIF        ENDIF
76        
77        RETURN        RETURN
78        END        END
79    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22