Ignore:
Timestamp:
2019-01-15T14:43:24+01:00 (3 years ago)
Author:
clem
Message:

change demo config from ICEADV to ICE_ADV1D

Location:
NEMO/trunk/tests/ICE_ADV1D
Files:
4 edited
1 moved

Legend:

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

    r10413 r10513  
    33   !!                       ***  MODULE  usrdef_hgr  *** 
    44   !! 
    5    !!                      ===  ICEADV configuration  === 
     5   !!                      ===  ICE_ADV1D configuration  === 
    66   !! 
    77   !! User defined :   mesh and Coriolis parameter of a user configuration 
     
    1111 
    1212   !!---------------------------------------------------------------------- 
    13    !!   usr_def_hgr    : initialize the horizontal mesh for ICEADV configuration 
     13   !!   usr_def_hgr    : initialize the horizontal mesh for ICE_ADV1D configuration 
    1414   !!---------------------------------------------------------------------- 
    1515   USE dom_oce         ! ocean space and time domain 
     
    4545      !! 
    4646      !! ** Method  :   set all intent(out) argument to a proper value 
    47       !!                ICEADV configuration : uniform grid spacing (rn_dx) 
     47      !!                ICE_ADV1D 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 : ICEADV configuration bassin' 
     70      IF(lwp) WRITE(numout,*) 'usr_def_hgr : ICE_ADV1D configuration bassin' 
    7171      IF(lwp) WRITE(numout,*) 
    7272      IF(lwp) WRITE(numout,*) '          f-plane with regular grid-spacing rn_dx, rn_dy' 
  • NEMO/trunk/tests/ICE_ADV1D/MY_SRC/usrdef_nam.F90

    r10413 r10513  
    33   !!                       ***  MODULE  usrdef_nam  *** 
    44   !! 
    5    !!                      ===  ICEADV configuration  === 
     5   !!                      ===  ICE_ADV1D configuration  === 
    66   !! 
    77   !! User defined : set the domain characteristics of a user configuration 
     
    4848      !! ** Method  :   read in namusr_def containing all the user specific namelist parameter 
    4949      !! 
    50       !!                Here ICEADV configuration 
     50      !!                Here ICE_ADV1D configuration 
    5151      !! 
    5252      !! ** input   : - namusr_def namelist found in namelist_cfg 
     
    7272      WRITE( ldnam(:), namusr_def ) 
    7373      ! 
    74       cd_cfg = 'ICEADV'           ! name & resolution (not used) 
     74      cd_cfg = 'ICE_ADV1D'           ! name & resolution (not used) 
    7575      kk_cfg = INT( rn_dx ) 
    7676      ! 
    77       ! Global Domain size:  ICEADV domain is  480 m x 480 m x 10 m 
     77      ! Global Domain size:  ICE_ADV1D domain is  480 m x 480 m x 10 m 
    7878      kpi = INT( 480.*0.5 / rn_dx ) -1 
    7979      kpj = INT( 480.*0.5 / rn_dy ) -1 
     
    8686      WRITE(ldtxt(ii),*) 'usr_def_nam  : read the user defined namelist (namusr_def) in namelist_cfg'   ;   ii = ii + 1 
    8787      WRITE(ldtxt(ii),*) '~~~~~~~~~~~ '                                                                 ;   ii = ii + 1 
    88       WRITE(ldtxt(ii),*) '   Namelist namusr_def : ICEADV test case'                                    ;   ii = ii + 1 
     88      WRITE(ldtxt(ii),*) '   Namelist namusr_def : ICE_ADV1D test case'                                 ;   ii = ii + 1 
    8989      WRITE(ldtxt(ii),*) '      horizontal resolution                    rn_dx  = ', rn_dx, ' meters'   ;   ii = ii + 1 
    9090      WRITE(ldtxt(ii),*) '      horizontal resolution                    rn_dy  = ', rn_dy, ' meters'   ;   ii = ii + 1 
    91       WRITE(ldtxt(ii),*) '      ICEADV domain  '                                                        ;   ii = ii + 1 
     91      WRITE(ldtxt(ii),*) '      ICE_ADV1D domain  '                                                     ;   ii = ii + 1 
    9292      WRITE(ldtxt(ii),*) '         LX [km]: ', zlx                                                      ;   ii = ii + 1 
    9393      WRITE(ldtxt(ii),*) '         LY [km]: ', zly                                                      ;   ii = ii + 1 
     
    9898      ! 
    9999      !                             ! Set the lateral boundary condition of the global domain 
    100       kperio = 0                    ! ICEADV configuration : bi-periodic basin 
     100      kperio = 0                    ! ICE_ADV1D configuration : bi-periodic basin 
    101101      ! 
    102102      WRITE(ldtxt(ii),*) '   '                                                                          ;   ii = ii + 1 
    103103      WRITE(ldtxt(ii),*) '   Lateral boundary condition of the global domain'                           ;   ii = ii + 1 
    104       WRITE(ldtxt(ii),*) '      ICEADV : closed basin                    jperio = ', kperio             ;   ii = ii + 1 
     104      WRITE(ldtxt(ii),*) '      ICE_ADV1D : closed basin                    jperio = ', kperio          ;   ii = ii + 1 
    105105      ! 
    106106   END SUBROUTINE usr_def_nam 
  • NEMO/trunk/tests/ICE_ADV1D/MY_SRC/usrdef_sbc.F90

    r10413 r10513  
    33   !!                       ***  MODULE  usrdef_sbc  *** 
    44   !!  
    5    !!                      ===  ICEADV configuration  === 
     5   !!                      ===  ICE_ADV1D configuration  === 
    66   !! 
    77   !! User defined :   surface forcing of a user configuration 
     
    1111 
    1212   !!---------------------------------------------------------------------- 
    13    !!   usr_def_sbc    : user defined surface bounday conditions in ICEADV case 
     13   !!   usr_def_sbc    : user defined surface bounday conditions in ICE_ADV1D case 
    1414   !!---------------------------------------------------------------------- 
    1515   USE oce             ! ocean dynamics and tracers 
     
    4949      !!              condition, i.e. the momentum, heat and freshwater fluxes. 
    5050      !! 
    51       !! ** Method  :   all 0 fields, for ICEADV case 
     51      !! ** Method  :   all 0 fields, for ICE_ADV1D case 
    5252      !!                CAUTION : never mask the surface stress field ! 
    5353      !! 
     
    6161      IF( kt == nit000 ) THEN 
    6262         ! 
    63          IF(lwp)   WRITE(numout,*)' usrdef_sbc_oce : ICEADV case: NO surface forcing' 
     63         IF(lwp)   WRITE(numout,*)' usrdef_sbc_oce : ICE_ADV1D case: NO surface forcing' 
    6464         ! --- oce variables --- ! 
    6565         utau(:,:) = 0._wp  
     
    9191      INTEGER, INTENT(in) ::   kt   ! ocean time step 
    9292      !!--------------------------------------------------------------------- 
    93       IF( kt==nit000 .AND. lwp)   WRITE(numout,*)' usrdef_sbc_ice : ICEADV case: no stress forcing' 
     93      IF( kt==nit000 .AND. lwp)   WRITE(numout,*)' usrdef_sbc_ice : ICE_ADV1D case: no stress forcing' 
    9494      ! 
    9595      utau_ice(:,:) = 0._wp 
     
    112112      !!--------------------------------------------------------------------- 
    113113      ! 
    114       IF( kt==nit000 .AND. lwp)   WRITE(numout,*)' usrdef_sbc_ice : ICEADV case: NO flux forcing' 
     114      IF( kt==nit000 .AND. lwp)   WRITE(numout,*)' usrdef_sbc_ice : ICE_ADV1D case: NO flux forcing' 
    115115      ! 
    116116      ! ocean variables (renaming) 
  • NEMO/trunk/tests/ICE_ADV1D/MY_SRC/usrdef_zgr.F90

    r10413 r10513  
    33   !!                   ***  MODULE  usrdef_zgr  *** 
    44   !! 
    5    !!                   ===      ICEADV case     === 
     5   !!                   ===      ICE_ADV1D case     === 
    66   !! 
    77   !! Ocean domain : user defined vertical coordinate system  
     
    5959      ! 
    6060      IF(lwp) WRITE(numout,*) 
    61       IF(lwp) WRITE(numout,*) 'usr_def_zgr : ICEADV configuration (slab ocean - advection of ice in one direction)' 
     61      IF(lwp) WRITE(numout,*) 'usr_def_zgr : ICE_ADV1D configuration (slab ocean - advection of ice in one direction)' 
    6262      IF(lwp) WRITE(numout,*) '~~~~~~~~~~~' 
    6363      ! 
    6464      ! 
    65       ! type of vertical coordinate  ==>>>   here ICEADV : slab ocean always 
     65      ! type of vertical coordinate  ==>>>   here ICE_ADV1D : slab ocean always 
    6666      ! --------------------------- 
    6767      ld_zco    = .TRUE.       ! z-full-step coordinate 
Note: See TracChangeset for help on using the changeset viewer.