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 3973 for branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OFF_SRC – NEMO

Ignore:
Timestamp:
2013-07-12T13:54:28+02:00 (11 years ago)
Author:
clevy
Message:

Configuration setting/Step3, see ticket:#1074

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90

    r3875 r3973  
    142142         &             nn_isplt, nn_jsplt, nn_jctls, nn_jctle,   & 
    143143         &             nn_bench, nn_timing 
     144      NAMELIST/namcfg/ cp_cfg, jp_cfg, jpidta, jpjdta, jpkdta, jpiglo, jpjglo, & 
     145         &             jpizoom, jpjzoom, jperio, jphgr_msh, & 
     146         &             ppglam0, ppgphi0, ppe1_deg, ppe2_deg, ppe1_m, ppe2_m, & 
     147         &             ppsur, ppa0, ppa1, ppkth, ppacr, ppdzmin, pphmax, ldbletanh, & 
     148         &             ppa2, ppkth2, ppacr2 
    144149      !!---------------------------------------------------------------------- 
    145150      ! 
     
    161166      WRITE( numond, namctl ) 
    162167      ! 
     168      REWIND( numnam_ref )              ! Namelist namcfg in reference namelist : Control prints & Benchmark 
     169      READ  ( numnam_ref, namcfg, IOSTAT = ios, ERR = 903 ) 
     170903   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in reference namelist', lwp ) 
     171 
     172      REWIND( numnam_cfg )              ! Namelist namcfg in confguration namelist : Control prints & Benchmark 
     173      READ  ( numnam_cfg, namcfg, IOSTAT = ios, ERR = 904 ) 
     174904   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in configuration namelist', lwp )    
     175      WRITE( numond, namcfg ) 
    163176      !                             !--------------------------------------------! 
    164177      !                             !  set communicator & select the local node  ! 
     
    305318      jsplt     = nn_jsplt 
    306319      nbench    = nn_bench 
     320     IF(lwp) THEN                  ! control print 
     321         WRITE(numout,*) 
     322         WRITE(numout,*) 'namcfg  : configuration initialization through namelist read' 
     323         WRITE(numout,*) '~~~~~~~ ' 
     324         WRITE(numout,*) '   Namelist namcfg' 
     325         WRITE(numout,*) '      configuration name              cp_cfg      = ', TRIM(cp_cfg) 
     326         WRITE(numout,*) '      configuration resolution        jp_cfg      = ', jp_cfg 
     327         WRITE(numout,*) '      1st lateral dimension ( >= jpi ) jpidta     = ', jpidta 
     328         WRITE(numout,*) '      2nd    "         "    ( >= jpj ) jpjdta     = ', jpjdta 
     329         WRITE(numout,*) '      3nd    "         "               jpkdta     = ', jpkdta 
     330         WRITE(numout,*) '      1st dimension of global domain in i jpiglo  = ', jpiglo 
     331         WRITE(numout,*) '      2nd    -                  -    in j jpjglo  = ', jpjglo 
     332         WRITE(numout,*) '      left bottom i index of the zoom (in data domain) jpizoom = ', jpizoom 
     333         WRITE(numout,*) '      left bottom j index of the zoom (in data domain) jpizoom = ', jpjzoom 
     334         WRITE(numout,*) '      lateral cond. type (between 0 and 6) jperio = ', jperio    
     335         WRITE(numout,*) '      type of horizontal mesh jphgr_msh           = ', jphgr_msh 
     336         WRITE(numout,*) '      longitude of first raw and column T-point ppglam0 = ', ppglam0 
     337         WRITE(numout,*) '      latitude  of first raw and column T-point ppgphi0 = ', ppgphi0 
     338         WRITE(numout,*) '      zonal      grid-spacing (degrees) ppe1_deg        = ', ppe1_deg 
     339         WRITE(numout,*) '      meridional grid-spacing (degrees) ppe2_deg        = ', ppe2_deg 
     340         WRITE(numout,*) '      zonal      grid-spacing (degrees) ppe1_m          = ', ppe1_m 
     341         WRITE(numout,*) '      meridional grid-spacing (degrees) ppe2_m          = ', ppe2_m 
     342         WRITE(numout,*) '      ORCA r4, r2 and r05 coefficients  ppsur           = ', ppsur 
     343         WRITE(numout,*) '                                        ppa0            = ', ppa0 
     344         WRITE(numout,*) '                                        ppa1            = ', ppa1 
     345         WRITE(numout,*) '                                        ppkth           = ', ppkth 
     346         WRITE(numout,*) '                                        ppacr           = ', ppacr 
     347         WRITE(numout,*) '      Minimum vertical spacing ppdzmin                  = ', ppdzmin 
     348         WRITE(numout,*) '      Maximum depth pphmax                              = ', pphmax 
     349         WRITE(numout,*) '      Use double tanf function for vertical coordinates ldbletanh = ', ldbletanh 
     350         WRITE(numout,*) '      Double tanh function parameters ppa2              = ', ppa2 
     351         WRITE(numout,*) '                                      ppkth2            = ', ppkth2 
     352         WRITE(numout,*) '                                      ppacr2            = ', ppacr2 
     353      ENDIF 
    307354      !                             ! Parameter control 
    308355      ! 
     
    348395         CASE ( 'gyre' )   ;   CALL ctl_warn( ' The Benchmark is activated ' ) 
    349396         CASE DEFAULT      ;   CALL ctl_stop( ' The Benchmark is based on the GYRE configuration:',   & 
    350             &                                 ' key_gyre must be used or set nbench = 0' ) 
     397            &                                 ' cp_cfg="gyre" in namelsit &namcfg or set nbench = 0' ) 
    351398         END SELECT 
    352399      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.