/[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.2 by jscott, Tue Aug 22 20:21:38 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    
# 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
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22