Changeset 9156


Ignore:
Timestamp:
2017-12-21T16:25:13+01:00 (3 years ago)
Author:
dancopsey
Message:

Load river numbers from netcdf file in new cpl_rnf_init routine.

Location:
branches/UKMO/dev_r5518_new_runoff_coupling/NEMOGCM/NEMO/OPA_SRC
Files:
1 added
2 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_new_runoff_coupling/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90

    r8820 r9156  
    6969   INTEGER, PUBLIC, PARAMETER ::   nmaxcat=5    ! Maximum number of coupling fields 
    7070   INTEGER, PUBLIC, PARAMETER ::   nmaxcpl=5    ! Maximum number of coupling fields 
    71    INTEGER, PUBLIC, PARAMETER ::   n_rivers=10  ! Total number of rivers whose runoff is passed from the atmosphere 
     71   INTEGER, PUBLIC, PARAMETER ::   n_rivers=2000  ! Total number of rivers whose runoff is passed from the atmosphere 
    7272    
    7373   INTEGER :: runoff_id 
  • branches/UKMO/dev_r5518_new_runoff_coupling/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r8163 r9156  
    5353   USE bdydta          ! open boundary cond. setting   (bdy_dta_init routine) 
    5454   USE bdytides        ! open boundary cond. setting   (bdytide_init routine) 
     55   USE cpl_rnf         ! Runoff in coupled models      (cpl_rnf_init routine) 
    5556   USE istate          ! initial state setting          (istate_init routine) 
    5657   USE ldfdyn          ! lateral viscosity setting      (ldfdyn_init routine) 
     
    397398      IF( lk_bdy .AND. lk_tide )   & 
    398399         &                  CALL bdytide_init   ! Open boundaries initialisation of tidal harmonic forcing 
     400                            CALL cpl_rnf_init   ! Runoff in coupled model 
    399401 
    400402                            CALL dyn_nept_init  ! simplified form of Neptune effect 
Note: See TracChangeset for help on using the changeset viewer.