Changeset 1550 for trunk/LMDZ.MARS/libf/phymars/dyn1d

Timestamp:

May 7, 2016, 7:48:36 AM (9 years ago)

Author:

emillour

Message:

Mars GCM:

• Bug fix in testphys1d, enforce iphysiq=1 after conf_phys (where its value might be modified).

EM

File:

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

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

@@ -426 +426 @@
       write(*,*) " day_step = ",day_step
 
-      iphysiq=1 ! in 1D model physics are called every time step
       ecritphy=day_step ! default value for ecritphy, output every time step
 
@@ -502 +501 @@
       call conf_phys(1,llm,nq)
 
+      ! in 1D model physics are called every time step
+      ! ovverride iphysiq value that has been set by conf_phys
+      if (iphysiq/=1) then
+        write(*,*) "testphys1d: setting iphysiq=1"
+        iphysiq=1
+      endif 
 
 c  Initialize albedo / soil thermal inertia