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

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

@@ -2 +2 @@
 
       use dimphy
+      USE TGMDAT_MOD, ONLY: UBARI,UBARV,UBAR0
+      USE TGMDAT_MOD, ONLY: F0PI
       IMPLICIT NONE
 #include "dimensions.h"
@@ -38 +40 @@
      &      FMNETV(ngrid,NLEVEL),
      &      FMUPV(NLEVEL),FMDV(NLEVEL)
-      REAL CSUBP,F0PI
-      REAL UBARI,UBARV,UBAR0
 
       COMMON /VISGAS/SOLARF,NTERM,PEXPON,
@@ -60 +60 @@
      &               FDV,
      &               FMNETV
-
-      COMMON /PLANT/ CSUBP,F0PI
-      COMMON /UBARED/ UBARI,UBARV,UBAR0