Changeset 9366 for branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90

Timestamp:

2018-02-28T16:29:13+01:00 (6 years ago)

Author:

andmirek

Message:

#2050 first version. Compiled OK in moci test suite

File:

• branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90 (modified) (3 diffs)

branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90

@@ -50 +50 @@
    PUBLIC   ssh_asm_inc    !: Apply the SSH increment
    PUBLIC   seaice_asm_inc !: Apply the seaice increment
+   PRIVATE  asm_namelist
 
 #if defined key_asminc
@@ -142 +143 @@
       ln_temnofreeze = .FALSE.
 
-      REWIND( numnam_ref )              ! Namelist nam_asminc in reference namelist : Assimilation increment
-      READ  ( numnam_ref, nam_asminc, IOSTAT = ios, ERR = 901)
-901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_asminc in reference namelist', lwp )
-
-      REWIND( numnam_cfg )              ! Namelist nam_asminc in configuration namelist : Assimilation increment
-      READ  ( numnam_cfg, nam_asminc, IOSTAT = ios, ERR = 902 )
-902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_asminc in configuration namelist', lwp )
+      IF(lwm) THEN
+         REWIND( numnam_ref )              ! Namelist nam_asminc in reference namelist : Assimilation increment
+         READ  ( numnam_ref, nam_asminc, IOSTAT = ios, ERR = 901)
+901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_asminc in reference namelist', lwm )
+         REWIND( numnam_cfg )              ! Namelist nam_asminc in configuration namelist : Assimilation increment
+         READ  ( numnam_cfg, nam_asminc, IOSTAT = ios, ERR = 902 )
+902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_asminc in configuration namelist', lwm )
+      ENDIF
+
       IF(lwm) WRITE ( numond, nam_asminc )
+
+      CALL asm_namelist()
 
       ! Control print
@@ -1146 +1151 @@
 
    END SUBROUTINE seaice_asm_inc
-   
+
+   SUBROUTINE asm_namelist()
+     !!---------------------------------------------------------------------
+     !!                   ***  ROUTINE asm_namelist  ***
+     !!                     
+     !! ** Purpose :   Broadcast namelist variables read by procesor lwm
+     !!
+     !! ** Method  :   use lib_mpp
+     !!----------------------------------------------------------------------
+#if defined key_mpp_mpi
+      CALL mpp_bcast(ln_bkgwri)
+      CALL mpp_bcast(ln_trainc)
+      CALL mpp_bcast(ln_dyninc)
+      CALL mpp_bcast(ln_sshinc)
+      CALL mpp_bcast(ln_asmdin)
+      CALL mpp_bcast(ln_asmiau)
+      CALL mpp_bcast(nitbkg)
+      CALL mpp_bcast(nitdin)
+      CALL mpp_bcast(nitiaustr)
+      CALL mpp_bcast(nitiaufin)
+      CALL mpp_bcast(niaufn)
+      CALL mpp_bcast(ln_salfix)
+      CALL mpp_bcast(salfixmin)
+      CALL mpp_bcast(nn_divdmp)
+#endif
+   END SUBROUTINE asm_namelist   
    !!======================================================================
 END MODULE asminc