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/SBC/sbcssr.F90 – NEMO

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

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

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssr.F90

    r3764 r3875  
    7979      CHARACTER(len=100) ::  cn_dir          ! Root directory for location of ssr files 
    8080      TYPE(FLD_N) ::   sn_sst, sn_sss        ! informations about the fields to be read 
    81       NAMELIST/namsbc_ssr/ cn_dir, nn_sstr, nn_sssr, rn_dqdt, rn_deds, sn_sst, sn_sss, ln_sssr_bnd, rn_sssr_bnd 
    8281      !!---------------------------------------------------------------------- 
    8382      ! 
    … …  
    164163      TYPE(FLD_N) ::   sn_sst, sn_sss        ! informations about the fields to be read 
    165164      NAMELIST/namsbc_ssr/ cn_dir, nn_sstr, nn_sssr, rn_dqdt, rn_deds, sn_sst, sn_sss, ln_sssr_bnd, rn_sssr_bnd 
     165      INTEGER     ::  ios 
    166166      !!---------------------------------------------------------------------- 
    167167      ! 
    … …  
    173173      sn_sst = FLD_N( 'sst'    ,    24     ,  'sst'     ,  .false.   , .false. ,   'yearly'  , ''       , ''         ) 
    174174      sn_sss = FLD_N( 'sss'    ,    -1     ,  'sss'     ,  .true.    , .false. ,   'yearly'  , ''       , ''         ) 
    175  
    176       REWIND( numnam )             !* read in namlist namflx 
    177       READ  ( numnam, namsbc_ssr )  
     175  
     176      REWIND( numnam_ref )              ! Namelist namsbc_ssr in reference namelist :  
     177      READ  ( numnam_ref, namsbc_ssr, IOSTAT = ios, ERR = 901) 
     178901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_ssr in reference namelist', lwp ) 
     179 
     180      REWIND( numnam_cfg )              ! Namelist namsbc_ssr in configuration namelist : 
     181      READ  ( numnam_cfg, namsbc_ssr, IOSTAT = ios, ERR = 902 ) 
     182902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_ssr in configuration namelist', lwp ) 
     183      WRITE ( numond, namsbc_ssr ) 
    178184 
    179185      IF(lwp) THEN                 !* control print 
Note: See TracChangeset for help on using the changeset viewer.