Changeset 1352 for trunk/LMDZ.COMMON


Ignore:
Timestamp:
Oct 4, 2014, 6:38:40 PM (10 years ago)
Author:
emillour
Message:

Common dynamics:

  • Added MESU arch files
  • Bug fix in conf_gcm to enable using FFT filter

EM

Location:
trunk/LMDZ.COMMON
Files:
2 added
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/LMDZ.COMMON/libf/dyn3dpar/conf_gcm.F

    r1302 r1352  
    569569      CALL getin('use_filtre_fft',use_filtre_fft)
    570570
    571       IF (use_filtre_fft .AND. grossismx /= 1.0) THEN
    572         write(lunout,*)'WARNING !!! '
    573         write(lunout,*)"Le zoom en longitude est incompatible",
    574      &                 " avec l'utilisation du filtre FFT ",
    575      &                 "---> FFT filter not active"
    576        use_filtre_fft=.FALSE.
    577       ENDIF
     571! Ehouarn: at this point grossismx is undefined...
     572!      IF (use_filtre_fft .AND. grossismx /= 1.0) THEN
     573!        write(lunout,*)'WARNING !!! '
     574!        write(lunout,*)"the zoom in longitude grossismx=",grossismx,
     575!     &                 " is not compatible with an FFT filter",
     576!     &                 "---> FFT filter not active"
     577!       use_filtre_fft=.FALSE.
     578!      ENDIF
    578579
    579580!Config  Key  = use_mpi_alloc
     
    674675       grossismx = 1.0
    675676       CALL getin('grossismx',grossismx)
     677       IF (use_filtre_fft .AND. grossismx /= 1.0) THEN
     678         write(lunout,*)'WARNING !!! '
     679         write(lunout,*)"the zoom in longitude grossismx=",grossismx,
     680     &                  " is not compatible with an FFT filter",
     681     &                  "---> FFT filter not active"
     682         use_filtre_fft=.FALSE.
     683       ENDIF
    676684
    677685!Config  Key  = grossismy
Note: See TracChangeset for help on using the changeset viewer.