Changeset 1974 for trunk/LMDZ.MARS/libf/phymars/surfdat_h.F90

Timestamp:

Jul 18, 2018, 4:48:34 PM (6 years ago)

Author:

mvals

Message:

Mars GCM:
Integration of the detached dust layer parametrizations (rocket dust storm, slope wind lifting, CW, and dust injection scheme, DB).
Still experimental, default behaviour (rdstorm=.false., dustinjection=0) identical to previous revision.
NB: Updated newstart requires an updated "surface.nc" containing the "hmons" field.
EM+MV

File:

• trunk/LMDZ.MARS/libf/phymars/surfdat_h.F90 (modified) (3 diffs)

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

@@ -20 +20 @@
   real,save :: iceradius(2) , dtemisice(2)
   real,save,allocatable :: zmea(:),zstd(:),zsig(:),zgam(:),zthe(:)
+  real,save,allocatable :: hmons(:)
   real,save,allocatable :: z0(:) ! surface roughness length (m)
   real,save :: z0_default ! default (constant over planet) surface roughness (m)
@@ -55 +56 @@
     allocate(capcal(ngrid))
     allocate(fluxgrd(ngrid))
- 
+    allocate(hmons(ngrid))
+    
   end subroutine ini_surfdat_h
 
@@ -79 +81 @@
     if (allocated(capcal))      deallocate(capcal)
     if (allocated(fluxgrd))     deallocate(fluxgrd)
+    if (allocated(hmons))       deallocate(hmons)
 
   end subroutine end_surfdat_h