Changeset 1999 for LMDZ5/branches/testing/libf/phylmd/thermcellV0_main.F90

Timestamp:

Mar 20, 2014, 10:57:19 AM (10 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes r1920:1997 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/thermcellV0_main.F90 (modified) (2 diffs)

LMDZ5/branches/testing/libf/phylmd/thermcellV0_main.F90

@@ -191 +191 @@
          entr0=0.
          detr0=0.
-
-
-#undef wrgrads_thermcell
-#ifdef wrgrads_thermcell
-! Initialisation des sorties grads pour les thermiques.
-! Pour l'instant en 1D sur le point igout.
-! Utilise par thermcell_out3d.h
-         str10='therm'
-         call inigrads(1,1,rlond(igout),1.,-180.,180.,jjm, &
-     &   rlatd(igout),-90.,90.,1.,llm,pplay(igout,:),1.,   &
-     &   ptimestep,str10,'therm ')
-#endif
-
-
-
       endif
-
       fm=0. ; entr=0. ; detr=0.
 
@@ -795 +779 @@
 
       if (prt_level.ge.1) print*,'thermcell_main sorties 3D'
-#ifdef wrgrads_thermcell
-      include "thermcell_out3d.h"
-#endif
-
       endif