Changeset 9280


Ignore:
Timestamp:
2018-01-24T14:23:31+01:00 (3 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.

Location:
branches/UKMO/dev_r5518_cleanup_1d_cpl/NEMOGCM
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_cleanup_1d_cpl/NEMOGCM/CONFIG/SHARED/namelist_ref

    r8447 r9280  
    405405   rn_antarctica_calving_fraction = 0.5 ! Set fraction of total freshwater flux for iceberg calving - remainder goes to iceshelf melting. 
    406406   rn_iceshelf_fluxes_tolerance = 1e-6  ! Fractional threshold for detecting differences in icesheet masses (must be positive definite). 
     407   nn_cpl_river = 0              ! Number of rivers to be dealt with in atmos-ocean coupling.  
    407408/ 
    408409!----------------------------------------------------------------------- 
  • branches/UKMO/dev_r5518_cleanup_1d_cpl/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

    r9218 r9280  
    175175   LOGICAL     ::   ln_usecplmask          !  use a coupling mask file to merge data received from several models 
    176176                                           !   -> file cplmask.nc with the float variable called cplmask (jpi,jpj,nn_cplmodel) 
     177   INTEGER     ::   nn_cpl_river           ! Number of rivers to be dealt with in atmos-ocean coupling.  
     178 
    177179   TYPE ::   DYNARR      
    178180      REAL(wp), POINTER, DIMENSION(:,:,:)    ::   z3    
     
    253255      NAMELIST/namsbc_cpl/  sn_snd_bio_co2, sn_snd_bio_dms, sn_snd_bio_chloro,                        & 
    254256         &                  sn_rcv_atm_pco2, sn_rcv_atm_dust 
     257 
     258      ! Add river coupling related field to namelist 
     259      NAMELIST/namsbc_cpl/ nn_cpl_river 
     260 
    255261 
    256262      !!--------------------------------------------------------------------- 
     
    324330         WRITE(numout,*)'  rn_antarctica_calving_fraction      = ', rn_antarctica_calving_fraction 
    325331         WRITE(numout,*)'  rn_iceshelf_fluxes_tolerance        = ', rn_iceshelf_fluxes_tolerance 
     332         WRITE(numout,*)'  nn_cpl_river                        = ', nn_cpl_river 
     333 
    326334      ENDIF 
    327335 
Note: See TracChangeset for help on using the changeset viewer.