Changeset 1389 for LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd

Timestamp:

May 18, 2010, 9:48:01 AM (15 years ago)

Author:

Laurent Fairhead

Message:

• Differing COMPLEX declarations were causing problems in FFT routines

compilation. The FFTs should only be used in double precision in any case

• the ALLOCATE command for the o_trac variable was misplaced and called

several times (causing an error for some compilators)

---

• Des déclarations COMPLEX différenciées causaient des problèmes de

compilation dans les routines des filtres FFT. Celles-ci ne devraient être
utilisées qu'en double précision de toutes façons.

• L'ALLOCATE de la variable o_trac était mal placé et appelé plusieurs fois

(ce qui causait des crash pour certains compilateurs)

File:

• LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/phys_output_mod.F90 (modified) (2 diffs)

LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/phys_output_mod.F90

@@ -602 +602 @@
 !IM definition dynamique flag o_trac pour sortie traceurs
   INTEGER :: nq
-!  type(ctrl_out) :: o_trac(nqtot)
   CHARACTER(len=8) :: solsym(nqtot)
 
    print*,'Debut phys_output_mod.F90'
 ! Initialisations (Valeurs par defaut
+
+   if (.not. allocated(o_trac)) ALLOCATE(o_trac(nqtot))
+
    levmax = (/ klev, klev, klev, klev, klev /)
 
@@ -1220 +1222 @@
 
 !IM traceurs dynamiques
-    ALLOCATE(o_trac(nqtot))
     DO nq=1,nqtot
       IF(nq.LT.10) THEN