/[MITgcm]/MITgcm/pkg/kpp/KPP_PARAMS.h
ViewVC logotype

Diff of /MITgcm/pkg/kpp/KPP_PARAMS.h

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

revision 1.10 by jmc, Wed Oct 20 21:54:17 2004 UTC revision 1.11 by dimitri, Thu Apr 19 04:51:59 2007 UTC
# Line 13  C of kpp routines even if ALLOW_KPP is n Line 13  C of kpp routines even if ALLOW_KPP is n
13  C     mdiff                  - number of diffusivities for local arrays  C     mdiff                  - number of diffusivities for local arrays
14  C     Nrm1, Nrp1, Nrp2       - number of vertical levels  C     Nrm1, Nrp1, Nrp2       - number of vertical levels
15  C     imt                    - array dimension for local arrays  C     imt                    - array dimension for local arrays
 C     ibot, itop, jbot, jtop - array dimension indices  
16    
17        integer    mdiff, Nrm1, Nrp1, Nrp2        integer    mdiff, Nrm1, Nrp1, Nrp2
18        integer    imt, ibot, itop, jbot, jtop        integer    imt
19        parameter( mdiff = 3    )        parameter( mdiff = 3    )
20        parameter( Nrm1  = Nr-1 )        parameter( Nrm1  = Nr-1 )
21        parameter( Nrp1  = Nr+1 )        parameter( Nrp1  = Nr+1 )
22        parameter( Nrp2  = Nr+2 )        parameter( Nrp2  = Nr+2 )
 #ifdef FRUGAL_KPP  
       parameter( imt=(sNx+2)*(sNy+2) )  
       parameter( ibot=0, itop=sNx+1, jbot=0, jtop=sNy+1 )  
 #else  
23        parameter( imt=(sNx+2*OLx)*(sNy+2*OLy) )        parameter( imt=(sNx+2*OLx)*(sNy+2*OLy) )
       parameter( ibot=1-OLx, itop=sNx+OLx, jbot=1-OLy, jtop=sNy+OLy )  
 #endif  
24    
25  #ifdef ALLOW_KPP  #ifdef ALLOW_KPP
26    
# Line 43  C     kpp_freq        - Re-computation f Line 36  C     kpp_freq        - Re-computation f
36  C     kpp_dumpFreq    - KPP dump frequency.                             (s)  C     kpp_dumpFreq    - KPP dump frequency.                             (s)
37  C     kpp_taveFreq    - KPP time-averaging frequency.                   (s)  C     kpp_taveFreq    - KPP time-averaging frequency.                   (s)
38    
   
39        INTEGER nzmax ( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy,     nSx, nSy )        INTEGER nzmax ( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy,     nSx, nSy )
40  c     _KPP_RL pMask ( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy, Nr, nSx, nSy )  c     _KPP_RL pMask ( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy, Nr, nSx, nSy )
41        _KPP_RL zgrid ( 0:Nr+1 )        _KPP_RL zgrid ( 0:Nr+1 )
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22