Changeset 11382 for NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/ICE/iceupdate.F90
- Timestamp:
- 2019-07-31T17:08:36+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/ICE/iceupdate.F90
r11371 r11382 280 280 IF( iom_use('hfxcndtop' ) ) CALL iom_put( 'hfxcndtop' , SUM( qcn_ice_top * a_i_b, dim=3 ) ) ! Surface conduction flux 281 281 282 ! diags283 CALL iom_put ('hfxdhc' , diag_heat ) ! Heat content variation in snow and ice284 !285 282 ! controls 286 283 !---------
Note: See TracChangeset
for help on using the changeset viewer.