Changeset 3918


Ignore:
Timestamp:
06/15/18 14:06:03 (2 years ago)
Author:
omamce
Message:

O.M. : change espfrac from fortran parameter to parameter read in run.def

Location:
TOOLS/MOZAIC/src/MOZAIC
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • TOOLS/MOZAIC/src/MOZAIC/dimension.f90

    r3326 r3918  
    1717   INTEGER (kind=il)   :: jpon   !< Global (1D) dimensions 
    1818   !! 
     19   REAL (kind=rl) :: epsfrac = 1.0E-10_rl  !< Min fraction of sea acceptable. To check : should be compatible with EPSFRA in LMDZ ? 
    1920   ! 
    2021   INTEGER (kind=il) :: jpoe !< Number (maxi) of edges to describe ocean box 
     
    2324   LOGICAL :: lmasko=.FALSE.  !< If TRUE, masked points of oceanic     grid (land) are considered for computing. 
    2425   LOGICAL :: l_recalc_o = .TRUE. !< Recalcule des surfaces ocean 
     26   CHARACTER (len=280) :: c_oce_msk_file = 'NONE' 
    2527   !! 
    2628   INTEGER (kind=il) :: jpai, jpait, jpaiu, jpaiv !< Dimensions atmosphere X 
  • TOOLS/MOZAIC/src/MOZAIC/inipar.f90

    r3326 r3918  
    136136      l_recalc_o = .TRUE. 
    137137      CALL getin ('l_recalc_o', l_recalc_o) 
    138       WRITE (unit=nout, fmt=*) 'l_recalc_o = ', l_recalc_o  
     138      WRITE (unit=nout, fmt=*) 'l_recalc_o = ', l_recalc_o 
     139      !Config Key  = c_oce_msk_file 
     140      !Config Desc = File containing basin mask for ocean 
     141      !Config Def  = eORCA1.2.nc 
     142      !Config Help = File containing basin mask for ocean 
     143      c_oce_msk_file = 'eORCA1.2.nc' 
     144      CALL getin ('c_oce_msk_file', c_oce_msk_file) 
     145      WRITE (unit=nout, fmt=*) 'c_oce_msk_file = ', TRIM(c_oce_msk_file) 
    139146      !! 
    140147      !! Define atmosphere model 
     
    465472 
    466473 
     474 
     475      !Config Key  = epsfrac 
     476      !Config Desc = Min fraction of sea acceptable 
     477      !Config Def  =  1.0E-10_rl 
     478      !Config Help =  
     479      epsfrac = 1.0E-10_rl 
     480      CALL getin ('epsfrac', epsfrac) 
     481      WRITE (unit=nout, fmt=*) 'epsfrac = ', epsfrac 
     482       
    467483      !Config Key = l_etal_oce 
    468484      !Config Desc =  ! On etale sur les point océans  proches 
  • TOOLS/MOZAIC/src/MOZAIC/modeles.f90

    r3326 r3918  
    1616   REAL (kind=rl), PARAMETER :: epsd   = EPSILON (1.0_rd) !< Quadruple precision epsilon 
    1717   REAL (kind=rl), PARAMETER :: epsd10 = 10.0_rd * epsd   !< Quadruple precision epsilon * 10 
    18    REAL (kind=rl), PARAMETER :: epsfrac = 1.0E-10_rl  !< Min fraction of sea acceptable 
     18   !! 
     19 
    1920   !! 
    2021    
Note: See TracChangeset for help on using the changeset viewer.