Changeset 12111


Ignore:
Timestamp:
2019-12-07T12:48:48+01:00 (6 weeks ago)
Author:
cetlod
Message:

Minor bugs corrections

Location:
NEMO/branches/2019/dev_r12072_TOP-01_ENHANCE-11_CEthe/src/TOP/PISCES/P4Z
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r12072_TOP-01_ENHANCE-11_CEthe/src/TOP/PISCES/P4Z/p4zbc.F90

    r12110 r12111  
    231231      REWIND( numnatp_ref )              ! Namelist nampisbc in reference namelist : Pisces external sources of nutrients 
    232232      READ  ( numnatp_ref, nampisbc, IOSTAT = ios, ERR = 901) 
    233 901   IF( ios /= 0 )   CALL ctl_nam ( ios , 'nampisbc in reference namelist', lwp ) 
     233901   IF( ios /= 0 )   CALL ctl_nam ( ios , 'nampisbc in reference namelist' ) 
    234234      REWIND( numnatp_cfg )              ! Namelist nampisbc in configuration namelist : Pisces external sources of nutrients 
    235235      READ  ( numnatp_cfg, nampisbc, IOSTAT = ios, ERR = 902 ) 
    236 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'nampisbc in configuration namelist', lwp ) 
     236902   IF( ios >  0 )   CALL ctl_nam ( ios , 'nampisbc in configuration namelist' ) 
    237237      IF(lwm) WRITE ( numonp, nampisbc ) 
    238238 
  • NEMO/branches/2019/dev_r12072_TOP-01_ENHANCE-11_CEthe/src/TOP/PISCES/P4Z/p4zsed.F90

    r12110 r12111  
    383383      REWIND( numnatp_ref )              ! Namelist nampissed in reference namelist : PISCES sediment 
    384384      READ  ( numnatp_ref, nampissed, IOSTAT = ios, ERR = 901) 
    385 901   IF( ios /= 0 )   CALL ctl_nam ( ios , 'nampissed in reference namelist', lwp ) 
     385901   IF( ios /= 0 )   CALL ctl_nam ( ios , 'nampissed in reference namelist' ) 
    386386      REWIND( numnatp_cfg )              ! Namelist nampissbc in configuration namelist : PISCES sediment 
    387387      READ  ( numnatp_cfg, nampissed, IOSTAT = ios, ERR = 902 ) 
    388 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'nampissed in configuration namelist', lwp ) 
     388902   IF( ios >  0 )   CALL ctl_nam ( ios , 'nampissed in configuration namelist' ) 
    389389      IF(lwm) WRITE ( numonp, nampissed ) 
    390390 
Note: See TracChangeset for help on using the changeset viewer.