/[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.4 by jmc, Mon Oct 8 23:48:28 2007 UTC revision 1.6 by jscott, Fri Apr 30 20:25:59 2010 UTC
# Line 28  C     === Global Atmosphere Variables == Line 28  C     === Global Atmosphere Variables ==
28  #  include "FFIELDS.h"  #  include "FFIELDS.h"
29  #  include "SURFACE.h"  #  include "SURFACE.h"
30  #  ifdef ALLOW_DIC  #  ifdef ALLOW_DIC
31  #    include "DIC_ABIOTIC.h"  #    include "DIC_VARS.h"
32  #  endif  #  endif
33  #endif  #endif
34    
# Line 81  C FFIELDS.h common block set from ATM2D Line 81  C FFIELDS.h common block set from ATM2D
81            saltFlux(i,j,1,1)= sFluxFromIce(i,j)            saltFlux(i,j,1,1)= sFluxFromIce(i,j)
82    
83            CALL EXCH_UV_XY_RS(fu,fv,.TRUE.,myThid)            CALL EXCH_UV_XY_RS(fu,fv,.TRUE.,myThid)
84            _EXCH_XY_R4(EmPmR, myThid )   !for NL Free surf?            _EXCH_XY_RS(EmPmR, myThid )   !for NL Free surf?
85            _EXCH_XY_R4(saltFlux, myThid )            _EXCH_XY_RS(saltFlux, myThid )
86            _EXCH_XY_R4(Qnet, myThid )            _EXCH_XY_RS(Qnet, myThid )
87            _EXCH_XY_R4(Qsw, myThid )            _EXCH_XY_RS(Qsw, myThid )
88    
89  #  ifdef ATMOSPHERIC_LOADING  #  ifdef ATMOSPHERIC_LOADING
90            sIceLoad(i,j,1,1) = pass_sIceLoad(i,j)            sIceLoad(i,j,1,1) = pass_sIceLoad(i,j)
91            _EXCH_XY_R4(pLoad, myThid )            _EXCH_XY_RS(pLoad, myThid )
92            _EXCH_XY_R4( sIceLoad, myThid )            _EXCH_XY_RS( sIceLoad, myThid )
93  C          phi0surf(i,j,1,1) = pass_slp(i,j)*recip_rhoConst  C          phi0surf(i,j,1,1) = pass_slp(i,j)*recip_rhoConst
94  C     &                 + gravity*seaIceMass(i,j,1,1)*recip_rhoConst  C     &                 + gravity*seaIceMass(i,j,1,1)*recip_rhoConst
95  #  endif /* ATMOSPHERIC_LOADING */  #  endif /* ATMOSPHERIC_LOADING */
# Line 98  C     &                 + gravity*seaIce Line 98  C     &                 + gravity*seaIce
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_RL(AtmospCO2 ,  myThid )
102             _EXCH_XY_R4(wind ,  myThid )             _EXCH_XY_RL(wind ,  myThid )
103  #  endif /* ALLOW_DIC */  #  endif /* ALLOW_DIC */
104    
105  #endif /* ATM2D_MPI_ON */  #endif /* ATM2D_MPI_ON */
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22