Ignore:
Timestamp:
Apr 27, 2023, 4:37:46 PM (20 months ago)
Author:
emillour
Message:

Mars PCM:
Fix OpenMP bug on inertiesoil, unnecessary loop and a line
too long for fixed fortran format.
Minor fix for picky gfortran compiler in testphys1d (no .eq. for logicals!)
EM

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r2948 r2951  
    992992      write_prof=.false.
    993993      call getin("write_prof",write_prof)
    994       IF (write_prof.eq..true.) then
     994      IF (write_prof) then
    995995              DO iq = 1, nq
    996996                call writeprofile(nlayer,q(:,iq),noms(iq),iq)
Note: See TracChangeset for help on using the changeset viewer.