Changeset 10217


Ignore:
Timestamp:
2018-10-24T11:06:59+02:00 (19 months 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:
1 edited

Legend:

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

    r10214 r10217  
    209209      ishape(4) = nlej-nldj+1 
    210210 
    211       ishape0d1d(1) = 0 
    212       ishape0d1d(2) = 0 
     211      ishape0d1d(:) = 1 
    213212 
    214213      ! 
     
    360359                    IF (nproc == 0) THEN                     
    361360                        
    362                        ishape0d1d(1) = 1 
    363361                       IF (srcv(ji)%dimensions == 0) THEN 
    364362                        
     
    375373 
    376374                       CALL oasis_def_var (srcv(ji)%nid(jc,jm), zclname, id_part_temp   , var_nodims,   & 
    377                                    OASIS_In           , ishape0d1d(1:2) , OASIS_REAL, nerror ) 
     375                                   OASIS_In           , ishape0d1d , OASIS_REAL, nerror ) 
    378376 
    379377                    ELSE                        
    380                        ishape0d1d(1) = 0 
    381                        ishape0d1d(2) = 0 
     378                       ishape0d1d(:) = 0 
    382379                       ! Dummy call to keep OASIS3-MCT happy.  
    383380                       CALL oasis_def_var (srcv(ji)%nid(jc,jm), zclname, id_part_0d   , var_nodims,   & 
    384                                    OASIS_In           , ishape0d1d(1:2) , OASIS_REAL, nerror ) 
     381                                   OASIS_In           , ishape0d1d , OASIS_REAL, nerror ) 
    385382                     
    386383                    ENDIF 
Note: See TracChangeset for help on using the changeset viewer.