Changeset 5395
- Timestamp:
- 2015-06-10T14:15:43+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5377_UKMO1_CICE_coupling_GSI7/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r5392 r5395 1608 1608 ztmp3(:,:,1:jpl) = kn_ice(:,:,1:jpl) 1609 1609 END SELECT 1610 IF( ssnd(jps_kice)%laction ) CALL cpl_ prism_snd( jps_kice, isec, ztmp3, info )1610 IF( ssnd(jps_kice)%laction ) CALL cpl_snd( jps_kice, isec, ztmp3, info ) 1611 1611 ENDIF 1612 1612 ! … … 1750 1750 ! 1751 1751 ztmp1(:,:) = sstfrz(:,:) + rt0 1752 IF( ssnd(jps_sstfrz)%laction ) CALL cpl_ prism_snd( jps_sstfrz, isec, RESHAPE ( ztmp1, (/jpi,jpj,1/) ), info )1752 IF( ssnd(jps_sstfrz)%laction ) CALL cpl_snd( jps_sstfrz, isec, RESHAPE ( ztmp1, (/jpi,jpj,1/) ), info ) 1753 1753 ! 1754 1754 CALL wrk_dealloc( jpi,jpj, zfr_l, ztmp1, ztmp2, zotx1, zoty1, zotz1, zitx1, zity1, zitz1 )
Note: See TracChangeset
for help on using the changeset viewer.