Changeset 9403 for branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/CANAL/MY_SRC/usrdef_hgr.F90
- Timestamp:
- 2018-03-15T15:57:42+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/CANAL/MY_SRC/usrdef_hgr.F90
r9302 r9403 3 3 !! *** MODULE usrdef_hgr *** 4 4 !! 5 !! === VORTEXconfiguration ===5 !! === CANAL configuration === 6 6 !! 7 7 !! User defined : mesh and Coriolis parameter of a user configuration … … 11 11 12 12 !!---------------------------------------------------------------------- 13 !! usr_def_hgr : initialize the horizontal mesh for VORTEXconfiguration13 !! usr_def_hgr : initialize the horizontal mesh for CANAL configuration 14 14 !!---------------------------------------------------------------------- 15 15 USE dom_oce ! ocean space and time domain … … 45 45 !! 46 46 !! ** Method : set all intent(out) argument to a proper value 47 !! VORTEXconfiguration : beta-plance with uniform grid spacing (rn_dx)47 !! CANAL configuration : beta-plance with uniform grid spacing (rn_dx) 48 48 !! 49 49 !! ** Action : - define longitude & latitude of t-, u-, v- and f-points (in degrees) … … 67 67 ! 68 68 IF(lwp) WRITE(numout,*) 69 IF(lwp) WRITE(numout,*) 'usr_def_hgr : VORTEXconfiguration bassin'69 IF(lwp) WRITE(numout,*) 'usr_def_hgr : CANAL configuration bassin' 70 70 IF(lwp) WRITE(numout,*) 71 71 IF(lwp) WRITE(numout,*) ' Beta-plane with regular grid-spacing' … … 75 75 ! Position coordinates (in kilometers) 76 76 ! ========== 77 zlam0 = - NINT(jpiglo*rn_0xratio) * rn_dx78 zphi0 = - NINT(jpjglo*rn_0yratio) * rn_dy77 zlam0 = -REAL(NINT(jpiglo*rn_0xratio)-1, wp) * rn_dx 78 zphi0 = -REAL(NINT(jpjglo*rn_0yratio)-1, wp) * rn_dy 79 79 80 80 #if defined key_agrif
Note: See TracChangeset
for help on using the changeset viewer.