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 5736 for branches/NERC/dev_r5518_NOC_MEDUSA_Stable – NEMO

Ignore:
Timestamp:
2015-09-11T19:40:47+02:00 (9 years ago)
Author:
jpalmier
Message:

JPALM --11-09-2015-- change error label in trcnam_medusa

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcnam_medusa.F90

    r5726 r5736  
    344344         ! ------------------- 
    345345         REWIND( numnatp_ref )              ! Namelist nampisdia in reference namelist : Pisces diagnostics 
    346          READ  ( numnatp_ref, natbio, IOSTAT = ios, ERR = 901) 
    347 901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nammeddia in reference namelist', lwp ) 
     346         READ  ( numnatp_ref, natbio, IOSTAT = ios, ERR = 903) 
     347903      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nammeddia in reference namelist', lwp ) 
    348348 
    349349         REWIND( numnatp_cfg )              ! Namelist nampisdia in configuration namelist : Pisces diagnostics 
    350          READ  ( numnatp_cfg, natbio, IOSTAT = ios, ERR = 902 ) 
    351 902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nammeddia in configuration namelist', lwp ) 
     350         READ  ( numnatp_cfg, natbio, IOSTAT = ios, ERR = 904 ) 
     351904      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nammeddia in configuration namelist', lwp ) 
    352352         IF(lwm) WRITE ( numonp, natbio ) 
    353353 
    … …  
    10351035         ! ------------------- 
    10361036         REWIND( numnatp_ref )              ! Namelist nampisdia in reference namelist : Pisces diagnostics 
    1037          READ  ( numnatp_ref, natbio, IOSTAT = ios, ERR = 901) 
    1038 901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nammeddia in reference namelist', lwp ) 
     1037         READ  ( numnatp_ref, natbio, IOSTAT = ios, ERR = 905) 
     1038905      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nammeddia in reference namelist', lwp ) 
    10391039 
    10401040         REWIND( numnatp_cfg )              ! Namelist nampisdia in configuration namelist : Pisces diagnostics 
    1041          READ  ( numnatp_cfg, natbio, IOSTAT = ios, ERR = 902 ) 
    1042 902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nammeddia in configuration namelist', lwp ) 
     1041         READ  ( numnatp_cfg, natbio, IOSTAT = ios, ERR = 906 ) 
     1042906      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nammeddia in configuration namelist', lwp ) 
    10431043         IF(lwm) WRITE ( numonp, natbio ) 
    10441044 
    … …  
    10871087         ! ------------------- 
    10881088         REWIND( numnatp_ref )              ! Namelist nampisdia in reference namelist : Pisces diagnostics 
    1089          READ  ( numnatp_ref, natopt, IOSTAT = ios, ERR = 901) 
    1090 901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nammeddia in reference namelist', lwp ) 
     1089         READ  ( numnatp_ref, natopt, IOSTAT = ios, ERR = 907) 
     1090907      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nammeddia in reference namelist', lwp ) 
    10911091 
    10921092         REWIND( numnatp_cfg )              ! Namelist nampisdia in configuration namelist : Pisces diagnostics 
    1093          READ  ( numnatp_cfg, natopt, IOSTAT = ios, ERR = 902 ) 
    1094 902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nammeddia in configuration namelist', lwp ) 
     1093         READ  ( numnatp_cfg, natopt, IOSTAT = ios, ERR = 908 ) 
     1094908      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nammeddia in configuration namelist', lwp ) 
    10951095         IF(lwm) WRITE ( numonp, natopt ) 
    10961096 
Note: See TracChangeset for help on using the changeset viewer.