Changeset 3901 for branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90

Timestamp:

2013-05-03T14:35:21+02:00 (11 years ago)

Author:

clevy

Message:

Configuration Setting/Step2, see ticket:#1074

File:

• branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90 (modified) (2 diffs)

branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90

@@ -94 +94 @@
       ENDIF
 
-      ln_bdytide_2ddta = .FALSE.
-      ln_bdytide_conj  = .FALSE.
-
       REWIND(numnam_cfg)
 
@@ -109 +106 @@
             filtide(:) = ''
 
-            ! Don't REWIND here - may need to read more than one of these namelists.
-            ! Read only configuration namelist to avoid unsecessful overwrite
-!!          REWIND( numnam_ref )              ! Namelist nambdy_tide in reference namelist : 
-!!          READ  ( numnam_ref, nambdy_tide, IOSTAT = ios, ERR = 901)
-!!    901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_tide in reference namelist', lwp )
-
-!!          REWIND( numnam_cfg )              ! Namelist nambdy_tide in configuration namelist : 
+            ! Don't REWIND here - may need to read more than one of these namelists. 
             READ  ( numnam_cfg, nambdy_tide, IOSTAT = ios, ERR = 902 )
 902         IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_tide in configuration namelist', lwp )