Changeset 1134


Ignore:
Timestamp:
Mar 26, 2009, 12:57:31 PM (15 years ago)
Author:
Laurent Fairhead
Message:

Menage sur les impressions intempestives par transformation des

print*,

en

if (prt_level > ??) write(lunout,*)

LF

Location:
LMDZ4/branches/LMDZ4-dev/libf
Files:
8 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/leapfrog_p.F

    r1114 r1134  
    537537
    538538c$OMP MASTER
    539       print*,"Iteration No",True_itau
     539      IF (prt_level>9)WRITE(lunout,*)"Iteration No",True_itau
    540540
    541541
    … …  
    673673c$OMP MASTER
    674674         call suspend_timer(timer_caldyn)
    675          print*,'Entree dans la physique : Iteration No ',true_itau
     675         WRITE(lunout,*)'Entree dans la physique : Iteration No ',      &
     676     &                   true_itau
    676677c$OMP END MASTER
    677678

  • LMDZ4/branches/LMDZ4-dev/libf/phylmd/conf_phys.F90

    r1123 r1134  
    13941394  write(numout,*)' iflag_thermals_ed = ', iflag_thermals_ed
    13951395  write(numout,*)' iflag_thermals_optflux = ', iflag_thermals_optflux
     1396  write(numout,*)' iflag_clos = ', iflag_clos
    13961397  write(numout,*)' type_run = ',type_run
    13971398  write(numout,*)' ok_isccp = ',ok_isccp

  • LMDZ4/branches/LMDZ4-dev/libf/phylmd/cv3_inip.F

    r987 r1134  
    8989              aire=aire+(Qmix(ff+df) - Qmix(ff)) * (1.-ff)
    9090              mu = mu + pdf * ff * df
    91               write(*,*) pdf,  Qmix(ff), aire, ff
     91         IF(prt_level>9)WRITE(lunout,*)                                 &
     92     &               pdf,  Qmix(ff), aire, ff
    9293         ff=ff+df
    9394         enddo

  • LMDZ4/branches/LMDZ4-dev/libf/phylmd/phys_output_mod.F90

    r1123 r1134  
    10541054       IMPLICIT NONE
    10551055
     1056       include 'iniprint.h'
     1057
    10561058       character(len=20)                :: nam_var
    10571059       integer, dimension(nfiles)      :: flag_var
    … …  
    10611063        flag_var_omp = flag_var
    10621064        nam_var_omp = nam_var
    1063         print*,'Avant getin: nam_var flag_var ',nam_var,flag_var(:)
     1065        IF(prt_level>10) WRITE(lunout,*)'Avant getin: nam_var flag_var ',nam_var,flag_var(:)
    10641066        call getin('flag_'//nam_var,flag_var_omp)
    10651067        flag_var = flag_var_omp
    … …  
    10671069        nam_var=nam_var_omp
    10681070       
    1069         print*,'Apres getin: nam_var flag_var ',nam_var,flag_var(:)
     1071        IF(prt_level>10) WRITE(lunout,*)'Apres getin: nam_var flag_var ',nam_var,flag_var(:)
    10701072
    10711073      END SUBROUTINE conf_physoutputs

  • LMDZ4/branches/LMDZ4-dev/libf/phylmd/physiq.F

    r1130 r1134  
    20252025       do i=1,klon
    20262026          if (alp(i)>alp_max) then
    2027              print*,'WARNING SUPER ALP (seuil=',alp_max,
     2027             IF(prt_level>9)WRITE(lunout,*)                             &
     2028     &       'WARNING SUPER ALP (seuil=',alp_max,
    20282029     ,       '): i, alp, alp_wake,ale',i,alp(i),alp_wake(i),ale(i)
    20292030             alp(i)=alp_max
    20302031          endif
    20312032          if (ale(i)>ale_max) then
    2032              print*,'WARNING SUPER ALE (seuil=',ale_max,
     2033             IF(prt_level>9)WRITE(lunout,*)                             &
     2034     &       'WARNING SUPER ALE (seuil=',ale_max,
    20332035     ,       '): i, alp, alp_wake,ale',i,ale(i),ale_wake(i),alp(i)
    20342036             ale(i)=ale_max

  • LMDZ4/branches/LMDZ4-dev/libf/phylmd/thermcell_closure.F90

    r1057 r1134  
    5555!            f(ig)=f(ig)+(f0(ig)-f(ig))*exp((-ptimestep/  &
    5656!    &                     zmax_sec(ig))*wmax_sec(ig))
    57              print*,'closure dry',f(ig),wmax_sec(ig),alim_star_tot(ig),zmax_sec(ig)
     57             if(prt_level.GE.10) write(lunout,*)'closure dry',f(ig),wmax_sec(ig),alim_star_tot(ig),zmax_sec(ig)
    5858             else
    5959             f(ig)=wmax(ig)*alim_star_tot(ig)/zdenom

  • LMDZ4/branches/LMDZ4-dev/libf/phylmd/thermcell_dv2.F90

    r972 r1134  
    5454      enddo
    5555
    56       print*,'WARNING on initialise gamma(1:ngrid,1)=0.'
     56      IF(prt_level>9)WRITE(lunout,*)                                    &
     57     &      'WARNING on initialise gamma(1:ngrid,1)=0.'
    5758      gamma(1:ngrid,1)=0.
    5859      do k=2,nlay

  • LMDZ4/branches/LMDZ4-dev/libf/phylmd/thermcell_main.F90

    r1026 r1134  
    232232!     enddo
    233233!    ENDIF !(1.eq.0) THEN
    234      print*,'WARNING thermcell_main f0=max(f0,1.e-2)'
     234     if (prt_level.ge.10)write(lunout,*)                                &
     235    &     'WARNING thermcell_main f0=max(f0,1.e-2)'
    235236     do ig=1,klon
    236237      if (prt_level.ge.20) then
    … …  
    295296
    296297!IM
    297       print*,'WARNING thermcell_main rhobarz(:,1)=rho(:,1)'
     298     if (prt_level.ge.10)write(lunout,*)                                &
     299    &    'WARNING thermcell_main rhobarz(:,1)=rho(:,1)'
    298300      rhobarz(:,1)=rho(:,1)
    299301
    … …  
    624626      enddo     
    625627      if (prt_level.ge.1) print*,'14d OK convect8'
    626       print*,'WARNING thermcell_main wth2=0. si zw2 > 1.e-10'
     628      if (prt_level.ge.10)write(lunout,*)                                &
     629    &     'WARNING thermcell_main wth2=0. si zw2 > 1.e-10'
    627630      do l=1,nlay
    628631         do ig=1,ngrid
Note: See TracChangeset for help on using the changeset viewer.