Changeset 10516 for NEMO/trunk/tests/ICE_AGRIF/MY_SRC/usrdef_nam.F90

Timestamp:

2019-01-15T17:31:25+01:00 (5 years ago)

Author:

clem

Message:

change demo config name from ICEDYN to ICE_AGRIF

Location:

NEMO/trunk/tests/ICE_AGRIF

Files:

• . (moved) (moved from NEMO/trunk/tests/ICEDYN)
• MY_SRC/usrdef_nam.F90 (modified) (6 diffs)

NEMO/trunk/tests/ICE_AGRIF/MY_SRC/usrdef_nam.F90

@@ -3 +3 @@
    !!                       ***  MODULE  usrdef_nam  ***
    !!
-   !!                      ===  ICEDYN configuration  ===
+   !!                      ===  ICE_AGRIF configuration  ===
    !!
    !! User defined : set the domain characteristics of a user configuration
@@ -48 +48 @@
       !! ** Method  :   read in namusr_def containing all the user specific namelist parameter
       !!
-      !!                Here ICEDYN configuration
+      !!                Here ICE_AGRIF configuration
       !!
       !! ** input   : - namusr_def namelist found in namelist_cfg
@@ -81 +81 @@
       WRITE( ldnam(:), namusr_def )
       !
-      cd_cfg = 'ICEDYN'           ! name & resolution (not used)
+      cd_cfg = 'ICE_AGRIF'           ! name & resolution (not used)
       kk_cfg = INT( rn_dx )
       !
-      ! Global Domain size:  ICEDYN domain is  300 km x 300 Km x 10 m
+      ! Global Domain size:  ICE_AGRIF domain is  300 km x 300 Km x 10 m
       kpi = INT( 300.e3 / rn_dx ) -1
       kpj = INT( 300.e3 / rn_dy ) -1
@@ -103 +103 @@
       WRITE(ldtxt(ii),*) 'usr_def_nam  : read the user defined namelist (namusr_def) in namelist_cfg'   ;   ii = ii + 1
       WRITE(ldtxt(ii),*) '~~~~~~~~~~~ '                                                                 ;   ii = ii + 1
-      WRITE(ldtxt(ii),*) '   Namelist namusr_def : ICEDYN test case'                                    ;   ii = ii + 1
+      WRITE(ldtxt(ii),*) '   Namelist namusr_def : ICE_AGRIF test case'                                 ;   ii = ii + 1
       WRITE(ldtxt(ii),*) '      horizontal resolution                    rn_dx  = ', rn_dx, ' meters'   ;   ii = ii + 1
       WRITE(ldtxt(ii),*) '      horizontal resolution                    rn_dy  = ', rn_dy, ' meters'   ;   ii = ii + 1
-      WRITE(ldtxt(ii),*) '      ICEDYN domain = 300 km x 300Km x 1 grid-point '                         ;   ii = ii + 1
+      WRITE(ldtxt(ii),*) '      ICE_AGRIF domain = 300 km x 300Km x 1 grid-point '                      ;   ii = ii + 1
       WRITE(ldtxt(ii),*) '         LX [km]: ', zlx                                                      ;   ii = ii + 1
       WRITE(ldtxt(ii),*) '         LY [km]: ', zly                                                      ;   ii = ii + 1
@@ -115 +115 @@
       !
       !                             ! Set the lateral boundary condition of the global domain
-      kperio = 7                    ! ICEDYN configuration : bi-periodic basin
+      kperio = 7                    ! ICE_AGRIF configuration : bi-periodic basin
 #if defined key_agrif
       IF( .NOT. Agrif_Root() ) THEN
@@ -124 +124 @@
       WRITE(ldtxt(ii),*) '   '                                                                          ;   ii = ii + 1
       WRITE(ldtxt(ii),*) '   Lateral boundary condition of the global domain'                           ;   ii = ii + 1
-      WRITE(ldtxt(ii),*) '      ICEDYN : bi-periodic basin               jperio = ', kperio             ;   ii = ii + 1
+      WRITE(ldtxt(ii),*) '      ICE_AGRIF : bi-periodic basin               jperio = ', kperio          ;   ii = ii + 1
       !
    END SUBROUTINE usr_def_nam