- Timestamp:
- 2017-12-15T14:59:08+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/LIM_SRC_3/iceforcing.F90
r9019 r9076 146 146 SELECT CASE( nice_jules ) 147 147 CASE( np_jules_ACTIVE ) ! compute conduction flux and surface temperature (as in Jules surface module) 148 CALL blk_ice_qcn ( nn_ monocat, t_su, t_bo, h_s, h_i )148 CALL blk_ice_qcn ( nn_virtual_itd, t_su, t_bo, h_s, h_i ) 149 149 END SELECT 150 150 CASE ( jp_purecpl ) !--- coupled formulation
Note: See TracChangeset
for help on using the changeset viewer.