/[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.11 by dimitri, Thu Apr 19 04:51:59 2007 UTC revision 1.12 by dimitri, Mon Apr 23 21:09:19 2007 UTC
# Line 37  C     kpp_dumpFreq    - KPP dump frequen Line 37  C     kpp_dumpFreq    - KPP dump frequen
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     _RL pMask     ( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy, Nr, nSx, nSy )
41        _KPP_RL zgrid ( 0:Nr+1 )        _RL zgrid     ( 0:Nr+1 )
42        _KPP_RL hwide ( 0:Nr+1 )        _RL hwide     ( 0:Nr+1 )
43        _RL kpp_freq        _RL kpp_freq
44        _RL kpp_dumpFreq        _RL kpp_dumpFreq
45        _RL kpp_taveFreq        _RL kpp_taveFreq
# Line 67  C Line 67  C
67  C-----------------------------------------------------------------------  C-----------------------------------------------------------------------
68    
69        LOGICAL KPPmixingMaps, KPPwriteState, KPP_ghatUseTotalDiffus        LOGICAL KPPmixingMaps, KPPwriteState, KPP_ghatUseTotalDiffus
   
70        COMMON /KPP_PARM_L/        COMMON /KPP_PARM_L/
71       &        KPPmixingMaps, KPPwriteState, KPP_ghatUseTotalDiffus       &        KPPmixingMaps, KPPwriteState, KPP_ghatUseTotalDiffus
72    
73        _KPP_RL minKPPhbl        _RL                 minKPPhbl
74          COMMON /KPP_PARM_R/ minKPPhbl
       COMMON /KPP_PARM_R/  
      &        minKPPhbl  
75    
76  c======================  file "kmixcom.h" =======================  c======================  file "kmixcom.h" =======================
77  c  c
# Line 96  c     conc1,conam,concm,conc2,zetam,cona Line 93  c     conc1,conam,concm,conc2,zetam,cona
93  c             = scalar coefficients  c             = scalar coefficients
94  c-----------------------------------------------------------------------  c-----------------------------------------------------------------------
95    
96        _KPP_RL          epsln,phepsi,epsilon,vonk,dB_dz,        _RL              epsln,phepsi,epsilon,vonk,dB_dz,
97       $                 conc1,       $                 conc1,
98       $                 conam,concm,conc2,zetam,       $                 conam,concm,conc2,zetam,
99       $                 conas,concs,conc3,zetas       $                 conas,concs,conc3,zetas
# Line 125  c               scale of turbulant veloc Line 122  c               scale of turbulant veloc
122  c               (=function of concv,concs,epsilon,vonk,Ricr)  c               (=function of concv,concs,epsilon,vonk,Ricr)
123  c-----------------------------------------------------------------------  c-----------------------------------------------------------------------
124    
125        _KPP_RL               Ricr,cekman,cmonob,concv,Vtc        _RL                   Ricr,cekman,cmonob,concv,Vtc
126        _RL                   hbf        _RL                   hbf
127    
128        common /kpp_bldepth1/ Ricr,cekman,cmonob,concv,Vtc        common /kpp_bldepth1/ Ricr,cekman,cmonob,concv,Vtc
# Line 156  c--------------------------------------- Line 153  c---------------------------------------
153        integer    nni      , nnj        integer    nni      , nnj
154        parameter (nni = 890, nnj = 480)        parameter (nni = 890, nnj = 480)
155    
156        _KPP_RL          wmt(0:nni+1,0:nnj+1), wst(0:nni+1,0:nnj+1)        _RL              wmt(0:nni+1,0:nnj+1), wst(0:nni+1,0:nnj+1)
157        _KPP_RL          deltaz,deltau,zmin,zmax,umin,umax        _RL              deltaz,deltau,zmin,zmax,umin,umax
158        common /kmixcws/ wmt, wst        common /kmixcws/ wmt, wst
159       $               , deltaz,deltau,zmin,zmax,umin,umax       $               , deltaz,deltau,zmin,zmax,umin,umax
160    
# Line 180  c     difscon = tracer diffusivity .. Line 177  c     difscon = tracer diffusivity ..
177  c     diftcon = heat diffusivity ..                                 (m^2/s)  c     diftcon = heat diffusivity ..                                 (m^2/s)
178  c-----------------------------------------------------------------------  c-----------------------------------------------------------------------
179    
180        INTEGER num_v_smooth_Ri, num_v_smooth_BV        INTEGER            num_v_smooth_Ri, num_v_smooth_BV
181        INTEGER num_z_smooth_sh, num_m_smooth_sh        INTEGER            num_z_smooth_sh, num_m_smooth_sh
       _KPP_RL Riinfty, BVSQcon  
       _KPP_RL difm0  , difs0  , dift0  
       _KPP_RL difmcon, difscon, diftcon  
   
182        COMMON /kmixcri_i/ num_v_smooth_Ri, num_v_smooth_BV        COMMON /kmixcri_i/ num_v_smooth_Ri, num_v_smooth_BV
183       1                 , num_z_smooth_sh, num_m_smooth_sh       1                 , num_z_smooth_sh, num_m_smooth_sh
184    
185          _RL                Riinfty, BVSQcon
186          _RL                difm0  , difs0  , dift0
187          _RL                difmcon, difscon, diftcon
188        COMMON /kmixcri_r/ Riinfty, BVSQcon        COMMON /kmixcri_r/ Riinfty, BVSQcon
189       1                 , difm0, difs0, dift0       1                 , difm0, difs0, dift0
190       2                 , difmcon, difscon, diftcon       2                 , difmcon, difscon, diftcon
# Line 203  c     Rrho0   = limit for double diffusi Line 199  c     Rrho0   = limit for double diffusi
199  c     dsfmax  = maximum diffusivity in case of salt fingering (m2/s)  c     dsfmax  = maximum diffusivity in case of salt fingering (m2/s)
200  c-----------------------------------------------------------------------  c-----------------------------------------------------------------------
201    
202        _KPP_RL          Rrho0, dsfmax        _RL              Rrho0, dsfmax
203        common /kmixcdd/ Rrho0, dsfmax        common /kmixcdd/ Rrho0, dsfmax
204    
205  c-----------------------------------------------------------------------  c-----------------------------------------------------------------------
# Line 216  c     cstar   = proportionality coeffici Line 212  c     cstar   = proportionality coeffici
212  c     cg      = non-dimensional coefficient for counter-gradient term  c     cg      = non-dimensional coefficient for counter-gradient term
213  c-----------------------------------------------------------------------  c-----------------------------------------------------------------------
214    
215        _KPP_RL          cstar, cg        _RL              cstar, cg
   
216        common /kmixcbm/ cstar, cg        common /kmixcbm/ cstar, cg
217    
218  #endif /* ALLOW_KPP */  #endif /* ALLOW_KPP */
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22