Changeset 12330
- Timestamp:
- 2020-01-16T17:34:16+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0.1_fix_cpl/src/OCE/SBC/sbccpl.F90
r11916 r12330 2154 2154 SELECT CASE( sn_snd_temp%clcat ) 2155 2155 CASE( 'yes' ) 2156 ztmp3(:,:,1:jpl) = t n_ice(:,:,1:jpl) * a_i(:,:,1:jpl)2156 ztmp3(:,:,1:jpl) = t_i(:,:,1,1:jpl) * a_i(:,:,1:jpl) 2157 2157 CASE( 'no' ) 2158 2158 ztmp3(:,:,:) = 0.0
Note: See TracChangeset
for help on using the changeset viewer.