Changeset 1549 for trunk/LMDZ.GENERIC


Ignore:
Timestamp:
May 6, 2016, 12:30:29 PM (9 years ago)
Author:
emillour
Message:

All GCMs:
Further adaptations to keep up with changes in LMDZ5 concerning
physics/dynamics separation (up to rev r2420 of LMDZ5)

  • all physics packages:
  • 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.F[90]" into module "physiq_mod.F[90]" for better control of "physiq" arguments. for phyvenus/phytitan, extracted gr_fi_ecrit from physiq.F as gr_fi_ecrit.F90 (note that it can only work in serial).
  • misc:
  • updated wxios.F90 to keep up with LMDZ5 modifications.
  • dyn3d_common:
  • infotrac.F90 keep up with LMDZ5 modifications (cosmetics)
  • dyn3d:
  • gcm.F90: cosmetic cleanup.
  • leapfrog.F90: fix computation of date as function of itau.
  • dyn3dpar:
  • gcm.F: cosmetic cleanup.
  • leapfrog_p.F90: fix computation of date as function of itau.

NB: physics are given the date corresponding to the end of the
physics step.

  • dynphy_lonlat:
  • calfis.F : added computation of relative wind vorticity.
  • calfis_p.F: added computation of relative wind vorticity (input required by Earth physics)

EM

Location:
trunk/LMDZ.GENERIC
Files:
1 added
3 edited
1 moved

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.GENERIC/README

    r1546 r1549  
    12151215  mass flux should be on the physics grid, not the dynamics grid.
    12161216  Moreover values at the poles needed to be correctly recomputed.
     1217
     1218== 06/05/2016 == EM
     1219- turn physiq.F90 into module physiq_mod.F90

  • trunk/LMDZ.GENERIC/libf/dynphy_lonlat/calfis.F

    r1546 r1549  
    99      USE comvert_mod, ONLY: preff
    1010      USE comconst_mod, ONLY: dtphys,kappa,cpp,pi
     11      USE physiq_mod, ONLY: physiq
     12
    1113      IMPLICIT NONE
    1214c=======================================================================
    … …  
    130132     
    131133      EXTERNAL gr_dyn_fi,gr_fi_dyn
    132       EXTERNAL physiq,multipl
    133134      REAL SSUM
    134135      EXTERNAL SSUM

  • trunk/LMDZ.GENERIC/libf/phystd/dyn1d/rcm1d.F

    r1543 r1549  
    3232      use mod_interface_dyn_phys, only: init_interface_dyn_phys
    3333      use inifis_mod, only: inifis
     34      use physiq_mod, only: physiq
    3435      implicit none
    3536
    … …  
    9697      REAL du(llm),dv(llm),dtemp(llm)
    9798      REAL dudyn(llm),dvdyn(llm),dtempdyn(llm)
    98       REAL dpsurf   
     99      REAL dpsurf(1)   
    99100      REAL,ALLOCATABLE :: dq(:,:)
    100101      REAL,ALLOCATABLE :: dqdyn(:,:)
    … …  
    949950c       ----------------------------------------------------------
    950951
    951            psurf=psurf+dtphys*dpsurf   ! evolution de la pression de surface
     952           psurf=psurf+dtphys*dpsurf(1)   ! evolution de la pression de surface
    952953           DO ilevel=1,nlevel
    953954              plev(ilevel)=ap(ilevel)+psurf*bp(ilevel)

  • trunk/LMDZ.GENERIC/libf/phystd/physiq_mod.F90

    r1548 r1549  
     1      module physiq_mod
     2     
     3      implicit none
     4     
     5      contains
     6     
    17      subroutine physiq(ngrid,nlayer,nq,   &
    28                  nametrac,                &
    … …  
    21322138
    21332139    end subroutine physiq
     2140   
     2141    end module physiq_mod
Note: See TracChangeset for help on using the changeset viewer.