Ignore:
Timestamp:
Jun 27, 2015, 8:11:14 AM (10 years ago)
Author:
millour
Message:

Fixed call to iniphysiq from gcm and removed unused "pdayref" argument (day_ini is known from temps.h).
Removed "dtime" from phys_state_var_mod.F90; pdtphys (from time_phylmdz_mod) must be used instead.
With this revision seq and parallel MPI/OpenMP bench runs yield identical restart files.
EM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/dynlonlat_phylonlat/phylmd/iniphysiq.F90

    r3835 r3838  
    33
    44
    5 SUBROUTINE iniphysiq(ii, jj, nbp, communicator, nlayer,punjours, pdayref,ptimestep,        &
     5SUBROUTINE iniphysiq(ii, jj, nbp, communicator, nlayer,punjours,ptimestep, &
    66                     rlatu,rlatv,rlonu,rlonv,aire,cu,cv,               &
    77                     prad,pg,pr,pcpp,iflag_phys)
    … …  
    5959  REAL, INTENT (IN) :: cu((ii+1)*(jj+1)) ! cu coeff. (u_covariant = cu * u)
    6060  REAL, INTENT (IN) :: cv((ii+1)*jj) ! cv coeff. (v_covariant = cv * v)
    61   INTEGER, INTENT (IN) :: pdayref ! reference day of for the simulation
    6261  REAL, INTENT (IN) :: ptimestep !physics time step (s)
    6362  INTEGER, INTENT (IN) :: iflag_phys ! type of physics to be called
Note: See TracChangeset for help on using the changeset viewer.