Changeset 3918 for TOOLS/MOZAIC/src/MOZAIC/inipar.f90

Timestamp:

06/15/18 14:06:03 (6 years ago)

Author:

omamce

Message:

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

File:

• TOOLS/MOZAIC/src/MOZAIC/inipar.f90 (modified) (2 diffs)

TOOLS/MOZAIC/src/MOZAIC/inipar.f90

@@ -136 +136 @@
       l_recalc_o = .TRUE.
       CALL getin ('l_recalc_o', l_recalc_o)
-      WRITE (unit=nout, fmt=*) 'l_recalc_o = ', l_recalc_o 
+      WRITE (unit=nout, fmt=*) 'l_recalc_o = ', l_recalc_o
+      !Config Key  = c_oce_msk_file
+      !Config Desc = File containing basin mask for ocean
+      !Config Def  = eORCA1.2.nc
+      !Config Help = File containing basin mask for ocean
+      c_oce_msk_file = 'eORCA1.2.nc'
+      CALL getin ('c_oce_msk_file', c_oce_msk_file)
+      WRITE (unit=nout, fmt=*) 'c_oce_msk_file = ', TRIM(c_oce_msk_file)
       !!
       !! Define atmosphere model
@@ -465 +472 @@
 
 
+
+      !Config Key  = epsfrac
+      !Config Desc = Min fraction of sea acceptable
+      !Config Def  =  1.0E-10_rl
+      !Config Help = 
+      epsfrac = 1.0E-10_rl
+      CALL getin ('epsfrac', epsfrac)
+      WRITE (unit=nout, fmt=*) 'epsfrac = ', epsfrac
+      
       !Config Key = l_etal_oce
       !Config Desc =  ! On etale sur les point océans  proches