Changeset 2315 for LMDZ5/trunk/libf/phylmd/rrtm

Timestamp:

Jun 25, 2015, 5:25:50 PM (10 years ago)

Author:

Ehouarn Millour

Message:

More on physics/dynamics separation: make a vertical_layers_mod module to contain information on the vertical discretization. This module should be used from within the physics (instead of including comvert.h from dynamics).
EM

File:

• LMDZ5/trunk/libf/phylmd/rrtm/suphec.F90 (modified) (4 diffs)

LMDZ5/trunk/libf/phylmd/rrtm/suphec.F90

@@ -87 +87 @@
 USE YOM_PHYS_GRID ,ONLY : PHYS_GRID
 USE YOMCT0  , ONLY  : LSCMEC   ,LROUGH   ,REXTZ0M  ,REXTZ0H
+USE vertical_layers_mod, ONLY: ap,bp
 
 IMPLICIT NONE
@@ -115 +116 @@
 #include "suwcou.intfb.h"
 #include "dimensions.h"
-#include "comvert.h"
 
 !     ------------------------------------------------------------------
@@ -168 +168 @@
 !ALLOCATE(VBH    (0:MAX(JPMXLE,NFLEVG)))  from suallo.F90
 !! 
-!! ATTENTION, il faut que ~dyn3d/comvert.h soit conforme au Fortran 90 !!
-!! 
 ALLOCATE(VAH    (0:NFLEVG))  ! Ajout ALLOCATE MPL 200509
 ALLOCATE(VBH    (0:NFLEVG))
@@ -177 +175 @@
 VP00=101325.     !!!!! A REVOIR (MPL)
 ZPRES(NFLEVG)=VP00
-! on recupere ap et bp de dyn3d (comvert.h) MPL 19.05.09
+! on recupere ap et bp de dyn3d (vertical_layers_mod) MPL 19.05.09
 ! Attention, VAH et VBH sont inverses, comme les niveaux
 ! plev(l)=PAPRS(klon,nlayer+1-l) de 1 a nlayer (apllmd.F)