Ignore:
Timestamp:
Jul 23, 2024, 7:14:34 PM (4 months 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_6A.f90

    r5103 r5105  
    621621      do ig = 1, ngrid
    622622        if (zw2(ig, l + 1)>0. .and. zw2(ig, l + 1)<1.e-10) then
    623           !               stop'On tombe sur le cas particulier de thermcell_dry'
     623          !               stop 'On tombe sur le cas particulier de thermcell_dry'
    624624          !               PRINT*,'On tombe sur le cas particulier de thermcell_plume'
    625625          nbpb = nbpb + 1
    … …  
    10111011      do ig = 1, ngrid
    10121012        if (zw2(ig, l + 1)>0. .and. zw2(ig, l + 1)<1.e-10) then
    1013           !               stop'On tombe sur le cas particulier de thermcell_dry'
     1013          !               stop 'On tombe sur le cas particulier de thermcell_dry'
    10141014          !               PRINT*,'On tombe sur le cas particulier de thermcell_plume'
    10151015          nbpb = nbpb + 1
Note: See TracChangeset for help on using the changeset viewer.