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

Diff of /MITgcm_contrib/jscott/pkg_atm2d/put_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 May 1 19:38:47 2007 UTC
# Line 4  Line 4 
4  C     !INTERFACE:  C     !INTERFACE:
5        SUBROUTINE PUT_OCNVARS(  myTime, myIter, myThid )        SUBROUTINE PUT_OCNVARS(  myTime, myIter, myThid )
6  C     *==========================================================*  C     *==========================================================*
7  C     | |  C     | Put fluxes for the ocean where needed: MPI mode, into    |
8  c     | |  c     | common block for passing; single-proc, into FFIELDS.h    |
9  C     *==========================================================*  C     *==========================================================*
10          IMPLICIT NONE          IMPLICIT NONE
11    
# Line 15  C     === Global Atmosphere Variables == Line 15  C     === Global Atmosphere Variables ==
15  #include "EEPARAMS.h"  #include "EEPARAMS.h"
16  #include "ATM2D_VARS.h"  #include "ATM2D_VARS.h"
17    
18  Cnext line debugging only  #ifdef ATM2D_MPI_ON
 #include "THSICE_VARS.h"  
   
 #ifdef MPI_ON  
19  #  include "OCNSIZE.h"  #  include "OCNSIZE.h"
20  #  include "OCNVARS.h"  #  include "OCNVARS.h"
21  #else  #else
# Line 39  C     myThid - Thread no. that called th Line 36  C     myThid - Thread no. that called th
36  C     LOCAL VARIABLES:  C     LOCAL VARIABLES:
37        INTEGER i,j        INTEGER i,j
38    
39  #ifdef MPI_ON  #ifdef ATM2D_MPI_ON
40        DO j=1,sNy        DO j=1,sNy
41          DO i=1,sNx          DO i=1,sNx
42    
# Line 76  C          _EXCH_XY_R4(pLoad, myThid ) Line 73  C          _EXCH_XY_R4(pLoad, myThid )
73            _EXCH_XY_R4(EmPmR, myThid )   !for NL Free surf?            _EXCH_XY_R4(EmPmR, myThid )   !for NL Free surf?
74    
75  #  ifdef ATMOSPHERIC_LOADING  #  ifdef ATMOSPHERIC_LOADING
76  Cjrs ask J-M  Cjrs ask J-M about this
77  C              phi0surf(i,j,1,1) = pass_slp(i,j)*recip_rhoConst  C              phi0surf(i,j,1,1) = pass_slp(i,j)*recip_rhoConst
78  C     &                 + gravity*seaIceMass(i,j,1,1)*recip_rhoConst  C     &                 + gravity*seaIceMass(i,j,1,1)*recip_rhoConst
79  #  endif /* ATMOSPHERIC_LOADING */  #  endif /* ATMOSPHERIC_LOADING */
# Line 88  C need to pass wspeed and pCO2 Line 85  C need to pass wspeed and pCO2
85        ENDDO        ENDDO
86    
87  #endif  #endif
88        PRINT *,'***After seaice thicken/extend'  
89        PRINT *,'Icemask: ',icemask(JBUGI,JBUGJ,1,1)  C      PRINT *,'***After seaice thicken/extend'
90        PRINT *,'Iceheight: ',iceheight(JBUGI,JBUGJ,1,1)  C      PRINT *,'pass_runoff:',pass_runoff(JBUGI,JBUGJ)
91        PRINT *,'pass_runoff:',pass_runoff(JBUGI,JBUGJ)  C      PRINT *,'pass_precip:',pass_precip(JBUGI,JBUGJ)
92        PRINT *,'pass_precip:',pass_precip(JBUGI,JBUGJ)  C      PRINT *,'pass_evap:', pass_evap(JBUGI,JBUGJ)
93        PRINT *,'pass_evap:', pass_evap(JBUGI,JBUGJ)  C      PRINT *,'pass_qnet:',pass_qnet(JBUGI,JBUGJ)
94        PRINT *,'pass_qnet:',pass_qnet(JBUGI,JBUGJ)  C      PRINT *,'pass_fu:',pass_fu(JBUGI,JBUGJ)
95        PRINT *,'pass_fu:',pass_fu(JBUGI,JBUGJ)  C      PRINT *,'sFluxFromIce:',sFluxFromIce(JBUGI,JBUGJ)
96        PRINT *,'sFluxFromIce:',sFluxFromIce(JBUGI,JBUGJ)  C      PRINT *,'slp:',pass_slp(JBUGI,JBUGJ)
       PRINT *,'slp:',pass_slp(JBUGI,JBUGJ)  
97    
98        RETURN        RETURN
99        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22