Changeset 1537

Timestamp:

Apr 8, 2016, 12:48:06 PM (9 years ago)

Author:

emillour

Message:

Generic GCM:

• Bug fix in surf_heat_transp_mod (introduced with revision 1529, 05/04/2016, modifications).
• Initialize runoff in hydrol.F90.

EM

Location:

trunk/LMDZ.GENERIC

Files:

• README (modified) (2 diffs)
• libf/phystd/hydrol.F90 (modified) (1 diff)
• libf/phystd/surf_heat_transp_mod.F90 (modified) (1 diff)

trunk/LMDZ.GENERIC/README

@@ -1159 +1159 @@
 - Removed module "comhdiff_mod.F90", as it is only used by module
   surf_heat_transp_mod.F90, moved module variables there.
-- Addedin "surf_heat_transp_mod" local versions of some arrays
+- Added in "surf_heat_transp_mod" local versions of some arrays
   and routines (from dyn3d) required to compute gradient, divergence, etc. 
   on the global dynamics grid.
@@ -1171 +1171 @@
 
 == 08/04/2016 == EM
-- Adapt rcm1d.F so that it also runs when compiled from LMDZ.COMMON.
-
+- Adapted rcm1d.F so that it also runs when compiled from LMDZ.COMMON.
+
+== 08/04/2016 == EM
+- Bug fix in surf_heat_transp_mod (introduced with revision 1529, 05/04/2016, modifications).
+- Initialize runoff in hydrol.F90.
+
+
+

trunk/LMDZ.GENERIC/libf/phystd/hydrol.F90

@@ -117 +117 @@
          
          
-         if (activerunoff) ALLOCATE(runoff(ngrid))
+         if (activerunoff) then
+           ALLOCATE(runoff(ngrid))
+           runoff(1:ngrid)=0
+         endif
 
          ivap=igcm_h2o_vap

trunk/LMDZ.GENERIC/libf/phystd/surf_heat_transp_mod.F90

@@ -226 +226 @@
       iip1=nbp_lon+1
       iip2=nbp_lon+2
-      jjp1=nbp_lon
+      jjp1=nbp_lat
       ip1jm=(nbp_lon+1)*(nbp_lat-1) ! = iip1*jjm
       ip1jmi1=(nbp_lon+1)*(nbp_lat-1)-(nbp_lon+1) ! = ip1jm - iip1