Changeset 5434 for LMDZ6/trunk/libf/phylmd/lmdz_thermcell_plume.f90

Timestamp:

Dec 20, 2024, 11:48:05 AM (15 hours ago)

Author:

fhourdin

Message:

Superessing CPP in lmdz_*

Not possible for lmdz_thermcell_main because of isotopes

File:

• LMDZ6/trunk/libf/phylmd/lmdz_thermcell_plume.f90 (moved) (moved from LMDZ6/trunk/libf/phylmd/lmdz_thermcell_plume.F90) (1 diff)

LMDZ6/trunk/libf/phylmd/lmdz_thermcell_plume.f90

@@ -438 +438 @@
         if (prt_level.ge.20) print*,'coucou calcul detr 470: ig, l', ig, l
 
-#undef wrgrads_thermcell
-#ifdef wrgrads_thermcell
-         call wrgradsfi(1,nlay,entr_star(igout,1:nlay),'esta      ','esta      ')
-         call wrgradsfi(1,nlay,detr_star(igout,1:nlay),'dsta      ','dsta      ')
-         call wrgradsfi(1,nlay,zbuoy(igout,1:nlay),'buoy      ','buoy      ')
-         call wrgradsfi(1,nlay,zdqt(igout,1:nlay),'dqt      ','dqt      ')
-         call wrgradsfi(1,nlay,w_est(igout,1:nlay),'w_est     ','w_est     ')
-         call wrgradsfi(1,nlay,w_est(igout,2:nlay+1),'w_es2     ','w_es2     ')
-         call wrgradsfi(1,nlay,zw2(igout,1:nlay),'zw2A      ','zw2A      ')
-#endif
-
 
  RETURN