Ignore:
Timestamp:
Jul 26, 2017, 2:48:59 PM (7 years ago)
Author:
dcugnet
Message:

Control outputs for debug are removed.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/phylmd/tropopause_m.F90

    r2968 r2971  
    1717  USE dimphy,       ONLY: klon, klev
    1818  USE geometry_mod, ONLY: latitude_deg, longitude_deg
    19   USE write_field_phy
    2019  USE vertical_layers_mod, ONLY: aps, bps, preff
    2120
     
    8584  END DO
    8685
    87   CALL writefield_phy('PV_ou'   ,pvor_cen(:,1:klev-1),klev-1)
    88   CALL writefield_phy('theta_ou',tpot_cen,klev)
    89   CALL writefield_phy('Pcen_ou' ,pplay   ,klev)
    90 
    9186  !--- LOCATE TROPOPAUSE: LOWEST POINT BETWEEN THETA=380K AND PV=2PVU SURFACES.
    9287  DO i = 1, klon
     
    107102                            dyn_tropopause(i) )
    108103  END DO
    109   CALL writefield_phy('PreTr_ou',dyn_tropopause,1)
    110104
    111105END FUNCTION dyn_tropopause
Note: See TracChangeset for help on using the changeset viewer.