Changeset 2829 for trunk/LMDZ.MARS/libf


Ignore:
Timestamp:
Nov 23, 2022, 3:20:19 PM (2 years ago)
Author:
romain.vande
Message:

Mars PCM:
Cleaning of phyredem0. Argument passed to the subroutines were unused.
RV

Location:
trunk/LMDZ.MARS/libf/phymars
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F

    r2827 r2829  
    700700      call physdem0("startfi.nc",longitude,latitude,nsoilmx,ngrid,llm,
    701701     &              nq,dtphys,float(day0),0.,cell_area,
    702      &              albedodat,inertiedat,zmea,zstd,zsig,zgam,zthe,
    703      &              hmons,summit,base)
     702     &              albedodat,inertiedat)
    704703      call physdem1("startfi.nc",nsoilmx,ngrid,llm,nq,
    705704     &              dtphys,time,

  • trunk/LMDZ.MARS/libf/phymars/phyredem.F90

    r2826 r2829  
    77subroutine physdem0(filename,lonfi,latfi,nsoil,ngrid,nlay,nq, &
    88                         phystep,day_ini,time,airefi, &
    9                          alb,ith,pzmea,pzstd,pzsig,pzgam,pzthe, &
    10                          phmons,psummit,pbase)
     9                         alb,ith)
    1110! create physics restart file and write time-independent variables
    1211  use comsoil_h, only: inertiedat, volcapa, mlayer
    … …  
    3938  real,intent(in) :: alb(ngrid)
    4039  real,intent(in) :: ith(ngrid,nsoil)
    41   real,intent(in) :: pzmea(ngrid)
    42   real,intent(in) :: pzstd(ngrid)
    43   real,intent(in) :: pzsig(ngrid)
    44   real,intent(in) :: pzgam(ngrid)
    45   real,intent(in) :: pzthe(ngrid)
    46   real,intent(in) :: phmons(ngrid)
    47   real,intent(in) :: psummit(ngrid)
    48   real,intent(in) :: pbase(ngrid)
    4940
    5041  real :: tab_cntrl(length) ! nb "length=100" defined in iostart module

  • trunk/LMDZ.MARS/libf/phymars/physiq_mod.F

    r2826 r2829  
    714714     &                   nsoilmx,ngrid,nlayer,nq,
    715715     &                   ptimestep,pday,0.,cell_area,
    716      &                   albedodat,inertiedat,zmea,zstd,zsig,zgam,zthe,
    717      &                   hmons,summit,base)
     716     &                   albedodat,inertiedat)
    718717          else
    719718             call physdem0("restartfi.nc",longitude,latitude,
    720719     &                   nsoilmx,ngrid,nlayer,nq,
    721720     &                   ptimestep,float(day_end),0.,cell_area,
    722      &                   albedodat,inertiedat,zmea,zstd,zsig,zgam,zthe,
    723      &                   hmons,summit,base)
     721     &                   albedodat,inertiedat)
    724722          endif
    725723         endif
Note: See TracChangeset for help on using the changeset viewer.