Ignore:
Timestamp:
Jul 24, 2024, 2:54:37 PM (4 months ago)
Author:
abarral
Message:

rename modules properly lmdz_*
move ismin, ismax, minmax into new lmdz_libmath.f90
(lint) uppercase fortran keywords

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmd/Ocean_skin/fv_m.F90

    r5113 r5116  
    3030    !---------------------------------------------------------------------
    3131
    32     if (rain > 0.) then
     32    if (rain > 0.) THEN
    3333       rc = 0.4 ! mm
    3434       z_mm = z * 1000. ! mm and <0
    … …  
    4242    endif
    4343
    44   end function fV
     44  END FUNCTION fV
    4545
    4646end module fv_m
Note: See TracChangeset for help on using the changeset viewer.