Changeset 93 for trunk/SOURCES/initial-phy-2.f90

Timestamp:

11/28/16 16:03:50 (8 years ago)

Author:

dumas

Message:

First version with Schoof flux parameterisation at the grounding line. | New module furst_schoof_mod.f90 | New flag Schoof in grdline namelist (see in SOURCES/Fichiers-parametres/A-LBq15_param_list_Schoof.dat)

File:

• trunk/SOURCES/initial-phy-2.f90 (modified) (3 diffs)

trunk/SOURCES/initial-phy-2.f90

@@ -11 +11 @@
 !!
 !<
-subroutine initial_phy()
+subroutine initial_phy
 
   !     **************************************************
@@ -27 +27 @@
 
   namelist/runpar/runname,icompteur,iout,reprcptr,itracebug,num_tracebug,comment_run
-  namelist/grdline/igrdline
+  namelist/grdline/igrdline,Schoof
   namelist/timesteps/dtmin,dtmax,dtt,testdiag,tbegin,tend
 
@@ -122 +122 @@
   write(num_rep_42,*)
   write(num_rep_42,*) 'igrdline     = ',igrdline
+  write(num_rep_42,*) 'Schoof       = ',Schoof
   write(num_rep_42,*)'/'                           
-  write(num_rep_42,428)'! igrdline :  1 ligne d echouage fixée, sinon 0' 
+  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,*)