Changeset 5395 for branches/UKMO

Timestamp:

2015-06-10T14:15:43+02:00 (9 years ago)

Author:

jamrae

Message:

Updated out-of-date function name (cpl_prism_snd to cpl_snd).

File:

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

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

@@ -1608 +1608 @@
            ztmp3(:,:,1:jpl) = kn_ice(:,:,1:jpl)
          END SELECT
-         IF( ssnd(jps_kice)%laction )   CALL cpl_prism_snd( jps_kice, isec, ztmp3, info )
+         IF( ssnd(jps_kice)%laction )   CALL cpl_snd( jps_kice, isec, ztmp3, info )
       ENDIF
       !
@@ -1750 +1750 @@
       !
       ztmp1(:,:) = sstfrz(:,:) + rt0
-      IF( ssnd(jps_sstfrz)%laction )  CALL cpl_prism_snd( jps_sstfrz, isec, RESHAPE ( ztmp1, (/jpi,jpj,1/) ), info )
+      IF( ssnd(jps_sstfrz)%laction )  CALL cpl_snd( jps_sstfrz, isec, RESHAPE ( ztmp1, (/jpi,jpj,1/) ), info )
       !
       CALL wrk_dealloc( jpi,jpj, zfr_l, ztmp1, ztmp2, zotx1, zoty1, zotz1, zitx1, zity1, zitz1 )