Changeset 10513 for NEMO/trunk/tests/ICE_ADV1D/MY_SRC

Timestamp:

2019-01-15T14:43:24+01:00 (5 years ago)

Author:

clem

Message:

change demo config from ICEADV to ICE_ADV1D

Location:

NEMO/trunk/tests/ICE_ADV1D

Files:

• . (moved) (moved from NEMO/trunk/tests/ICEADV)
• MY_SRC/usrdef_hgr.F90 (modified) (4 diffs)
• MY_SRC/usrdef_nam.F90 (modified) (5 diffs)
• MY_SRC/usrdef_sbc.F90 (modified) (6 diffs)
• MY_SRC/usrdef_zgr.F90 (modified) (2 diffs)

NEMO/trunk/tests/ICE_ADV1D/MY_SRC/usrdef_hgr.F90

@@ -3 +3 @@
    !!                       ***  MODULE  usrdef_hgr  ***
    !!
-   !!                      ===  ICEADV configuration  ===
+   !!                      ===  ICE_ADV1D configuration  ===
    !!
    !! User defined :   mesh and Coriolis parameter of a user configuration
@@ -11 +11 @@
 
    !!----------------------------------------------------------------------
-   !!   usr_def_hgr    : initialize the horizontal mesh for ICEADV configuration
+   !!   usr_def_hgr    : initialize the horizontal mesh for ICE_ADV1D configuration
    !!----------------------------------------------------------------------
    USE dom_oce         ! ocean space and time domain
@@ -45 +45 @@
       !!
       !! ** Method  :   set all intent(out) argument to a proper value
-      !!                ICEADV configuration : uniform grid spacing (rn_dx)
+      !!                ICE_ADV1D configuration : uniform grid spacing (rn_dx)
       !!                without Coriolis force (f=0)
       !!
@@ -68 +68 @@
       !
       IF(lwp) WRITE(numout,*)
-      IF(lwp) WRITE(numout,*) 'usr_def_hgr : ICEADV configuration bassin'
+      IF(lwp) WRITE(numout,*) 'usr_def_hgr : ICE_ADV1D configuration bassin'
       IF(lwp) WRITE(numout,*)
       IF(lwp) WRITE(numout,*) '          f-plane with regular grid-spacing rn_dx, rn_dy'

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

@@ -3 +3 @@
    !!                       ***  MODULE  usrdef_nam  ***
    !!
-   !!                      ===  ICEADV configuration  ===
+   !!                      ===  ICE_ADV1D 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 ICEADV configuration
+      !!                Here ICE_ADV1D configuration
       !!
       !! ** input   : - namusr_def namelist found in namelist_cfg
@@ -72 +72 @@
       WRITE( ldnam(:), namusr_def )
       !
-      cd_cfg = 'ICEADV'           ! name & resolution (not used)
+      cd_cfg = 'ICE_ADV1D'           ! name & resolution (not used)
       kk_cfg = INT( rn_dx )
       !
-      ! Global Domain size:  ICEADV domain is  480 m x 480 m x 10 m
+      ! Global Domain size:  ICE_ADV1D domain is  480 m x 480 m x 10 m
       kpi = INT( 480.*0.5 / rn_dx ) -1
       kpj = INT( 480.*0.5 / rn_dy ) -1
@@ -86 +86 @@
       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 : ICEADV test case'                                    ;   ii = ii + 1
+      WRITE(ldtxt(ii),*) '   Namelist namusr_def : ICE_ADV1D 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),*) '      ICEADV domain  '                                                        ;   ii = ii + 1
+      WRITE(ldtxt(ii),*) '      ICE_ADV1D domain  '                                                     ;   ii = ii + 1
       WRITE(ldtxt(ii),*) '         LX [km]: ', zlx                                                      ;   ii = ii + 1
       WRITE(ldtxt(ii),*) '         LY [km]: ', zly                                                      ;   ii = ii + 1
@@ -98 +98 @@
       !
       !                             ! Set the lateral boundary condition of the global domain
-      kperio = 0                    ! ICEADV configuration : bi-periodic basin
+      kperio = 0                    ! ICE_ADV1D configuration : bi-periodic basin
       !
       WRITE(ldtxt(ii),*) '   '                                                                          ;   ii = ii + 1
       WRITE(ldtxt(ii),*) '   Lateral boundary condition of the global domain'                           ;   ii = ii + 1
-      WRITE(ldtxt(ii),*) '      ICEADV : closed basin                    jperio = ', kperio             ;   ii = ii + 1
+      WRITE(ldtxt(ii),*) '      ICE_ADV1D : closed basin                    jperio = ', kperio          ;   ii = ii + 1
       !
    END SUBROUTINE usr_def_nam

NEMO/trunk/tests/ICE_ADV1D/MY_SRC/usrdef_sbc.F90

@@ -3 +3 @@
    !!                       ***  MODULE  usrdef_sbc  ***
    !! 
-   !!                      ===  ICEADV configuration  ===
+   !!                      ===  ICE_ADV1D configuration  ===
    !!
    !! User defined :   surface forcing of a user configuration
@@ -11 +11 @@
 
    !!----------------------------------------------------------------------
-   !!   usr_def_sbc    : user defined surface bounday conditions in ICEADV case
+   !!   usr_def_sbc    : user defined surface bounday conditions in ICE_ADV1D case
    !!----------------------------------------------------------------------
    USE oce             ! ocean dynamics and tracers
@@ -49 +49 @@
       !!              condition, i.e. the momentum, heat and freshwater fluxes.
       !!
-      !! ** Method  :   all 0 fields, for ICEADV case
+      !! ** Method  :   all 0 fields, for ICE_ADV1D case
       !!                CAUTION : never mask the surface stress field !
       !!
@@ -61 +61 @@
       IF( kt == nit000 ) THEN
          !
-         IF(lwp)   WRITE(numout,*)' usrdef_sbc_oce : ICEADV case: NO surface forcing'
+         IF(lwp)   WRITE(numout,*)' usrdef_sbc_oce : ICE_ADV1D case: NO surface forcing'
          ! --- oce variables --- !
          utau(:,:) = 0._wp 
@@ -91 +91 @@
       INTEGER, INTENT(in) ::   kt   ! ocean time step
       !!---------------------------------------------------------------------
-      IF( kt==nit000 .AND. lwp)   WRITE(numout,*)' usrdef_sbc_ice : ICEADV case: no stress forcing'
+      IF( kt==nit000 .AND. lwp)   WRITE(numout,*)' usrdef_sbc_ice : ICE_ADV1D case: no stress forcing'
       !
       utau_ice(:,:) = 0._wp
@@ -112 +112 @@
       !!---------------------------------------------------------------------
       !
-      IF( kt==nit000 .AND. lwp)   WRITE(numout,*)' usrdef_sbc_ice : ICEADV case: NO flux forcing'
+      IF( kt==nit000 .AND. lwp)   WRITE(numout,*)' usrdef_sbc_ice : ICE_ADV1D case: NO flux forcing'
       !
       ! ocean variables (renaming)

NEMO/trunk/tests/ICE_ADV1D/MY_SRC/usrdef_zgr.F90

@@ -3 +3 @@
    !!                   ***  MODULE  usrdef_zgr  ***
    !!
-   !!                   ===      ICEADV case     ===
+   !!                   ===      ICE_ADV1D case     ===
    !!
    !! Ocean domain : user defined vertical coordinate system 
@@ -59 +59 @@
       !
       IF(lwp) WRITE(numout,*)
-      IF(lwp) WRITE(numout,*) 'usr_def_zgr : ICEADV configuration (slab ocean - advection of ice in one direction)'
+      IF(lwp) WRITE(numout,*) 'usr_def_zgr : ICE_ADV1D configuration (slab ocean - advection of ice in one direction)'
       IF(lwp) WRITE(numout,*) '~~~~~~~~~~~'
       !
       !
-      ! type of vertical coordinate  ==>>>   here ICEADV : slab ocean always
+      ! type of vertical coordinate  ==>>>   here ICE_ADV1D : slab ocean always
       ! ---------------------------
       ld_zco    = .TRUE.       ! z-full-step coordinate