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 13463 for NEMO/branches/2019/dev_r11351_fldread_with_XIOS/tests/WAD/MY_SRC/usrdef_nam.F90 – NEMO

Ignore:
Timestamp:
2020-09-14T17:40:34+02:00 (4 years ago)
Author:
andmirek
Message:

Ticket #2195:update to trunk 13461

Location:
NEMO/branches/2019/dev_r11351_fldread_with_XIOS
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2019/dev_r11351_fldread_with_XIOS

    • Property svn:externals

      •  

        old new  
        33^/utils/build/mk@HEAD         mk 
        44^/utils/tools@HEAD            tools 
        5 ^/vendors/AGRIF/dev@HEAD      ext/AGRIF 
         5^/vendors/AGRIF/dev_r12970_AGRIF_CMEMS      ext/AGRIF 
        66^/vendors/FCM@HEAD            ext/FCM 
        77^/vendors/IOIPSL@HEAD         ext/IOIPSL 
         8 
         9# SETTE 
         10^/utils/CI/sette@13382        sette 

  • NEMO/branches/2019/dev_r11351_fldread_with_XIOS/tests/WAD/MY_SRC/usrdef_nam.F90

    r10074 r13463  
    1414   !!   usr_def_hgr   : initialize the horizontal mesh  
    1515   !!---------------------------------------------------------------------- 
    16    USE dom_oce  , ONLY: nimpp , njmpp            ! i- & j-indices of the local domain 
    1716   USE par_oce        ! ocean space and time domain 
    1817   USE phycst         ! physical constants 
    … …  
    3938CONTAINS 
    4039 
    41    SUBROUTINE usr_def_nam( ldtxt, ldnam, cd_cfg, kk_cfg, kpi, kpj, kpk, kperio ) 
     40   SUBROUTINE usr_def_nam( cd_cfg, kk_cfg, kpi, kpj, kpk, kperio ) 
    4241      !!---------------------------------------------------------------------- 
    4342      !!                     ***  ROUTINE dom_nam  *** 
    … …  
    5150      !! ** input   : - namusr_def namelist found in namelist_cfg 
    5251      !!---------------------------------------------------------------------- 
    53       CHARACTER(len=*), DIMENSION(:), INTENT(out) ::   ldtxt, ldnam    ! stored print information 
    5452      CHARACTER(len=*)              , INTENT(out) ::   cd_cfg          ! configuration name 
    5553      INTEGER                       , INTENT(out) ::   kk_cfg          ! configuration resolution 
    … …  
    5755      INTEGER                       , INTENT(out) ::   kperio          ! lateral global domain b.c.  
    5856      ! 
    59       INTEGER ::   ios, ii   ! Local integer 
     57      INTEGER ::   ios   ! Local integer 
    6058      !! 
    6159      NAMELIST/namusr_def/ rn_dx, rn_dz, nn_wad_test 
    6260      !!---------------------------------------------------------------------- 
    6361      ! 
    64       ii = 1 
     62      READ  ( numnam_cfg, namusr_def, IOSTAT = ios, ERR = 902 ) 
     63902   IF( ios /= 0 )   CALL ctl_nam ( ios , 'namusr_def in configuration namelist' ) 
    6564      ! 
    66       REWIND( numnam_cfg )          ! Namelist namusr_def (exist in namelist_cfg only) 
    67       READ  ( numnam_cfg, namusr_def, IOSTAT = ios, ERR = 902 ) 
    68 902   IF( ios /= 0 )   CALL ctl_nam ( ios , 'namusr_def in configuration namelist', .TRUE. ) 
    69       ! 
    70       WRITE( ldnam(:), namusr_def ) 
     65      IF(lwm)   WRITE( numond, namusr_def ) 
    7166      ! 
    7267      ! 
    … …  
    7974      kpj = INT(  32.e3 / rn_dx ) + 2 
    8075      kpk = INT(  10.  / rn_dz ) + 1 
     76      !                             ! Set the lateral boundary condition of the global domain 
     77      kperio = 0                    ! WAD_TEST_CASES configuration : closed domain 
     78      IF( nn_wad_test == 8 ) THEN 
     79         kperio = 7         ! North-South cyclic test 
     80         kpi = kpi - 2      ! no closed boundary 
     81         kpj = kpj - 2      ! no closed boundary 
     82      ENDIF 
    8183      ! 
    8284      !                             ! control print 
    83       WRITE(ldtxt(ii),*) '   '                                                                          ;   ii = ii + 1 
    84       WRITE(ldtxt(ii),*) 'usr_def_nam  : read the user defined namelist (namusr_def) in namelist_cfg'   ;   ii = ii + 1 
    85       WRITE(ldtxt(ii),*) '~~~~~~~~~~~ '                                                                 ;   ii = ii + 1 
    86       WRITE(ldtxt(ii),*) '   Namelist namusr_def : WAD_TEST_CASES test case'                             ;   ii = ii + 1 
    87       WRITE(ldtxt(ii),*) '      horizontal resolution                    rn_dx  = ', rn_dx, ' meters'   ;   ii = ii + 1 
    88       WRITE(ldtxt(ii),*) '      vertical   resolution                    rn_dz  = ', rn_dz, ' meters'   ;   ii = ii + 1 
    89       WRITE(ldtxt(ii),*) '      WAD_TEST_CASES domain = 52 km  x  34 km x 10 m'                ;   ii = ii + 1 
    90       WRITE(ldtxt(ii),*) '         resulting global domain size :        jpiglo = ', kpi                ;   ii = ii + 1 
    91       WRITE(ldtxt(ii),*) '                                               jpjglo = ', kpj                ;   ii = ii + 1 
    92       WRITE(ldtxt(ii),*) '                                               jpkglo = ', kpk                ;   ii = ii + 1 
    93       ! 
    94       !                             ! Set the lateral boundary condition of the global domain 
    95       kperio = 0                    ! WAD_TEST_CASES configuration : closed domain 
    96       IF( nn_wad_test == 8 ) kperio = 7 ! North-South cyclic test 
    97       ! 
    98       WRITE(ldtxt(ii),*) '   '                                                                          ;   ii = ii + 1 
    99       WRITE(ldtxt(ii),*) '   Lateral boundary condition of the global domain'                           ;   ii = ii + 1 
    100       WRITE(ldtxt(ii),*) '      closed                                   jperio = ', kperio             ;   ii = ii + 1 
     85      IF(lwp) THEN 
     86         WRITE(numout,*) '   ' 
     87         WRITE(numout,*) 'usr_def_nam  : read the user defined namelist (namusr_def) in namelist_cfg' 
     88         WRITE(numout,*) '~~~~~~~~~~~ ' 
     89         WRITE(numout,*) '   Namelist namusr_def : WAD_TEST_CASES test case' 
     90         WRITE(numout,*) '      horizontal resolution                    rn_dx  = ', rn_dx, ' meters' 
     91         WRITE(numout,*) '      vertical   resolution                    rn_dz  = ', rn_dz, ' meters' 
     92         WRITE(numout,*) '      WAD_TEST_CASES domain = 52 km  x  34 km x 10 m' 
     93         WRITE(numout,*) '         resulting global domain size :        jpiglo = ', kpi 
     94         WRITE(numout,*) '                                               jpjglo = ', kpj 
     95         WRITE(numout,*) '                                               jpkglo = ', kpk 
     96         WRITE(numout,*) '   ' 
     97         WRITE(numout,*) '   Lateral boundary condition of the global domain' 
     98         WRITE(numout,*) '      closed                                   jperio = ', kperio 
     99      ENDIF 
    101100      ! 
    102101   END SUBROUTINE usr_def_nam 
Note: See TracChangeset for help on using the changeset viewer.