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 – 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/SBC
Files:
16 edited

Legend:

Unmodified
Added
Removed

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

    r3625 r3875  
    199199      !! ** Method  :   Read the namelist namsbc_alb 
    200200      !!---------------------------------------------------------------------- 
     201      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    201202      NAMELIST/namsbc_alb/ rn_cloud, rn_albice, rn_alphd, rn_alphdi, rn_alphc 
    202203      !!---------------------------------------------------------------------- 
    … …  
    204205      albd_init = 1                     ! indicate that the initialization has been done 
    205206      ! 
    206       REWIND( numnam )                  ! Read Namelist namsbc_alb : albedo parameters 
    207       READ  ( numnam, namsbc_alb ) 
     207      REWIND( numnam_ref )              ! Namelist namsbc_alb in reference namelist : Albedo parameters 
     208      READ  ( numnam_ref, namsbc_alb, IOSTAT = ios, ERR = 901) 
     209901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_alb in reference namelist', lwp ) 
     210 
     211      REWIND( numnam_cfg )              ! Namelist namsbc_alb in configuration namelist : Albedo parameters 
     212      READ  ( numnam_cfg, namsbc_alb, IOSTAT = ios, ERR = 902 ) 
     213902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_alb in configuration namelist', lwp ) 
     214      WRITE ( numond, namsbc_alb ) 
    208215      ! 
    209216      IF(lwp) THEN                      ! Control print 

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

    r3680 r3875  
    103103         sn_tc = FLD_N( 'tc_track',     6     ,  'tc'     ,  .true.    , .false. ,   'yearly'  , ''       , ''         ) 
    104104         ! 
    105          !         REWIND( numnam )                    ! ... read in namlist namsbc_core 
    106          !         READ  ( numnam, namsbc_tc ) 
    107          ! 
     105         !  Namelist is read in namsbc_core 
    108106         ! set sf structure 
    109107         ALLOCATE( sf(1), STAT=ierror ) 

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

    r3625 r3875  
    6464      INTEGER, INTENT(in) ::   kt       ! ocean time step 
    6565      ! 
     66      INTEGER  ::   ios                   ! Local integer output status for namelist read 
    6667      REAL(wp) ::   zfacto                ! local scalar 
    6768      REAL(wp) ::   zrhoa  = 1.22_wp      ! Air density kg/m3 
    … …  
    7475      IF( kt == nit000 ) THEN 
    7576         ! 
    76          REWIND( numnam )                    ! Read Namelist namsbc : surface fluxes 
    77          READ  ( numnam, namsbc_ana ) 
     77         REWIND( numnam_ref )              ! Namelist namsbc_ana in reference namelist : Analytical surface fluxes 
     78         READ  ( numnam_ref, namsbc_ana, IOSTAT = ios, ERR = 901) 
     79901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_ana in reference namelist', lwp ) 
     80 
     81         REWIND( numnam_cfg )              ! Namelist namsbc_ana in configuration namelist : Analytical surface fluxes 
     82         READ  ( numnam_cfg, namsbc_ana, IOSTAT = ios, ERR = 902 ) 
     83902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_ana in configuration namelist', lwp ) 
     84         WRITE ( numond, namsbc_ana ) 
    7885         ! 
    7986         IF(lwp) WRITE(numout,*)' ' 

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

    r3795 r3875  
    6565      !! 
    6666      INTEGER            ::   ierror  ! local integer  
     67      INTEGER            ::   ios     ! Local integer output status for namelist read 
    6768      !! 
    6869      CHARACTER(len=100) ::  cn_dir   ! Root directory for location of ssr files 
    … …  
    8384         cn_dir  = './'          ! directory in which the Patm data are  
    8485 
    85          REWIND( numnam )                             !* read in namlist namsbc_apr 
    86          READ  ( numnam, namsbc_apr )  
     86         REWIND( numnam_ref )              ! Namelist namsbc_apr in reference namelist : File for atmospheric pressure forcing 
     87         READ  ( numnam_ref, namsbc_apr, IOSTAT = ios, ERR = 901) 
     88901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_apr in reference namelist', lwp ) 
     89 
     90         REWIND( numnam_cfg )              ! Namelist namsbc_apr in configuration namelist : File for atmospheric pressure forcing 
     91         READ  ( numnam_cfg, namsbc_apr, IOSTAT = ios, ERR = 902 ) 
     92902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_apr in configuration namelist', lwp ) 
     93         WRITE ( numond, namsbc_apr ) 
    8794         ! 
    8895         ALLOCATE( sf_apr(1), STAT=ierror )           !* allocate and fill sf_sst (forcing structure) with sn_sst 

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

    r3625 r3875  
    124124      INTEGER, INTENT( in  ) ::   kt   ! ocean time step 
    125125      !! 
    126       INTEGER  ::   ifpr, jfpr   ! dummy indices 
     126      INTEGER  ::   ifpr, jfpr                   ! dummy indices 
    127127      INTEGER  ::   ierr0, ierr1, ierr2, ierr3   ! return error code 
     128      INTEGER  ::   ios                          ! Local integer output status for namelist read 
    128129      !! 
    129130      CHARACTER(len=100) ::  cn_dir                            !   Root directory for location of CLIO files 
    … …  
    153154         sn_prec = FLD_N( 'precip' ,    -1     , 'precip' ,  .true.    , .false. ,   'yearly'  , ''       , ''       )  
    154155 
    155          REWIND( numnam )                    ! ... read in namlist namsbc_clio 
    156          READ  ( numnam, namsbc_clio ) 
     156         REWIND( numnam_ref )              ! Namelist namsbc_clio in reference namelist : CLIO files 
     157         READ  ( numnam_ref, namsbc_clio, IOSTAT = ios, ERR = 901) 
     158901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_clio in reference namelist', lwp ) 
     159 
     160         REWIND( numnam_cfg )              ! Namelist namsbc_clio in configuration namelist : CLIO files 
     161         READ  ( numnam_cfg, namsbc_clio, IOSTAT = ios, ERR = 902 ) 
     162902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_clio in configuration namelist', lwp ) 
     163         WRITE ( numond, namsbc_clio ) 
    157164 
    158165         ! store namelist information in an array 

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

    r3772 r3875  
    122122      INTEGER  ::   ifpr     ! dummy loop indice 
    123123      INTEGER  ::   jfld     ! dummy loop arguments 
     124      INTEGER  ::   ios      ! Local integer output status for namelist read 
    124125      !! 
    125126      CHARACTER(len=100) ::  cn_dir   !   Root directory for location of core files 
    … …  
    151152         sn_tdif = FLD_N( 'taudif' ,    24     , 'taudif' ,  .true.    , .false. ,   'yearly'  , ''       , ''       ) 
    152153         ! 
    153          REWIND( numnam )                          ! read in namlist namsbc_core 
    154          READ  ( numnam, namsbc_core ) 
     154 
     155         REWIND( numnam_ref )              ! Namelist namsbc_core in reference namelist : CORE bulk parameters 
     156         READ  ( numnam_ref, namsbc_core, IOSTAT = ios, ERR = 901) 
     157901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_core in reference namelist', lwp ) 
     158 
     159         REWIND( numnam_cfg )              ! Namelist namsbc_core in configuration namelist : CORE bulk parameters 
     160         READ  ( numnam_cfg, namsbc_core, IOSTAT = ios, ERR = 902 ) 
     161902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_core in configuration namelist', lwp ) 
     162         WRITE ( numond, namsbc_core ) 
    155163         !                                         ! check: do we plan to use ln_dm2dc with non-daily forcing? 
    156164         IF( ln_dm2dc .AND. sn_qsr%nfreqh /= 24 )   &  

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

    r3625 r3875  
    104104      INTEGER  :: ifpr     ! dummy loop indice 
    105105      INTEGER  :: jj,ji    ! dummy loop arguments 
     106      INTEGER  ::   ios    ! Local integer output status for namelist read 
    106107      REAL(wp) :: act_hour 
    107108      !!-------------------------------------------------------------------- 
    … …  
    147148            sn_prec = FLD_N( 'precip_cmap' ,  -1   ,  'precip'  ,  .true.    ,  .true. ,   'yearly'  , ''       , ''         ) 
    148149            ! 
    149             REWIND( numnam )                    ! ... read in namlist namsbc_mfs 
    150             READ  ( numnam, namsbc_mfs ) 
     150 
     151            REWIND( numnam_ref )              ! Namelist namsbc_msf in reference namelist : MFS files 
     152            READ  ( numnam_ref, namsbc_mfs, IOSTAT = ios, ERR = 901) 
     153901         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_mfs in reference namelist', lwp ) 
     154 
     155            REWIND( numnam_cfg )              ! Namelist namsbc_msf in configuration namelist : MFS files 
     156            READ  ( numnam_cfg, namsbc_mfs, IOSTAT = ios, ERR = 902 ) 
     157902         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_mfs in configuration namelist', lwp ) 
     158            WRITE ( numond, namsbc_mfs ) 
    151159            ! 
    152160            ! store namelist information in an array 

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

    r3680 r3875  
    221221      !! 
    222222      INTEGER ::   jn   ! dummy loop index 
     223      INTEGER ::   ios  ! Local integer output status for namelist read 
    223224      REAL(wp), POINTER, DIMENSION(:,:) ::   zacs, zaos 
    224225      !! 
    … …  
    258259      sn_rcv_co2    = FLD_C( 'none'                ,    'no'    ,     ''      ,         ''          ,   ''    ) 
    259260 
    260       REWIND( numnam )                    ! ... read namlist namsbc_cpl 
    261       READ  ( numnam, namsbc_cpl ) 
     261      REWIND( numnam_ref )              ! Namelist namsbc_cpl in reference namelist : Variables for OASIS coupling 
     262      READ  ( numnam_ref, namsbc_cpl, IOSTAT = ios, ERR = 901) 
     263901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_cpl in reference namelist', lwp ) 
     264 
     265      REWIND( numnam_cfg )              ! Namelist namsbc_cpl in configuration namelist : Variables for OASIS coupling 
     266      READ  ( numnam_cfg, namsbc_cpl, IOSTAT = ios, ERR = 902 ) 
     267902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_cpl in configuration namelist', lwp ) 
     268      WRITE ( numond, namsbc_cpl ) 
    262269 
    263270      IF(lwp) THEN                        ! control print 

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

    r3625 r3875  
    7777      INTEGER  ::   ji, jj, jf            ! dummy indices 
    7878      INTEGER  ::   ierror                ! return error code 
     79      INTEGER  ::   ios                   ! Local integer output status for namelist read 
    7980      REAL(wp) ::   zfact                 ! temporary scalar 
    8081      REAL(wp) ::   zrhoa  = 1.22         ! Air density kg/m3 
    … …  
    100101         sn_emp  = FLD_N(  'emp'  ,    24     ,  'emp'     ,  .false.   , .false. ,   'yearly'  , ''       , ''        ) 
    101102         ! 
    102          REWIND ( numnam )                         ! read in namlist namflx 
    103          READ   ( numnam, namsbc_flx )  
     103         REWIND( numnam_ref )              ! Namelist namsbc_flx in reference namelist : Files for fluxes 
     104         READ  ( numnam_ref, namsbc_flx, IOSTAT = ios, ERR = 901) 
     105901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_flx in reference namelist', lwp ) 
     106 
     107         REWIND( numnam_cfg )              ! Namelist namsbc_flx in configuration namelist : Files for fluxes 
     108         READ  ( numnam_cfg, namsbc_flx, IOSTAT = ios, ERR = 902 ) 
     109902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_flx in configuration namelist', lwp ) 
     110         WRITE ( numond, namsbc_flx )  
    104111         ! 
    105112         !                                         ! check: do we plan to use ln_dm2dc with non-daily forcing? 

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

    r3625 r3875  
    759759         sn_bot5 = FLD_N( 'botmeltn5_1m' ,    -1.    ,  'botmeltn5' ,  .true.    , .true.  ,  ' yearly'  , ''       , ''         ) 
    760760 
    761 !         REWIND ( numnam )               ! ... at some point might read in from NEMO namelist? 
    762 !         READ   ( numnam, namsbc_cice )  
     761! ... at some point might read in from NEMO namelist? 
     762!!$      REWIND( numnam_ref )              ! Namelist namsbc_cice in reference namelist :  
     763!!$      READ  ( numnam_ref, namsbc_cice, IOSTAT = ios, ERR = 901) 
     764!!$901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_cice in reference namelist', lwp ) 
     765!!$ 
     766!!$      REWIND( numnam_cfg )              ! Namelist namsbc_cice in configuration namelist : Parameters of the run 
     767!!$      READ  ( numnam_cfg, namsbc_cice, IOSTAT = ios, ERR = 902 ) 
     768!!$902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_cice in configuration namelist', lwp ) 
     769!!$      WRITE ( numond, namsbc_cice ) 
    763770 
    764771         ! store namelist information in an array 

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

    r3625 r3875  
    5959      INTEGER  ::   ji, jj     ! dummy loop indices 
    6060      INTEGER  ::   ierror     ! return error code 
     61      INTEGER  ::   ios        ! Local integer output status for namelist read 
    6162      REAL(wp) ::   ztrp, zsice, zt_fzp, zfr_obs 
    6263      REAL(wp) ::   zqri, zqrj, zqrp, zqi 
    … …  
    7677         sn_ice = FLD_N('ice_cover',    -1    ,  'ice_cov' ,  .true.    , .true. ,   'yearly'  , ''       , ''         ) 
    7778 
    78          REWIND ( numnam )               ! ... read in namlist namiif 
    79          READ   ( numnam, namsbc_iif ) 
     79         REWIND( numnam_ref )              ! Namelist namsbc_iif in reference namelist : Ice if file 
     80         READ  ( numnam_ref, namsbc_iif, IOSTAT = ios, ERR = 901) 
     81901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_iif in reference namelist', lwp ) 
     82 
     83         REWIND( numnam_cfg )              ! Namelist Namelist namsbc_iif in configuration namelist : Ice if file 
     84         READ  ( numnam_cfg, namsbc_iif, IOSTAT = ios, ERR = 902 ) 
     85902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_iif in configuration namelist', lwp ) 
     86         WRITE ( numond, namsbc_iif ) 
    8087 
    8188         ALLOCATE( sf_ice(1), STAT=ierror ) 

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

    r3764 r3875  
    8787         &             ln_blk_mfs, ln_apr_dyn, nn_ice,  nn_ice_embd, ln_dm2dc   , ln_rnf,   & 
    8888         &             ln_ssr    , nn_fwb    , ln_cdgw , ln_wave , ln_sdw 
     89      INTEGER  ::   ios 
    8990      !!---------------------------------------------------------------------- 
    9091 
    … …  
    9596      ENDIF 
    9697 
    97       REWIND( numnam )           ! Read Namelist namsbc 
    98       READ  ( numnam, namsbc ) 
     98      REWIND( numnam_ref )              ! Namelist namsbc in reference namelist : Surface boundary 
     99      READ  ( numnam_ref, namsbc, IOSTAT = ios, ERR = 901) 
     100901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc in reference namelist', lwp ) 
     101 
     102      REWIND( numnam_cfg )              ! Namelist namsbc in configuration namelist : Parameters of the run 
     103      READ  ( numnam_cfg, namsbc, IOSTAT = ios, ERR = 902 ) 
     104902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc in configuration namelist', lwp ) 
     105      WRITE ( numond, namsbc ) 
    99106 
    100107      !                          ! overwrite namelist parameter using CPP key information 

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

    r3832 r3875  
    245245      INTEGER           ::   ji, jj, jk    ! dummy loop indices 
    246246      INTEGER           ::   ierror, inum  ! temporary integer 
     247      INTEGER           ::   ios           ! Local integer output status for namelist read 
    247248      ! 
    248249      NAMELIST/namsbc_rnf/ cn_dir, ln_rnf_emp, ln_rnf_depth, ln_rnf_tem, ln_rnf_sal,   & 
    … …  
    264265      sn_dep_rnf = FLD_N( 'runoffs',   0.  , 'rodepth'  ,  .FALSE.   , .true. ,   'yearly'  , ''    , ''  ) 
    265266      ! 
    266       REWIND ( numnam )                         ! Read Namelist namsbc_rnf 
    267       READ   ( numnam, namsbc_rnf ) 
     267      REWIND( numnam_ref )              ! Namelist namsbc_rnf in reference namelist : Runoffs  
     268      READ  ( numnam_ref, namsbc_rnf, IOSTAT = ios, ERR = 901) 
     269901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_rnf in reference namelist', lwp ) 
     270 
     271      REWIND( numnam_cfg )              ! Namelist namsbc_rnf in configuration namelist : Runoffs 
     272      READ  ( numnam_cfg, namsbc_rnf, IOSTAT = ios, ERR = 902 ) 
     273902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_rnf in configuration namelist', lwp ) 
     274      WRITE ( numond, namsbc_rnf ) 
    268275      ! 
    269276      !                                         ! Control print 

  • 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 

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

    r3680 r3875  
    6767      INTEGER                ::  ierror   ! return error code 
    6868      INTEGER                ::  ifpr, jj,ji,jk  
     69      INTEGER                ::   ios     ! Local integer output status for namelist read 
    6970      REAL(wp),DIMENSION(:,:,:),POINTER             ::  udummy,vdummy,hdivdummy,rotdummy 
    7071      REAL                                          ::  z2dt,z1_2dt 
    … …  
    9293         cn_dir = './'          ! directory in which the wave data are  
    9394          
    94  
    95          REWIND( numnam )                             !* read in namlist namsbc_wave 
    96          READ  ( numnam, namsbc_wave )  
     95         REWIND( numnam_ref )              ! Namelist namsbc_wave in reference namelist : File for drag coeff. from wave model 
     96         READ  ( numnam_ref, namsbc_wave, IOSTAT = ios, ERR = 901) 
     97901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_wave in reference namelist', lwp ) 
     98 
     99         REWIND( numnam_cfg )              ! Namelist namsbc_wave in configuration namelist : File for drag coeff. from wave model 
     100         READ  ( numnam_cfg, namsbc_wave, IOSTAT = ios, ERR = 902 ) 
     101902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_wave in configuration namelist', lwp ) 
     102         WRITE ( numond, namsbc_wave ) 
    97103         ! 
    98104 

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

    r3651 r3875  
    4646    INTEGER, INTENT( in ) ::   kt     ! ocean time-step 
    4747    CHARACTER(LEN=4), DIMENSION(jpmax_harmo) :: clname 
     48    INTEGER  ::   ios                 ! Local integer output status for namelist read 
    4849    ! 
    4950    NAMELIST/nam_tide/ln_tide_pot, ln_tide_ramp, rdttideramp, clname 
    … …  
    6364       ! 
    6465       ! Read Namelist nam_tide 
    65        REWIND ( numnam ) 
    66        READ   ( numnam, nam_tide ) 
     66       REWIND( numnam_ref )              ! Namelist nam_tide in reference namelist : Tides 
     67       READ  ( numnam_ref, nam_tide, IOSTAT = ios, ERR = 901) 
     68901    IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_tide in reference namelist', lwp ) 
     69 
     70       REWIND( numnam_cfg )              ! Namelist nam_tide in configuration namelist : Tides 
     71       READ  ( numnam_cfg, nam_tide, IOSTAT = ios, ERR = 902 ) 
     72902    IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_tide in configuration namelist', lwp ) 
     73       WRITE ( numond, nam_tide ) 
    6774       ! 
    6875       nb_harmo=0 
Note: See TracChangeset for help on using the changeset viewer.