Ignore:
Timestamp:
2018-06-13T12:16:12+02:00 (2 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_nam.F90

    r9763 r9789  
    33   !!                       ***  MODULE  usrdef_nam  *** 
    44   !! 
    5    !!                     ===  SAS_BIPER configuration  === 
     5   !!                      ===  ICEDYN configuration  === 
    66   !! 
    77   !! User defined : set the domain characteristics of a user configuration 
     
    4747      !! ** Method  :   read in namusr_def containing all the user specific namelist parameter 
    4848      !! 
    49       !!                Here SAS_BIPER configuration 
     49      !!                Here ICEDYN configuration 
    5050      !! 
    5151      !! ** input   : - namusr_def namelist found in namelist_cfg 
     
    8080      WRITE( ldnam(:), namusr_def ) 
    8181      ! 
    82       cd_cfg = 'SAS_BIPER'           ! name & resolution (not used) 
     82      cd_cfg = 'ICEDYN'           ! name & resolution (not used) 
    8383      kk_cfg = INT( rn_dx ) 
    8484      ! 
    85       ! Global Domain size:  SAS_BIPER domain is  300 km x 300 Km x 10 m 
     85      ! Global Domain size:  ICEDYN domain is  300 km x 300 Km x 10 m 
    8686      kpi = INT( 300.e3 / rn_dx ) -1 
    8787      kpj = INT( 300.e3 / rn_dy ) -1 
     
    102102      WRITE(ldtxt(ii),*) 'usr_def_nam  : read the user defined namelist (namusr_def) in namelist_cfg'   ;   ii = ii + 1 
    103103      WRITE(ldtxt(ii),*) '~~~~~~~~~~~ '                                                                 ;   ii = ii + 1 
    104       WRITE(ldtxt(ii),*) '   Namelist namusr_def : SAS_BIPER test case'                                 ;   ii = ii + 1 
     104      WRITE(ldtxt(ii),*) '   Namelist namusr_def : ICEDYN test case'                                    ;   ii = ii + 1 
    105105      WRITE(ldtxt(ii),*) '      horizontal resolution                    rn_dx  = ', rn_dx, ' meters'   ;   ii = ii + 1 
    106106      WRITE(ldtxt(ii),*) '      horizontal resolution                    rn_dy  = ', rn_dy, ' meters'   ;   ii = ii + 1 
    107       WRITE(ldtxt(ii),*) '      SAS_BIPER domain = 300 km x 300Km x 1 grid-point '                      ;   ii = ii + 1 
     107      WRITE(ldtxt(ii),*) '      ICEDYN domain = 300 km x 300Km x 1 grid-point '                         ;   ii = ii + 1 
    108108      WRITE(ldtxt(ii),*) '         LX [km]: ', zlx                                                      ;   ii = ii + 1 
    109109      WRITE(ldtxt(ii),*) '         LY [km]: ', zly                                                      ;   ii = ii + 1 
     
    113113      ! 
    114114      !                             ! Set the lateral boundary condition of the global domain 
    115       kperio = 7                    ! SAS_BIPER configuration : bi-periodic basin 
     115      kperio = 7                    ! ICEDYN configuration : bi-periodic basin 
    116116#if defined key_agrif 
    117117      IF( .NOT. Agrif_Root() ) THEN 
     
    122122      WRITE(ldtxt(ii),*) '   '                                                                          ;   ii = ii + 1 
    123123      WRITE(ldtxt(ii),*) '   Lateral boundary condition of the global domain'                           ;   ii = ii + 1 
    124       WRITE(ldtxt(ii),*) '      SAS_BIPER : bi-periodic basin            jperio = ', kperio             ;   ii = ii + 1 
     124      WRITE(ldtxt(ii),*) '      ICEDYN : bi-periodic basin               jperio = ', kperio             ;   ii = ii + 1 
    125125      ! 
    126126   END SUBROUTINE usr_def_nam 
Note: See TracChangeset for help on using the changeset viewer.