Changeset 34 for trunk/SOURCES/GrIce2sea_files

Timestamp:

01/19/16 15:53:01 (8 years ago)

Author:

dumas

Message:

Ajout du module Ant40_files/bmelt-ant-regions-oce_mod.f90 pour forcer la fonte basale avec des fichiers de temperature oceanique (M2 Ning) | lecture fichier netcdf pour Antarctique | Ajout dans les sortie de ghf : flux geothermique | climat_GrIce2sea_years_mod.f90 : lecture de smb et Tann au lieu de z | correction bug sorties Netdf dans initial-0.3.f90

File:

• trunk/SOURCES/GrIce2sea_files/climat_GrIce2sea_years_mod.f90 (modified) (4 diffs)

trunk/SOURCES/GrIce2sea_files/climat_GrIce2sea_years_mod.f90

@@ -16 +16 @@
 
 
-use module3d_phy,only: nx,ny,S,S0,H,Bsoc,acc,abl,BM,Tann,Tjuly,Ts,time,dt,num_param,num_rep_42,dirnameinp
+use module3d_phy,only: nx,ny,S,S0,H,Bsoc,acc,abl,BM,Tann,Tjuly,Ts,time,dt,num_param,num_rep_42,dirnameinp,coefbmshelf
 !use lect_climref_Ice2sea
 use netcdf
@@ -104 +104 @@
   smb_file  = trim(dirnameinp)//trim(smb_file)
 
-  call Read_Ncdf_var('z',smb_file,tab)
+  call Read_Ncdf_var('smb',smb_file,tab)
 
 !  call lect_input(3,'smb',1,bm,smb_file,trim(dirnameinp)//trim(runname)//'.nc')
@@ -132 +132 @@
   temp_annual_file = trim(dirnameinp)//trim(temp_annual_file)
 
-  call Read_Ncdf_var('z',temp_annual_file,tab)
+  call Read_Ncdf_var('Tann',temp_annual_file,tab)
   Tann(:,:)  = tab(:,:)
 !  call lect_input(3,'Tann',1,Tann,temp_annual_file,trim(dirnameinp)//trim(runname)//'.nc')
@@ -284 +284 @@
      call init_grad_smb
   endif
+! coefbmshelf coefficient pour la fusion basale sous les ice shelves
+! ici pas d'evolution temporelle donc coefbmshelf est fixe
+  coefbmshelf=1.
 
   return