Ignore:
Timestamp:
2015-03-04T15:34:45+01:00 (6 years ago)
Author:
vancop
Message:

fixes to verify SETTE tests. Evt ok, except SAS (no solver) and ORCA_AGRIF_LIM (compiler crash)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_2/ice_2.F90

    r5058 r5122  
    3535   INTEGER , PUBLIC ::   nbiter      !: number of sub-time steps for relaxation 
    3636   INTEGER , PUBLIC ::   nbitdr      !: maximum number of iterations for relaxation 
    37    INTEGER , PUBLIC ::   nevp        !: number of EVP subcycling iterations 
     37   INTEGER , PUBLIC ::   nn_nevp     !: number of EVP subcycling iterations 
    3838   INTEGER , PUBLIC ::   telast      !: timescale for EVP elastic waves 
    3939   REAL(wp), PUBLIC ::   epsd        !: tolerance parameter for dynamic 
     
    4747   REAL(wp), PUBLIC ::   c_rhg       !: second bulk-rhelogy parameter 
    4848   REAL(wp), PUBLIC ::   etamn       !: minimun value for viscosity 
    49    REAL(wp), PUBLIC ::   creepl      !: creep limit 
    50    REAL(wp), PUBLIC ::   ecc         !: eccentricity of the elliptical yield curve 
     49   REAL(wp), PUBLIC ::   rn_creepl   !: creep limit 
     50   REAL(wp), PUBLIC ::   rn_ecc      !: eccentricity of the elliptical yield curve 
    5151   REAL(wp), PUBLIC ::   ahi0        !: sea-ice hor. eddy diffusivity coeff. (m2/s) 
    5252   REAL(wp), PUBLIC ::   alphaevp    !: coefficient for the solution of EVP int. stresses 
    5353 
    54    REAL(wp), PUBLIC ::   usecc2                !:  = 1.0 / ( ecc * ecc ) 
     54   REAL(wp), PUBLIC ::   usecc2                !:  = 1.0 / ( rn_ecc * rn_ecc ) 
    5555   REAL(wp), PUBLIC ::   rhoco                 !: = rau0 * cw 
    5656   REAL(wp), PUBLIC ::   sangvg, cangvg        !: sin and cos of the turning angle for ocean stress 
Note: See TracChangeset for help on using the changeset viewer.