Changeset 4295 for LMDZ6/trunk


Ignore:
Timestamp:
Oct 7, 2022, 4:06:19 PM (2 years ago)
Author:
fhourdin
Message:

Supression d'impressions

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmd/wake.F90

    r4294 r4295  
    291291  REAL, DIMENSION(klon)                                 :: awdens_in, wdens_in   ! pour les prints
    292292
    293    write(81) klon,klev,znatsurf,p,pi,ph,omgb,dtime,tenv0,qe0,dtdwn,dqdwn,amdwn,amup,dta,dqa,wgen,sigd_con,cin,deltatw,deltaqw,sigmaw,awdens,wdens
    294293  ! -------------------------------------------------------------------------
    295294  ! Initialisations
     
    319318  ! alpk = 0.5
    320319  ! alpk = 0.05
    321 print *,'XXXX dtime input ', dtime
     320!print *,'XXXX dtime input ', dtime
    322321 igout = klon/2+1/klon
    323322
     
    451450    d_sig_bnd2(i) = sigmaw_targ - sigmaw(i)
    452451    d_sigmaw2(i) = sigmaw_targ - sigmaw(i)
    453   print *,'XXXX1 d_sigmaw2(i), sigmaw(i) ', d_sigmaw2(i), sigmaw(i)
     452!  print *,'XXXX1 d_sigmaw2(i), sigmaw(i) ', d_sigmaw2(i), sigmaw(i)
    454453    sigmaw(i) = sigmaw_targ
    455454!>jyg
     
    836835      d_sig_bnd2(i) = d_sig_bnd2(i) + sigmaw_targ - sigmaw(i)
    837836      d_sigmaw2(i) = d_sigmaw2(i) + sigmaw_targ - sigmaw(i)
    838   print *,'XXXX2 d_sigmaw2(i), sigmaw(i) ', d_sigmaw2(i), sigmaw(i)
     837!  print *,'XXXX2 d_sigmaw2(i), sigmaw(i) ', d_sigmaw2(i), sigmaw(i)
    839838      sigmaw(i) = sigmaw_targ
    840839!>jyg
     
    950949        d_sig_bnd2(i) = d_sig_bnd2(i) + sigmaw_targ - sigmaw(i)
    951950        d_sigmaw2(i) = d_sigmaw2(i) + sigmaw_targ - sigmaw(i)
    952   print *,'XXXX3 d_sigmaw2(i), sigmaw(i) ', d_sigmaw2(i), sigmaw(i)
     951!  print *,'XXXX3 d_sigmaw2(i), sigmaw(i) ', d_sigmaw2(i), sigmaw(i)
    953952        sigmaw(i) = sigmaw_targ
    954953!>jyg
     
    14961495        sigmaw(i) = sigmaw(i) + d_sigmaw(i)
    14971496        d_sigmaw2(i) = d_sigmaw2(i) + d_sigmaw(i)
    1498   print *,'XXXX4 d_sigmaw2(i), sigmaw(i) ', d_sigmaw2(i), sigmaw(i)
     1497!  print *,'XXXX4 d_sigmaw2(i), sigmaw(i) ', d_sigmaw2(i), sigmaw(i)
    14991498      END IF
    15001499    END DO
     
    15181517          d_sig_bnd2(i) = d_sig_bnd2(i) + sigmaw_targ - sigmaw(i)
    15191518          d_sigmaw2(i) = d_sigmaw2(i) + sigmaw_targ - sigmaw(i)
    1520   print *,'XXXX5 d_sigmaw2(i), sigmaw(i) ', d_sigmaw2(i), sigmaw(i)
     1519!  print *,'XXXX5 d_sigmaw2(i), sigmaw(i) ', d_sigmaw2(i), sigmaw(i)
    15211520          sigmaw(i) = sigmaw_targ
    15221521        END IF
     
    18221821          d_sig_bnd2(i) = d_sig_bnd2(i) + sigmaw_targ - sigmaw(i)
    18231822          d_sigmaw2(i) = d_sigmaw2(i) + sigmaw_targ - sigmaw(i)
    1824   print *,'XXXX6 d_sigmaw2(i), sigmaw(i) ', d_sigmaw2(i), sigmaw(i)
     1823!  print *,'XXXX6 d_sigmaw2(i), sigmaw(i) ', d_sigmaw2(i), sigmaw(i)
    18251824          sigmaw(i) = sigmaw_targ
    18261825!>jyg
     
    20412040      d_sig_bnd2(i) = d_sig_bnd2(i) + sigmaw_targ - sigmaw(i)
    20422041      d_sigmaw2(i) = d_sigmaw2(i) + sigmaw_targ - sigmaw(i)
    2043   print *,'XXXX7 d_sigmaw2(i), sigmaw(i) ', d_sigmaw2(i), sigmaw(i)
     2042!  print *,'XXXX7 d_sigmaw2(i), sigmaw(i) ', d_sigmaw2(i), sigmaw(i)
    20442043      sigmaw(i) = sigmaw_targ
    20452044!>jyg
     
    21412140!!      d_sigmaw2(i) = d_sigmaw2(i) + sigmaw_targ - sigmaw(i)
    21422141      d_sigmaw2(i) = sigmaw_targ - sigmaw_in(i)      ! _in = correction jyg 20220124
    2143   print *,'XXXX8 d_sigmaw2(i), sigmaw(i) ', d_sigmaw2(i), sigmaw(i)
     2142!  print *,'XXXX8 d_sigmaw2(i), sigmaw(i) ', d_sigmaw2(i), sigmaw(i)
    21442143      sigmaw(i) = sigmaw_targ
    21452144      IF (iflag_wk_pop_dyn >= 1) THEN
     
    22092208    d_sig_bnd2(i) = d_sig_bnd2(i)/dtime
    22102209    d_sigmaw2(i) = d_sigmaw2(i)/dtime
    2211   print *,'XXXX9 d_sigmaw2(i), sigmaw(i), dtime ', d_sigmaw2(i), sigmaw(i), dtime
     2210!  print *,'XXXX9 d_sigmaw2(i), sigmaw(i), dtime ', d_sigmaw2(i), sigmaw(i), dtime
    22122211!
    22132212    d_dens_gen2(i) = d_dens_gen2(i)/dtime
Note: See TracChangeset for help on using the changeset viewer.