Changeset 2068 for trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2

Timestamp:

Jan 18, 2019, 12:25:29 PM (6 years ago)

Author:

mlefevre

Message:

Fixed compilation problems for generic mesoscale model

Location:

trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/dynphy_wrf_generic_lmd_new

Files:

• callphysiq_mod.F (modified) (2 diffs)
• iniphysiq_mod.F (modified) (6 diffs)
• update_inputs_physiq_mod.F (modified) (4 diffs)

trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/dynphy_wrf_generic_lmd_new/callphysiq_mod.F

@@ -8 +8 @@
 CONTAINS
 
-SUBROUTINE call_physiq(planet_type,klon,llm,nqtot,tname,                  &
+SUBROUTINE call_physiq(planet_type,klon,llm,nqtot,                  &
                        debut_split,lafin_split)
-
+ 
   USE variables_mod
   USE physiq_mod, ONLY: physiq
@@ -24 +24 @@
   LOGICAL,INTENT(IN) :: debut_split ! .true. if very first call to physics
   LOGICAL,INTENT(IN) :: lafin_split ! .true. if last call to physics
-  REAL*8,INTENT(IN) :: JD_cur ! Julian day
-  REAL*8,INTENT(IN) :: JH_cur_split ! Julian hour (fraction of day)
 
   ! Local variables

trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/dynphy_wrf_generic_lmd_new/iniphysiq_mod.F

@@ -3 +3 @@
 CONTAINS
 
-subroutine iniphysiq(ngrid,nlayer,nq,phour_ini,piphysiq,&
-                     punjours, pdayref,ptimestep, &
+subroutine iniphysiq(ngrid,nlayer,nq,piphysiq,&
+                     punjours, pdayref, &
                      prad,pg,pr,pcpp,iflag_phys)
 
@@ -43 +43 @@
 REAL,intent(in) :: punjours
 !DOUBLE PRECISION,intent(in) :: ptimestep
-REAL*8,intent(in) :: phour_ini
 
 !real,intent(in) :: prad ! radius of the planet (m)
@@ -51 +50 @@
 !real,intent(in) :: punjours ! length (in s) of a standard day [daysec]
 integer,intent(in) :: pdayref ! reference day of for the simulation [day_ini]
-real*8,intent(in) :: ptimestep !physics time step (s) [dtphys]
 integer,intent(in) :: iflag_phys ! type of physics to be called
 
@@ -67 +65 @@
 real*8 :: lat(ngrid),long(ngrid),cellarea(ngrid)
 REAL*8 :: pprad,ppg,ppr,ppcpp,ppunjours
+REAL*8 :: dummy 
   ! the common part for all planetary physics
   !------------------------------------------
@@ -92 +91 @@
 !endif
 
-
+dummy=1.
 lat(:)=0.
 long(:)=0.
@@ -103 +102 @@
 ppr=pr
 ppcpp=pcpp
-call inifis(ngrid,nlayer,nq,pdayref,ppunjours,nday,ptimestep, &
+call inifis(ngrid,nlayer,nq,pdayref,ppunjours,nday,dummy, &
             lat,long,cellarea,pprad,ppg,ppr,ppcpp)
 

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

@@ -24 +24 @@
   INTEGER, INTENT(IN) :: JULDAY, JULYR
   REAL, INTENT(IN) :: GMT,elaps,lon_input,ls_input,lct_input
-  REAL*8,INTENT(OUT) :: pday,ptime
   REAL,INTENT(OUT) :: MY
   REAL :: sec,nsec
@@ -70 +69 @@
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-SUBROUTINE update_inputs_physiq_tracers(nq,MARS_MODE,tname)
+SUBROUTINE update_inputs_physiq_tracers(nq,MARS_MODE)
 
   use tracer_h, only: noms,nqtot
@@ -77 +76 @@
   INTEGER, INTENT(IN) :: nq,MARS_MODE
   INTEGER :: i,k
-  CHARACTER(len=20), INTENT(INOUT) :: tname(nq) ! tracer names
+!  CHARACTER(len=20), INTENT(INOUT) :: tname(nq) ! tracer names
   logical :: end_of_file
 
@@ -88 +87 @@
   nqtot=nq
   if (MARS_MODE .eq. 1) THEN
-    tname(1)="h2o_vap"
-    tname(2)="h2o_ice"
+    noms(1)="h2o_vap"
+    noms(2)="h2o_ice"
   else if (MARS_MODE .eq. 22)  then 
-    tname(1)="co2_vap"
-    tname(2)="co2_ice"
+    noms(1)="co2_vap"
+    noms(2)="co2_ice"
   else
-    tname(:)="zolbxs"
+    noms(:)="zolbxs"
   endif
-  noms(:)=tname(:)
+  !noms(:)=tname(:)
   print*,'noms',noms
   !!---------------------!!