Changeset 8433


Ignore:
Timestamp:
2017-08-10T17:33:56+02:00 (3 years ago)
Author:
dancopsey
Message:

Added partition information for river runoff coupling.

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

Legend:

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

    r8212 r8433  
    139139      INTEGER, INTENT(in) ::   kcplmodel      ! Maximum number of models to/from which NEMO is potentialy sending/receiving data 
    140140      ! 
    141       INTEGER :: id_part 
     141      INTEGER :: id_part        ! Partition for all 2D model fields to be coupled 
     142      INTEGER :: id_part_r      ! Partition for river runoff 
    142143      INTEGER :: paral(5)       ! OASIS3 box partition 
    143144      INTEGER :: ishape(2,2)    ! shape of arrays passed to PSMILe 
     
    200201       
    201202      CALL oasis_def_partition ( id_part, paral, nerror ) 
     203       
     204      ! Another partition is needed for river runoff 
     205       
     206      paral(1) = 0                                              ! serial partitioning 
     207      paral(2) = 0    
     208      paral(3) = 10                                             ! size of array to couple 
     209      paral(4) = 0 
     210      paral(5) = 0 
     211       
     212      CALL oasis_def_partition ( id_part_r, paral, nerror ) 
     213       
    202214      ! 
    203215      ! ... Announce send variables.  
     
    293305       
    294306      ! Define river runoff 
    295       CALL oasis_def_var (runoff_id, 'runoffo', id_part   , (/ 1, 0 /),   & 
     307      CALL oasis_def_var (runoff_id, 'runoffo', id_part_r   , (/ 1, 0 /),   & 
    296308                     &                OASIS_In           , (/ 1, 10 /) , OASIS_REAL, nerror ) 
    297309      IF ( nerror /= OASIS_Ok ) THEN 
  • branches/UKMO/dev_r5518_new_runoff_coupling/NEMOGCM/NEMO/OPA_SRC/oce.F90

    r8163 r8433  
    8686      !!---------------------------------------------------------------------- 
    8787      ! 
     88      ierr(5) = 0 
    8889      ALLOCATE( ub   (jpi,jpj,jpk)      , un   (jpi,jpj,jpk)      , ua(jpi,jpj,jpk)       ,     & 
    8990         &      vb   (jpi,jpj,jpk)      , vn   (jpi,jpj,jpk)      , va(jpi,jpj,jpk)       ,     &       
Note: See TracChangeset for help on using the changeset viewer.