Changeset 6257

Timestamp:

2016-01-15T11:22:21+01:00 (8 years ago)

Author:

frrh

Message:

cpl_prism_snd is now called cpl_snd. Correct name.

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

@@ -2285 +2285 @@
       ! so the following code MUST NOT be viewed as anything more than temporary.
       IF ( ssnd(jps_bio_co2)%laction ) THEN
-!         CALL cpl_prism_snd( jps_bio_co2, isec, trc2d(:,:,98:98), info )
+!         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_prism_snd( jps_bio_co2, isec, trc2d_TEST(:,:), info )
+         CALL cpl_snd( jps_bio_co2, isec, trc2d_TEST(:,:), info )
       END IF
 
@@ -2296 +2296 @@
 !RSRH Use our test field in place of the real bio_dms 
          ztmp1(:,: ) = trc2d_TEST(:,:) * dms_unit_conv
-         CALL cpl_prism_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