Changeset 2971 for LMDZ5/trunk/libf/phylmd

Timestamp:

Jul 26, 2017, 2:48:59 PM (7 years ago)

Author:

dcugnet

Message:

Control outputs for debug are removed.

File:

• LMDZ5/trunk/libf/phylmd/tropopause_m.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/phylmd/tropopause_m.F90

@@ -17 +17 @@
   USE dimphy,       ONLY: klon, klev
   USE geometry_mod, ONLY: latitude_deg, longitude_deg
-  USE write_field_phy
   USE vertical_layers_mod, ONLY: aps, bps, preff
 
@@ -85 +84 @@
   END DO
 
-  CALL writefield_phy('PV_ou'   ,pvor_cen(:,1:klev-1),klev-1)
-  CALL writefield_phy('theta_ou',tpot_cen,klev)
-  CALL writefield_phy('Pcen_ou' ,pplay   ,klev)
-
   !--- LOCATE TROPOPAUSE: LOWEST POINT BETWEEN THETA=380K AND PV=2PVU SURFACES.
   DO i = 1, klon
@@ -107 +102 @@
                             dyn_tropopause(i) )
   END DO
-  CALL writefield_phy('PreTr_ou',dyn_tropopause,1)
 
 END FUNCTION dyn_tropopause