Changeset 2485 for LMDZ5/trunk/libf/phylmd/physiq_mod.F90

Timestamp:

Apr 1, 2016, 11:21:11 PM (8 years ago)

Author:

oboucher

Message:

simplification to water mass fixer for the physics

File:

• LMDZ5/trunk/libf/phylmd/physiq_mod.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/phylmd/physiq_mod.F90

@@ -937 +937 @@
     !albedo SB <<<
 
-    !--OB variables for mass fixer 
+    !--OB variables for mass fixer (hard coded for now)
     logical, parameter :: mass_fixer=.false.
     real qql1(klon),qql2(klon),zdz,corrqql
@@ -1599 +1599 @@
     DO i = 1, klon
       DO k = 1, klev
-        zdz=(paprs(i,k)-paprs(i,k+1))/RG
-        qql1(i)=qql1(i)+(q_seri(i,k)+ql_seri(i,k))*zdz
+        qql1(i)=qql1(i)+(q_seri(i,k)+ql_seri(i,k))*zmasse(i,k)
       ENDDO
     ENDDO
@@ -4552 +4551 @@
     DO i = 1, klon
       DO k = 1, klev
-        zdz=(paprs(i,k)-paprs(i,k+1))/RG
-        qql2(i)=qql2(i)+(q_seri(i,k)+ql_seri(i,k))*zdz
+        qql2(i)=qql2(i)+(q_seri(i,k)+ql_seri(i,k))*zmasse(i,k)
       ENDDO
     ENDDO