Ignore:
Timestamp:
May 20, 2015, 3:27:07 PM (9 years ago)
Author:
Ehouarn Millour
Message:
  • fix in dyn3d the array out of bound issue (in qminimum) that was only corrected in dyn3dmem in rev 2285.
  • comment out many invasive debug writes.

EM

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/dyn3dmem/leapfrog_loc.F

    r2270 r2286  
    308308
    309309   1  CONTINUE ! Matsuno Forward step begins here
    310       write(*,*) 'leapfrog 298: itau=',itau
     310      !write(*,*) 'leapfrog 298: itau=',itau
    311311      jD_cur = jD_ref + day_ini - day_ref +                             &
    312312     &          itau/day_step
     
    713713      IF( forward. OR . leapf )  THEN
    714714! Ehouarn: NB: fields sent to advtrac are those at the beginning of the time step
    715         write(*,*) 'leapfrog 679: avant CALL caladvtrac_loc'
     715        !write(*,*) 'leapfrog 679: avant CALL caladvtrac_loc'
    716716         CALL caladvtrac_loc(q,pbaru,pbarv,
    717717     *        p, masse, dq,  teta,
    718718     .        flxw,pk, iapptrac)
    719719
    720          write(*,*) 'leapfrog 719'
     720         !write(*,*) 'leapfrog 719'
    721721         if (ok_iso_verif) then
    722722           call check_isotopes(q,ijb_u,ije_u,
     
    755755!       CALL FTRACE_REGION_BEGIN("integrd")
    756756
    757        write(*,*) 'leapfrog 720'
     757       !write(*,*) 'leapfrog 720'
    758758        if (ok_iso_verif) then
    759759           call check_isotopes(q,ijb_u,ije_u,'leapfrog 756')
     
    765765!     $              finvmaold                                    )
    766766
    767        write(*,*) 'leapfrog 724'       
     767       !write(*,*) 'leapfrog 724'       
    768768        if (ok_iso_verif) then
    769769           call check_isotopes(q,ijb_u,ije_u,'leapfrog 762')
     
    11481148           call check_isotopes(q,ijb_u,ije_u,'leapfrog 1132')
    11491149        endif !if (ok_iso_verif) then
    1150         write(*,*) 'leapfrog 1134: iflag_phys=',iflag_phys
     1150        !write(*,*) 'leapfrog 1134: iflag_phys=',iflag_phys
    11511151
    11521152      IF(iflag_phys.EQ.2) THEN ! "Newtonian" case
     
    12211221c   dissipation horizontale et verticale  des petites echelles:
    12221222c   ----------------------------------------------------------
    1223       write(*,*) 'leapfrog 1163: apdiss=',apdiss
     1223      !write(*,*) 'leapfrog 1163: apdiss=',apdiss
    12241224      IF(apdiss) THEN
    12251225     
Note: See TracChangeset for help on using the changeset viewer.