Changeset 225 for trunk/SOURCES/Ant16_files/bmelt-ant-regions-initmip_mod.f90

Timestamp:

12/21/18 10:01:52 (6 years ago)

Author:

dumas

Message:

format of the parameter file created by the code, possibility to use it in reading for Ant-40

File:

• trunk/SOURCES/Ant16_files/bmelt-ant-regions-initmip_mod.f90 (modified) (2 diffs)

trunk/SOURCES/Ant16_files/bmelt-ant-regions-initmip_mod.f90

@@ -64 +64 @@
     read(num_param,bmelt_ant_reg_initmip)
 
-    ! formats pour les ecritures dans 42
-428 format(A)
-
-    write(num_rep_42,428)'!___________________________________________________________' 
-    write(num_rep_42,428) '&bmelt-ant-regions-initmip                                 '
-    write(num_rep_42,*)
-    write(num_rep_42,'(A,18(f0.2,","))') 'bmelt_regions      = ', bmelt_regions(:)
-    write(num_rep_42,'(A,18(f0.2,","))') 'bmgrz_regions      = ', bmgrz_regions(:)
-    write(num_rep_42,*) 'bmelt_talus     = ', bmelt_talus 
-    write(num_rep_42,*) 'bmgrz_talus     = ', bmgrz_talus
-    write(num_rep_42,*) 'bmelt_coef      = ', bmelt_coef
-    write(num_rep_42,*) 'file_numer_shelves = ', file_number_shelves
-    write(num_rep_42,*) 'flag_dist = ', flag_dist
-    write(num_rep_42,*) 'file_dist_talus = ', file_dist_talus
-    write(num_rep_42,*) 'bmelt_dist0 = ', bmelt_dist0
-    write(num_rep_42,*)'/'                            
-    write(num_rep_42,428) '! bmelt_regions    :  fonte basale sous shelves pour les 18 regions initMIP'
-    write(num_rep_42,428) '! bmgrz_regions    :  fonte basale grounding zone pour les 18 regions initMIP'
-    write(num_rep_42,428) '! bmelt_talus & bmgrz_talus  :  fonte basale apres talus cont'
-    write(num_rep_42,428) '! bmelt_coef                 :  coef fonte (1 pour conserver val)'
-    write(num_rep_42,428) '! file_numer_ice-shelves     : fichier zones ice shelves'
-    write(num_rep_42,428) '! flag_dist : flag pour bmelt fnct distance talus'
-    write(num_rep_42,428) '! file_dist_talus : fichier de distance talus'
-    write(num_rep_42,428) '! bmelt_dist0 : coef de bmelt au talus'
-    write(num_rep_42,*)
+    write(num_rep_42,'(A)') '!  module bmelt_ant_regions_initmip '
+    write(num_rep_42,bmelt_ant_reg_initmip)                       
+    write(num_rep_42,'(A)') '! bmelt_regions    :  fonte basale sous shelves pour les 18 regions initMIP'
+    write(num_rep_42,'(A)') '! bmgrz_regions    :  fonte basale grounding zone pour les 18 regions initMIP'
+    write(num_rep_42,'(A)') '! bmelt_talus & bmgrz_talus  :  fonte basale apres talus cont'
+    write(num_rep_42,'(A)') '! bmelt_coef                 :  coef fonte (1 pour conserver val)'
+    write(num_rep_42,'(A)') '! file_numer_ice-shelves     : fichier zones ice shelves'
+    write(num_rep_42,'(A)') '! flag_dist : flag pour bmelt fnct distance talus'
+    write(num_rep_42,'(A)') '! file_dist_talus : fichier de distance talus'
+    write(num_rep_42,'(A)') '! bmelt_dist0 : coef de bmelt au talus'
+    write(num_rep_42,'(A)')'!_______________________________________________________________________'
 
 
@@ -138 +124 @@
   read(num_param,bmelt_anom_initMIP)
 
-  write(num_rep_42,428)'!_______________________________________________________________________' 
-  write(num_rep_42,428)'!  module bmelt_ant_regions_initmip_mod                                 '
+  write(num_rep_42,'(A)')'!  module bmelt_ant_regions_initmip                                     '
   write(num_rep_42,bmelt_anom_initMIP)
-  write(num_rep_42,428)'! file_bmelt_anom   = fichier anomalie bmelt                            '
-  write(num_rep_42,428)'! bmelt_time        = 0:fixe, 1:anomalies                               '
-  write(num_rep_42,428)'!_______________________________________________________________________' 
+  write(num_rep_42,'(A)')'! file_bmelt_anom   = fichier anomalie bmelt                            '
+  write(num_rep_42,'(A)')'! bmelt_time        = 0:fixe, 1:anomalies                               '
+  write(num_rep_42,'(A)')'!_______________________________________________________________________' 
 
   if ( bmelt_time .eq. 1 ) then