Changeset 8212

Timestamp:

2017-06-23T17:08:25+02:00 (7 years ago)

Author:

dancopsey

Message:

Corrected array.

Location:

branches/UKMO/dev_r5518_new_runoff_coupling/NEMOGCM/NEMO/OPA_SRC/SBC

Files:

• cpl_oasis3.F90 (modified) (3 diffs)
• sbccpl.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_new_runoff_coupling/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90

@@ -38 +38 @@
    PUBLIC   cpl_define
    PUBLIC   cpl_snd
+   PUBLIC   runoff_rcv
    PUBLIC   cpl_rcv
    PUBLIC   cpl_freq
@@ -293 +294 @@
       ! Define river runoff
       CALL oasis_def_var (runoff_id, 'runoffo', id_part   , (/ 1, 0 /),   &
-                     &                OASIS_In           , (/ 10 /) , OASIS_REAL, nerror )
+                     &                OASIS_In           , (/ 1, 10 /) , OASIS_REAL, nerror )
       IF ( nerror /= OASIS_Ok ) THEN
           WRITE(numout,*) 'Failed to define transient runoffo'
@@ -426 +427 @@
    END SUBROUTINE cpl_rcv
    
-   SUBROUTINE runoff_rcv(kstep)
+   SUBROUTINE runoff_rcv( kstep)
       
       INTEGER                   , INTENT(in   ) ::   kstep     ! ocean time-step in seconds

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

@@ -867 +867 @@
       END DO
       
-      CALL runoff_rcv(isec)      
+      CALL runoff_rcv( isec)      
 
       !                                                      ! ========================= !