Changeset 458 for LMDZ.3.3/branches


Ignore:
Timestamp:
Mar 27, 2003, 2:44:17 PM (22 years ago)
Author:
lmdzadmin
Message:

Un peu de menage pour avoir moins de print dans les sorties
LF

Location:
LMDZ.3.3/branches/rel-LF/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ.3.3/branches/rel-LF/libf/phylmd/clmain.F

    r454 r458  
    236236      character (len = 20) :: modname = 'clmain'
    237237      LOGICAL check
    238       PARAMETER (check=.true.)
     238      PARAMETER (check=.false.)
    239239C
    240240      if (check) THEN
     
    872872      character (len = 20) :: modname = 'Debut clqh'
    873873      LOGICAL check
    874       PARAMETER (check=.true.)
     874      PARAMETER (check=.false.)
    875875C
    876876      if (check) THEN
     
    13881388      ENDDO
    13891389
    1390       PRINT*,' isommet=',isommet,' knon=',knon
     1390c$$$      PRINT*,' isommet=',isommet,' knon=',knon
    13911391
    13921392      DO k = 2, isommet
  • LMDZ.3.3/branches/rel-LF/libf/phylmd/interface_surf.F90

    r457 r458  
    206206  integer, save        :: error
    207207  integer              :: ii, index
    208   logical,save              :: check = .true.
     208  logical,save              :: check = .false.
    209209  real, dimension(klon):: cal, beta, dif_grnd, capsol
    210210!!$PB  real, parameter      :: calice=1.0/(5.1444e+06*0.15), tau_gl=86400.*5.
     
    218218  real, DIMENSION(klon):: zfra
    219219  logical              :: cumul = .false.
    220 !IM cf LF
    221   integer :: i
     220  INTEGER,dimension(1) :: iloc
     221  INTEGER                 :: isize
     222  real, dimension(klon):: fder_prev
    222223
    223224  if (check) write(*,*) 'Entree ', modname
     
    407408      cumul = .false.
    408409
     410      iloc = maxloc(fder(1:klon))
     411      if (check) then
     412        if (fder(iloc(1))> 0.) then
     413          WRITE(*,*)'**** Debug fder ****'
     414          WRITE(*,*)'max fder(',iloc(1),') = ',fder(iloc(1))
     415        endif
     416      endif
     417!!$
     418!!$      where(fder.gt.0.)
     419!!$        fder = 0.
     420!!$      endwhere
     421
    409422      call interfoce(itime, dtime, cumul, &
    410423      & klon, iim, jjm, nisurf, pctsrf, knon, knindex, rlon, rlat, &
     
    437450     &   petAcoef, peqAcoef, petBcoef, peqBcoef, &
    438451     &   tsurf_new, evap, fluxlat, fluxsens, dflux_s, dflux_l)
    439    
    440     fder = fder + dflux_s + dflux_l
     452
     453    fder_prev = fder   
     454    fder = fder_prev + dflux_s + dflux_l
     455
     456      iloc = maxloc(fder(1:klon))
     457        if (check.and.fder(iloc(1))> 0.) then
     458          WRITE(*,*)'**** Debug fder****'
     459          WRITE(*,*)'max fder(',iloc(1),') = ',fder(iloc(1))
     460          WRITE(*,*)'fder_prev, dflux_s, dflux_l',fder_prev(iloc(1)), &
     461     &                        dflux_s(iloc(1)), dflux_l(iloc(1))
     462        endif
     463!!$
     464!!$      where(fder.gt.0.)
     465!!$        fder = 0.
     466!!$      endwhere
    441467
    442468!
     
    488514
    489515      cumul =.false.
     516
     517      iloc = maxloc(fder(1:klon))
     518      if (check.and.fder(iloc(1))> 0.) then
     519        WRITE(*,*)'**** Debug fder ****'
     520        WRITE(*,*)'max fder(',iloc(1),') = ',fder(iloc(1))
     521      endif
     522!!$
     523!!$      where(fder.gt.0.)
     524!!$        fder = 0.
     525!!$      endwhere
    490526
    491527      call interfoce(itime, dtime, cumul, &
     
    573609    ENDIF
    574610
    575     fder = fder + dflux_s + dflux_l
     611    fder_prev = fder   
     612    fder = fder_prev + dflux_s + dflux_l
     613
     614      iloc = maxloc(fder(1:klon))
     615      if (check.and.fder(iloc(1))> 0.) then
     616        WRITE(*,*)'**** Debug fder ****'
     617        WRITE(*,*)'max fder(',iloc(1),') = ',fder(iloc(1))
     618        WRITE(*,*)'fder_prev, dflux_s, dflux_l',fder_prev(iloc(1)), &
     619     &                        dflux_s(iloc(1)), dflux_l(iloc(1))
     620      endif
     621!!$      where(fder.gt.0.)
     622!!$        fder = 0.
     623!!$      endwhere
    576624
    577625!
     
    20002048  character (len = 20),save :: fich ='limit.nc'
    20012049  logical,save     :: newlmt = .false.
    2002   logical,save     :: check = .true.
     2050  logical,save     :: check = .false.
    20032051! Champs lus dans le fichier de CL
    20042052  real, allocatable , save, dimension(:) :: alb_lu, rug_lu
     
    21822230  REAL, parameter :: chasno = 3.334E+05/(2.3867E+06*0.15)
    21832231!
    2184   logical, save         :: check = .true.
     2232  logical, save         :: check = .false.
    21852233  character (len = 20)  :: modname = 'calcul_fluxs'
    21862234  logical, save         :: fonte_neige = .false.
Note: See TracChangeset for help on using the changeset viewer.