Changeset 224 for trunk/SOURCES/dragging_param_beta_sedim_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/dragging_param_beta_sedim_mod.f90 (modified) (3 diffs)

trunk/SOURCES/dragging_param_beta_sedim_mod.f90

@@ -77 +77 @@
 
 
-! formats pour les ecritures dans 42
-428 format(A)
-
 ! lecture des parametres du run                      block drag neff
 !--------------------------------------------------------------------
@@ -86 +83 @@
 read(num_param,drag_param_beta_sedim)
 
-write(num_rep_42,428)'!___________________________________________________________' 
-write(num_rep_42,428) '&drag_param_beta_sedim          ! nom du bloc dragging param beta'
+write(num_rep_42,'(A)')'!___________________________________________________________' 
+write(num_rep_42,'(A)') '&drag_param_beta_sedim          ! nom du bloc dragging param beta'
 write(num_rep_42,*)
 write(num_rep_42,*) 'beta_slope            = ', beta_slope
@@ -93 +90 @@
 write(num_rep_42,*) 'betamax               = ', betamax
 write(num_rep_42,*) 'betamin               = ', betamin
-write(num_rep_42,*) 'file_sedim     = ', file_sedim
+write(num_rep_42,'(A,A,A)') 'file_sedim     = "',trim(file_sedim),'"'
 write(num_rep_42,*) 'seuil_sedim    = ', seuil_sedim
 write(num_rep_42,*) 'coef_sedim     = ', coef_sedim
 write(num_rep_42,*)'/'                            
-write(num_rep_42,428) '! Slope & expo of beta = - slope x Neff ** expo'
-write(num_rep_42,428) '! Where h_sedim > seuil_sedim, beta*coef_sedim'
+write(num_rep_42,'(A)') '! Slope & expo of beta = - slope x Neff ** expo'
+write(num_rep_42,'(A)') '! Where h_sedim > seuil_sedim, beta*coef_sedim'
 
 !-------------------------------------------------------------------