Changeset 9794 for NEMO/trunk/tests/ICEDYN/MY_SRC/usrdef_nam.F90

Timestamp:

2018-06-13T17:44:54+02:00 (6 years ago)

Author:

clem

Message:

add an option in ICEDYN test case to be able to run without coriolis effect

File:

• NEMO/trunk/tests/ICEDYN/MY_SRC/usrdef_nam.F90 (modified) (3 diffs)

NEMO/trunk/tests/ICEDYN/MY_SRC/usrdef_nam.F90

@@ -31 +31 @@
    REAL(wp), PUBLIC ::   rn_dy      ! resolution in meters defining the horizontal domain size
    REAL(wp), PUBLIC ::   rn_ppgphi0 ! reference latitude for beta-plane 
+   LOGICAL , PUBLIC ::   ln_corio   ! set coriolis at 0 (ln_corio=F) or not 
 
    !!----------------------------------------------------------------------
@@ -60 +61 @@
       REAL(wp)::   zlx, zly  ! Local scalars
       !!
-      NAMELIST/namusr_def/ ln_zco, rn_dx, rn_dy, rn_ppgphi0
+      NAMELIST/namusr_def/ ln_zco, rn_dx, rn_dy, ln_corio, rn_ppgphi0
       !!----------------------------------------------------------------------
       !
@@ -111 +112 @@
       WRITE(ldtxt(ii),*) '                                               jpjglo = ', kpj                ;   ii = ii + 1
       WRITE(ldtxt(ii),*) '                                               jpkglo = ', kpk                ;   ii = ii + 1
+      WRITE(ldtxt(ii),*) '         Coriolis:', ln_corio                                                 ;   ii = ii + 1
       !
       !                             ! Set the lateral boundary condition of the global domain