Changeset 1461 for trunk/LMDZ.TITAN/libf/phytitan/radtitan.F

Timestamp:

Jun 23, 2015, 10:34:03 AM (10 years ago)

Author:

emillour

Message:

Titan GCM:
Turned the common block "tgmdat.F" into a module "tgmdat_mod.F90".
This fixes issues in "debug" mode with common variables which seemed to not be correctly shared between routines.
EM

File:

• trunk/LMDZ.TITAN/libf/phytitan/radtitan.F (modified) (4 diffs)

trunk/LMDZ.TITAN/libf/phytitan/radtitan.F

@@ -36 +36 @@
       USE optcld, only : iniqcld
       use moyzon_mod, only:plevmoy
+      USE TGMDAT_MOD, ONLY: RHCH4,FH2,FHAZE,FHVIS,FHIR,TAUFAC,
+     &                      RCLOUD,FARGON
+      USE TGMDAT_MOD, ONLY: RHOP
       IMPLICIT NONE
 #include "dimensions.h"
@@ -88 +91 @@
       REAL  XMU(NLEVEL),GAS1(NLAYER),COLDEN(NLAYER)
       REAL  C2H2(NLAYER),C2H6(NLAYER),HCN(NLAYER)
-      REAL  RHCH4,FH2,FHAZE,FHVIS,FHIR,TAUFAC,RCLOUD,FARGON
-      REAL RGAS,RHOP,PI,SIGMA
 
       COMMON /VERTICAL/ DZED
@@ -104 +105 @@
       COMMON /STRATO/ C2H2,C2H6
       COMMON /STRAT2/ HCN
-
-      COMMON /ADJUST/ RHCH4,FH2,FHAZE,FHVIS,FHIR,TAUFAC,RCLOUD,FARGON
-      COMMON /CONST/RGAS,RHOP,PI,SIGMA
 
 c-----------------------------------------------------------------------
@@ -179 +177 @@
 C    NOW CALCULATE THE LAYER AVERAGE GAS MIXING RATIOS.
           CALL GASSES(IPRINT)
-          
+
       else
 c------------------------------------------------------