Ignore:
Timestamp:
Jul 23, 2024, 7:14:34 PM (8 weeks ago)
Author:
abarral
Message:

Replace 1DUTILS.h by module lmdz_1dutils.f90
Replace 1DConv.h by module lmdz_old_1dconv.f90 (it's only used by old_* files)
Convert *.F to *.f90
Fix gradsdef.h formatting
Remove unnecessary "RETURN" at the end of functions/subroutines

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_thermcell_plume.f90

    r5103 r5105  
    379379      do ig = 1, ngrid
    380380        if (zw2(ig, l + 1)>0. .and. zw2(ig, l + 1)<1.e-10) then
    381           !               stop'On tombe sur le cas particulier de thermcell_dry'
     381          !               stop 'On tombe sur le cas particulier de thermcell_dry'
    382382          !               PRINT*,'On tombe sur le cas particulier de thermcell_plume'
    383383          nbpb = nbpb + 1
Note: See TracChangeset for help on using the changeset viewer.