Changeset 5167 for trunk/NEMOGCM/NEMO/LIM_SRC_3/limwri.F90

Timestamp:

2015-03-24T18:35:00+01:00 (9 years ago)

Author:

clem

Message:

LIM3 bug fix. see ticket #1492 (forthcoming update) which also solve ticket #1497

File:

• trunk/NEMOGCM/NEMO/LIM_SRC_3/limwri.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/LIM_SRC_3/limwri.F90

@@ -232 +232 @@
       CALL iom_put ('hfxopw'     , hfx_opw(:,:)         )   !  
       CALL iom_put ('hfxtur'     , fhtur(:,:) * at_i(:,:) ) ! turbulent heat flux at ice base 
-      CALL iom_put ('hfxdhc'     , diag_heat_dhc(:,:)   )   ! Heat content variation in snow and ice 
+      CALL iom_put ('hfxdhc'     , diag_heat(:,:)       )   ! Heat content variation in snow and ice 
       CALL iom_put ('hfxspr'     , hfx_spr(:,:)         )   ! Heat content of snow precip