Ignore:
Timestamp:
2017-12-23T13:27:17+01:00 (3 years ago)
Author:
gm
Message:

dev_merge_2017: OPA_SRC & CONFIG: remove useless warning when reading namelist_cfg

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DOM/iscplini.F90

    r9019 r9168  
    22   !!====================================================================== 
    33   !!                       ***  MODULE  sbciscpl  *** 
    4    !! Ocean forcing:  river runoff 
     4   !! Ocean forcing:  ????? 
    55   !!===================================================================== 
    66   !! History :  NEMO  ! 2015-01 P. Mathiot: original  
     
    2323   PUBLIC   iscpl_init       
    2424   PUBLIC   iscpl_alloc  
    25    !!                                                      !!* namsbc_iscpl namelist * 
    26    LOGICAL , PUBLIC                                        ::   ln_hsb 
    27    INTEGER , PUBLIC                                        ::   nn_fiscpl, nstp_iscpl 
    28    INTEGER , PUBLIC                                        ::   nn_drown 
    29    REAL(wp), PUBLIC                                        ::   rdt_iscpl 
    30    !!                                                      !!* namsbc_iscpl namelist * 
    31    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:  ) ::   hdiv_iscpl 
    32    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:,:) ::   htsc_iscpl 
     25    
     26   !                                 !!* namsbc_iscpl namelist * 
     27   LOGICAL , PUBLIC ::   ln_hsb       !: 
     28   INTEGER , PUBLIC ::   nn_fiscpl    !: 
     29   INTEGER , PUBLIC ::   nn_drown     !: 
     30    
     31   INTEGER , PUBLIC ::   nstp_iscpl   !: 
     32   REAL(wp), PUBLIC ::   rdt_iscpl    !:  
     33   ! 
     34   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:)   ::   hdiv_iscpl   !: 
     35   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:,:) ::   htsc_iscpl   !: 
     36 
    3337   !!---------------------------------------------------------------------- 
    34    !! NEMO/OPA 3.3 , NEMO Consortium (2010) 
    35    !! $Id: sbcrnf.F90 4666 2014-06-11 12:52:23Z mathiot $ 
     38   !! NEMO/OPA 4.0 , NEMO Consortium (2017) 
     39   !! $Id:$ 
    3640   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    3741   !!---------------------------------------------------------------------- 
     
    5155   SUBROUTINE iscpl_init() 
    5256      !!---------------------------------------------------------------------- 
     57      !!---------------------------------------------------------------------- 
    5358      INTEGER ::   ios           ! Local integer output status for namelist read 
    5459      NAMELIST/namsbc_iscpl/ nn_fiscpl, ln_hsb, nn_drown 
     
    5964      REWIND( numnam_ref )              ! Namelist namsbc_iscpl in reference namelist : Ice sheet coupling 
    6065      READ  ( numnam_ref, namsbc_iscpl, IOSTAT = ios, ERR = 901) 
    61 901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_iscpl in reference namelist', lwp ) 
    62  
     66901   IF( ios /= 0 )   CALL ctl_nam ( ios , 'namsbc_iscpl in reference namelist', lwp ) 
    6367      REWIND( numnam_cfg )              ! Namelist namsbc_iscpl in configuration namelist : Ice Sheet coupling 
    6468      READ  ( numnam_cfg, namsbc_iscpl, IOSTAT = ios, ERR = 902 ) 
    65 902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_iscpl in configuration namelist', lwp ) 
     69902   IF( ios >  0 )  CALL ctl_nam ( ios , 'namsbc_iscpl in configuration namelist', lwp ) 
    6670      IF(lwm) WRITE ( numond, namsbc_iscpl ) 
    6771      ! 
    68       nstp_iscpl=MIN(nn_fiscpl, nitend-nit000+1) ! the coupling period have to be less or egal than the total number of time step 
     72      nstp_iscpl=MIN( nn_fiscpl, nitend-nit000+1 ) ! the coupling period have to be less or egal than the total number of time step 
    6973      rdt_iscpl = nstp_iscpl * rn_rdt 
    7074      ! 
Note: See TracChangeset for help on using the changeset viewer.