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 9789 for NEMO/trunk/tests/ICEDYN/MY_SRC/usrdef_hgr.F90 – NEMO

Ignore:
Timestamp:
2018-06-13T12:16:12+02:00 (6 years ago)
Author:
clem
Message:

change the name of SAS_BIPER configuration to a more explicit one: ICEDYN

Location:
NEMO/trunk/tests/ICEDYN
Files:
1 edited
1 copied

Legend:

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

    r9763 r9789  
    33   !!                       ***  MODULE  usrdef_hgr  *** 
    44   !! 
    5    !!                     ===  SAS_BIPER configuration  === 
     5   !!                      ===  ICEDYN configuration  === 
    66   !! 
    77   !! User defined :   mesh and Coriolis parameter of a user configuration 
     
    1111 
    1212   !!---------------------------------------------------------------------- 
    13    !!   usr_def_hgr    : initialize the horizontal mesh for SAS_BIPER configuration 
     13   !!   usr_def_hgr    : initialize the horizontal mesh for ICEDYN configuration 
    1414   !!---------------------------------------------------------------------- 
    1515   USE dom_oce         ! ocean space and time domain 
     
    4545      !! 
    4646      !! ** Method  :   set all intent(out) argument to a proper value 
    47       !!                SAS_BIPER configuration : uniform grid spacing (rn_dx) 
     47      !!                ICEDYN configuration : uniform grid spacing (rn_dx) 
    4848      !!                without Coriolis force (f=0) 
    4949      !! 
     
    6868      ! 
    6969      IF(lwp) WRITE(numout,*) 
    70       IF(lwp) WRITE(numout,*) 'usr_def_hgr : SAS_BIPER configuration bassin' 
     70      IF(lwp) WRITE(numout,*) 'usr_def_hgr : ICEDYN configuration bassin' 
    7171      IF(lwp) WRITE(numout,*) 
    7272      IF(lwp) WRITE(numout,*) '          f-plane with irregular grid-spacing (+- 10%)' 
Note: See TracChangeset for help on using the changeset viewer.