Changeset 224 for trunk/SOURCES/initial-phy-2.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/initial-phy-2.f90 (modified) (6 diffs)

trunk/SOURCES/initial-phy-2.f90

@@ -47 +47 @@
   read(num_param,runpar)
 
-
-  ! ouverture du fichier num_rep_42
-  !-------------------------------------
-428 format(A)             ! formats pour les ecritures dans 42
-
-  ! filin='../Param/param'//runname
+!  filin='../Param/param'//runname
   filin='param'//runname
   open(num_rep_42,file=filin)
@@ -61 +56 @@
   write(num_rep_42,*)'!  sources dans  ',trim(dirsource)
   write(num_rep_42,*)
-  write(num_rep_42,428)'!___________________________________________________________' 
-  write(num_rep_42,428) '&runpar                  ! nom du bloc  parametres du run'
+  write(num_rep_42,'(A)')'!___________________________________________________________' 
+  write(num_rep_42,'(A)') '&runpar                  ! nom du bloc  parametres du run'
   write(num_rep_42,*)
   write(num_rep_42,*) 'runname      =  "',runname,'"'
   write(num_rep_42,*) 'icompteur    = ', icompteur                              
-  write(num_rep_42,*) 'iout    = ', iout 
+  write(num_rep_42,*) 'iout         = ', iout 
   write(num_rep_42,*) 'reprcptr     = "',trim(reprcptr),'"'
+  write(num_rep_42,*) 'itracebug    = ', itracebug
   write(num_rep_42,*) 'num_tracebug  = ', num_tracebug
-  write(num_rep_42,*) 'comment_run   ="',trim(comment_run),'"'
+  write(num_rep_42,*) 'comment_run   = "',trim(comment_run),'"'
   write(num_rep_42,*)'/'                            
-  write(num_rep_42,428) '! runname    : nom de l experience (8 caracteres)  '
-  write(num_rep_42,428) '! icompteur  : reprise dans un fichier  0 -> non, 1 -> oui, 2 -> T et Hw'
-  write(num_rep_42,428) '! icompteur  : 3-> T seulement'
-  write(num_rep_42,428) '! iout   : 1-> sortie cptr pour reprise,2 -> sortie nc pour reprise '
-  write(num_rep_42,428) '! reprcptr   : nom du fichier'
-  write(num_rep_42,428) '! itracebug: 1-> ecriture de traces au debut des routines'
-  write(num_rep_42,428) '! num_tracebug   numero d unite ecriture traces'
-  write(num_rep_42,428) '! comment_run: commentaire court sur le run'
+  write(num_rep_42,'(A)') '! runname    : nom de l experience (8 caracteres)  '
+  write(num_rep_42,'(A)') '! icompteur  : reprise dans un fichier  0 -> non, 1 -> oui, 2 -> T et Hw'
+  write(num_rep_42,'(A)') '! icompteur  : 3-> T seulement'
+  write(num_rep_42,'(A)') '! iout   : 1-> sortie cptr pour reprise,2 -> sortie nc pour reprise '
+  write(num_rep_42,'(A)') '! reprcptr   : nom du fichier restart'
+  write(num_rep_42,'(A)') '! itracebug: 1-> ecriture de traces au debut des routines'
+  write(num_rep_42,'(A)') '! num_tracebug   numero d unite ecriture traces'
+  write(num_rep_42,'(A)') '! comment_run: commentaire court sur le run'
 
   write(num_rep_42,*)
@@ -118 +114 @@
 
 
-  write(num_rep_42,428)'!___________________________________________________________'  
-  write(num_rep_42,428) '&grdline                 ! bloc grounding line'
+  write(num_rep_42,'(A)')'!___________________________________________________________'  
+  write(num_rep_42,'(A)') '&grdline                 ! bloc grounding line'
   write(num_rep_42,*)
   write(num_rep_42,*) 'igrdline     = ',igrdline
@@ -125 +121 @@
   write(num_rep_42,*) 'ibmelt_inv   = ',ibmelt_inv
   write(num_rep_42,*)'/'                           
-  write(num_rep_42,428)'! igrdline   : 1 ligne d echouage fixée, sinon 0'
-  write(num_rep_42,428)'! Schoof     : 0 pas de Schoof, 1 flux de Schoof'
-  write(num_rep_42,428)'! ibmelt_inv : 0 cas std, 1 inversion du bmelt (avec igrdline=1)'
+  write(num_rep_42,'(A)')'! igrdline   : 1 ligne d echouage fixée, sinon 0'
+  write(num_rep_42,'(A)')'! Schoof     : 0 pas de Schoof, 1 flux de Schoof'
+  write(num_rep_42,'(A)')'! ibmelt_inv : 0 cas std, 1 inversion du bmelt (avec igrdline=1)'
   write(num_rep_42,*)
 
@@ -145 +141 @@
 
 ! dmr&aurel ##  namelist/timesteps/dtmin,dtmax,dtt,testdiag,tbegin,tend
-  write(num_rep_42,428)'!___________________________________________________________'  
-  write(num_rep_42,428) '&timesteps                 ! bloc time steps'
+  write(num_rep_42,'(A)')'!___________________________________________________________'  
+  write(num_rep_42,'(A)') '&timesteps                 ! bloc time steps'
   write(num_rep_42,*)
   write(num_rep_42,*) 'tend      = ',tend
@@ -157 +153 @@
 
   write(num_rep_42,*)'/'                           
-  write(num_rep_42,428)'! tous les temps en annees. tbegin et tend : debut et fin du run '
-  write(num_rep_42,428)'! pour equation masse, pas de temps mini -> dtmin, maxi -> dtmax'      
-  write(num_rep_42,428)'! dtt : pas de temps long'
-  write(num_rep_42,428)'! testdiag, pour gérer le pas de temps dynamique dt'
-  write(num_rep_42,428)'! ordres de grandeur (a moduler selon dx) : '
-  write(num_rep_42,428)'! 40 km dtmin=2.e-2, dtmax=1., dtt=5., tesdiag=0.02'
+  write(num_rep_42,'(A)')'! tous les temps en annees. tbegin et tend : debut et fin du run '
+  write(num_rep_42,'(A)')'! pour equation masse, pas de temps mini -> dtmin, maxi -> dtmax'      
+  write(num_rep_42,'(A)')'! dtt : pas de temps long'
+  write(num_rep_42,'(A)')'! testdiag, pour gérer le pas de temps dynamique dt'
+  write(num_rep_42,'(A)')'! ordres de grandeur (a moduler selon dx) : '
+  write(num_rep_42,'(A)')'! 40 km dtmin=2.e-2, dtmax=1., dtt=5., tesdiag=0.02'
 
   write(num_rep_42,*)