Changeset 1775 for trunk/LMDZ.MARS/libf/phymars/read_dust_scenario.F90

Timestamp:

Aug 27, 2017, 8:58:01 AM (7 years ago)

Author:

aslmd

Message:

LMDZ.MARS setting the stage for maybe fixing nesting in the LMD_MM_MARS 4. ensure arrays not allocated in read_dust_scenario if already allocated -- other changes are useful comments for subsequent developments

File:

• trunk/LMDZ.MARS/libf/phymars/read_dust_scenario.F90 (modified) (1 diff)

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

@@ -118 +118 @@
 
 
-   allocate(tautes(lonlen,latlen,timelen))
-   allocate(lat(latlen), lon(lonlen), time(timelen))
+   if (.not.allocated(tautes)) allocate(tautes(lonlen,latlen,timelen))
+   if (.not.allocated(lat)) allocate(lat(latlen), lon(lonlen), time(timelen))
 
    ! "dustop" if loading visible extinction opacity