Changeset 1500 for LMDZ4/branches/LMDZ4_AR5/libf/phylmd/fonte_neige_mod.F90

Timestamp:

Mar 15, 2011, 1:19:24 PM (13 years ago)

Author:

Laurent Fairhead

Message:

Modification to take into account precipitation over ice.
The ok_precip_fonte parameter needs to be put to .false. in one of
the *.def files to ensure that the model will give comparable results to
already submitted AR5 simulations

---

Modification pour prendre en compte les précipitations sur la glace.
Pour assurer la continuité avec les simulations AR5 déjà 'soumises', le
paramètre ok_precip_fonte doit être à .false.

File:

• LMDZ4/branches/LMDZ4_AR5/libf/phylmd/fonte_neige_mod.F90 (modified) (1 diff)

LMDZ4/branches/LMDZ4_AR5/libf/phylmd/fonte_neige_mod.F90

@@ -267 +267 @@
                (1. - coeff_rel) * run_off_lic_0(j)
           run_off_lic_0(j) = run_off_lic(i)
-          run_off_lic(i)   = run_off_lic(i) + fqfonte(i)/dtime
+          if (ok_precip_fonte) then
+            run_off_lic(i)   = run_off_lic(i) + fqfonte(i) + precip_rain(i)
+          else
+            run_off_lic(i)   = run_off_lic(i) + fqfonte(i)/dtime
+          endif
        END DO
     ENDIF