Changeset 12266

Timestamp:

2019-12-18T10:47:31+01:00 (5 years ago)

Author:

cguiavarch

Message:

Debug

File:

• NEMO/branches/UKMO/NEMO_4.0_FKOSM/src/OCE/ZDF/zdfosm.F90 (modified) (1 diff)

NEMO/branches/UKMO/NEMO_4.0_FKOSM/src/OCE/ZDF/zdfosm.F90

@@ -2037 +2037 @@
          REWIND( numnam_ref )              ! Namelist namosm_mle in reference namelist : Tracer advection scheme
          READ  ( numnam_ref, namosm_mle, IOSTAT = ios, ERR = 903)
-903      IF( ios /= 0 )   CALL ctl_nam ( ios , 'namosm_mle in reference namelist')
+903      IF( ios /= 0 )   CALL ctl_nam ( ios , 'namosm_mle in reference namelist',lwp)
 
          REWIND( numnam_cfg )              ! Namelist namosm_mle in configuration namelist : Tracer advection scheme
          READ  ( numnam_cfg, namosm_mle, IOSTAT = ios, ERR = 904 )
-904      IF( ios >  0 )   CALL ctl_nam ( ios , 'namosm_mle in configuration namelist')
+904      IF( ios >  0 )   CALL ctl_nam ( ios , 'namosm_mle in configuration namelist',lwp)
          IF(lwm) WRITE ( numond, namosm_mle )