Ignore:
Timestamp:
Jul 23, 2024, 7:14:34 PM (3 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_dry.F90

    r5103 r5105  
    105105
    106106            if (zw2(ig,l+1)>0. .and. zw2(ig,l+1)<1.e-10) then
    107 !               stop'On tombe sur le cas particulier de thermcell_dry'
     107!               stop 'On tombe sur le cas particulier de thermcell_dry'
    108108!               PRINT*,'On tombe sur le cas particulier de thermcell_dry'
    109109                zw2(ig,l+1)=0.
Note: See TracChangeset for help on using the changeset viewer.