Ignore:
Timestamp:
2018-06-13T17:44:54+02:00 (2 years ago)
Author:
clem
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/tests/ICEDYN/MY_SRC/usrdef_nam.F90

    r9789 r9794  
    3131   REAL(wp), PUBLIC ::   rn_dy      ! resolution in meters defining the horizontal domain size 
    3232   REAL(wp), PUBLIC ::   rn_ppgphi0 ! reference latitude for beta-plane  
     33   LOGICAL , PUBLIC ::   ln_corio   ! set coriolis at 0 (ln_corio=F) or not  
    3334 
    3435   !!---------------------------------------------------------------------- 
     
    6061      REAL(wp)::   zlx, zly  ! Local scalars 
    6162      !! 
    62       NAMELIST/namusr_def/ ln_zco, rn_dx, rn_dy, rn_ppgphi0 
     63      NAMELIST/namusr_def/ ln_zco, rn_dx, rn_dy, ln_corio, rn_ppgphi0 
    6364      !!---------------------------------------------------------------------- 
    6465      ! 
     
    111112      WRITE(ldtxt(ii),*) '                                               jpjglo = ', kpj                ;   ii = ii + 1 
    112113      WRITE(ldtxt(ii),*) '                                               jpkglo = ', kpk                ;   ii = ii + 1 
     114      WRITE(ldtxt(ii),*) '         Coriolis:', ln_corio                                                 ;   ii = ii + 1 
    113115      ! 
    114116      !                             ! Set the lateral boundary condition of the global domain 
Note: See TracChangeset for help on using the changeset viewer.