Changeset 224 for trunk/SOURCES/climat_forcage_mod.f90

Timestamp:

12/18/18 18:25:28 (5 years ago)

Author:

dumas

Message:

format of the parameter file created by the code, possibility to use it in reading

File:

• trunk/SOURCES/climat_forcage_mod.f90 (modified) (1 diff)

trunk/SOURCES/climat_forcage_mod.f90

@@ -196 +196 @@
   read(num_param,clim_forcage)
 
-
-! formats pour les ecritures dans 42
-428 format(A)
-
-  write(num_rep_42,428)'!___________________________________________________________' 
-  write(num_rep_42,428) '&clim_forcage                                ! nom du bloc '
+  write(num_rep_42,'(A)')'!___________________________________________________________' 
+  write(num_rep_42,'(A)') '&clim_forcage                                ! nom du bloc '
   write(num_rep_42,*)
-  write(num_rep_42,'(A,A)') 'clim_ref_file = ', clim_ref_file
-  write(num_rep_42,'(A,A)') 'ttr = ', ttr(:)
-  write(num_rep_42,'(A,A)') 'forcage_file1 = ', forcage_file1
-  write(num_rep_42,'(A,A)') 'forcage_file2 = ', forcage_file2
-  write(num_rep_42,'(A,A)') 'typerun = ', typerun
-  write(num_rep_42,'(A,A)') 'rappact = ', rappact
+  write(num_rep_42,'(A,A,A)') 'clim_ref_file = "',trim(clim_ref_file),'"'
+  write(num_rep_42,*) 'ttr = ', ttr
+  write(num_rep_42,'(A,A,A)') 'forcage_file1 = "',trim(forcage_file1),'"'
+  write(num_rep_42,'(A,A,A)') 'forcage_file2 = "',trim(forcage_file2),'"'
+  write(num_rep_42,*) 'typerun = ', typerun
+  write(num_rep_42,*) 'rappact = ', rappact
   write(num_rep_42,*) 'mincoefbmelt = ', mincoefbmelt
   write(num_rep_42,*) 'maxcoefbmelt = ', maxcoefbmelt
-  write(num_rep_42,'(A,A)') ' filforc      = ', filforc
+  write(num_rep_42,'(A,A,A)') ' filforc      = "',trim(filforc),'"'
   write(num_rep_42,*) 'lapserate = ', lapserate
   write(num_rep_42,*)'/'