New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 9403 for branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/CANAL/MY_SRC/usrdef_hgr.F90 – NEMO

Ignore:
Timestamp:
2018-03-15T15:57:42+01:00 (6 years ago)
Author:
smasson
Message:

dev_merge_2017: update test_cases CANAL

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/CANAL/MY_SRC/usrdef_hgr.F90

    r9302 r9403  
    33   !!                       ***  MODULE  usrdef_hgr  *** 
    44   !! 
    5    !!                      ===  VORTEX configuration  === 
     5   !!                      ===  CANAL configuration  === 
    66   !! 
    77   !! User defined :   mesh and Coriolis parameter of a user configuration 
     
    1111 
    1212   !!---------------------------------------------------------------------- 
    13    !!   usr_def_hgr    : initialize the horizontal mesh for VORTEX configuration 
     13   !!   usr_def_hgr    : initialize the horizontal mesh for CANAL configuration 
    1414   !!---------------------------------------------------------------------- 
    1515   USE dom_oce         ! ocean space and time domain 
     
    4545      !! 
    4646      !! ** Method  :   set all intent(out) argument to a proper value 
    47       !!                VORTEX configuration : beta-plance with uniform grid spacing (rn_dx) 
     47      !!                CANAL configuration : beta-plance with uniform grid spacing (rn_dx) 
    4848      !! 
    4949      !! ** Action  : - define longitude & latitude of t-, u-, v- and f-points (in degrees)  
     
    6767      ! 
    6868      IF(lwp) WRITE(numout,*) 
    69       IF(lwp) WRITE(numout,*) 'usr_def_hgr : VORTEX configuration bassin' 
     69      IF(lwp) WRITE(numout,*) 'usr_def_hgr : CANAL configuration bassin' 
    7070      IF(lwp) WRITE(numout,*) 
    7171      IF(lwp) WRITE(numout,*) '          Beta-plane with regular grid-spacing' 
     
    7575      ! Position coordinates (in kilometers) 
    7676      !                          ========== 
    77       zlam0 = -NINT(jpiglo*rn_0xratio) * rn_dx 
    78       zphi0 = -NINT(jpjglo*rn_0yratio) * rn_dy  
     77      zlam0 = -REAL(NINT(jpiglo*rn_0xratio)-1, wp) * rn_dx 
     78      zphi0 = -REAL(NINT(jpjglo*rn_0yratio)-1, wp) * rn_dy  
    7979 
    8080#if defined key_agrif 
Note: See TracChangeset for help on using the changeset viewer.