Changeset 4624 for trunk/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.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/OPA_SRC/LBC/lib_mpp.F90 (modified) (4 diffs)

trunk/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

@@ -170 +170 @@
       INTEGER                      , INTENT(in   ) ::   kumnam_ref     ! logical unit for reference namelist
       INTEGER                      , INTENT(in   ) ::   kumnam_cfg     ! logical unit for configuration namelist
-      INTEGER                      , INTENT(in   ) ::   kumond         ! logical unit for namelist output
+      INTEGER                      , INTENT(inout) ::   kumond         ! logical unit for namelist output
       INTEGER                      , INTENT(inout) ::   kstop          ! stop indicator
       INTEGER, OPTIONAL            , INTENT(in   ) ::   localComm
@@ -193 +193 @@
       READ  ( kumnam_cfg, nammpp, IOSTAT = ios, ERR = 902 )
 902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nammpp in configuration namelist', lwp )
-      WRITE(kumond, nammpp)      
 
       !                              ! control print
@@ -293 +292 @@
       CALL mpi_comm_size( mpi_comm_opa, mppsize, ierr )
       mynode = mpprank
+
+      IF( mynode == 0 ) THEN
+        CALL ctl_opn( kumond, 'output.namelist.dyn', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. , 1 )
+        WRITE(kumond, nammpp)      
+      ENDIF
       !
       CALL MPI_OP_CREATE(DDPDD_MPI, .TRUE., MPI_SUMDD, ierr)
@@ -2924 +2928 @@
       IF( PRESENT( localComm ) .OR. .NOT.PRESENT( localComm ) )   function_value = 0
       IF( .FALSE. )   ldtxt(:) = 'never done'
+      CALL ctl_opn( kumond, 'output.namelist.dyn', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. , 1 )
    END FUNCTION mynode