Changeset 4624 for trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsms.F90

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.

File:

• trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsms.F90 (modified) (5 diffs)

trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsms.F90

@@ -153 +153 @@
       CALL p4z_chk_mass( kt ) ! Mass conservation checking
 
-      IF ( kt == nittrc000 ) CALL FLUSH    ( numonp )     ! flush output namelist PISCES
+      IF ( lwm .AND. kt == nittrc000 ) CALL FLUSH    ( numonp )     ! flush output namelist PISCES
       IF( nn_timing == 1 )  CALL timing_stop('p4z_sms')
       !
@@ -185 +185 @@
       READ  ( numnatp_cfg, nampisbio, IOSTAT = ios, ERR = 902 )
 902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisbio in configuration namelist', lwp )
-      WRITE ( numonp, nampisbio )
+      IF(lwm) WRITE ( numonp, nampisbio )
 
       IF(lwp) THEN                         ! control print
@@ -209 +209 @@
       READ  ( numnatp_cfg, nampiskrp, IOSTAT = ios, ERR = 904 )
 904   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampiskrp in configuration namelist', lwp )
-      WRITE ( numonp, nampiskrp )
+      IF(lwm) WRITE ( numonp, nampiskrp )
 
       IF(lwp) THEN
@@ -235 +235 @@
       READ  ( numnatp_cfg, nampisdmp, IOSTAT = ios, ERR = 906 )
 906   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisdmp in configuration namelist', lwp )
-      WRITE ( numonp, nampisdmp )
+      IF(lwm) WRITE ( numonp, nampisdmp )
 
       IF(lwp) THEN                         ! control print
@@ -252 +252 @@
       READ  ( numnatp_cfg, nampismass, IOSTAT = ios, ERR = 908 )
 908   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampismass in configuration namelist', lwp )
-      WRITE ( numonp, nampismass )
+      IF(lwm) WRITE ( numonp, nampismass )
 
       IF(lwp) THEN                         ! control print