Changeset 7504

Timestamp:

2016-12-15T17:05:18+01:00 (7 years ago)

Author:

timgraham

Message:

Fix uninitialised array in sbcblk.F90 (feeding into LIM3).
Fix copied from sbcblk_core.F90 module

File:

• branches/2016/dev_merge_2016/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk.F90 (modified) (1 diff)

branches/2016/dev_merge_2016/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk.F90

@@ -817 +817 @@
       qprec_ice(:,:) = rhosn * ( ( MIN( sf(jp_tair)%fnow(:,:,1), rt0_snow ) - rt0 ) * cpic * tmask(:,:,1) - lfus )
 
+      ! --- heat content of evap over ice in W/m2 (to be used in 1D-thermo) ---
+      ! !
+      DO jl = 1, jpl
+         qevap_ice(:,:,jl) = 0._wp ! should be -evap_ice(:,:,jl)*( ( Tice - rt0) * cpic * tmask(:,:,1) )
+                                   ! But we do not have Tice => consider it at
+                                   ! 0??C => evap=0 
+      END DO
+
       CALL wrk_dealloc( jpi,jpj,   zevap, zsnw )
 #endif