Ignore:
Timestamp:
2016-11-06T17:31:33+01:00 (5 years ago)
Author:
gm
Message:

#1692 - branch SIMPLIF_2_usrdef: add depth_e3 module + management of ORCA family + domain_cfg filename (in&out) given in namelist

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/NEMO/OPA_SRC/USR/usrdef_nam.F90

    r6923 r7200  
    3838CONTAINS 
    3939 
    40    SUBROUTINE usr_def_nam( ldtxt, ldnam, kpi, kpj, kpk, kperio ) 
     40   SUBROUTINE usr_def_nam( ldtxt, ldnam, cd_cfg, kk_cfg, kpi, kpj, kpk, kperio ) 
    4141      !!---------------------------------------------------------------------- 
    4242      !!                     ***  ROUTINE dom_nam  *** 
     
    5151      !!---------------------------------------------------------------------- 
    5252      CHARACTER(len=*), DIMENSION(:), INTENT(out) ::   ldtxt, ldnam    ! stored print information 
     53      CHARACTER(len=*)              , INTENT(out) ::   cd_cfg          ! configuration name 
     54      INTEGER                       , INTENT(out) ::   kk_cfg          ! configuration resolution 
    5355      INTEGER                       , INTENT(out) ::   kpi, kpj, kpk   ! global domain sizes  
    5456      INTEGER                       , INTENT(out) ::   kperio          ! lateral global domain b.c.  
     
    6668      ! 
    6769      WRITE( ldnam(:), namusr_def ) 
     70      ! 
     71      cd_cfg = 'GYRE'               ! name & resolution (not used) 
     72      kk_cfg = nn_GYRE 
    6873      ! 
    6974      kpi = 30 * nn_GYRE + 2        ! Global Domain size 
Note: See TracChangeset for help on using the changeset viewer.