Changeset 3301


Ignore:
Timestamp:
Apr 15, 2024, 5:27:36 PM (8 months ago)
Author:
jbclement
Message:

Mars PCM:
Modification of "subslope_mola.F90" to take into account other longitude resolution than 64. It makes "newstart" be able to change the number of sub-slopes for low resolution.
JBC

Location:
trunk/LMDZ.MARS
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/LMDZ.MARS/changelog.txt

    r3292 r3301  
    45994599wind stress and dust devils. Renamed "dustlift" routine "dust_windstress_lift"
    46004600and made it a module; also made dustdevil a module.
     4601
     4602== 15/04/2024 == JBC
     4603Modification of "subslope_mola.F90" to take into account other longitude resolution than 64. It makes "newstart" be able to change the number of sub-slopes for low resolution.
  • trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars/subslope_mola.F90

    r2910 r3301  
    1919
    2020      double precision :: resol
    21       parameter(resol = 64)
     21      parameter(resol = real(iim))
    2222      integer :: jjm_mola, iim_mola
    2323      parameter(jjm_mola=180*resol, iim_mola=2*jjm_mola)
     
    6060!-------------Building of theta_mola and psi_mola
    6161      ! Assume that the mola file is to ben found in "datadir"
    62       CALL mola(trim(datadir)//"/",&
     62      CALL mola(trim(datadir)//"/",iim, &
    6363                ierr,theta_mola,psi_mola,resol,iim_mola,jjm_mola)
    6464
     
    111111!==========================================================================================
    112112
    113  SUBROUTINE mola(dset,ierr,theta_mola,psi_mola,resol,iim_mola,jjm_mola)
     113 SUBROUTINE mola(dset,iim,ierr,theta_mola,psi_mola,resol,iim_mola,jjm_mola)
    114114
    115115
     
    124124logical output_messages
    125125      parameter (output_messages=.true.)
    126       double precision resol
    127 !c      parameter(resol=16) ! MOLA pixel/degree resolution
    128 
    129 
    130       integer jjm_mola, iim_mola   ! # of longitude and latitude MOLA data values
     126      double precision resol ! MOLA pixel/degree resolution
     127      integer jjm_mola, iim_mola ! # of longitude and latitude MOLA data values
    131128
    132129! Arguments
    133130! inputs
    134131      character*(*) dset ! Path to MCD datafiles
     132      integer :: iim
    135133
    136134! outputs
     
    143141
    144142! Local variables
    145 
    146143      real latitude  ! north latitude (degrees)m
    147144      real longitude ! east longitude (degrees)
    148       character*140 molafile ! MOLA datafile
    149 !      data molafile/'mola_32.2.nc'/
    150 !c      data molafile/'mola16.nc'/
    151 !c      data molafile/'mola32.nc'/
     145      character*140 molafile ! MOLA datafile
    152146!c      real invresol
    153147!c      parameter(invresol=1./resol)
     
    168162      double precision lat,lon ! longitude and latitude, local values (in degrees)
    169163      real topogrid(iim_mola,jjm_mola) ! altmola in 'real' version
     164      character(2) :: iim_char
    170165
    171166
    172167!C 1.1. Open MOLA file
    173          molafile=dset//'mola64.nc'
     168         write(iim_char,'(i2)') iim
     169         molafile = dset//'mola'//iim_char//'.nc'
    174170         if (output_messages) then
    175171           write(*,*)"Loading MOLA topography from file ", &
  • trunk/LMDZ.MARS/libf/phymars/dyn1d/init_testphys1d_mod.F90

    r3272 r3301  
    129129omeg = 4.*asin(1.)/daysec ! rotation rate (rad.s-1)
    130130g = 3.72                  ! gravity (m.s-2) ~3.72
    131 mugaz = 43.49             ! atmosphere mola mass (g.mol-1) ~43.49
     131mugaz = 43.49             ! atmosphere molar mass (g.mol-1) ~43.49
    132132rcp = .256793             ! = r/cp ~0.256793
    133133r = 8.314511*1000./mugaz
Note: See TracChangeset for help on using the changeset viewer.