Changeset 9366 for branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.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/TRA/traqsr.F90 (modified) (3 diffs)

branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90

@@ -40 +40 @@
    PUBLIC   tra_qsr       ! routine called by step.F90 (ln_traqsr=T)
    PUBLIC   tra_qsr_init  ! routine called by nemogcm.F90
+   PRIVATE  qsr_namelist
 
    !                                 !!* Namelist namtra_qsr: penetrative solar radiation
@@ -434 +435 @@
       !
       ln_qsr_ice = .FALSE.
-      REWIND( numnam_ref )              ! Namelist namtra_qsr in reference namelist : Ratio and length of penetration
-      READ  ( numnam_ref, namtra_qsr, IOSTAT = ios, ERR = 901)
-901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_qsr in reference namelist', lwp )
-
-      REWIND( numnam_cfg )              !  Namelist namtra_qsr in configuration namelist : Ratio and length of penetration
-      READ  ( numnam_cfg, namtra_qsr, IOSTAT = ios, ERR = 902 )
-902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_qsr in configuration namelist', lwp )
+      IF(lwm) THEN
+         REWIND( numnam_ref )              ! Namelist namtra_qsr in reference namelist : Ratio and length of penetration
+         READ  ( numnam_ref, namtra_qsr, IOSTAT = ios, ERR = 901)
+901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_qsr in reference namelist', lwm )
+         REWIND( numnam_cfg )              !  Namelist namtra_qsr in configuration namelist : Ratio and length of penetration
+         READ  ( numnam_cfg, namtra_qsr, IOSTAT = ios, ERR = 902 )
+902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_qsr in configuration namelist', lwm )
+      ENDIF
+
       IF(lwm) WRITE ( numond, namtra_qsr )
       !
+      CALL qsr_namelist(sn_chl, cn_dir)
+
       IF(lwp) THEN                ! control print
          WRITE(numout,*)
@@ -624 +629 @@
    END SUBROUTINE tra_qsr_init
 
+   SUBROUTINE qsr_namelist(sd_chl, cd_dir)
+     !!---------------------------------------------------------------------
+     !!                   ***  ROUTINE qsr_namelist  ***
+     !!                     
+     !! ** Purpose :   Broadkast namelist variables read by procesor lwm
+     !!
+     !! ** Method  :   use lib_mpp
+     !!----------------------------------------------------------------------
+      CHARACTER(len=100) ::   cd_dir   ! Root directory for location of ssr files
+      TYPE(FLD_N)        ::   sd_chl   ! informations about the chlorofyl field to be read
+#if defined key_mpp_mpi
+      CALL fld_n_bcast(sd_chl)
+      CALL mpp_bcast(cd_dir, 100)
+      CALL mpp_bcast(ln_traqsr)
+      CALL mpp_bcast(ln_qsr_rgb)
+      CALL mpp_bcast(ln_qsr_2bd)
+      CALL mpp_bcast(ln_qsr_bio)
+      CALL mpp_bcast(ln_qsr_ice)
+      CALL mpp_bcast(nn_chldta)
+      CALL mpp_bcast(rn_abs)
+      CALL mpp_bcast(rn_si0)
+      CALL mpp_bcast(rn_si1)
+      CALL mpp_bcast(ln_qsr_sio)
+#endif
+   END SUBROUTINE qsr_namelist
+
    !!======================================================================
 END MODULE traqsr