Changeset 1974 for trunk/LMDZ.MARS/libf/phymars/comsaison_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/comsaison_h.F90 (modified) (3 diffs)

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

@@ -9 +9 @@
   real,save,allocatable :: mu0(:)
   real,save,allocatable :: fract(:)
+  real,save,allocatable :: local_time(:) ! local solar time as fraction of day (0,1)
 
 contains
@@ -19 +20 @@
     allocate(mu0(ngrid))
     allocate(fract(ngrid))
+    allocate(local_time(ngrid))
   
   end subroutine ini_comsaison_h
@@ -29 +31 @@
     if (allocated(mu0)) deallocate(mu0)
     if (allocated(fract)) deallocate(fract)
+    if (allocated(local_time)) deallocate(local_time)
 
   end subroutine end_comsaison_h