Changeset 6262

Timestamp:

2016-01-19T12:08:46+01:00 (8 years ago)

Author:

frrh

Message:

Changes to facilitate testing of MEDUSA coupling field exchange.

File:

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

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

@@ -2279 +2279 @@
 
 ! RSRH set up a test field purely for use during development:
-      trc2d_TEST(:,:) = 0.0 
+      DO jj = 1, jpj
+        DO ji = 1, jpi
+          trc2d_TEST(ji,jj) = jj*(ji*0.001) 
+        END DO
+      END DO
 
       ! RSRH. We don't want to use magic numbers in the final code (i.e. 98 and 221).
@@ -2287 +2291 @@
 !         CALL cpl_snd( jps_bio_co2, isec, trc2d(:,:,98:98), info )
 ! RSRH Send our test field in place of the real bio_co2
-         CALL cpl_snd( jps_bio_co2, isec, trc2d_TEST(:,:), info )
+!
+! RSRH It seems daft that our coupled field HAS TO BE passed 
+!      with 3 dimensions when in most (all?) cases fields will be 2D surface fields. 
+!      The cpl_snd interface should handle the ability to pass 2D or 3D fields 
+!      automatically without obfuscating things with RESHAPE.   
+         CALL cpl_snd( jps_bio_co2, isec, RESHAPE ( trc2d_TEST, (/jpi,jpj,1/) ), info )
       END IF