Changeset 14683


Ignore:
Timestamp:
2021-04-08T11:52:58+02:00 (4 weeks ago)
Author:
ayoung
Message:

Compatibility changes for periodic bc and north fold in usr def nam. See tickets #2480 and #2651.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_14237_KERNEL-01_IMMERSE_SEAMOUNT/tests/SEAMOUNT/MY_SRC/usrdef_nam.F90

    r14332 r14683  
    4949CONTAINS 
    5050 
    51    SUBROUTINE usr_def_nam( cd_cfg, kk_cfg, kpi, kpj, kpk, kperio ) 
     51   SUBROUTINE usr_def_nam( cd_cfg, kk_cfg, kpi, kpj, kpk, ldIperio, ldJperio, ldNFold, cdNFtype ) 
    5252      !!---------------------------------------------------------------------- 
    5353      !!                     ***  ROUTINE dom_nam  *** 
     
    6262      !! ** input   : - namusr_def namelist found in namelist_cfg 
    6363      !!---------------------------------------------------------------------- 
    64       CHARACTER(len=*), INTENT(out) ::   cd_cfg          ! configuration name 
    65       INTEGER         , INTENT(out) ::   kk_cfg          ! configuration resolution 
    66       INTEGER         , INTENT(out) ::   kpi, kpj, kpk   ! global domain sizes 
    67       INTEGER         , INTENT(out) ::   kperio          ! lateral global domain b.c. 
     64      CHARACTER(len=*), INTENT(out) ::   cd_cfg               ! configuration name 
     65      INTEGER         , INTENT(out) ::   kk_cfg               ! configuration resolution 
     66      INTEGER         , INTENT(out) ::   kpi, kpj, kpk        ! global domain sizes 
     67      LOGICAL         , INTENT(out) ::   ldIperio, ldJperio   ! i- and j- periodicity 
     68      LOGICAL         , INTENT(out) ::   ldNFold              ! North pole folding 
     69      CHARACTER(len=1), INTENT(out) ::   cdNFtype             ! Folding type: T or F 
     70 
    6871      ! 
    6972      INTEGER ::   ios   ! Local integer 
     
    7982      ! 
    8083      cd_cfg = 'Seamount'      ! name & resolution (not used) 
     84      kk_cfg = 0 
     85 
     86      !                             ! Set the lateral boundary condition of the global domain 
     87      ldIperio = .TRUE.    ;   ldJperio = .true.   ! C1D configuration : 3x3 basin with cyclic Est-West and Norht-South condition 
     88      ldNFold  = .FALSE.   ;   cdNFtype = '-' 
     89 
    8190      ! 
    8291      ! Global Domain size:  SEAMOUNT_TEST_CASE domain is rn_length km x rn_width km x rn_bathy m 
     
    8897      rn_drho = 1000._wp * rn_bathy * ( rn_s * rn_f * rn_l / rn_bathy ) ** 2._wp / grav 
    8998      ! 
    90       kperio = 1                    ! SEAMOUNT_TEST_CASE configuration : closed domain 
     99      !                             ! SEAMOUNT_TEST_CASE configuration : closed domain 
    91100      !                             ! control print 
    92101      IF(lwp) THEN 
     
    104113         WRITE(numout,*) '   '                                                                           
    105114         WRITE(numout,*) '   Lateral boundary condition of the global domain'                            
    106          WRITE(numout,*) '      closed                                   jperio = ', kperio         
     115         WRITE(numout,*) '      east-west                                   ldIperio = ', ldIperio      
     116         WRITE(numout,*) '      north-south                                 ldJperio = ', ldJperio    
    107117         WRITE(numout,*) '   Initial condition:                          ln_exp_init =    ', ln_exp_init 
    108118         WRITE(numout,*) '                                               ln_linear_init = ', ln_linear_init 
Note: See TracChangeset for help on using the changeset viewer.