Changeset 1740

Timestamp:

Jul 24, 2017, 12:44:17 AM (7 years ago)

Author:

aslmd

Message:

MESOSCALE VENUS. reverted back to r1723 as far as the lack of tname is concerned

Location:

trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys

Files:

• dynphy_wrf_venus_lmd_new/update_inputs_physiq_mod.F (modified) (3 diffs)
• module_lmd_driver.F.new (modified) (3 diffs)

trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/dynphy_wrf_venus_lmd_new/update_inputs_physiq_mod.F

@@ -1 +1 @@
 MODULE update_inputs_physiq_mod
+
+IMPLICIT NONE
+
+CHARACTER(len=20),save,allocatable,dimension(:) :: traceurs ! tracer names
 
 CONTAINS
@@ -61 +65 @@
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-SUBROUTINE update_inputs_physiq_tracers(nq,MARS_MODE,tname)
+SUBROUTINE update_inputs_physiq_tracers(nq,MARS_MODE)
 
   !use infotrac
@@ -67 +71 @@
   implicit none
   INTEGER, INTENT(IN) :: nq,MARS_MODE
-  CHARACTER(len=*), INTENT(INOUT) :: tname(nq) ! tracer names
-
-  tname(:)='zolbxs' 
+
+  ALLOCATE(traceurs(nq))
+  traceurs(:)='zolbxs' 
   !call infotrac_init ! Need traceur.def
 

trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/module_lmd_driver.F.new

@@ -193 +193 @@
 
    !! arguments to physiq
-   CHARACTER(len=20),ALLOCATABLE :: tname(:) ! tracer names
    REAL*8,ALLOCATABLE :: zpk_omp(:,:)
    REAL*8,ALLOCATABLE :: zphis_omp(:) ! surface geopotential
@@ -376 +375 @@
 ! ALLOCATE !
 !----------!
-IF (.not.ALLOCATED(tname)) ALLOCATE(tname(nq)) 
 !-------------------------------------------------------------------------------!
 ! outputs:                                                                      !       
@@ -454 +452 @@
   !! tracers' name
   PRINT *,'** ',planet_type,'** TRACERS NAMES'
-  CALL update_inputs_physiq_tracers(nq,MARS_MODE,tname)
+  CALL update_inputs_physiq_tracers(nq,MARS_MODE)
   !! PHYSICS VARIABLES (cf. iniphysiq in LMD GCM)
   !! parameters are defined in the module_model_constants.F WRF routine