Changeset 6670


Ignore:
Timestamp:
2016-06-06T14:46:31+02:00 (4 years ago)
Author:
frrh
Message:

Use RESHAPE to add 3rd dummy dimension to outgoing
MEDUSA arrays.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GSI7_GSI8_landice_bitcomp_medusa/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

    r6669 r6670  
    22322232 
    22332233#if defined key_medusa 
    2234       IF( ssnd(jps_bio_co2)%laction ) CALL cpl_snd( jps_bio_co2, isec, f_co2flux2d, info ) 
     2234      IF( ssnd(jps_bio_co2)%laction ) CALL cpl_snd( jps_bio_co2, isec, RESHAPE( f_co2flux2d, (/jpi,jpj,1/) ), info ) 
    22352235 
    22362236      IF( ssnd(jps_bio_dms)%laction )  THEN 
     
    22382238          ! the coupling space. 
    22392239          ztmp1(:,: ) = dms_surf2d(:,:) * dms_unit_conv 
    2240          CALL cpl_snd( jps_bio_dms, isec, RESHAPE ( ztmp1, (/jpi,jpj,1/) ), info ) 
     2240         CALL cpl_snd( jps_bio_dms, isec, RESHAPE( ztmp1, (/jpi,jpj,1/) ), info ) 
    22412241      ENDIF 
    22422242#endif 
Note: See TracChangeset for help on using the changeset viewer.