Changeset 4624 for trunk/NEMOGCM/NEMO/LIM_SRC_3

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

Files:

• iceini.F90 (modified) (2 diffs)
• limdyn.F90 (modified) (1 diff)
• limistate.F90 (modified) (1 diff)
• limitd_me.F90 (modified) (1 diff)
• limthd.F90 (modified) (1 diff)
• limthd_sal.F90 (modified) (1 diff)
• limwri.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/LIM_SRC_3/iceini.F90

@@ -74 +74 @@
       CALL ctl_opn( numnam_ice_ref, 'namelist_ice_ref',    'OLD',     'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 
       CALL ctl_opn( numnam_ice_cfg, 'namelist_ice_cfg',    'OLD',     'FORMATTED', 'SEQUENTIAL', -1, numout, lwp )
-      CALL ctl_opn( numoni,         'output.namelist.ice', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, 1 )
+      IF(lwm) CALL ctl_opn( numoni, 'output.namelist.ice', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, 1 )
       !
       CALL ice_run                     ! set some ice run parameters
@@ -141 +141 @@
       READ  ( numnam_ice_cfg, namicerun, IOSTAT = ios, ERR = 902 )
 902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicerun in configuration namelist', lwp )
-      WRITE ( numoni, namicerun )
+      IF(lwm) WRITE ( numoni, namicerun )
       !
       !IF( lk_mpp .AND. ln_nicep ) THEN

trunk/NEMOGCM/NEMO/LIM_SRC_3/limdyn.F90

@@ -282 +282 @@
       READ  ( numnam_ice_cfg, namicedyn, IOSTAT = ios, ERR = 902 )
 902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicedyn in configuration namelist', lwp )
-      WRITE ( numoni, namicedyn )
+      IF(lwm) WRITE ( numoni, namicedyn )
       
       IF(lwp) THEN                        ! control print

trunk/NEMOGCM/NEMO/LIM_SRC_3/limistate.F90

@@ -507 +507 @@
       READ  ( numnam_ice_cfg, namiceini, IOSTAT = ios, ERR = 902 )
 902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namiceini in configuration namelist', lwp )
-      WRITE ( numoni, namiceini )
+      IF(lwm) WRITE ( numoni, namiceini )
 
       ! Define the initial parameters

trunk/NEMOGCM/NEMO/LIM_SRC_3/limitd_me.F90

@@ -1418 +1418 @@
       READ  ( numnam_ice_cfg, namiceitdme, IOSTAT = ios, ERR = 902 )
 902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namiceitdme in configuration namelist', lwp )
-      WRITE ( numoni, namiceitdme )
+      IF(lwm) WRITE ( numoni, namiceitdme )
       !
       IF (lwp) THEN                          ! control print

trunk/NEMOGCM/NEMO/LIM_SRC_3/limthd.F90

@@ -837 +837 @@
       READ  ( numnam_ice_cfg, namicethd, IOSTAT = ios, ERR = 902 )
 902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicethd in configuration namelist', lwp )
-      WRITE ( numoni, namicethd )
+      IF(lwm) WRITE ( numoni, namicethd )
       !
       IF(lwp) THEN                          ! control print

trunk/NEMOGCM/NEMO/LIM_SRC_3/limthd_sal.F90

@@ -193 +193 @@
       READ  ( numnam_ice_cfg, namicesal, IOSTAT = ios, ERR = 902 )
 902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicesal in configuration namelist', lwp )
-      WRITE ( numoni, namicesal )
+      IF(lwm) WRITE ( numoni, namicesal )
       !
       IF(lwp) THEN                           ! control print

trunk/NEMOGCM/NEMO/LIM_SRC_3/limwri.F90

@@ -469 +469 @@
       READ  ( numnam_ice_cfg, namiceout, IOSTAT = ios, ERR = 902 )
 902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namiceout in configuration namelist', lwp )
-      WRITE ( numoni, namiceout )
+      IF(lwm) WRITE ( numoni, namiceout )
 
       zfield(1)  = field_1