Changeset 6651
- Timestamp:
- 2016-06-01T17:04:33+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_coupling_GSI7_GSI8_landice_bitcomp/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r6363 r6651 734 734 END SELECT 735 735 #else 736 IF( TRIM( sn_snd_mpnd%cldes /= 'none' ) THEN736 IF( TRIM( sn_snd_mpnd%cldes ) /= 'none' ) THEN 737 737 CALL ctl_stop('Meltponds can only be used with CICEv5') 738 738 ENDIF … … 2115 2115 ENDIF 2116 2116 ! 2117 #if defined key_cice && ! defined key_cice4 2117 2118 ! Send meltpond fields 2118 2119 IF( ssnd(jps_a_p)%laction .OR. ssnd(jps_ht_p)%laction ) THEN … … 2157 2158 IF( ssnd(jps_kice)%laction ) CALL cpl_snd( jps_kice, isec, ztmp3, info ) 2158 2159 ENDIF 2160 #endif 2159 2161 ! 2160 2162 ! … … 2338 2340 IF( ssnd(jps_taum )%laction ) CALL cpl_snd( jps_taum , isec, RESHAPE ( taum, (/jpi,jpj,1/) ), info ) 2339 2341 2342 #if defined key_cice 2340 2343 ztmp1(:,:) = sstfrz(:,:) + rt0 2341 2344 IF( ssnd(jps_sstfrz)%laction ) CALL cpl_snd( jps_sstfrz, isec, RESHAPE ( ztmp1, (/jpi,jpj,1/) ), info ) 2345 #endif 2342 2346 ! 2343 2347 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.