Discussion :

[nicobells]

Bonjour,

Voici une partie de mon executable f90:

! INITIAL PARAMETERS
Cab = 40. ! chlorophyll content (µg.cm-2)
Car = 8. ! carotenoid content (µg.cm-2)
Cbrown = 0.0 ! brown pigment content (arbitrary units)
Cw = 0.01 ! EWT (cm)
Cm = 0.009 ! LMA (g.cm-2)
N = 1.5 ! structure coefficient

En fait, j'aimerais importer les valeurs depuis un fichier texte de type:
40
8
0
0.01
0.009
1.5

et les "allouer" aux paramètres Cab, Car, etc, qui ont déjà été déclarés plus haut dans mon exécutable.

Merci d'avance!

[rogue-spectre]

Salut,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
 
! ouvrir un fichier designe par un entier ref (>10, les unit <10 sont réservés)
open(unit=REF, file="nom_du_fichier",status="old")
    read(ref, *) CAB  ! on a mis une étoile, mais on peut préciser le format de lecture… 
    read(ref, *) CAR
    ! etc
 
! fermer le fichier
close(REF)

Bonne soirée

[nicobells]

Merci beaucoup!!!!