Ignore:
Timestamp:
Aug 9, 2023, 11:56:36 AM (17 months ago)
Author:
jbclement
Message:

Mars PCM/PEM 1D:
Small fixes to be able to run the Mars PCM 1D without "water" + Improvements/addition of scripts in deftank/pem to run the PEM 1D model according to Laskar orbital parameters.
JBC

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/LMDZ.COMMON/libf/evolution/orbit_param_criterion_mod.F90

    r3022 r3026  
    7878
    7979          open(73,file='ob_ex_lsp.asc')
    80           do ilask=1,nlask
    81             read(73,*) yearlask(ilask),oblask(ilask),      &
    82              exlask(ilask),lsplask(ilask)
    83             yearlask(ilask)=yearlask(ilask)*1000
    84 
    85             if(yearlask(ilask).GT.Year) then
    86                 last_ilask=ilask+1
    87             endif
    88           end do
     80          do ilask = 1,nlask
     81            read(73,*) yearlask(ilask), oblask(ilask), exlask(ilask), lsplask(ilask)
     82            yearlask(ilask) = yearlask(ilask)*1000.
     83            if (yearlask(ilask) > Year) last_ilask = ilask + 1
     84          enddo
    8985          close(73)
    9086
Note: See TracChangeset for help on using the changeset viewer.