Changeset 234 for trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/call_meso_physiq3.inc

Timestamp:

Jul 19, 2011, 5:25:58 PM (13 years ago)

Author:

aslmd

Message:

LMDZ.MARS
+ MESOSCALE

• An important change to merge physiq.F and inifis.F for GCM and mesoscale
• This is mostly transparent to GCM users and developers (use of MESOSCALE precompiler flags)
• Makes it easy (and mostly automatic!) for changes in GCM physics to be impacted in mesoscale physics
• A few minor changes have followed in the GCM (slope scheme, one-point diagnostic).

• Compilation + run is OK on both sides (GCM and mesoscale).
• On the mesoscale side, call_meso_physiq?.inc and call_meso_inifis?.inc have been changed accordingly.

Here is the excerpt from README file:

19/07/2011 == AS

• Finished converging meso_physiq.F and meso_inifis.F towards physiq.F and inifis.F --> see previous point 15/07/2011 --> meso_ routines no longer exist (everything is in meso_inc and transparent to GCM users) --> GCM routines include mesoscale parts within MESOSCALE precompiler commands --> MESOSCALE parts are as hidden as possible not to mess up with GCM users/developers
• Cleaned inelegant or useless #ifdef [or] #ifndef MESOSCALE in physiq and inifis so that a minimum amount of such precompiler commands is now reached [mainly related to I/O]
• Added the SF08 slope insolation model in the general physics parameterizations. Added a callslope keyword in inifis.F and callkeys.h --> This keyword is False by default / True if you use -DMESOSCALE
• Removed the obsolete call to Viking Lander 1 diagnostic Replaced it with a diagnostic for opacity at the domain center [valid for GCM and mesoscale]

File:

• trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/call_meso_physiq3.inc (modified) (3 diffs)

trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/call_meso_physiq3.inc

@@ -8 +8 @@
 
        CASE(1)
-       CALL meso_physiq (ngrid,nlayer,nq,                              &
+       CALL physiq (ngrid,nlayer,nq,                              &
                firstcall,lastcall,pday,ptime,ptimestep,                &
                pplev,pplay,pphi,pu, pv, pt, pq, pw,                    &
@@ -20 +20 @@
 
        CASE(2)
-       CALL d2_meso_physiq (ngrid,nlayer,nq,                              &
+       CALL d2_physiq (ngrid,nlayer,nq,                              &
                firstcall,lastcall,pday,ptime,ptimestep,                &
                pplev,pplay,pphi,pu, pv, pt, pq, pw,                    &
@@ -32 +32 @@
 
        CASE(3)
-       CALL meso_physiq (ngrid,nlayer,nq,                              &
+       CALL d3_physiq (ngrid,nlayer,nq,                              &
                firstcall,lastcall,pday,ptime,ptimestep,                &
                pplev,pplay,pphi,pu, pv, pt, pq, pw,                    &