Changeset 3315 for trunk


Ignore:
Timestamp:
Apr 25, 2024, 12:39:41 PM (7 months ago)
Author:
llange
Message:

Mars PCM
Fixing a bug in the initialization of sub-grid surface temperatures in the 1D
(subgrid slope index was missing)
LL

Location:
trunk/LMDZ.MARS
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/changelog.txt

    r3307 r3315  
    46194619== 19/04/2024 == JBC
    46204620Correction of a missing argument due to changes introduced in r3305.
     4621
     4622== 25/04/2024 == LL
     4623Fixing a bug in the initialization of sub-grid surface temperatures in the 1D
     4624(subgrid slope index was missing)

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

    r3307 r3315  
    659659    temp = tmp2(1:)
    660660else
    661     read(3,*) header, (tsurf(1,:), j = 1,size(tsurf,2)), (temp(ilayer), ilayer = 1,nlayer)
     661    read(3,*) header, (tsurf(1,j), j = 1,size(tsurf,2)), (temp(ilayer), ilayer = 1,nlayer)
    662662    close(3)
    663663endif
Note: See TracChangeset for help on using the changeset viewer.