Changeset 1474 for LMDZ5/branches/LMDZ5V2.0-dev/libf/dyn3d/iniacademic.F90

Timestamp:

Jan 14, 2011, 12:04:45 PM (13 years ago)

Author:

lguez

Message:

Conversion to free source form for "ugeostr". Removed strange "print
*, 301" at the end of "ugeostr".

File:

• LMDZ5/branches/LMDZ5V2.0-dev/libf/dyn3d/iniacademic.F90 (modified) (2 diffs)

LMDZ5/branches/LMDZ5V2.0-dev/libf/dyn3d/iniacademic.F90

@@ -16 +16 @@
 
   !   Author:    Frederic Hourdin      original: 15/01/93
+  ! The forcing defined here is from Held and Suarez, 1994, Bulletin
+  ! of the American Meteorological Society, 75, 1825.
 
   IMPLICIT NONE
@@ -54 +56 @@
   REAL pkf(ip1jmp1,llm)                  ! exner filt.au milieu des couches
   REAL phi(ip1jmp1,llm)                  ! geopotentiel
-  REAL ddsin,tetastrat,zsig,tetapv,w_pv  ! variables auxiliaires
+  REAL ddsin,zsig,tetapv,w_pv  ! variables auxiliaires
+  real tetastrat ! potential temperature in the stratosphere, in K
   real tetajl(jjp1,llm)
   INTEGER i,j,l,lsup,ij