Changeset 9280 for branches/UKMO/dev_r5518_cleanup_1d_cpl/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

Timestamp:

2018-01-24T14:23:31+01:00 (6 years ago)

Author:

frrh

Message:

Add support for reading in nn_cpl_river, the number of rivers to be dealt with
in atmos-ocean coupling.

File:

• branches/UKMO/dev_r5518_cleanup_1d_cpl/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90 (modified) (3 diffs)

branches/UKMO/dev_r5518_cleanup_1d_cpl/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

@@ -175 +175 @@
    LOGICAL     ::   ln_usecplmask          !  use a coupling mask file to merge data received from several models
                                            !   -> file cplmask.nc with the float variable called cplmask (jpi,jpj,nn_cplmodel)
+   INTEGER     ::   nn_cpl_river           ! Number of rivers to be dealt with in atmos-ocean coupling. 
+
    TYPE ::   DYNARR     
       REAL(wp), POINTER, DIMENSION(:,:,:)    ::   z3   
@@ -253 +255 @@
       NAMELIST/namsbc_cpl/  sn_snd_bio_co2, sn_snd_bio_dms, sn_snd_bio_chloro,                        &
          &                  sn_rcv_atm_pco2, sn_rcv_atm_dust
+
+      ! Add river coupling related field to namelist
+      NAMELIST/namsbc_cpl/ nn_cpl_river
+
 
       !!---------------------------------------------------------------------
@@ -324 +330 @@
          WRITE(numout,*)'  rn_antarctica_calving_fraction      = ', rn_antarctica_calving_fraction
          WRITE(numout,*)'  rn_iceshelf_fluxes_tolerance        = ', rn_iceshelf_fluxes_tolerance
+         WRITE(numout,*)'  nn_cpl_river                        = ', nn_cpl_river
+
       ENDIF