Changeset 1579 for trunk/LMDZ.MARS/libf/phymars

Timestamp:

Aug 23, 2016, 8:04:18 AM (8 years ago)

Author:

aslmd

Message:

Goal: make the mesoscale model compliant
with new interface philosophy and adapted
to easy interfacing with any physics

Commit 3: call to iniphysiq in module_lmd_driver

• iniphysiq is in WRFV2/phys
• geometry is initialized in update_inputs_physiq_mod

This call is planet-independent and follows the
same philosophy as iniphysiq in dynphy_lonlat
for the LMDz GCM

NB: mesoscale model now compiles and runs with HEAD version
results completely compatible with v1520 version (same physics)

Location:

trunk/LMDZ.MARS/libf/phymars

Files:

• conf_phys.F (modified) (2 diffs)
• physiq_mod.F (modified) (2 diffs)

trunk/LMDZ.MARS/libf/phymars/conf_phys.F

@@ -54 +54 @@
       CHARACTER ch1*12
 
+#ifndef MESOSCALE
       ! read in some parameters from "run.def" for physics,
       ! or shared between dynamics and physics.
@@ -65 +66 @@
       ecritstart=0 ! default value
       call getin("ecritstart",ecritstart) ! write a restart every ecristart steps
+#endif
+
 ! --------------------------------------------------------------
 !  Reading the "callphys.def" file controlling some key options

trunk/LMDZ.MARS/libf/phymars/physiq_mod.F

@@ -412 +412 @@
 #else
 ! MESOSCALE. Supposedly everything is already set in modules.
-! So we just check. And we calculate day_ini + two param in dyn3d/control_mod.
+! So we just check. And we fill day_ini
+      print*,"check: --- in physiq.F"
       print*,"check: rad,cpp,g,r,rcp,daysec"
       print*,rad,cpp,g,r,rcp,daysec
@@ -424 +425 @@
       PRINT*,'check: qsurf ',qsurf(1,1),qsurf(ngrid,nq)
       PRINT*,'check: co2 ',co2ice(1),co2ice(ngrid)
-      day_step=daysec/ptimestep
-      PRINT*,'Call to LMD physics:',day_step,' per Martian day'
-      iphysiq=ptimestep
+      !!!
       day_ini = pday
 #endif