Changeset 12277 for NEMO/trunk/src/TOP/PISCES/P4Z/p5zlim.F90

Timestamp:

2019-12-20T12:54:47+01:00 (5 years ago)

Author:

cetlod

Message:

trunk : Minor corrections

File:

• NEMO/trunk/src/TOP/PISCES/P4Z/p5zlim.F90 (modified) (1 diff)

NEMO/trunk/src/TOP/PISCES/P4Z/p5zlim.F90

@@ -489 +489 @@
       ENDIF
 
+      REWIND( numnatp_ref )
       READ  ( numnatp_ref, namp5zquota, IOSTAT = ios, ERR = 903)
 903   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisquota in reference namelist' )
       !
+      REWIND( numnatp_cfg )
       READ  ( numnatp_cfg, namp5zquota, IOSTAT = ios, ERR = 904 )
 904   IF( ios >  0 ) CALL ctl_nam ( ios , 'nampisquota in configuration namelist' )