Changeset 1505 for LMDZ5/trunk/libf/dyn3d/conf_planete.F90

Timestamp:

Apr 7, 2011, 4:15:05 PM (14 years ago)

Author:

Ehouarn Millour

Message:

Added possibility to have the base of the atmosphere heated (to mimic a constant uniform heat flux from below), set in .def file (parameter ihf = ... , in W/m2); only active if in "Newtonian mode" (iflag_phys=2) and if planet_type=="giant".
EM

File:

• LMDZ5/trunk/libf/dyn3d/conf_planete.F90 (modified) (1 diff)

LMDZ5/trunk/libf/dyn3d/conf_planete.F90

@@ -64 +64 @@
 CALL getin('omeg',omeg)
 
+! Intrinsic heat flux (default: none) (only used if planet_type="giant")
+ihf = 0.
+call getin('ihf',ihf)
+
 END SUBROUTINE conf_planete