Ignore:
Timestamp:
Apr 2, 2026, 3:46:30 PM (11 days ago)
Author:
emillour
Message:

Generic PCM:
Clean up module thermcell_mod.F90 : make module variables private and remove
unused module variables.
While at it, put all thermcell_*.F90 routines in modules.
EM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.GENERIC/libf/phygeneric/thermcell_plume.F90

    r4146 r4168  
    1 !
    2 !
    3 !
     1MODULE thermcell_plume_mod
     2
     3IMPLICIT NONE
     4
     5CONTAINS
     6
    47SUBROUTINE thermcell_plume(ngrid,nlay,nq,ptimestep,                           &
    58                           ztv,zhl,zqt,zql,zlev,pplev,zpopsk,                 &
    … …  
    315318     
    316319     
    317 RETURN
    318 END
     320
     321END SUBROUTINE thermcell_plume
     322
     323END MODULE thermcell_plume_mod
Note: See TracChangeset for help on using the changeset viewer.