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

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/DOM

Files:

• domain.F90 (modified) (4 diffs)
• dommsk.F90 (modified) (1 diff)
• domvvl.F90 (modified) (1 diff)
• domzgr.F90 (modified) (2 diffs)
• dtatsd.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

@@ -159 +159 @@
       READ  ( numnam_cfg, namrun, IOSTAT = ios, ERR = 902 )
 902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namrun in configuration namelist', lwp )
-      WRITE ( numond, namrun )
+      IF(lwm) WRITE ( numond, namrun )
       !
       IF(lwp) THEN                  ! control print
@@ -241 +241 @@
       READ  ( numnam_cfg, namdom, IOSTAT = ios, ERR = 904 )
 904   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdom in configuration namelist', lwp )
-      WRITE ( numond, namdom )
+      IF(lwm) WRITE ( numond, namdom )
 
       IF(lwp) THEN
@@ -303 +303 @@
       READ  ( numnam_cfg, namcla, IOSTAT = ios, ERR = 906 )
 906   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcla in configuration namelist', lwp )
-      WRITE( numond, namcla )
+      IF(lwm) WRITE( numond, namcla )
 
       IF(lwp) THEN
@@ -327 +327 @@
       READ  ( numnam_cfg, namnc4, IOSTAT = ios, ERR = 908 )
 908   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namnc4 in configuration namelist', lwp )
-      WRITE( numond, namnc4 )
+      IF(lwm) WRITE( numond, namnc4 )
 
       IF(lwp) THEN                        ! control print

trunk/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90

@@ -152 +152 @@
       READ  ( numnam_cfg, namlbc, IOSTAT = ios, ERR = 902 )
 902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlbc in configuration namelist', lwp )
-      WRITE ( numond, namlbc )
+      IF(lwm) WRITE ( numond, namlbc )
       
       IF(lwp) THEN                  ! control print

trunk/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90

@@ -922 +922 @@
       READ  ( numnam_cfg, nam_vvl, IOSTAT = ios, ERR = 902 )
 902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_vvl in configuration namelist', lwp )
-      WRITE ( numond, nam_vvl )
+      IF(lwm) WRITE ( numond, nam_vvl )
 
       IF(lwp) THEN                    ! Namelist print

trunk/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90

@@ -113 +113 @@
       READ  ( numnam_cfg, namzgr, IOSTAT = ios, ERR = 902 )
 902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzgr in configuration namelist', lwp )
-      WRITE ( numond, namzgr )
+      IF(lwm) WRITE ( numond, namzgr )
 
       IF(lwp) THEN                     ! Control print
@@ -1140 +1140 @@
       READ  ( numnam_cfg, namzgr_sco, IOSTAT = ios, ERR = 902 )
 902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzgr_sco in configuration namelist', lwp )
-      WRITE ( numond, namzgr_sco )
+      IF(lwm) WRITE ( numond, namzgr_sco )
 
       IF(lwp) THEN                           ! control print

trunk/NEMOGCM/NEMO/OPA_SRC/DOM/dtatsd.F90

@@ -77 +77 @@
       READ  ( numnam_cfg, namtsd, IOSTAT = ios, ERR = 902 )
 902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtsd in configuration namelist', lwp )
-      WRITE ( numond, namtsd )
+      IF(lwm) WRITE ( numond, namtsd )
 
       IF( PRESENT( ld_tradmp ) )   ln_tsd_tradmp = .TRUE.     ! forces the initialization when tradmp is used