Changeset 2419

Timestamp:

Jan 4, 2016, 5:12:49 PM (8 years ago)

Author:

Ehouarn Millour

Message:

Extracted "qcheck" function from physiq_mod.F90 module; it is self-standing and general, and moreover its being in the physiq module causes compilation issues with ifort.
EM

Location:

LMDZ5/trunk/libf/phylmd

Files:

• physiq_mod.F90 (modified) (1 diff)
• qcheck.F90 (added)

LMDZ5/trunk/libf/phylmd/physiq_mod.F90

@@ -4480 +4480 @@
 END SUBROUTINE physiq
 
-FUNCTION qcheck(klon,klev,paprs,q,ql,aire)
-  IMPLICIT none
-  !
-  ! Calculer et imprimer l'eau totale. A utiliser pour verifier
-  ! la conservation de l'eau
-  !
-  include "YOMCST.h"
-  INTEGER klon,klev
-  REAL paprs(klon,klev+1), q(klon,klev), ql(klon,klev)
-  REAL aire(klon)
-  REAL qtotal, zx, qcheck
-  INTEGER i, k
-  !
-  zx = 0.0
-  DO i = 1, klon
-     zx = zx + aire(i)
-  ENDDO
-  qtotal = 0.0
-  DO k = 1, klev
-     DO i = 1, klon
-        qtotal = qtotal + (q(i,k)+ql(i,k)) * aire(i) &
-             *(paprs(i,k)-paprs(i,k+1))/RG
-     ENDDO
-  ENDDO
-  !
-  qcheck = qtotal/zx
-  !
-END FUNCTION qcheck
-
 END MODULE physiq_mod