Changeset 1033 for trunk/LMDZ.MARS/libf/phymars/thermcell_dqup.F90

Timestamp:

Sep 8, 2013, 11:43:08 PM (11 years ago)

Author:

aslmd

Message:

LMDZ.MARS additional comments of thermal plume model. moved tuning variables in comtherm_h

File:

• trunk/LMDZ.MARS/libf/phymars/thermcell_dqup.F90 (modified) (2 diffs)

trunk/LMDZ.MARS/libf/phymars/thermcell_dqup.F90

@@ -1 @@
-      subroutine thermcell_dqup(ngrid,nlayer,ptimestep,fm,entr,detr,  &
-     &    masse0,q_therm,dq_therm,ndt,zlmax)
-      implicit none
-
+!=======================================================================
+! THERMCELL_DQUP
 !=======================================================================
 !
@@ -13 +11 @@
 !
 !=======================================================================
-! Arnaud Colaitis 2011-01-05 (modified 2011-2013)
-! SEE COMMENTS IN CALLTHERM_INTERFACE
-!=======================================================================
+! Author : A. Colaitis 2011-01-05 (with updates 2011-2013)
+! Institution : Laboratoire de Meteorologie Dynamique (LMD) Paris, France
+! -----------------------------------------------------------------------
+! Corresponding author : A. Spiga aymeric.spiga_AT_upmc.fr
+! -----------------------------------------------------------------------
+! Reference paper:
+! A. Colaïtis, A. Spiga, F. Hourdin, C. Rio, F. Forget, and E. Millour. 
+! A thermal plume model for the Martian convective boundary layer. 
+! Journal of Geophysical Research (Planets), 118:1468-1487, July 2013.
+! http://dx.doi.org/10.1002/jgre.20104
+! http://arxiv.org/abs/1306.6215
+! -----------------------------------------------------------------------
+
+      subroutine thermcell_dqup(ngrid,nlayer,ptimestep,fm,entr,detr,  &
+     &    masse0,q_therm,dq_therm,ndt,zlmax)
+      implicit none
 
 ! ============================ INPUTS ============================