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

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

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

revision 1.3 by jscott, Thu Oct 4 14:51:07 2007 UTC revision 1.4 by jmc, Mon Oct 8 23:48:28 2007 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3    
4  #include "ctrparam.h"  #include "ctrparam.h"
5  #include "ATM2D_OPTIONS.h"  #include "ATM2D_OPTIONS.h"
6    
# Line 47  C     LOCAL VARIABLES: Line 50  C     LOCAL VARIABLES:
50  #ifdef ATM2D_MPI_ON  #ifdef ATM2D_MPI_ON
51    
52  C OCNVARS common set from ATM2D common  C OCNVARS common set from ATM2D common
53            atmSLPr_ocn(i,j)= pass_slp(i,j)            atmSLPr_ocn(i,j)= pass_slp(i,j)
54            HeatFlux_ocn(i,j)= pass_qnet(i,j)            HeatFlux_ocn(i,j)= pass_qnet(i,j)
55            qShortWave_ocn(i,j)= pass_solarnet(i,j)            qShortWave_ocn(i,j)= pass_solarnet(i,j)
56            TauX_ocn(i,j)= pass_fu(i,j)            TauX_ocn(i,j)= pass_fu(i,j)
57            TauY_ocn(i,j)= pass_fv(i,j)            TauY_ocn(i,j)= pass_fv(i,j)
58  C         convert FW to MITGCM units kg/m2/s for passing  C         convert FW to MITGCM units kg/m2/s for passing
59            FWFlux_ocn(i,j)= (pass_precip(i,j) + pass_evap(i,j)            FWFlux_ocn(i,j)= (pass_precip(i,j) + pass_evap(i,j)
60       &                     + pass_runoff(i,j)) * rhoConstFresh       &                     + pass_runoff(i,j)) * rhoConstFresh
61            SaltFlx_ocn(i,j) = sFluxFromIce(i,j)            SaltFlx_ocn(i,j) = sFluxFromIce(i,j)
62  #  ifdef ATMOSPHERIC_LOADING  #  ifdef ATMOSPHERIC_LOADING
# Line 68  C         convert FW to MITGCM units kg/ Line 71  C         convert FW to MITGCM units kg/
71  #else  #else
72  C FFIELDS.h common block set from ATM2D common  C FFIELDS.h common block set from ATM2D common
73    
74            pLoad(i,j,1,1)= pass_slp(i,j)            pLoad(i,j,1,1)= pass_slp(i,j)
75            Qnet(i,j,1,1)= pass_qnet(i,j)            Qnet(i,j,1,1)= pass_qnet(i,j)
76            Qsw(i,j,1,1)= pass_solarnet(i,j)            Qsw(i,j,1,1)= pass_solarnet(i,j)
77            fu(i,j,1,1)= pass_fu(i,j)            fu(i,j,1,1)= pass_fu(i,j)
78            fv(i,j,1,1)= pass_fv(i,j)            fv(i,j,1,1)= pass_fv(i,j)
79            EmPmR(i,j,1,1)= (pass_precip(i,j) + pass_evap(i,j)            EmPmR(i,j,1,1)= (pass_precip(i,j) + pass_evap(i,j)
80       &                     + pass_runoff(i,j)) * rhoConstFresh       &                     + pass_runoff(i,j)) * rhoConstFresh
81            saltFlux(i,j,1,1)= sFluxFromIce(i,j)            saltFlux(i,j,1,1)= sFluxFromIce(i,j)
82    
# Line 93  C     &                 + gravity*seaIce Line 96  C     &                 + gravity*seaIce
96    
97  #  ifdef ALLOW_DIC  #  ifdef ALLOW_DIC
98  C          icemask should be imported in DIC code  C          icemask should be imported in DIC code
99             AtmospCO2(i,j,1,1)=  pass_pCO2(i,j)               AtmospCO2(i,j,1,1)=  pass_pCO2(i,j)
100             wind(i,j,1,1)= pass_wspeed(i,j)             wind(i,j,1,1)= pass_wspeed(i,j)
101             _EXCH_XY_R4(AtmospCO2 ,  myThid )             _EXCH_XY_R4(AtmospCO2 ,  myThid )
102             _EXCH_XY_R4(wind ,  myThid )             _EXCH_XY_R4(wind ,  myThid )
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22