Changeset 4624 for trunk/NEMOGCM/NEMO/OPA_SRC/BDY

Timestamp:

2014-04-28T14:09:03+02:00 (10 years ago)

Author:

acc

Message:

#1305. Fix slow start-up problems on some systems by introducing and using lwm logical to restrict output of merged namelists to the first (or only) processor. lwm is true only on the first processor regardless of ln_ctl. Small changes to all flavours of nemogcm.F90 are also required to write namctl and namcfg after the call to mynode which now opens output.namelist.dyn and writes nammpp.

Location:

trunk/NEMOGCM/NEMO/OPA_SRC/BDY

Files:

• bdydta.F90 (modified) (1 diff)
• bdyini.F90 (modified) (2 diffs)
• bdytides.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/OPA_SRC/BDY/bdydta.F90

@@ -532 +532 @@
             READ  ( numnam_cfg, nambdy_dta, IOSTAT = ios, ERR = 902 )
 902         IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_dta in configuration namelist', lwp )
-            WRITE ( numond, nambdy_dta )
+            IF(lwm) WRITE ( numond, nambdy_dta )
 
             cn_dir_array(ib_bdy) = cn_dir

trunk/NEMOGCM/NEMO/OPA_SRC/BDY/bdyini.F90

@@ -132 +132 @@
       READ  ( numnam_cfg, nambdy, IOSTAT = ios, ERR = 902 )
 902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy in configuration namelist', lwp )
-      WRITE ( numond, nambdy )
+      IF(lwm) WRITE ( numond, nambdy )
 
       ! -----------------------------------------
@@ -418 +418 @@
             READ  ( numnam_cfg, nambdy_index, IOSTAT = ios, ERR = 904 )
 904         IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_index in configuration namelist', lwp )
-            WRITE ( numond, nambdy_index )
+            IF(lwm) WRITE ( numond, nambdy_index )
 
             SELECT CASE ( TRIM(ctypebdy) )

trunk/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90

@@ -117 +117 @@
             READ  ( numnam_cfg, nambdy_tide, IOSTAT = ios, ERR = 902 )
 902         IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_tide in configuration namelist', lwp )
-            WRITE ( numond, nambdy_tide )
+            IF(lwm) WRITE ( numond, nambdy_tide )
             !                                               ! Parameter control and print
             IF(lwp) WRITE(numout,*) '  '