- Timestamp:
- 2012-10-04T18:31:06+02:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_r3385_NOCS04_HAMF/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r3402 r3488 1145 1145 1146 1146 zicefr(:,:) = 1.- p_frld(:,:) 1147 !! zcptn(:,:) = rcp * sst_m(:,:) !! safer to use instantaneous sst value in case coupling frequency does not match nn_fsbc frequency ?? 1148 zcptn(:,:) = rcp * tsn(:,:,1,jp_tem) 1147 zcptn(:,:) = rcp * sst_m(:,:) 1149 1148 ! 1150 1149 ! ! ========================= ! … … 1241 1240 qns_tot(:,:) = qns_tot(:,:) & ! qns_tot update over free ocean with: 1242 1241 & - ztmp(:,:) & ! remove the latent heat flux of solid precip. melting 1243 & +( emp_tot(:,:) & ! remove the heat content of mass flux (assumed to be at SST)1244 & - emp_ice(:,:) * p_frld(:,:,1) ) * zcptn(:,:)1242 & - ( emp_tot(:,:) & ! remove the heat content of mass flux (assumed to be at SST) 1243 & - emp_ice(:,:) * zicefr(:,:) ) * zcptn(:,:) 1245 1244 IF( lk_diaar5 ) CALL iom_put( 'hflx_snow_cea', ztmp + sprecip(:,:) * zcptn(:,:) ) ! heat flux from snow (cell average) 1246 1245 !!gm
Note: See TracChangeset
for help on using the changeset viewer.