Changeset 6670

Timestamp:

2016-06-06T14:46:31+02:00 (8 years ago)

Author:

frrh

Message:

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

File:

• branches/UKMO/dev_r5518_GSI7_GSI8_landice_bitcomp_medusa/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90 (modified) (2 diffs)

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

@@ -2232 +2232 @@
 
 #if defined key_medusa
-      IF( ssnd(jps_bio_co2)%laction ) CALL cpl_snd( jps_bio_co2, isec, f_co2flux2d, info )
+      IF( ssnd(jps_bio_co2)%laction ) CALL cpl_snd( jps_bio_co2, isec, RESHAPE( f_co2flux2d, (/jpi,jpj,1/) ), info )
 
       IF( ssnd(jps_bio_dms)%laction )  THEN
@@ -2238 +2238 @@
           ! the coupling space.
           ztmp1(:,: ) = dms_surf2d(:,:) * dms_unit_conv
-         CALL cpl_snd( jps_bio_dms, isec, RESHAPE ( ztmp1, (/jpi,jpj,1/) ), info )
+         CALL cpl_snd( jps_bio_dms, isec, RESHAPE( ztmp1, (/jpi,jpj,1/) ), info )
       ENDIF
 #endif