Ignore:
Timestamp:
Jul 27, 2016, 11:14:41 AM (8 years ago)
Author:
emillour
Message:

All models:
Clean up the dynamics/physics interface to converge with LMDZ5;
get rid of tracerdyn parameter (which was supposed to send information
about wether tracers should be advected or not in the Mars and Generic
models).
EM

Location:
trunk/LMDZ.COMMON/libf/dynphy_lonlat
Files:
4 edited

Legend:

Unmodified
Added
Removed

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

    r1549 r1576  
    183183      LOGICAL,SAVE :: firstcal=.true., debut=.true.
    184184!      REAL rdayvrai
    185 
    186       LOGICAL tracerdyn ! for generic/mars physics call ; possibly to get rid of
    187185
    188186! For Titan only right now:
    … …  
    707705     &                   zufi,zvfi,zrfi,ztfi,zqfi,
    708706     &                   flxwfi,pducov,
    709      &                   zdufi,zdvfi,zdtfi,zdqfi,zdpsrf,
    710      &                   tracerdyn)
     707     &                   zdufi,zdvfi,zdtfi,zdqfi,zdpsrf)
    711708
    712709!      if (planet_type.eq."earth") then

  • trunk/LMDZ.COMMON/libf/dynphy_lonlat/calfis_p.F

    r1572 r1576  
    253253      INTEGER :: offset 
    254254      INTEGER :: jjb,jje
    255 
    256       LOGICAL tracerdyn ! for generic/mars physics call ; possibly to get rid of
    257255
    258256! For Titan only right now:
    … …  
    945943     &                   flxwfi_omp,pducov,
    946944     &                   zdufi_omp,zdvfi_omp,zdtfi_omp,zdqfi_omp,
    947      &                   zdpsrf_omp,tracerdyn)
     945     &                   zdpsrf_omp)
    948946
    949947!      if (planet_type=="earth") then

  • trunk/LMDZ.COMMON/libf/dynphy_lonlat/phytitan/callphysiq_mod.F90

    r1549 r1576  
    1616                       zufi_omp,zvfi_omp,zrfi_omp,ztfi_omp,zqfi_omp,      &
    1717                       flxwfi_omp,pducov,                                 &
    18                        zdufi_omp,zdvfi_omp,zdtfi_omp,zdqfi_omp,zdpsrf_omp,&
    19                        tracerdyn)
     18                       zdufi_omp,zdvfi_omp,zdtfi_omp,zdqfi_omp,zdpsrf_omp)
    2019
    2120  USE control_mod, ONLY: planet_type
    … …  
    5251  REAL,INTENT(OUT) :: zdqfi_omp(klon,llm,nqtot) ! tendency on tracers
    5352  REAL,INTENT(OUT) :: zdpsrf_omp(klon) ! tendency on surface pressure
    54   LOGICAL,INTENT(OUT) :: tracerdyn
    5553
    5654  ! Local variables

  • trunk/LMDZ.COMMON/libf/dynphy_lonlat/phyvenus/callphysiq_mod.F90

    r1549 r1576  
    1616                       zufi_omp,zvfi_omp,zrfi_omp,ztfi_omp,zqfi_omp,      &
    1717                       flxwfi_omp,pducov,                                 &
    18                        zdufi_omp,zdvfi_omp,zdtfi_omp,zdqfi_omp,zdpsrf_omp,&
    19                        tracerdyn)
     18                       zdufi_omp,zdvfi_omp,zdtfi_omp,zdqfi_omp,zdpsrf_omp)
    2019
    2120  USE control_mod, ONLY: planet_type
    … …  
    5251  REAL,INTENT(OUT) :: zdqfi_omp(klon,llm,nqtot) ! tendency on tracers
    5352  REAL,INTENT(OUT) :: zdpsrf_omp(klon) ! tendency on surface pressure
    54   LOGICAL,INTENT(OUT) :: tracerdyn
    5553
    5654  ! Local variables
Note: See TracChangeset for help on using the changeset viewer.