Changeset 2367 for trunk/MESOSCALE/LMD_MM_MARS

Timestamp:

Jun 11, 2020, 7:50:42 PM (5 years ago)

Author:

mlefevre

Message:

MESOSCALE. Corrected spelling mistake and deleted useless call

Location:

trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/dynphy_wrf_titan_lmd_new

Files:

• iniphysiq_mod.F (modified) (3 diffs)
• update_inputs_physiq_mod.F (modified) (4 diffs)

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

@@ -33 +33 @@
                     emisice,dtemisice
 use comcstfi_mod, only: omeg,mugaz
-use tracer_h, only: nqtot
+use tracer_h, only: nqtot_p
 !use comm_wrf, only : allocate_comm_wrf
 
@@ -84 +84 @@
 print*,'ngrid',ngrid,'nlayer',nlayer
 call init_dimphy(ngrid,nlayer)
-call phys_state_var_init(nqtot)
+call phys_state_var_init(nqtot_p)
 ! copy over preff , ap() and bp()
 !call ini_planete_mod(nlayer,prefff,apf,bpf)
@@ -151 +151 @@
 
      !emissiv(:)=EMIS
-     cloudfrac(:,:)=0.5
-     totcloudfrac(:)=0.5
-     hice(:)=0.
-     rnat(:)=0.
-     pctsrf_sic(:)=0.
-     tsea_ice(:)=0.
      !qsurf(:,:) = 0. 
      print*,'check'

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

@@ -50 +50 @@
 SUBROUTINE update_inputs_physiq_tracers(nq,MARS_MODE)
 
-  use tracer_h, only: noms,nqtot
+  use tracer_h, only: noms,nqtot_p
   !use phys_state_var_mod , only : qsurf
   !USE dimphy, only : klon,klev 
@@ -83 +83 @@
    !                       peri_day,obliquit,emin_turb, &
    !                       lmixmin
-   use planete_mod, only: year_day, periastr, apoastr, peri_day,&
-                       obliquit, z0, lmixmin, emin_turb
-   use surfdat_h,  only: emissiv,iceradius, &
-                         emisice,dtemisice
+   !use planete_mod, only: year_day, periastr, apoastr, peri_day,&
+   !                    obliquit, z0, lmixmin, emin_turb
+   !use surfdat_h,  only: emissiv,iceradius, &
+   !                      emisice,dtemisice
    !                       z0_default
    !use comsoil_h, only: volcapa
-   use comcstfi_mod, only: rad, omeg, g, mugaz, rcp, cpp, r
+   !use comcstfi_mod, only: rad, omeg, g, mugaz, rcp, cpp, r
    !! comcstfi_h
-   use phys_state_var_mod, only :cloudfrac,totcloudfrac,hice,rnat,pctsrf_sic,tsea_ice
+   !use phys_state_var_mod, only :cloudfrac,totcloudfrac,hice,rnat,pctsrf_sic,tsea_ice
    !use iniorbit
    !use time_phylmdz_mod, only: dtphys, daysec,day_ini
@@ -292 +292 @@
    use surfdat_h, only: phisfi, albedodat,  &
                        zmea, zstd, zsig, zgam, zthe
-   use slab_ice_h, only: noceanmx
    use planete_mod, only: z0
-   use phys_state_var_mod, only : tsurf, emis, qsurf,tslab
+   use phys_state_var_mod, only : tsurf, emis, qsurf
 
    INTEGER, INTENT(IN) :: ims,ime,jms,jme
@@ -378 +377 @@
      tsurf(subs) = M_TSURF(i,j)
      emis(subs) = M_EMISS(i,j)     
-     !do i=1,noceanmx
-     tslab(subs,:)=tsurf(subs)
      !enddo
      !-------------------!