Changeset 1352 for trunk/LMDZ.COMMON
- Timestamp:
- Oct 4, 2014, 6:38:40 PM (10 years ago)
- Location:
- trunk/LMDZ.COMMON
- Files:
-
- 2 added
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.COMMON/libf/dyn3dpar/conf_gcm.F
r1302 r1352 569 569 CALL getin('use_filtre_fft',use_filtre_fft) 570 570 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 578 579 579 580 !Config Key = use_mpi_alloc … … 674 675 grossismx = 1.0 675 676 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 676 684 677 685 !Config Key = grossismy
Note: See TracChangeset
for help on using the changeset viewer.