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 3875 for branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/ZDF – NEMO

Ignore:
Timestamp:
2013-04-18T16:38:06+02:00 (11 years ago)
Author:
clevy
Message:

Configuration Setting/Step? 1, see ticket:#1074

Location:
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/ZDF
Files:
8 edited

Legend:

Unmodified
Added
Removed

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfbfr.F90

    r3820 r3875  
    179179      INTEGER   ::   ikbu, ikbv   ! temporary integers 
    180180      INTEGER   ::   ictu, ictv   !    -          - 
     181      INTEGER   ::   ios 
    181182      REAL(wp)  ::   zminbfr, zmaxbfr   ! temporary scalars 
    182183      REAL(wp)  ::   zfru, zfrv         !    -         - 
    … …  
    188189      IF( nn_timing == 1 )  CALL timing_start('zdf_bfr_init') 
    189190      ! 
    190       REWIND ( numnam )               !* Read Namelist nam_bfr : bottom momentum boundary condition 
    191       READ   ( numnam, nambfr ) 
     191      REWIND( numnam_ref )              ! Namelist nambfr in reference namelist : Bottom momentum boundary condition 
     192      READ  ( numnam_ref, nambfr, IOSTAT = ios, ERR = 901) 
     193901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambfr in reference namelist', lwp ) 
     194 
     195      REWIND( numnam_cfg )              ! Namelist nambfr in configuration namelist : Bottom momentum boundary condition 
     196      READ  ( numnam_cfg, nambfr, IOSTAT = ios, ERR = 902 ) 
     197902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambfr in configuration namelist', lwp ) 
     198      WRITE ( numond, nambfr ) 
    192199 
    193200      !                               !* Parameter control and print 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfddm.F90

    r3610 r3875  
    213213      !!---------------------------------------------------------------------- 
    214214      NAMELIST/namzdf_ddm/ rn_avts, rn_hsbfr 
    215       !!---------------------------------------------------------------------- 
    216       ! 
    217       REWIND( numnam )                ! Read Namelist namzdf_ddm : double diffusion mixing scheme 
    218       READ  ( numnam, namzdf_ddm ) 
     215      INTEGER  ::   ios                 ! Local integer output status for namelist read 
     216      !!---------------------------------------------------------------------- 
     217      ! 
     218      REWIND( numnam_ref )              ! Namelist namzdf_ddm in reference namelist : Double diffusion mixing scheme 
     219      READ  ( numnam_ref, namzdf_ddm, IOSTAT = ios, ERR = 901) 
     220901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_ddm in reference namelist', lwp ) 
     221 
     222      REWIND( numnam_cfg )              ! Namelist namzdf_ddm in configuration namelist : Double diffusion mixing scheme 
     223      READ  ( numnam_cfg, namzdf_ddm, IOSTAT = ios, ERR = 902 ) 
     224902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_ddm in configuration namelist', lwp ) 
     225      WRITE ( numond, namzdf_ddm ) 
    219226      ! 
    220227      IF(lwp) THEN                    ! Parameter print 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90

    r3798 r3875  
    928928      ! 
    929929      INTEGER ::   jk    ! dummy loop indices 
     930      INTEGER ::   ios   ! Local integer output status for namelist read 
    930931      REAL(wp)::   zcr   ! local scalar 
    931932      !! 
    … …  
    940941      IF( nn_timing == 1 )  CALL timing_start('zdf_gls_init') 
    941942      ! 
    942       REWIND( numnam )                 !* Read Namelist namzdf_gls 
    943       READ  ( numnam, namzdf_gls ) 
     943      REWIND( numnam_ref )              ! Namelist namzdf_gls in reference namelist : Vertical eddy diffivity and viscosity using gls turbulent closure scheme 
     944      READ  ( numnam_ref, namzdf_gls, IOSTAT = ios, ERR = 901) 
     945901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_gls in reference namelist', lwp ) 
     946 
     947      REWIND( numnam_cfg )              ! Namelist namzdf_gls in configuration namelist : Vertical eddy diffivity and viscosity using gls turbulent closure scheme 
     948      READ  ( numnam_cfg, namzdf_gls, IOSTAT = ios, ERR = 902 ) 
     949902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_gls in configuration namelist', lwp ) 
     950      WRITE ( numond, namzdf_gls ) 
    944951 
    945952      IF(lwp) THEN                     !* Control print 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfini.F90

    r3680 r3875  
    5151      !!---------------------------------------------------------------------- 
    5252      INTEGER ::   ioptio       ! temporary scalar 
     53      INTEGER ::   ios 
    5354      !! 
    5455      NAMELIST/namzdf/ rn_avm0, rn_avt0, nn_avb, nn_havtb, ln_zdfexp, nn_zdfexp,   & 
    … …  
    5657      !!---------------------------------------------------------------------- 
    5758 
    58       REWIND( numnam )           !* Read namzdf namelist : vertical mixing parameters 
    59       READ  ( numnam, namzdf ) 
     59      REWIND( numnam_ref )              ! Namelist namzdf in reference namelist : Vertical mixing parameters 
     60      READ  ( numnam_ref, namzdf, IOSTAT = ios, ERR = 901) 
     61901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf in reference namelist', lwp ) 
     62 
     63      REWIND( numnam_cfg )              ! Namelist namzdf in reference namelist : Vertical mixing parameters 
     64      READ  ( numnam_cfg, namzdf, IOSTAT = ios, ERR = 902 ) 
     65902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf in configuration namelist', lwp ) 
     66      WRITE ( numond, namzdf ) 
    6067 
    6168      IF(lwp) THEN               !* Parameter print 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfkpp.F90

    r3792 r3875  
    13821382      REAL(wp) ::   zustar, zucube, zustvk, zeta, zehat   ! tempory scalars 
    13831383#endif 
     1384      INTEGER  ::   ios            ! Local integer output status for namelist read 
    13841385      REAL(wp) ::   zhbf           ! tempory scalars 
    13851386      LOGICAL  ::   ll_kppcustom   ! 1st ocean level taken as surface layer 
    … …  
    13911392      IF( nn_timing == 1 )  CALL timing_start('zdf_kpp_init') 
    13921393      ! 
    1393       REWIND ( numnam )               ! Read Namelist namkpp : K-Profile Parameterisation 
    1394       READ   ( numnam, namzdf_kpp ) 
     1394      REWIND( numnam_ref )              ! Namelist namzdf_kpp in reference namelist : Vertical eddy diffivity and viscosity using kpp turbulent closure scheme 
     1395      READ  ( numnam_ref, namzdf_kpp, IOSTAT = ios, ERR = 901) 
     1396901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_kpp in reference namelist', lwp ) 
     1397 
     1398      REWIND( numnam_cfg )              ! Namelist namzdf_kpp in configuration namelist : Vertical eddy diffivity and viscosity using kpp turbulent closure scheme 
     1399      READ  ( numnam_cfg, namzdf_kpp, IOSTAT = ios, ERR = 902 ) 
     1400902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_kpp in configuration namelist', lwp ) 
     1401      WRITE ( numond, namzdf_kpp ) 
    13951402 
    13961403      IF(lwp) THEN                    ! Control print 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfric.F90

    r3625 r3875  
    247247      !!---------------------------------------------------------------------- 
    248248      INTEGER :: ji, jj, jk   ! dummy loop indices 
     249      INTEGER ::   ios        ! Local integer output status for namelist read 
    249250      !! 
    250251      NAMELIST/namzdf_ric/ rn_avmri, rn_alp   , nn_ric  , rn_ekmfc,  & 
    … …  
    252253      !!---------------------------------------------------------------------- 
    253254      ! 
    254       REWIND( numnam )               ! Read Namelist namzdf_ric : richardson number dependent Kz 
    255       READ  ( numnam, namzdf_ric ) 
     255      REWIND( numnam_ref )              ! Namelist namzdf_ric in reference namelist : Vertical diffusion Kz depends on Richardson number 
     256      READ  ( numnam_ref, namzdf_ric, IOSTAT = ios, ERR = 901) 
     257901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_ric in reference namelist', lwp ) 
     258 
     259      REWIND( numnam_cfg )              ! Namelist namzdf_ric in configuration namelist : Vertical diffusion Kz depends on Richardson number 
     260      READ  ( numnam_cfg, namzdf_ric, IOSTAT = ios, ERR = 902 ) 
     261902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_ric in configuration namelist', lwp ) 
     262      WRITE ( numond, namzdf_ric ) 
    256263      ! 
    257264      IF(lwp) THEN                   ! Control print 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90

    r3680 r3875  
    692692      !!---------------------------------------------------------------------- 
    693693      INTEGER ::   ji, jj, jk   ! dummy loop indices 
     694      INTEGER ::   ios 
    694695      !! 
    695696      NAMELIST/namzdf_tke/ rn_ediff, rn_ediss , rn_ebb , rn_emin  ,   & 
    … …  
    699700      !!---------------------------------------------------------------------- 
    700701      ! 
    701       REWIND ( numnam )               !* Read Namelist namzdf_tke : Turbulente Kinetic Energy 
    702       READ   ( numnam, namzdf_tke ) 
     702      REWIND( numnam_ref )              ! Namelist namzdf_tke in reference namelist : Turbulent Kinetic Energy 
     703      READ  ( numnam_ref, namzdf_tke, IOSTAT = ios, ERR = 901) 
     704901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_tke in reference namelist', lwp ) 
     705 
     706      REWIND( numnam_cfg )              ! Namelist namzdf_tke in configuration namelist : Turbulent Kinetic Energy 
     707      READ  ( numnam_cfg, namzdf_tke, IOSTAT = ios, ERR = 902 ) 
     708902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_tke in configuration namelist', lwp ) 
     709      WRITE ( numond, namzdf_tke ) 
    703710      ! 
    704711      ri_cri   = 2._wp    / ( 2._wp + rn_ediss / rn_ediff )   ! resulting critical Richardson number 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftmx.F90

    r3625 r3875  
    354354      INTEGER  ::   ji, jj, jk   ! dummy loop indices 
    355355      INTEGER  ::   inum         ! local integer 
     356      INTEGER  ::   ios 
    356357      REAL(wp) ::   ztpc, ze_z   ! local scalars 
    357358      REAL(wp), DIMENSION(:,:)  , POINTER ::  zem2, zek1   ! read M2 and K1 tidal energy 
    … …  
    369370      CALL wrk_alloc( jpi,jpj,jpk, zpc ) 
    370371       
    371       REWIND( numnam )               ! Read Namelist namtmx : Tidal Mixing 
    372       READ  ( numnam, namzdf_tmx ) 
     372      REWIND( numnam_ref )              ! Namelist namzdf_tmx in reference namelist : Tidal Mixing 
     373      READ  ( numnam_ref, namzdf_tmx, IOSTAT = ios, ERR = 901) 
     374901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_tmx in reference namelist', lwp ) 
     375 
     376      REWIND( numnam_cfg )              ! Namelist namzdf_tmx in configuration namelist : Tidal Mixing 
     377      READ  ( numnam_cfg, namzdf_tmx, IOSTAT = ios, ERR = 902 ) 
     378902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_tmx in configuration namelist', lwp ) 
     379      WRITE ( numond, namzdf_tmx ) 
    373380 
    374381      IF(lwp) THEN                   ! Control print 
Note: See TracChangeset for help on using the changeset viewer.