Changeset 12549 for NEMO

Timestamp:

2020-03-13T15:11:44+01:00 (4 years ago)

Author:

smasson

Message:

trunk: fix compilation bug for ABL/sbcabl.F90, see #2411

File:

• NEMO/trunk/src/ABL/sbcabl.F90 (modified) (1 diff)

NEMO/trunk/src/ABL/sbcabl.F90

@@ -75 +75 @@
       !!---------------------------------------------------------------------
 
-      REWIND( numnam_ref )              ! Namelist namsbc_abl in reference namelist : ABL parameters
+      ! Namelist namsbc_abl in reference namelist : ABL parameters
       READ  ( numnam_ref, namsbc_abl, IOSTAT = ios, ERR = 901 )
 901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_abl in reference namelist' )
-      !
-      REWIND( numnam_cfg )              ! Namelist namsbc_abl in configuration namelist : ABL parameters
+      ! Namelist namsbc_abl in configuration namelist : ABL parameters
       READ  ( numnam_cfg, namsbc_abl, IOSTAT = ios, ERR = 902 )
 902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_abl in configuration namelist' )