Changeset 8351 for branches/UKMO

Timestamp:

2017-07-19T12:55:37+02:00 (7 years ago)

Author:

jamrae

Message:

Debugging.

File:

• branches/UKMO/dev_r5518_GO6_package_r7750_plus_form_drag/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90 (modified) (1 diff)

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

@@ -2543 +2543 @@
              ztmp1(:,:) = fmdice(:,:)
       END SELECT
-      IF( ssnd(jps_fmdice)%laction )   CALL cpl_prism_snd( jps_fmdice, isec, RESHAPE ( ztmp1, (/jpi,jpj,1/) ), info ) 
+      IF( ssnd(jps_fmdice)%laction )   CALL cpl_snd( jps_fmdice, isec, RESHAPE ( ztmp1, (/jpi,jpj,1/) ), info ) 
       !
       CALL wrk_dealloc( jpi,jpj, zfr_l, ztmp1, ztmp2, zotx1, zoty1, zotz1, zitx1, zity1, zitz1 )