Changeset 2058 for LMDZ5/trunk/libf

Timestamp:

Jun 16, 2014, 5:00:45 PM (10 years ago)

Author:

Laurent Fairhead

Message:

Modifications sur l'utilisation du module/fichier YOMCST

---

Modification on the use of the file/module YOMCST
MPL

Location:

LMDZ5/trunk/libf/phylmd/rrtm

Files:

• aeropt_5wv_rrtm.F90 (modified) (2 diffs)
• aeropt_6bands_rrtm.F90 (modified) (2 diffs)
• readaerosolstrato_rrtm.F90 (modified) (1 diff)

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

@@ -12 +12 @@
   USE aero_mod
   USE phys_local_var_mod, only: od550aer,od865aer,ec550aer,od550lt1aer
+  USE YOMCST           , only : RD , RG
 
   !
@@ -49 +50 @@
   !
   IMPLICIT NONE
-  INCLUDE "YOMCST.h"
   !
   ! Input arguments:

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

@@ -11 +11 @@
   USE aero_mod
   USE phys_local_var_mod, only: absvisaer
+  USE YOMCST            , only: RD , RG
 
   !    Yves Balkanski le 12 avril 2006
@@ -21 +22 @@
   IMPLICIT NONE
 
-  INCLUDE "YOMCST.h"
   INCLUDE "iniprint.h"
   INCLUDE "clesphys.h"

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

@@ -19 +19 @@
     implicit none
 
-    include "YOMCST.h"
     include "dimensions.h"