Ignore:
Timestamp:
Aug 22, 2013, 4:02:07 PM (11 years ago)
Author:
emillour
Message:

Common dynamics: (and collateral adaptations in Venus physics)
Improved cpdet routines in and additional sponge mode:

  • Additionnal sponge mode (trigered with "callsponge" flag), in line with the one used in the Generic and Martian GCM. This sponge is called whenever there is a dissipation step.
  • Improvement of the cpdet routines : created routines tpot2t_glo_p and t2tpot_glo_p which handle fields on the whole dynamics (scaler) grid, which are more efficient than calling tpot2t_p or t2tpot_p with slabs of data (generated use of intermediate copies of these chunks of data at every call)
  • Turned cpdet.F into a module cpdet_mod.F90 (and correspondingly adapted all routines in the Venus physics).

EM

Location:
trunk/LMDZ.VENUS/libf/phyvenus
Files:
11 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.VENUS/libf/phyvenus/YOMCST.h

    r101 r1017  
    2020      REAL RKAPPA,RETV
    2121! ADAPTATION GCM POUR CP(T)
    22       real cpdet
    23       external cpdet
     22!      real cpdet
     23!      external cpdet
    2424! A1.5,6 Thermodynamic liquid,solid phases
    2525      REAL RCW,RCS

  • trunk/LMDZ.VENUS/libf/phyvenus/ajsec.F

    r101 r1017  
    77
    88      use dimphy
     9      use cpdet_mod, only: t2tpot, tpot2t
    910      IMPLICIT none
    1011c======================================================================

  • trunk/LMDZ.VENUS/libf/phyvenus/clmain.F

    r892 r1017  
    3535      USE interface_surf
    3636      use dimphy
     37      use cpdet_mod, only: t2tpot
    3738      IMPLICIT none
    3839c======================================================================
    … …  
    490491      USE interface_surf
    491492      use dimphy
     493      use cpdet_mod, only: t2tpot,tpot2t,cpdet
    492494
    493495      IMPLICIT none
    … …  
    898900
    899901      use dimphy
     902      use cpdet_mod, only: cpdet,t2tpot
    900903      IMPLICIT none
    901904c======================================================================
    … …  
    11811184
    11821185      use dimphy
     1186      use cpdet_mod, only: cpdet
    11831187      IMPLICIT none
    11841188c======================================================================

  • trunk/LMDZ.VENUS/libf/phyvenus/comcstfi.h

    r892 r1017  
    55
    66      REAL rad,g,r,cpp,rcp,dtphys,daysec,mugaz,omeg
    7       real cpdet
    8       external cpdet
    97
    108!-----------------------------------------------------------------------

  • trunk/LMDZ.VENUS/libf/phyvenus/diagphy.F

    r101 r1017  
    209209 
    210210      use dimphy
     211      use cpdet_mod, only: cpdet
    211212      IMPLICIT NONE
    212213C

  • trunk/LMDZ.VENUS/libf/phyvenus/interface_surf.F90

    r973 r1017  
    4646
    4747      use write_field_phy
     48      use cpdet_mod, only: cpdet
    4849
    4950      IMPLICIT none
    … …  
    196197
    197198  use write_field_phy
     199  use cpdet_mod, only: t2tpot, tpot2t
    198200
    199201  IMPLICIT none

  • trunk/LMDZ.VENUS/libf/phyvenus/lw_venus_ve.F

    r953 r1017  
    66     
    77      use dimphy
     8      use cpdet_mod, only: cpdet
    89      IMPLICIT none
    910

  • trunk/LMDZ.VENUS/libf/phyvenus/lwi.F

    r953 r1017  
    22
    33      use dimphy
     4      use cpdet_mod, only: cpdet
    45      implicit none
    56

  • trunk/LMDZ.VENUS/libf/phyvenus/physiq.F

    r973 r1017  
    6464      USE write_field_phy
    6565      USE iophy
     66      use cpdet_mod, only: cpdet, t2tpot
    6667      IMPLICIT none
    6768c======================================================================

  • trunk/LMDZ.VENUS/libf/phyvenus/rcm1d.F

    r901 r1017  
    1 
     1#include "../dyn3d/cpdet_mod.F90"
     2!***********************************************************************
    23      PROGRAM rcm1d
    34     
    … …  
    67      use comgeomphy
    78      USE phys_state_var_mod
     9      use cpdet_mod, only: ini_cpdet
    810      IMPLICIT NONE
    911
    … …  
    466468#include "../dyn3d/abort_gcm.F"
    467469#include "../dyn3d/dump2d.F"
    468 #include "../dyn3d/cpdet.F"
    469 
     470

  • trunk/LMDZ.VENUS/libf/phyvenus/sw_venus_dc.F

    r892 r1017  
    55     
    66      use dimphy
     7      use cpdet_mod, only: cpdet
    78      IMPLICIT none
    89
Note: See TracChangeset for help on using the changeset viewer.