Ignore:
Timestamp:
Feb 12, 2026, 12:20:33 PM (2 weeks ago)
Author:
jbclement
Message:

Mars PCM:
Deletion of 'tsurf' in the information provided by "start1D.txt" since it is unused and unnecessary until now (see r4059).
JBC

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

Legend:

Unmodified
Added
Removed

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

    r4066 r4067  
    969969         call getin_p("albedo_h2o_cap",albedo_h2o_cap)
    970970         write(*,*) " albedo_h2o_cap = ",albedo_h2o_cap
    971          write(*,*) "water frist albedo ?"
     971         write(*,*) "water frost albedo ?"
    972972         albedo_h2o_frost=0.35
    973973         call getin_p("albedo_h2o_frost",albedo_h2o_frost)

  • trunk/LMDZ.MARS/libf/phymars/dyn1d/init_testphys1d_mod.F90

    r4059 r4067  
    665665    temp = teta(1:)
    666666else
    667     read(3,*) header, (tsurf(1,j), j = 1,size(tsurf,2)), (temp(ilayer), ilayer = 1,nlayer)
     667    read(3,*) header, (temp(ilayer), ilayer = 1,nlayer)
    668668    close(3)
    669669endif

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

    r4059 r4067  
    139139    endif
    140140endif
    141 if (therestart1D .and. .not. therestartfi) error stop 'There is a "start1D.txt" but no "startfi.nc". There might be problems for the initialization (for example ''qsurf'')!'
     141if (therestart1D .and. .not. therestartfi) error stop 'There is a "start1D.txt" but no "startfi.nc". There might be problems for the initialization (for example ''qsurf'' and ''tsurf'')!'
    142142
    143143call init_testphys1d('start1D.txt','startfi.nc',therestart1D,therestartfi,ngrid,nlayer,odpref,nq,q, &

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

    r3726 r4067  
    149149
    150150      REAL tsurf_v(ngrid)                                           ! Virtual surface temperature, accounting for vapor flottability
    151       REAL temp_v(ngrid)                                            ! Potential virtual air temperature in the frist layer, accounting for vapor flottability
     151      REAL temp_v(ngrid)                                            ! Potential virtual air temperature in the first layer, accounting for vapor flottability
    152152      REAL mu_h2o                                                   ! Molecular mass of water vapor (kg/mol)
    153153      REAL tol_frost                                                ! Tolerance to consider the effect of frost on the surface

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

    r3727 r4067  
    131131      REAL z1,zcd0                ! Neutral roughness (m) and Cd/Ch coefficient when call richls is not called
    132132      REAL tsurf_v(ngrid,nslope)  ! Virtual surface temperature, accounting for vapor flottability
    133       REAL temp_v(ngrid)          ! Potential virtual air temperature in the frist layer, accounting for vapor flottability
     133      REAL temp_v(ngrid)          ! Potential virtual air temperature in the first layer, accounting for vapor flottability
    134134      REAL mu_h2o                 ! Molecular mass of water vapor (kg/mol)
    135135      REAL tol_frost              ! Tolerance to consider the effect of frost on the surface
Note: See TracChangeset for help on using the changeset viewer.