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_closure.F90

    r2177 r4168  
    1 !
    2 !
    3 !
     1MODULE thermcell_closure_mod
     2
     3IMPLICIT NONE
     4
     5CONTAINS
     6
    47SUBROUTINE thermcell_closure(ngrid,nlay,ptimestep,rho,zlev,                   &
    58                             lmax,alim_star,zmin,zmax,wmax,f)
    … …  
    107110     
    108111     
    109 RETURN
    110 END
     112END SUBROUTINE thermcell_closure
     113
     114END MODULE thermcell_closure_mod
Note: See TracChangeset for help on using the changeset viewer.