Changeset 6416 for trunk/NEMOGCM/NEMO/LIM_SRC_3/limdiahsb.F90

Timestamp:

2016-04-01T14:22:17+02:00 (8 years ago)

Author:

clem

Message:

phase trunk with new additions on LIM3 from 3.6 stable (r6398 r6399 and r6400)

File:

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

trunk/NEMOGCM/NEMO/LIM_SRC_3/limdiahsb.F90

@@ -113 +113 @@
 
       ! Heat budget
-      zbg_ihc      = glob_sum( et_i(:,:) * e1e2t(:,:) ) * 1.e-20  ! ice heat content  [1.e20 J]
-      zbg_shc      = glob_sum( et_s(:,:) * e1e2t(:,:) ) * 1.e-20  ! snow heat content [1.e20 J]
+      zbg_ihc      = glob_sum( et_i(:,:) * e1e2t(:,:) * 1.e-20 ) ! ice heat content  [1.e20 J]
+      zbg_shc      = glob_sum( et_s(:,:) * e1e2t(:,:) * 1.e-20 ) ! snow heat content [1.e20 J]
       zbg_hfx_dhc  = glob_sum( diag_heat(:,:) * e1e2t(:,:) * tmask(:,:,1) ) ! [in W]
       zbg_hfx_spr  = glob_sum( hfx_spr(:,:) * e1e2t(:,:) * tmask(:,:,1) ) ! [in W]