Ignore:
Timestamp:
Feb 16, 2023, 10:49:20 AM (2 years ago)
Author:
fhourdin
Message:

Deactivating filtre and check if iim=1 (2D y-z)

Location:
LMDZ6/trunk/libf/filtrez
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • TabularUnified LMDZ6/trunk/libf/filtrez/filtreg.F

    r1907 r4440  
    7171
    7272      INTEGER :: sdd1_type, sdd2_type
     73
     74      if ( iim == 1 ) return ! no filtre in 2D y-z
    7375
    7476      IF (first) THEN

  • TabularUnified LMDZ6/trunk/libf/filtrez/filtreg_mod.F90

    r2603 r4440  
    6666    !-----------------------------------------------------------
    6767    !
     68    if ( iim == 1 ) return ! No filtre in 2D y-z
    6869
    6970    pi       = 2. * ASIN( 1. )
    … …  
    125126    !
    126127    colat0  =  MIN( 0.5, dymin/dxmin )
     128    ! colat0  =  1.
    127129    !
    128130    IF( .NOT.fxyhypb.AND.ysinus )  THEN
Note: See TracChangeset for help on using the changeset viewer.