Ignore:
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/libf/phystd
Files:
2 edited

Legend:

Unmodified
Added
Removed

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

    r1521 r1537  
    117117         
    118118         
    119          if (activerunoff) ALLOCATE(runoff(ngrid))
     119         if (activerunoff) then
     120           ALLOCATE(runoff(ngrid))
     121           runoff(1:ngrid)=0
     122         endif
    120123
    121124         ivap=igcm_h2o_vap

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

    r1529 r1537  
    226226      iip1=nbp_lon+1
    227227      iip2=nbp_lon+2
    228       jjp1=nbp_lon
     228      jjp1=nbp_lat
    229229      ip1jm=(nbp_lon+1)*(nbp_lat-1) ! = iip1*jjm
    230230      ip1jmi1=(nbp_lon+1)*(nbp_lat-1)-(nbp_lon+1) ! = ip1jm - iip1
Note: See TracChangeset for help on using the changeset viewer.