Changeset 938


Ignore:
Timestamp:
Mar 31, 2008, 6:14:45 PM (16 years ago)
Author:
lmdzadmin
Message:

Enleve prints par defaut
IM

Location:
LMDZ4/trunk/libf
Files:
17 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/dyn3d/guide.F

    r762 r938  
    122122c calcul de l'humidite saturante
    123123C-----------------------------------------------------------------------
    124       print*,'OK0'
     124c     print*,'OK0'
    125125      CALL pression( ip1jmp1, ap, bp, ps, p )
    126126      call massdair(p,masse)
    127       print*,'OK1'
     127c     print*,'OK1'
    128128      CALL exner_hyb(ip1jmp1,ps,p,alpha,beta,pks,pk,pkf)
    129       print*,'OK2'
     129c     print*,'OK2'
    130130      tnat(:,:)=pk(:,:)*teta(:,:)/cpp
    131       print*,'OK3'
     131c     print*,'OK3'
    132132      unskap   = 1./ kappa
    133133      pres(:,:)=preff*(pk(:,:)/cpp)**unskap
    134       print*,'OK4'
     134c     print*,'OK4'
    135135      call q_sat(iip1*jjp1*llm,tnat,pres,qsat)
    136136
    … …  
    144144c-----------------------------------------------------------------------
    145145
    146       print*,'ONLINE=',online
     146c     print*,'ONLINE=',online
    147147      if(online.eq.-1) then
    148148          return

  • LMDZ4/trunk/libf/dyn3d/wrgrads.F

    r541 r938  
    2929      writectl=.false.
    3030
    31       print*,if,iid(if),jid(if),ifd(if),jfd(if)
     31c     print*,if,iid(if),jid(if),ifd(if),jfd(if)
    3232      iii=iid(if)
    3333      iji=jid(if)
    … …  
    3838      lm=lmd(if)
    3939
    40       print*,'im,jm,lm,name,firsttime(if)'
    41       print*,im,jm,lm,name,firsttime(if)
     40c     print*,'im,jm,lm,name,firsttime(if)'
     41c     print*,im,jm,lm,name,firsttime(if)
    4242
    4343      if(firsttime(if)) then
    … …  
    5757            tvar(ivar(if),if)=titlevar(1:lnblnk(titlevar))
    5858            nld(ivar(if),if)=nl
    59             print*,'initialisation ecriture de ',var(ivar(if),if)
    60             print*,'if ivar(if) nld ',if,ivar(if),nld(ivar(if),if)
     59c           print*,'initialisation ecriture de ',var(ivar(if),if)
     60c           print*,'if ivar(if) nld ',if,ivar(if),nld(ivar(if),if)
    6161         endif
    6262         writectl=.true.
    … …  
    8181      endif
    8282
    83       print*,'ivar(if),nvar(if),var(ivar(if),if),writectl'
    84       print*,ivar(if),nvar(if),var(ivar(if),if),writectl
     83c     print*,'ivar(if),nvar(if),var(ivar(if),if),writectl'
     84c     print*,ivar(if),nvar(if),var(ivar(if),if),writectl
    8585      do l=1,nl
    8686         irec(if)=irec(if)+1

  • LMDZ4/trunk/libf/phylmd/calltherm.F90

    r927 r938  
    1414#include "dimphy.h"
    1515#include "thermcell.h"
     16#include "iniprint.h"
    1617
    1718!  A inclure eventuellement dans les fichiers de configuration
    … …  
    7374
    7475      integer i,k
    75 
    7676!********************************************************
    7777
    … …  
    8585         Ale_bl(:)=0.
    8686         Alp_bl(:)=0.
    87        print*,'thermV4 nsplit: ',nsplit_thermals,' weak_inversion'
    88 
     87         if (prt_level.ge.10) then
     88          print*,'thermV4 nsplit: ',nsplit_thermals,' weak_inversion'
     89         endif
    8990
    9091!   tests sur les valeurs negatives de l'eau
    … …  
    9293            do i=1,klon
    9394               if (.not.q_seri(i,k).ge.0.) then
     95                if (prt_level.ge.10) then
    9496                   print*,'WARN eau<0 avant therm i=',i,'  k=',k  &
    9597     &         ,' dq,q',d_q_the(i,k),q_seri(i,k)
    96                   q_seri(i,k)=1.e-15
     98                endif
     99                q_seri(i,k)=1.e-15
    97100               endif
    98101            enddo
    … …  
    224227            DO i = 1, klon
    225228               if (.not.q_seri(i,k).ge.0.) then
     229                 if (prt_level.ge.10) then
    226230                   print*,'WARN eau<0 apres therm i=',i,'  k=',k  &
    227231     &         ,' dq,q',d_q_the(i,k),q_seri(i,k),  &
    228232     &         'fm=',zfm_therm(i,k),'entr=',entr_therm(i,k)
    229                   q_seri(i,k)=1.e-15
     233                 endif
     234                 q_seri(i,k)=1.e-15
    230235!       stop
    231236               endif

  • LMDZ4/trunk/libf/phylmd/concvl.F

    r879 r938  
    382382       ENDDO
    383383      endif
    384       print*, 'concvl->: dd_t,dd_q ',dd_t(1,1),dd_q(1,1)
     384c     print*, 'concvl->: dd_t,dd_q ',dd_t(1,1),dd_q(1,1)
    385385
    386386      RETURN

  • LMDZ4/trunk/libf/phylmd/cva_driver.F

    r879 r938  
    305305
    306306      logical ok_inhib  ! True => possible inhibition of convection by dryness
     307      logical, save :: debut=.true.
    307308
    308309      real plcl1(klon)
    … …  
    507508
    508509      if (iflag_con.eq.3) then
    509    
    510        print*,'Emanuel version 3 nouvelle'
     510 
     511       if (debut) THEN
     512        print*,'Emanuel version 3 nouvelle'
     513       endif
     514
    511515       CALL cv3_prelim(len,nd,ndp1,t1,q1,p1,ph1      ! nd->na
    512516     o               ,lv1,cpn1,tv1,gz1,h1,hm1,th1)
    … …  
    774778        ELSE
    775779         CALL cv3_mixscale(nloc,ncum,nd,ment,m)
    776          print *,' cv3_mixscale-> '
     780         if (debut) THEN
     781          print *,' cv3_mixscale-> '
     782         endif !(debut) THEN
    777783        ENDIF
    778784      endif
    … …  
    785791      endif
    786792c
    787       print *,' cv_mixing ->'
     793      if (debut) THEN
     794       print *,' cv_mixing ->'
     795      endif !(debut) THEN
    788796c      do i = 1,klev
    789797c        print*,'cv_mixing-> i,ment ',i,(ment(1,i,j),j=1,klev)
    … …  
    794802!-------------------------------------------------------------------
    795803      if (iflag_con.eq.3) then
    796       print *,' cva_driver -> cv3_unsat '
     804       if (debut) THEN
     805        print *,' cva_driver -> cv3_unsat '
     806       endif !(debut) THEN
    797807   
    798808       CALL cv3_unsat(nloc,ncum,nd,nd,ntra,icb,inb,iflag    ! na->nd
    … …  
    810820      endif
    811821c
    812       print *,'cv_unsat-> '
     822      if (debut) THEN
     823       print *,'cv_unsat-> '
     824       debut=.FALSE.
     825      endif !(debut) THEN
    813826!
    814827c      print *,'cv_unsat-> mp ',mp

  • LMDZ4/trunk/libf/phylmd/thermcell.F

    r878 r938  
    991991#ifdef troisD
    992992c       if (sorties) then
    993       print*,'Debut des wrgradsfi'
     993c      print*,'Debut des wrgradsfi'
    994994
    995995c      print*,'16 OK convect8'
    … …  
    10681068c     print*,'18 OK convect8'
    10691069c      endif
    1070       print*,'Fin des wrgradsfi'
     1070c      print*,'Fin des wrgradsfi'
    10711071#endif
    10721072
    … …  
    11671167c                 detr_star(ig,l)=0.
    11681168             endif
    1169             print*,'ok detr_star'
     1169c           print*,'ok detr_star'
    11701170cprise en compte du detrainement dans le calcul du flux
    11711171             f_star(ig,l+1)=f_star(ig,l)+alim_star(ig,l)+entr_star(ig,l)
    … …  
    11881188     s           -zw2(ig,l))/(zw2(ig,l+1)-zw2(ig,l))
    11891189               zw2(ig,l+1)=0.
    1190                print*,'linter=',linter(ig)
     1190c              print*,'linter=',linter(ig)
    11911191            else
    11921192               wa_moy(ig,l+1)=sqrt(zw2(ig,l+1))
    … …  
    11991199         enddo
    12001200      enddo
    1201       print*,'fin calcul zw2'
     1201c     print*,'fin calcul zw2'
    12021202c
    12031203c Calcul de la couche correspondant a la hauteur du thermique
    … …  
    12301230            if (l.le.lmax(ig)) then
    12311231                if (zw2(ig,l).lt.0.)then
    1232                   print*,'pb2 zw2<0'
     1232c                 print*,'pb2 zw2<0'
    12331233                endif
    12341234                zw2(ig,l)=sqrt(zw2(ig,l))

  • LMDZ4/trunk/libf/phylmd/thermcell_closure.F90

    r878 r938  
    77      IMPLICIT NONE
    88
     9#include "iniprint.h"
    910      INTEGER ngrid,nlay
    1011      INTEGER ig,k       
    … …  
    6162         f0(ig)=f(ig)
    6263      enddo
    63       if (lev_out.ge.1) print*,'apres fermeture'
     64      if (prt_level.ge.1) print*,'apres fermeture'
    6465
    6566!

  • LMDZ4/trunk/libf/phylmd/thermcell_dq.F90

    r878 r938  
    33      implicit none
    44
     5#include "iniprint.h"
    56!=======================================================================
    67!
    … …  
    2627!   calcul du detrainement
    2728
    28       if (lev_out.ge.1) print*,'Q2 THERMCEL_DQ 0'
     29      if (prt_level.ge.1) print*,'Q2 THERMCEL_DQ 0'
    2930
    3031      do k=1,nlay

  • LMDZ4/trunk/libf/phylmd/thermcell_dry.F90

    r878 r938  
    77       IMPLICIT NONE
    88#include "YOMCST.h"       
     9#include "iniprint.h"
    910       INTEGER l,ig
    1011
    … …  
    120121            if (zw2(ig,l+1)>0. .and. zw2(ig,l+1).lt.1.e-10) then
    121122!               stop'On tombe sur le cas particulier de thermcell_dry'
    122                 print*,'On tombe sur le cas particulier de thermcell_dry'
     123!               print*,'On tombe sur le cas particulier de thermcell_dry'
    123124                zw2(ig,l+1)=0.
    124125                linter(ig)=l+1
    … …  
    142143         enddo
    143144      enddo
    144        if (lev_out.ge.1) print*,'fin calcul zw2'
     145       if (prt_level.ge.1) print*,'fin calcul zw2'
    145146!
    146147!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    … …  
    201202      do ig=1,ngrid
    202203         if(lalim(ig)>lmax(ig)) then
     204           if ( prt_level > 1 ) THEN
    203205            print*,'WARNING thermcell_dry ig=',ig,'  lalim=',lalim(ig),'  lmax(ig)=',lmax(ig)
    204             lmax(ig)=lalim(ig)
     206           endif
     207           lmax(ig)=lalim(ig)
    205208         endif
    206209      enddo

  • LMDZ4/trunk/libf/phylmd/thermcell_dv2.F90

    r878 r938  
    44      implicit none
    55
     6#include "iniprint.h"
    67!=======================================================================
    78!

  • LMDZ4/trunk/libf/phylmd/thermcell_env.F90

    r878 r938  
    1212#include "YOETHF.h"
    1313#include "FCTTRE.h"     
     14#include "iniprint.h"
    1415
    1516      INTEGER ngrid,nlay
    … …  
    113114!   ---------------------------------------------------
    114115
    115       if (lev_out.ge.1) print*,'0 OK convect8'
     116      if (prt_level.ge.1) print*,'0 OK convect8'
    116117
    117118      DO 1010 l=1,nlay

  • LMDZ4/trunk/libf/phylmd/thermcell_flux.F90

    r883 r938  
    77     &       lalim,lmax,alim_star,  &
    88     &       entr_star,detr_star,f,rhobarz,zlev,zw2,fm,entr,  &
    9      &       detr,zqla,zmax,lev_out,lunout,igout)
     9     &       detr,zqla,zmax,lev_out,lunout1,igout)
    1010
    1111
    … …  
    1515
    1616      IMPLICIT NONE
     17#include "iniprint.h"
    1718     
    1819      INTEGER ig,l
    … …  
    4243      integer igout
    4344      integer lev_out
    44       integer lunout
     45      integer lunout1
    4546
    4647      REAL f_old,ddd0,eee0,ddd,eee,zzz
    … …  
    6566      fm(:,:)=0.
    6667     
    67       if (lev_out.ge.10) then
     68      if (prt_level.ge.10) then
    6869         write(lunout,*) 'Dans thermcell_flux 0'
    6970         write(lunout,*) 'flux base ',f(igout)
    … …  
    8182! de lmax(ig)
    8283!-------------------------------------------------------------------------
    83 
     84     if ( prt_level > 1 ) THEN
    8485      do l=1,klev
    8586         do ig=1,ngrid
    … …  
    103104         enddo
    104105      enddo
    105 
     106     endif  !( prt_level > 1 ) THEN
    106107!-------------------------------------------------------------------------
    107108! Multiplication par le flux de masse issu de la femreture
    … …  
    113114      enddo
    114115
    115       if (lev_out.ge.10) then
     116      if (prt_level.ge.10) then
    116117         write(lunout,*) 'Dans thermcell_flux 1'
    117118         write(lunout,*) 'flux base ',f(igout)
    … …  
    153154      enddo
    154155
    155       if (lev_out.ge.10) &
     156      if (prt_level.ge.10) &
    156157    &    call printflux(ngrid,klev,lunout,igout,f,lmax,lalim, &
    157158    &    ptimestep,masse,entr,detr,fm,'2  ')
    … …  
    197198!     enddo
    198199
    199       if (lev_out.ge.10) &
     200      if (prt_level.ge.10) &
    200201     &   write(lunout,'(i4,4e14.4)') l,masse(igout,l)/ptimestep, &
    201202     &     entr(igout,l),detr(igout,l),fm(igout,l+1)
    … …  
    223224!     enddo
    224225
    225       if (lev_out.ge.10) &
     226      if (prt_level.ge.10) &
    226227     &   write(lunout,'(i4,4e14.4)') l,masse(igout,l)/ptimestep, &
    227228     &     entr(igout,l),detr(igout,l),fm(igout,l+1)
    228229      else
     230       if (l.eq.1) then
    229231         print*,'Test sur les fractions croissantes inhibe dans thermcell_flux2'
     232       endif
    230233      endif
    231234
    … …  
    246249!     enddo
    247250
    248       if (lev_out.ge.10) &
     251      if (prt_level.ge.10) &
    249252     &   write(lunout,'(i4,4e14.4)') l,masse(igout,l)/ptimestep, &
    250253     &     entr(igout,l),detr(igout,l),fm(igout,l+1)
    … …  
    295298
    296299
    297       if (lev_out.ge.10) &
     300      if (prt_level.ge.10) &
    298301     &   write(lunout,'(i4,4e14.4)') l,masse(igout,l)/ptimestep, &
    299302     &     entr(igout,l),detr(igout,l),fm(igout,l+1)
    … …  
    320323!    enddo
    321324
    322       if (lev_out.ge.10) &
     325      if (prt_level.ge.10) &
    323326     &   write(lunout,'(i4,4e14.4)') l,masse(igout,l)/ptimestep, &
    324327     &     entr(igout,l),detr(igout,l),fm(igout,l+1)
    … …  
    364367
    365368
    366       if (lev_out.ge.10) &
     369      if (prt_level.ge.10) &
    367370     &   write(lunout,'(i4,4e14.4)') l,masse(igout,l)/ptimestep, &
    368371     &     entr(igout,l),detr(igout,l),fm(igout,l+1)
    … …  
    371374      enddo
    372375
    373       if (lev_out.ge.10) &
     376      if (prt_level.ge.10) &
    374377    &    call printflux(ngrid,klev,lunout,igout,f,lmax,lalim, &
    375378    &    ptimestep,masse,entr,detr,fm,'8  ')
    … …  
    442445
    443446      if (ncorecfm1+ncorecfm2+ncorecfm3+ncorecfm4+ncorecfm5+ncorecalpha > 0 ) then
    444 
     447       if (prt_level.ge.10) then
    445448          print*,'PB thermcell : on a du coriger ',ncorecfm1,'x fm1',&
    446449    &     ncorecfm2,'x fm2',ncorecfm3,'x fm3 et', &
    … …  
    450453    &     ncorecfm8,'x fm8', &
    451454    &     ncorecalpha,'x alpha'
     455       endif
    452456      endif
    453457
    454       if (lev_out.ge.10) &
     458      if (prt_level.ge.10) &
    455459    &    call printflux(ngrid,klev,lunout,igout,f,lmax,lalim, &
    456460    &    ptimestep,masse,entr,detr,fm,'fin')

  • LMDZ4/trunk/libf/phylmd/thermcell_height.F90

    r878 r938  
    66!-----------------------------------------------------------------------------
    77      IMPLICIT NONE
     8#include "iniprint.h"
    89
    910      INTEGER ig,l

  • LMDZ4/trunk/libf/phylmd/thermcell_init.F90

    r878 r938  
    66!----------------------------------------------------------------------
    77      IMPLICIT NONE
     8#include "iniprint.h"
     9
    810      INTEGER l,ig
    911!arguments d entree

  • LMDZ4/trunk/libf/phylmd/thermcell_main.F90

    r927 r938  
    4444#include "YOETHF.h"
    4545#include "FCTTRE.h"
     46#include "iniprint.h"
    4647
    4748!   arguments:
    … …  
    6162
    6263      integer,save :: igout=1
    63       integer,save :: lunout=6
     64      integer,save :: lunout1=6
    6465      integer,save :: lev_out=10
    6566
    … …  
    162163      seuil=0.25
    163164
    164       if (lev_out.ge.1) print*,'thermcell_main V4'
     165      if (prt_level.ge.1) print*,'thermcell_main V4'
    165166
    166167       sorties=.true.
    … …  
    191192     &           pplev,zo,zh,zl,ztv,zthl,zu,zv,zpspsk,zqsat,lev_out)
    192193       
    193       if (lev_out.ge.1) print*,'thermcell_main apres thermcell_env'
     194      if (prt_level.ge.1) print*,'thermcell_main apres thermcell_env'
    194195
    195196!------------------------------------------------------------------------
    … …  
    246247      enddo
    247248
    248       if (lev_out.ge.1) print*,'thermcell_main apres initialisation'
     249      if (prt_level.ge.1) print*,'thermcell_main apres initialisation'
    249250
    250251!------------------------------------------------------------------
    … …  
    314315
    315316
    316       if (lev_out.ge.1) print*,'thermcell_main apres thermcell_init'
    317       if (lev_out.ge.10) then
     317      if (prt_level.ge.1) print*,'thermcell_main apres thermcell_init'
     318      if (prt_level.ge.10) then
    318319         write(lunout,*) 'Dans thermcell_main 1'
    319320         write(lunout,*) 'lmin ',lmin(igout)
    … …  
    324325      endif
    325326
    326       do ig=1,klon
     327!v1d      do ig=1,klon
    327328!v1d     if (alim_star(ig,1).gt.1.e-10) then
    328329!v1d     therm=.true.
    329330!v1d     endif
    330       enddo
     331!v1d      enddo
    331332!-----------------------------------------------------------------------------
    332333!  3. wmax_sec et zmax_sec sont les vitesses et altitudes maximum d'un
    … …  
    342343call test_ltherm(ngrid,nlay,pplev,pplay,lalim,seuil,ztv,po,ztva,zqla,f_star,zw2,'thermcell_dry  lalim ')
    343344
    344       if (lev_out.ge.1) print*,'thermcell_main apres thermcell_dry'
    345       if (lev_out.ge.10) then
     345      if (prt_level.ge.1) print*,'thermcell_main apres thermcell_dry'
     346      if (prt_level.ge.10) then
    346347         write(lunout,*) 'Dans thermcell_main 1b'
    347348         write(lunout,*) 'lmin ',lmin(igout)
    … …  
    365366      call test_ltherm(ngrid,nlay,pplev,pplay,lmix ,seuil,ztv,po,ztva,zqla,f_star,zw2,'thermcell_plum lmix  ')
    366367
    367       if (lev_out.ge.1) print*,'thermcell_main apres thermcell_plume'
    368       if (lev_out.ge.10) then
     368      if (prt_level.ge.1) print*,'thermcell_main apres thermcell_plume'
     369      if (prt_level.ge.10) then
    369370         write(lunout,*) 'Dans thermcell_main 2'
    370371         write(lunout,*) 'lmin ',lmin(igout)
    … …  
    388389      call test_ltherm(ngrid,nlay,pplev,pplay,lmax ,seuil,ztv,po,ztva,zqla,f_star,zw2,'thermcell_heig lmax  ')
    389390
    390       if (lev_out.ge.1) print*,'thermcell_main apres thermcell_height'
     391      if (prt_level.ge.1) print*,'thermcell_main apres thermcell_height'
    391392
    392393!-------------------------------------------------------------------------------
    … …  
    397398     &   zlev,lalim,alim_star,zmax_sec,wmax_sec,zmax,wmax,f,f0,lev_out)
    398399
    399       if(lev_out.ge.1)print*,'thermcell_closure apres thermcell_closure'
     400      if(prt_level.ge.1)print*,'thermcell_closure apres thermcell_closure'
    400401
    401402!-------------------------------------------------------------------------------
    … …  
    408409     &       detr,zqla,zmax,lev_out,lunout,igout)
    409410
    410       if (lev_out.ge.1) print*,'thermcell_main apres thermcell_flux'
     411      if (prt_level.ge.1) print*,'thermcell_main apres thermcell_flux'
    411412      call test_ltherm(ngrid,nlay,pplev,pplay,lalim,seuil,ztv,po,ztva,zqla,f_star,zw2,'thermcell_flux lalim ')
    412413      call test_ltherm(ngrid,nlay,pplev,pplay,lmax ,seuil,ztv,po,ztva,zqla,f_star,zw2,'thermcell_flux lmax  ')
    … …  
    476477      enddo
    477478
    478       print*,'14 OK convect8'
     479!     print*,'14 OK convect8'
    479480!------------------------------------------------------------------
    480481!   Calculs de diagnostiques pour les sorties
    … …  
    483484     
    484485      if (sorties) then
    485       print*,'14a OK convect8'
     486!      print*,'14a OK convect8'
    486487! calcul du niveau de condensation
    487488! initialisation
    … …  
    503504         enddo
    504505      enddo
    505       print*,'14b OK convect8'
     506!     print*,'14b OK convect8'
    506507      do k=nlay,1,-1
    507508         do ig=1,ngrid
    … …  
    512513         enddo
    513514      enddo
    514       print*,'14c OK convect8'
     515!     print*,'14c OK convect8'
    515516!calcul des moments
    516517!initialisation
    … …  
    524525         enddo
    525526      enddo     
    526       print*,'14d OK convect8'
     527!     print*,'14d OK convect8'
    527528      do l=1,nlay
    528529         do ig=1,ngrid
    … …  
    636637
    637638!calcul du ratqscdiff
    638       print*,'14e OK convect8'
     639!     print*,'14e OK convect8'
    639640      var=0.
    640641      vardiff=0.
    … …  
    645646         enddo
    646647      enddo
    647       print*,'14f OK convect8'
     648!     print*,'14f OK convect8'
    648649      do ig=1,ngrid
    649650          do l=1,lalim(ig)
    … …  
    656657          enddo
    657658      enddo
    658       print*,'14g OK convect8'
     659!     print*,'14g OK convect8'
    659660      do l=1,nlay
    660661         do ig=1,ngrid
    … …  
    672673
    673674#ifdef und
    674       if (lev_out.ge.1) print*,'thermcell_main sorties 1D'
     675      if (prt_level.ge.1) print*,'thermcell_main sorties 1D'
    675676#include "thermcell_out1d.h"
    676677#endif
    … …  
    678679
    679680! #define troisD
    680       if (lev_out.ge.1) print*,'thermcell_main sorties 3D'
     681      if (prt_level.ge.1) print*,'thermcell_main sorties 3D'
    681682#ifdef troisD
    682683#include "thermcell_out3d.h"
    … …  
    685686      endif
    686687
    687       if (lev_out.ge.1) print*,'thermcell_main FIN  OK'
     688      if (prt_level.ge.1) print*,'thermcell_main FIN  OK'
    688689
    689690      return
    … …  
    693694
    694695      subroutine test_ltherm(klon,klev,pplev,pplay,long,seuil,ztv,po,ztva,zqla,f_star,zw2,comment)
    695 
    696       integer klon,klev
     696      IMPLICIT NONE
     697#include "iniprint.h"
     698
     699      integer i, k, klon,klev
    697700      real pplev(klon,klev+1),pplay(klon,klev)
    698701      real ztv(klon,klev)
    … …  
    706709      character*21 comment
    707710
    708       print*,'WARNING !!! TEST ',comment
     711      if (prt_level.ge.1) THEN
     712       print*,'WARNING !!! TEST ',comment
     713      endif
    709714      return
    710715

  • LMDZ4/trunk/libf/phylmd/thermcell_plume.F90

    r878 r938  
    1313#include "YOETHF.h"
    1414#include "FCTTRE.h"
     15#include "iniprint.h"
    1516
    1617      INTEGER ngrid,klev
    … …  
    9495        enddo
    9596      enddo
    96       if (lev_out.ge.1) print*,'7 OK convect8'
     97      if (prt_level.ge.1) print*,'7 OK convect8'
    9798      do k=1,klev+1
    9899         do ig=1,ngrid
    … …  
    104105      enddo
    105106
    106       if (lev_out.ge.1) print*,'8 OK convect8'
     107      if (prt_level.ge.1) print*,'8 OK convect8'
    107108      do ig=1,ngrid
    108109         linter(ig)=1.
    … …  
    210211     &       -rhobarz(ig,l)*sqrt(w_est(ig,l))*sqrt(l_mix*zlev(ig,l)))  &
    211212     &       /(r_aspect*zmax_sec(ig)))
    212        if (lev_out.ge.20) print*,'coucou calcul detr 1'
     213       if (prt_level.ge.20) print*,'coucou calcul detr 1'
    213214          else if ((zlev(ig,l+1).lt.zmax_sec(ig)).and.  &
    214215     &            (zqla(ig,l-1).lt.1.e-10)) then
    … …  
    221222     &       *((zmax_sec(ig)-zlev(ig,l))/  &
    222223     &       ((zmax_sec(ig)-zlev(ig,lmix(ig)))))**2.)
    223         if (lev_out.ge.20) print*,'coucou calcul detr 2'
     224        if (prt_level.ge.20) print*,'coucou calcul detr 2'
    224225          else
    225226             detr_star(ig,l)=0.002*f0(ig)*f_star(ig,l)  &
    226227     &                      *(zlev(ig,l+1)-zlev(ig,l))
    227         if (lev_out.ge.20) print*,'coucou calcul detr 3'
     228        if (prt_level.ge.20) print*,'coucou calcul detr 3'
    228229             
    229230          endif

  • LMDZ4/trunk/libf/phylmd/yamada4.F

    r926 r938  
    77      use dimphy
    88      IMPLICIT NONE
     9#include "iniprint.h"
    910c.......................................................................
    1011cym#include "dimensions.h"
    … …  
    423424c   D'apres Holtslag Boville.
    424425
    425       print*,'YAMADA4 0'
    426 
     426      if (prt_level>1) THEN
     427       print*,'YAMADA4 0'
     428      endif !(prt_level>1) THEN
    427429                                                          do ig=1,ngrid
    428430      coriol(ig)=1.e-4
    … …  
    456458      endif
    457459
    458       print*,'YAMADA4 1'
     460      if (prt_level>1) THEN
     461       print*,'YAMADA4 1'
     462      endif !(prt_level>1) THEN
    459463c   Diagnostique pour stokage
    460464
Note: See TracChangeset for help on using the changeset viewer.