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

Diff of /MITgcm_contrib/jscott/pkg_atm2d/calc_zonal_means.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:49 2006 UTC revision 1.3 by jscott, Tue May 1 19:38:47 2007 UTC
# Line 5  C     !INTERFACE: Line 5  C     !INTERFACE:
5        SUBROUTINE CALC_ZONAL_MEANS(doAll,myThid )        SUBROUTINE CALC_ZONAL_MEANS(doAll,myThid )
6  C     *==========================================================*  C     *==========================================================*
7  C     | Calculate zonal mean ocean quantities (at a specific     |  C     | Calculate zonal mean ocean quantities (at a specific     |
8  c     | point in time)                                           |  C     | point in time). If first argument is false, only seaice  |
9    C     | means are calculated, i.e. called after an atm timestep. |
10  C     *==========================================================*  C     *==========================================================*
11          IMPLICIT NONE          IMPLICIT NONE
12    
13  C     === Global Atmosphere Variables ===  C     === Global Atmosphere Variables ===
14  #include "ATMSIZE.h"  #include "ATMSIZE.h"
15  #include "AGRID.COM"  #include "AGRID.h"
16    
17  C     === Global Ocean Variables ===  C     === Global Ocean Variables ===
18  #include "SIZE.h"  #include "SIZE.h"
# Line 26  C     === Atmos/Ocean/Seaice Interface V Line 27  C     === Atmos/Ocean/Seaice Interface V
27    
28  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
29  C     === Routine arguments ===  C     === Routine arguments ===
30    C     doAll   - boolean, false -> only vars changed after atm step
31  C     myThid  - Thread no. that called this routine.  C     myThid  - Thread no. that called this routine.
32        LOGICAL doAll     !if false, only vars changed after atm step        LOGICAL doAll
33        INTEGER myThid        INTEGER myThid
34    
35  C     LOCAL VARIABLES:  C     LOCAL VARIABLES:
36        _RL mWgt        _RL mWgt       ! weight of ocean point j+1
37        INTEGER i,j,j_atm        INTEGER i,j    ! loop counters for the ocean grid
38          INTEGER j_atm  ! loop counter for the atm grid
39    
40        DO j_atm=1,jm0        DO j_atm=1,jm0
41          IF (doAll) THEN          IF (doAll) THEN
# Line 104  C     LOCAL VARIABLES: Line 107  C     LOCAL VARIABLES:
107    
108          ENDIF          ENDIF
109                
110  C       At present, keeping separate variables in AGRID.COM and ATM2D_VARS.h  C       At present, keeping separate variables in AGRID.h and ATM2D_VARS.h
111    
112          IF (doALL) THEN          IF (doALL) THEN
113            mmsst(j_atm)= ctocn(j_atm)            mmsst(j_atm)= ctocn(j_atm)
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22