/[MITgcm]/MITgcm_contrib/jscott/pkg_atm2d/get_ocnvars.F
ViewVC logotype

Diff of /MITgcm_contrib/jscott/pkg_atm2d/get_ocnvars.F

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

revision 1.1 by jscott, Fri Aug 11 18:55:50 2006 UTC revision 1.2 by jscott, Tue Aug 22 20:21:39 2006 UTC
# Line 16  C     === Global Atmosphere Variables == Line 16  C     === Global Atmosphere Variables ==
16  #include "THSICE_VARS.h"  #include "THSICE_VARS.h"
17  #include "ATM2D_VARS.h"  #include "ATM2D_VARS.h"
18    
19  #ifdef MPI_ON  #ifdef ATM2D_MPI_ON
20  #  include "OCNSIZE.h"  #  include "OCNSIZE.h"
21  #  include "OCNVARS.h"  #  include "OCNVARS.h"
22  #else  #else
# Line 45  C presuming ocnsize.h same as size.h Line 45  C presuming ocnsize.h same as size.h
45          DO i=1,sNx          DO i=1,sNx
46            sstFromOcn(i,j)= SST_ocn(i,j)            sstFromOcn(i,j)= SST_ocn(i,j)
47            sssFromOcn(i,j)= SSS_ocn(i,j)            sssFromOcn(i,j)= SSS_ocn(i,j)
48            mlDepth(i,j) = OcMx1D_ocn(i,j)            mlDepth(i,j) = OcMxlD_ocn(i,j)
49  C         fluxCO2(i,j) = new variable passed  C         fluxCO2(i,j) = new variable passed
50    
51  C Put in seaice common block  C Put in seaice common block
52            tOceMxl(i,j,1,1)= sst(i,j)            tOceMxl(i,j,1,1)= SST_ocn(i,j)
53            sOceMxl(i,j,1,1)= sss(i,j)            sOceMxl(i,j,1,1)= SSS_ocn(i,j)
54            hOceMxl(i,j,1,1) = mlDepth(i,j)            hOceMxl(i,j,1,1) = OcMxlD_ocn(i,j)
55            v2ocMxL(i,j,1,1) =  vSq_ocn(i,j)            v2ocMxL(i,j,1,1) =  vSq_ocn(i,j)
56          ENDDO          ENDDO
57        ENDDO        ENDDO
# Line 128  C         v2ocMxL(i,j,1,1) =  velSq(i,j) Line 128  C         v2ocMxL(i,j,1,1) =  velSq(i,j)
128                    
129  #endif  #endif
130    
131        PRINT *,'After ocean step, sst,sss:', theta(JBUGI,JBUGJ,1,1,1),  C      PRINT *,'After ocean step, sst,sss:', theta(JBUGI,JBUGJ,1,1,1),
132       &         salt(JBUGI,JBUGJ,1,1,1)  C     &         salt(JBUGI,JBUGJ,1,1,1)
133        PRINT *,'***get_ocnvars, before ice thicken/extend'        PRINT *,'***get_ocnvars, before ice thicken/extend'
134        PRINT *,'Icemask: ',icemask(JBUGI,JBUGJ,1,1)        PRINT *,'Icemask: ',icemask(JBUGI,JBUGJ,1,1)
135        PRINT *,'Iceheight: ',iceheight(JBUGI,JBUGJ,1,1)        PRINT *,'Iceheight: ',iceheight(JBUGI,JBUGJ,1,1)
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22