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

Timestamp:

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

Author:

cetlod

Message:

trunk : Minor corrections

File:

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

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

@@ -304 +304 @@
          ENDIF
          !
+         REWIND( numnatp_ref )
          READ  ( numnatp_ref, nampisatm, IOSTAT = ios, ERR = 901)
 901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisatm in reference namelist' )
+
+         REWIND( numnatp_cfg )
          READ  ( numnatp_cfg, nampisatm, IOSTAT = ios, ERR = 902 )
 902      IF( ios >  0 )   CALL ctl_nam ( ios , 'nampisatm in configuration namelist' )