Browse Source

Removed accidental(?) commenting.

distribute-radiation-on-surface-types
Sven Karsten 2 years ago
parent
commit
fe6a87d885
  1. 8
      src/ice_sis/ice_model.F90

8
src/ice_sis/ice_model.F90

@ -812,11 +812,11 @@ contains
flux_v_new(i,j,k) = flux_v(i,j,k)
flux_t_new(i,j,k) = flux_t(i,j,k)
flux_q_new(i,j,k) = flux_q(i,j,k)
!#IFDEF COUP_OAS !sandra
! flux_lh_new(i,j,k) = flux_lhc(i,j,k)
!#ELSE
#IFDEF COUP_OAS !sandra
flux_lh_new(i,j,k) = flux_lhc(i,j,k)
#ELSE
flux_lh_new(i,j,k) = hlv*flux_q(i,j,k)
!#ENDIF
#ENDIF
flux_lw_new(i,j,k) = flux_lw(i,j,k)
flux_sw_nir_dir_new(i,j,k) = flux_sw_nir_dir(i,j,k)
flux_sw_nir_dif_new(i,j,k) = flux_sw_nir_dif(i,j,k)

Loading…
Cancel
Save