Ignore:
Timestamp:
Jul 18, 2013, 10:20:28 AM (12 years ago)
Author:
Ehouarn Millour
Message:

Version testing basee sur la r1794

Testing release based on r1794

Location:
LMDZ5/branches/testing
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/branches/testing

  • LMDZ5/branches/testing/libf/dyn3dmem/exner_milieu_loc.F

    r1707 r1795  
    2727c
    2828      USE parallel
     29      USE mod_filtreg_p
    2930      IMPLICIT NONE
    3031c
    … …  
    120121        jjb=jj_begin
    121122        jje=jj_end
    122         CALL filtreg_p ( pkf,jjb,jje, jmp1, llm, 2, 1, .TRUE., 1 )
     123        CALL filtreg_p ( pkf,jjb_u,jje_u,jjb,jje, jmp1, llm,
     124     &                 2, 1, .TRUE., 1 )
    123125
    124126        ! our work is done, exit routine
    … …  
    206208      jjb=jj_begin
    207209      jje=jj_end
    208       CALL filtreg_p ( pkf,jjb,jje, jmp1, llm, 2, 1, .TRUE., 1 )
     210      CALL filtreg_p ( pkf,jjb_u,jje_u,jjb,jje, jmp1, llm,
     211     &                 2, 1, .TRUE., 1 )
    209212     
    210213c    EST-CE UTILE ?? : calcul de beta
Note: See TracChangeset for help on using the changeset viewer.