Changeset 10531 for NEMO/trunk/src/ICE/iceforcing.F90
- Timestamp:
- 2019-01-16T14:17:50+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/ICE/iceforcing.F90
r10425 r10531 145 145 SELECT CASE( nice_jules ) 146 146 CASE( np_jules_ACTIVE ) ! compute conduction flux and surface temperature (as in Jules surface module) 147 CALL blk_ice_qcn ( nn_virtual_itd, t_su, t_bo, h_s, h_i )147 CALL blk_ice_qcn ( ln_virtual_itd, t_su, t_bo, h_s, h_i ) 148 148 END SELECT 149 149 CASE ( jp_purecpl ) !--- coupled formulation
Note: See TracChangeset
for help on using the changeset viewer.