Changeset 5392 for LMDZ6/trunk/libf


Ignore:
Timestamp:
Dec 6, 2024, 11:34:06 AM (9 days ago)
Author:
Laurent Fairhead
Message:

Wrong place for END SUBROUTINE statement
END FUNCTION statement missing

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/dyn1d/1DUTILS.h

    r5390 r5392  
    983983
    984984      RETURN
    985       END
     985      END SUBROUTINE gr_fi_dyn
    986986
    987987      REAL FUNCTION fq_sat(kelvin, millibar)
    … …  
    10431043!
    10441044      RETURN
    1045       END SUBROUTINE gr_fi_dyn
     1045      END FUNCTION fq_sat
    10461046
    10471047      SUBROUTINE gr_dyn_fi(nfield,im,jm,ngrid,pdyn,pfi)
Note: See TracChangeset for help on using the changeset viewer.