Changeset 1461 for trunk/LMDZ.TITAN/libf/phytitan/gfluxv.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/gfluxv.F (modified) (2 diffs)

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

@@ -2 +2 @@
      &          , F0PI,RSF,BTOP,BSURF,FP,FM,FMIDP,FMIDM,IPRINT)
 c      PARAMETER (NL=101)
+        USE TGMDAT_MOD, ONLY: UBARI,UBARV,UBAR0
         IMPLICIT NONE
       INTEGER IPRINT,I,J,K,IDELTA,NAYER,NL,NTODO
@@ -17 +18 @@
 C J.A.S., 37, 630-642, 1980.
       REAL B81,B82,R81
-      REAL AP,AM,F0PI,DENOM,UBARI,UBARV,UBAR0,CMMID,TAUMID,RSF,BTOP
+      REAL AP,AM,F0PI,DENOM,CMMID,TAUMID,RSF,BTOP
       REAL EM,EP,PI,WAVEN,CPMID,BSURF,G4
-      COMMON /UBARED/ UBARI,UBARV,UBAR0
 C THIS NEXT ROW OF VARIABLES ARE THOSE ACTUALLY USED IN THE
 C ROUTINE