Skip to content
Snippets Groups Projects
Commit ff0359a3 authored by RODIER Quentin's avatar RODIER Quentin
Browse files

Quentin 24/03/2022: remove debug prints

parent 74a83e90
Branches
Tags
No related merge requests found
......@@ -1247,28 +1247,6 @@ END IF
IF(PRESENT(PLEM)) PLEM = ZLM
!----------------------------------------------------------------------------
!
print*,"PTHLT = ",MINVAL(PTHLT),MAXVAL(PTHLT)
print*," PRT = ",MINVAL(PRT),MAXVAL(PRT)
print*," PRUS = ",MINVAL(PRUS),MAXVAL(PRUS)
print*," PRVS = ",MINVAL(PRVS),MAXVAL(PRVS)
print*," PRWS = ",MINVAL(PRWS),MAXVAL(PRWS)
print*," PRTHLS = ",MINVAL(PRTHLS),MAXVAL(PRTHLS)
print*," PRTKES = ",MINVAL(PRTKES),MAXVAL(PRTKES)
print*," PRRS = ",MINVAL(PRRS),MAXVAL(PRRS)
print*," PRSVS = ",MINVAL(PRSVS),MAXVAL(PRSVS)
print*," PSIGS = ",MINVAL(PSIGS),MAXVAL(PSIGS)
print*," PWTH = ",MINVAL(PWTH),MAXVAL(PWTH)
print*," PWRC = ",MINVAL(PWRC),MAXVAL(PWRC)
print*," PWSV = ",MINVAL(PWSV),MAXVAL(PWSV)
print*," PTP = ",MINVAL(PTP),MAXVAL(PTP)
print*," PTPMF = ",MINVAL(PTPMF),MAXVAL(PTPMF)
print*," PDP = ",MINVAL(PDP),MAXVAL(PDP)
print*," PTDIFF = ",MINVAL(PTDIFF),MAXVAL(PTDIFF)
print*," PTDISS = ",MINVAL(PTDISS),MAXVAL(PTDISS)
IF (LHOOK) CALL DR_HOOK('TURB',1,ZHOOK_HANDLE)
CONTAINS
!
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment