Ignore:
Timestamp:
Jul 24, 2017, 12:18:22 AM (7 years ago)
Author:
aslmd
Message:

MESOSCALE. removed tname as an argument of call_physiq, which was reintroduced in r1724 in dynphy_wrf_venus_lmd_new/callphysiq_mod.F for no reason.

Location:
trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/dynphy_wrf_venus_lmd_new/callphysiq_mod.F

    r1724 r1739  
    77
    88 !! ----------------------------------------------------------
    9  !! ---- CALL TO MARS PHYSICS
     9 !! ---- CALL TO VENUS PHYSICS
    1010 !! ----------------------------------------------------------
    1111
    1212CONTAINS
    1313
    14 SUBROUTINE call_physiq(planet_type, klon,llm,nqtot,tname,                 &
     14SUBROUTINE call_physiq(planet_type, klon,llm,nqtot,                       &
    1515                       debut_split,lafin_split,                           &
    1616                       jD_cur,jH_cur_split,zdt_split,                     &
    … …  
    3232  INTEGER,INTENT(IN) :: llm  ! number of atmospheric layers
    3333  INTEGER,INTENT(IN) :: nqtot ! number of tracers
    34   CHARACTER(len=*),INTENT(IN) :: tname(nqtot) ! tracer names
    3534  LOGICAL,INTENT(IN) :: debut_split ! .true. if very first call to physics
    3635  LOGICAL,INTENT(IN) :: lafin_split ! .true. if last call to physics

  • trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/module_lmd_driver.F.new

    r1724 r1739  
    667667            ptime,pday,MY)
    668668!!!
    669 CALL call_physiq(planet_type,ngrid,nlayer,nq,tname, &
     669CALL call_physiq(planet_type,ngrid,nlayer,nq,      &
    670670                       firstcall,lastcall,          &
    671671                       pday,ptime,ptimestep,        &
Note: See TracChangeset for help on using the changeset viewer.