Changeset 543 for LMDZ4/trunk/libf

Timestamp:

Jun 29, 2004, 6:06:31 PM (20 years ago)

Author:

lmdzadmin

Message:

On met des valeurs pour les traceurs par defaut si le fichier traceur.def
n'existe pas
LF

File:

• LMDZ4/trunk/libf/dyn3d/iniadvtrac.F (modified) (1 diff)

LMDZ4/trunk/libf/dyn3d/iniadvtrac.F

@@ -125 +125 @@
      s     iostat=ierr)
       if(ierr.eq.0) then
-       print*,'ouverture de traceur.def ok'
-       read(90,*) nq
-       print*,'nombre de traceurs ',nq
-       if (nq.gt.nqmx) then
-       print*,'nombre de traceurs trop important'
-       print*,'verifier traceur.def'
-       stop
-       endif
+        print*,'ouverture de traceur.def ok'
+        read(90,*) nq
+        print*,'nombre de traceurs ',nq
+        if (nq.gt.nqmx) then
+          print*,'nombre de traceurs trop important'
+          print*,'verifier traceur.def'
+          stop
+        endif
 C
-       do iq=1,nq
-         read(90,999) hadv(iq),vadv(iq),tnom(iq)
-       end do
-       close(90)  
-       PRINT*,'lecture de traceur.def :'   
-       do iq=1,nq
-         write(*,*) hadv(iq),vadv(iq),tnom(iq)
-       end do       
+        do iq=1,nq
+          read(90,999) hadv(iq),vadv(iq),tnom(iq)
+        end do
+        close(90)  
+        PRINT*,'lecture de traceur.def :'   
+        do iq=1,nq
+          write(*,*) hadv(iq),vadv(iq),tnom(iq)
+        end do       
       else
-       print*,'pb ouverture traceur.def'
-       print*,'ATTENTION on prend des valeurs par defaut'
-      endif
+        print*,'pb ouverture traceur.def'
+        print*,'ATTENTION on prend des valeurs par defaut'
+        nq = 4
+        hadv(1) = 14
+        vadv(1) = 14
+        tnom(1) = 'H2Ov'
+        hadv(2) = 10
+        vadv(2) = 10
+        tnom(2) = 'H2Ol'
+        hadv(3) = 10
+        vadv(3) = 10
+        tnom(3) = 'RN'
+        hadv(4) = 10
+        vadv(4) = 10
+        tnom(4) = 'PB'
+      ENDIF
+      PRINT*,'Valeur de traceur.def :'
+      do iq=1,nq
+        write(*,*) hadv(iq),vadv(iq),tnom(iq)
+      end do       
+
 #endif
 c a partir du nom court du traceur et du schema d'advection au detemine le nom long.