Changeset 4318 for LMDZ6/trunk


Ignore:
Timestamp:
Oct 28, 2022, 1:46:15 PM (20 months ago)
Author:
fhourdin
Message:

Ajout d'un panache descendant sous clef cpp (en developpement)

Location:
LMDZ6/trunk/libf/phylmd
Files:
1 added
1 edited

Legend:

Unmodified
Added
Removed

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

    r4143 r4318  
    455455     &       entr_star,detr_star,f,rhobarz,zlev,zw2,fm,entr,  &
    456456     &       detr,zqla,lev_out,lunout1,igout)
     457
     458#undef DevThermcellDown
     459#ifdef DevThermcellDown
     460      print*,'WARNING !!! routine thermcell_down en cours de developpement'
     461      CALL thermcell_down(ngrid,nlay,po,pt,pu,pv,pplay,  &
     462     &           pplev,lmax,fm,entr,detr)
     463#endif
     464
    457465!IM 060508    &       detr,zqla,zmax,lev_out,lunout,igout)
    458466
Note: See TracChangeset for help on using the changeset viewer.