Changeset 1920 for trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F

Timestamp:

Apr 17, 2018, 10:43:23 AM (7 years ago)

Author:

mvals

Message:

Mars GCM:
1D code cleanup:

• in testphys1d.F variable cell_area is intialized to 1 before being called

MV

File:

• trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F (modified) (2 diffs)

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

@@ -168 +168 @@
       dtemisice(2) = 2.          ! time scale for snow metamorphism (south
 
-
+c     mesh surface (not a very usefull quantity in 1D)
+c     ----------------------------------------------------
+      cell_area(1)=1.E+0
+      
 c ------------------------------------------------------
 c  Loading run parameters from "run.def" file
@@ -553 +556 @@
 c   Specific initializations for "physiq"
 c   -------------------------------------
-c   mesh surface (not a very usefull quantity in 1D)
-      cell_area(1)=1.E+0
-
 c   surface geopotential is not used (or useful) since in 1D
 c   everything is controled by surface pressure