Changeset 8212


Ignore:
Timestamp:
2017-06-23T17:08:25+02:00 (3 years ago)
Author:
dancopsey
Message:

Corrected array.

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

Legend:

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

    r8166 r8212  
    3838   PUBLIC   cpl_define 
    3939   PUBLIC   cpl_snd 
     40   PUBLIC   runoff_rcv 
    4041   PUBLIC   cpl_rcv 
    4142   PUBLIC   cpl_freq 
     
    293294      ! Define river runoff 
    294295      CALL oasis_def_var (runoff_id, 'runoffo', id_part   , (/ 1, 0 /),   & 
    295                      &                OASIS_In           , (/ 10 /) , OASIS_REAL, nerror ) 
     296                     &                OASIS_In           , (/ 1, 10 /) , OASIS_REAL, nerror ) 
    296297      IF ( nerror /= OASIS_Ok ) THEN 
    297298          WRITE(numout,*) 'Failed to define transient runoffo' 
     
    426427   END SUBROUTINE cpl_rcv 
    427428    
    428    SUBROUTINE runoff_rcv(kstep) 
     429   SUBROUTINE runoff_rcv( kstep) 
    429430       
    430431      INTEGER                   , INTENT(in   ) ::   kstep     ! ocean time-step in seconds 
  • branches/UKMO/dev_r5518_new_runoff_coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

    r8166 r8212  
    867867      END DO 
    868868       
    869       CALL runoff_rcv(isec)       
     869      CALL runoff_rcv( isec)       
    870870 
    871871      !                                                      ! ========================= ! 
Note: See TracChangeset for help on using the changeset viewer.