Changeset 1550 for trunk

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

Location:

trunk/LMDZ.MARS

Files:

• README (modified) (1 diff)
• libf/phymars/dyn1d/testphys1d.F (modified) (2 diffs)

trunk/LMDZ.MARS/README ¶

@@ -2289 +2289 @@
 == 06/05/2016 == EM
 - turn physiq.F into module physiq_mod.F
+
+== 07/05/2016 == EM
+- Bug fix in testphys1d, enforce iphysiq=1 after conf_phys (where its 
+  value might be modified).

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