Ignore:
Timestamp:
Apr 25, 2024, 3:58:31 PM (8 months ago)
Author:
jbclement
Message:

Mars PCM:
Reversion of r3305 and r3307.
JBC

Location:
trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars/iniphysiq_mod.F90

    r3305 r3316  
    33CONTAINS
    44
    5 subroutine iniphysiq(filename,ii,jj,nlayer,               &
     5subroutine iniphysiq(ii,jj,nlayer,                        &
    66                     nbp, communicator,                   &
    77                     punjours, pdayref,ptimestep,         &
    … …  
    3232include "iniprint.h"
    3333
    34 character(*), intent(in) :: filename ! Name of the "startfi.nc" file
    3534real,intent(in) :: prad ! radius of the planet (m)
    3635real,intent(in) :: pg ! gravitational acceleration (m/s2)
    … …  
    7271!$OMP PARALLEL COPYIN(day_ini,day_end,hour_ini)
    7372
    74 call phys_state_var_init(filename,klon_omp,nlayer,nqtot,tname, &
    75                          day_ini,day_end,hour_ini,             &
    76                          punjours,ptimestep,                   &
    77                          prad,pg,pr,pcpp,                      &
     73call phys_state_var_init(klon_omp,nlayer,nqtot,tname, &
     74                         day_ini,day_end,hour_ini,    &
     75                         punjours,ptimestep,          &
     76                         prad,pg,pr,pcpp,             &
    7877                         nqperes,nqfils) ! MVals: variables isotopes
    7978call ini_fillgeom(klon_omp,latitude,longitude,cell_area)

  • trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars/newstart.F

    r3305 r3316  
    391391
    392392! Initialize the physics
    393          CALL iniphysiq('startfi.nc',iim,jjm,llm,
     393         CALL iniphysiq(iim,jjm,llm,
    394394     &                  (jjm-1)*iim+2,comm_lmdz,
    395395     &                  daysec,day_ini,dtphys,

  • trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars/nogcm.F90

    r3305 r3316  
    458458     ! Physics:
    459459#ifdef CPP_PHYS
    460      CALL iniphysiq('startfi.nc',iim,jjm,llm,             &
    461           (jjm-1)*iim+2,comm_lmdz,                        &
    462           daysec,day_ini,dtphys/nsplit_phys,              &
    463           rlatu,rlatv,rlonu,rlonv,aire,cu,cv,rad,g,r,cpp, &
    464           iflag_phys)
     460     CALL iniphysiq(iim,jjm,llm,              &
     461          (jjm-1)*iim+2,comm_lmdz,            &
     462          daysec,day_ini,dtphys/nsplit_phys,  &
     463          rlatu,rlatv,rlonu,rlonv,aire,cu,cv, &
     464          rad,g,r,cpp,iflag_phys)
    465465#endif
    466466  ENDIF ! of IF ((iflag_phys==1).or.(iflag_phys>=100))

  • trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars/start2archive.F

    r3305 r3316  
    160160
    161161! Initialize the physics
    162       fichnom = 'startfi.nc'
    163 
    164          CALL iniphysiq(fichnom,iim,jjm,llm,
     162         CALL iniphysiq(iim,jjm,llm,
    165163     &                  (jjm-1)*iim+2,comm_lmdz,
    166164     &                  daysec,day_ini,dtphys,
    … …  
    168166     &                  aire,cu,cv,rad,g,r,cpp,1)
    169167
     168      fichnom = 'startfi.nc'
    170169      Lmodif=0
    171170

  • trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars/start2archive_SSO.F

    r3305 r3316  
    173173
    174174! Initialize the physics
    175       fichnom = 'startfi.nc'
    176 
    177          CALL iniphysiq(fichnom,iim,jjm,llm,
     175         CALL iniphysiq(iim,jjm,llm,
    178176     &                  (jjm-1)*iim+2,comm_lmdz,
    179177     &                  daysec,day_ini,dtphys,
    … …  
    181179     &                  aire,cu,cv,rad,g,r,cpp,1)
    182180
     181      fichnom = 'startfi.nc'
    183182      Lmodif=0
    184183
Note: See TracChangeset for help on using the changeset viewer.