Changeset 10217

Timestamp:

2018-10-24T11:06:59+02:00 (6 years ago)

Author:

frrh

Message:

Save revised working version.
This is safe with both OASIS vn3.0 and 4.0 for 0D, 1D and 2D field exchanges.
It does not cater for bundles.

File:

• branches/UKMO/dev_r5518_GO6_runoff_O4test/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90 (modified) (3 diffs)

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

@@ -209 +209 @@
       ishape(4) = nlej-nldj+1
 
-      ishape0d1d(1) = 0
-      ishape0d1d(2) = 0
+      ishape0d1d(:) = 1
 
       !
@@ -360 +359 @@
                     IF (nproc == 0) THEN                    
                        
-                       ishape0d1d(1) = 1
                        IF (srcv(ji)%dimensions == 0) THEN
                        
@@ -375 +373 @@
 
                        CALL oasis_def_var (srcv(ji)%nid(jc,jm), zclname, id_part_temp   , var_nodims,   &
-                                   OASIS_In           , ishape0d1d(1:2) , OASIS_REAL, nerror )
+                                   OASIS_In           , ishape0d1d , OASIS_REAL, nerror )
 
                     ELSE                       
-                       ishape0d1d(1) = 0
-                       ishape0d1d(2) = 0
+                       ishape0d1d(:) = 0
                        ! Dummy call to keep OASIS3-MCT happy. 
                        CALL oasis_def_var (srcv(ji)%nid(jc,jm), zclname, id_part_0d   , var_nodims,   &
-                                   OASIS_In           , ishape0d1d(1:2) , OASIS_REAL, nerror )
+                                   OASIS_In           , ishape0d1d , OASIS_REAL, nerror )
                     
                     ENDIF