Changeset 1996 for trunk/LMDZ.MARS/libf/phymars/watersat.F

Timestamp:

Sep 13, 2018, 3:27:26 PM (6 years ago)

Author:

emillour

Message:

Mars physics:

• Turn watersat into a module.

CO2 cloud updates:

• compute co2 condensation tendencies in the co2 cloud scheme and pass them on to vdifc (for tests; they might not be needed) and adapt newcondens.

DB+EM

File:

• trunk/LMDZ.MARS/libf/phymars/watersat.F (modified) (4 diffs)

trunk/LMDZ.MARS/libf/phymars/watersat.F

@@ +1 @@
+      MODULE watersat_mod
+      
+      IMPLICIT NONE
+      
+      CONTAINS 
+      
       SUBROUTINE watersat(naersize,t,p,qsat)
+      
       IMPLICIT NONE
 
@@ -7 +14 @@
 c   and Temperature (K) array
 c
+c  Move in module by Deborah BARDET 02/07/18
 c=======================================================================
 
@@ -15 +23 @@
 
 c   INPUT
-      integer naersize 
-      real t(naersize) , p(naersize)
+      integer, intent(in) :: naersize 
+      real, intent(in) :: t(naersize)
+      real, intent(in) :: p(naersize)
 c   OUTPUT
-      real qsat(naersize)
+      real, intent(out) :: qsat(naersize)
 
 c   local:
 c   ------
       INTEGER i
-      REAL r2,r3,r4 , To, es
-      SAVE r2,r3,r4
-      DATA r2,r3,r4/611.14,21.875,7.66/
-      SAVE To
-      DATA To/273.16/
-          
+      REAL,PARAMETER :: r2 = 611.14
+      REAL,PARAMETER :: r3 = 21.875
+      REAL,PARAMETER :: r4 = 7.66
+      REAL,PARAMETER :: To = 273.16
+      REAL es
+      
+      
       do i=1,naersize
 c        pression de vapeur saturante :
@@ -44 +54 @@
       enddo
 
-      RETURN
-      END
-
+      END SUBROUTINE watersat
+      
+      END MODULE watersat_mod