Changeset 1647 for trunk/LMDZ.TITAN/libf/phytitan/surfdat_h.F90

Timestamp:

Jan 11, 2017, 3:33:51 PM (8 years ago)

Author:

jvatant

Message:

+ Major clean of the new LMDZ.TITAN from too-generic options and routines (water, co2, ocean, surface type ...)
+ From this revision LMDZ.TITAN begins to be really separated from LMDZ.GENERIC
+ Partial desactivation of aerosols, only the dummy case is still enabled to keep the code running ( new aerosol routines to come in followings commits )

JVO

File:

• trunk/LMDZ.TITAN/libf/phytitan/surfdat_h.F90 (modified) (1 diff)

trunk/LMDZ.TITAN/libf/phytitan/surfdat_h.F90

@@ -17 +17 @@
 !$OMP THREADPRIVATE(zmea,zstd,zsig,zgam,zthe)
 
-       real,allocatable,dimension(:) :: dryness  !"Dryness coefficient" for grnd water ice sublimation
-                                                 ! AS: previously in tracer.h. it is more logical here.
-
-       logical,allocatable,dimension(:) :: watercaptag !! was in watercap.h
-!$OMP THREADPRIVATE(dryness,watercaptag)
-
        end module surfdat_h