Ignore:
Timestamp:
Apr 2, 2026, 3:46:30 PM (9 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_dv2.F90

    r2231 r4168  
    1 !
    2 !
    3 !
     1MODULE thermcell_dv2_mod
     2
     3IMPLICIT NONE
     4
     5CONTAINS
     6
    47SUBROUTINE thermcell_dv2(ngrid,nlay,ptimestep,fm,entr,detr,masse,fraca,       &
    58                         zmax,zmin,u,v,du,dv,ua,va)
    … …  
    192195     
    193196     
    194 RETURN
    195 END
     197END SUBROUTINE thermcell_dv2
     198
     199END MODULE thermcell_dv2_mod
Note: See TracChangeset for help on using the changeset viewer.