Ignore:
Timestamp:
Jun 29, 2023, 3:03:15 AM (12 months ago)
Author:
fhourdin
Message:

Passage des thermiques a la nouvelle norme.

File:
1 moved

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/lmdz_thermcell_down.F90

    r4589 r4590  
     1MODULE lmdz_thermcell_down
     2CONTAINS
     3
    14SUBROUTINE thermcell_updown_dq(ngrid,nlay,ptimestep,lmax,eup,dup,edn,ddn,masse,trac,dtrac)
    25
    3 USE thermcell_ini_mod, ONLY: iflag_thermals_down
     6USE lmdz_thermcell_ini, ONLY: iflag_thermals_down
    47
    58
    … …  
    223226
    224227
    225    USE thermcell_ini_mod, ONLY : prt_level,RLvCp,RKAPPA,RETV,fact_thermals_down
     228   USE lmdz_thermcell_ini, ONLY : prt_level,RLvCp,RKAPPA,RETV,fact_thermals_down
    226229   IMPLICIT NONE
    227230
    … …  
    299302 RETURN
    300303   END
     304END MODULE lmdz_thermcell_down
Note: See TracChangeset for help on using the changeset viewer.