Changeset 1229 for trunk/LMDZ.MARS/libf/phymars

Timestamp:

Apr 18, 2014, 11:42:36 AM (11 years ago)

Author:

emillour

Message:

Mars GCM:
Some minor fixes and cleanup.

• allocation of qsurf() was missing in start2archive
• 'tauscaling' was missing from argument list when calling physdem1 in testphys1d

EM

Location:

trunk/LMDZ.MARS/libf/phymars

Files:

• phyetat0.F90 (modified) (1 diff)
• physiq.F (modified) (1 diff)
• start2archive.F (modified) (1 diff)
• testphys1d.F (modified) (2 diffs)

trunk/LMDZ.MARS/libf/phymars/phyetat0.F90

@@ -10 +10 @@
                      get_field, get_var, inquire_field, &
                      inquire_dimension, inquire_dimension_length
-  use planete_h  
-  use comcstfi_h
 
   implicit none

trunk/LMDZ.MARS/libf/phymars/physiq.F

@@ -33 +33 @@
      &                          dtrad, fluxrad_sky, fluxrad, albedo
       use turb_mod, only: q2, wstar, hfmax_th
-      use planete_h
-      USE comcstfi_h
+      use planete_h, only: aphelie, periheli, year_day, peri_day,
+     &                     obliquit
+      USE comcstfi_h, only: r, cpp, mugaz, g, rcp, pi, rad, daysec
 #ifdef MESOSCALE
       use comsoil_h, only: mlayer,layer

trunk/LMDZ.MARS/libf/phymars/start2archive.F

@@ -134 +134 @@
 ! allocate arrays:
       allocate(q(ip1jmp1,llm,nqtot))
+      allocate(qsurf(ngridmx,nqtot))
       allocate(qsurfS(ip1jmp1,nqtot))
       call ini_surfdat_h(ngridmx,nqtot)

trunk/LMDZ.MARS/libf/phymars/testphys1d.F

@@ -15 +15 @@
       use phyredem, only: physdem0,physdem1
       use comgeomphy, only: initcomgeomphy
-      use planete_h
-      use comcstfi_h
+      use planete_h, only: year_day, periheli, aphelie, peri_day,
+     &                     obliquit, emin_turb, lmixmin
+      use comcstfi_h, only: pi, rad, daysec, omeg, g, mugaz, rcp, r,
+     &                      cpp, dtphys
+      use dimradmars_mod, only: tauscaling
       IMPLICIT NONE
 
@@ -677 +680 @@
       call physdem1("startfi.nc",nsoilmx,ngrid,llm,nq,
      .              dtphys,time,
-     .              tsurf,tsoil,co2ice,emis,q2,qsurf)
+     .              tsurf,tsoil,co2ice,emis,q2,qsurf,tauscaling)
 
 c=======================================================================