Changeset 2418 for LMDZ5/trunk/libf/phylmd/dyn1d/lmdz1d.F90

Timestamp:

Jan 3, 2016, 11:16:34 AM (8 years ago)

Author:

Ehouarn Millour

Message:

Improving the physics/dynamics interface:

• added module callphysiq_mod.F90 in dynphy_lonlat/phy* which contains the routine "call_physiq" which is called by calfis* and calls the physics. This way different "physiq" routine from different physics packages may be called: The calfis* routines now exposes all available fields that might be transmitted to physiq but which is actually send (ie: expected/needed by physiq) is decided in call_physiq.
• turned "physiq.F90" into module "physiq_mod.F90" for better control of "physiq" arguments. Extracted embeded "gr_fi_ecrit" as self-standing routine (but note that this routine actually only works in serial mode).

EM

File:

• LMDZ5/trunk/libf/phylmd/dyn1d/lmdz1d.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/dyn1d/lmdz1d.F90

@@ -36 +36 @@
    USE iniphysiq_mod, ONLY: iniphysiq
    USE mod_const_mpi, ONLY: comm_lmdz
+   USE physiq_mod, ONLY: physiq
 
       implicit none
@@ -219 +220 @@
       logical :: firstcall=.true.
       logical :: lastcall=.false.
-      real :: phis    = 0.0
-      real :: dpsrf 
+      real :: phis(1)    = 0.0
+      real :: dpsrf(1)
 
 !---------------------------------------------------------------------