Changeset 13

Timestamp:

04/15/15 17:33:41 (9 years ago)

Author:

dumas

Message:

Region Greeneem15 validee. Correction de bug sur les sorties NetCDF. output_hemin40_mod-0.4.f90 devient output_hemin40_mod.f90

Location:

trunk/SOURCES

Files:

• Fichiers-parametres/greeneem15_LISTE-VAR-NETCDF.dat (added)
• Fichiers-parametres/greeneem15_TEMPS-NETCDF.dat (added)
• Greeneem_files/Greeneem15_files/paradim-greeneem15_mod.f90 (modified) (1 diff)
• Greeneem_files/fake-routines-greeneem_mod.f90 (modified) (2 diffs)
• Greeneem_files/lect-greeneem_mod.f90 (modified) (2 diffs)
• Greeneem_files/module_choix-greeneem.f90 (modified) (9 diffs)
• Hemin40_files/module_choix-hemin40-0.4.f90 (modified) (1 diff)
• Hemin40_files/output_hemin40_mod-0.4.f90 (deleted)
• Hemin40_files/output_hemin40_mod.f90 (added)
• Makefile.grisli.inc (modified) (4 diffs)
• Netcdf-routines/sortie_netcdf_GRISLI_mod.0.2-hassine.f90 (modified) (2 diffs)

trunk/SOURCES/Greeneem_files/Greeneem15_files/paradim-greeneem15_mod.f90

@@ -8 +8 @@
 ! character
 character(len=10),  parameter  ::  geoplace='greeneem15'
-character(len=20), parameter  :: dirnameinp='../INPUT/GREENEEM15/' ! input directory
-character(len=17), parameter  :: dirforcage='../INPUT/Forcage/' ! input directory
+character(len=23), parameter  :: dirnameinp='../../INPUT/GREENEEM15/' ! input directory
+character(len=20), parameter  :: dirforcage='../../INPUT/Forcage/' ! input directory
 
 ! dimensionnement grilles

trunk/SOURCES/Greeneem_files/fake-routines-greeneem_mod.f90

@@ -4 +4 @@
 
 use module3d_phy
-use deformation_mod_2lois 
-
 implicit none
 
@@ -28 +26 @@
 end subroutine track_change_T
 
+!____________________________________________________
+subroutine time_step_recul
+
+if (itracebug.eq.1)  call tracebug(' Entree dans routine fake time_step_recul')
+! quand on n'utilise pas le recul
+end subroutine time_step_recul
+
 end module fake_greeneem
 !

trunk/SOURCES/Greeneem_files/lect-greeneem_mod.f90

@@ -9 +9 @@
 character(len=100) :: ghf_fich       ! fichier grille
 character(len=100) :: filin
-real,dimension(nx,ny) ::  xcc , ycc      ! coordonnees en m
 real, dimension(nx,ny,5) :: bidon        ! pour l'appel a courbure
 !real :: ghf0                             ! flux geothermique constant en mW/m2
@@ -32 +31 @@
 write(num_rep_42,'(A,A)')   'topo_dep  =', topo_dep
 write(num_rep_42,'(A,A)')   'grid_topo =', grid_topo
-write(num_rep_42,*)         'ghf0      =', ghf_fich
+write(num_rep_42,*)         'ghf_fich  =', ghf_fich
 write(num_rep_42,*)'/'                      
 write(num_rep_42,428) '! topo_ref= topo actuelle'
 write(num_rep_42,428) '! ghf0 flux geothermique en mW/m2'
+write(num_rep_42,428) '! grid_topo : fichier i,j,x,y,lon,lat'
+write(num_rep_42,428) '! ghf_fich  : fichier flux geothermique'
 write(num_rep_42,*)
 

trunk/SOURCES/Greeneem_files/module_choix-greeneem.f90

@@ -1 @@
-!
-!
-!  Ce module permet de choisir quels package on veut utiliser
-!
+!> \file module_choix-greeneem.f90
+!!  Ce module permet de choisir quels package on veut utiliser
+! 
+! Adapte a nouvelle version GRISLI C. DUMAS 04/2015
 !
 !
@@ -15 +15 @@
 
 !version mensuelle :
-use lect_clim_act_greeneem_mois  ! version standard
+!!!!!use lect_clim_act_greeneem_mois  ! version standard
 !use lect_clim_act_greeneem_mois_lapsecouche ! attention a choisir climat perturb lapsecouche
 !-------------------
@@ -24 +24 @@
 !-------------------
 
-!--------------Lecture climat perturb ---------------
+!--------------Module climat ---------------
+!use climat_forcage_mois_mod ! forcage mensuel GCM 1 Snapshot Fev 2015
+use climat_Grice2sea_years_mod ! forcage avec SMB type MAR Fev2015
 
-! je vais utiliser uniquement climat_forcage_mois_mod
+! Anciens modules pas encore valides
+!!!!!!use climat_perturb_mod ! pour simule climat equilibre type Loveclim
+!!!!!!use climat_forcage_stat_mois_mod  ! climat constant mensuel GCMs
+!!!!!!use climat_forcage_mod ! pour cycle force GCM avec index
+!!!!!!use climat_forcage_insolation_mod ! methode JB multi-snapshots mensuelle mais pour un etat stationnaire avec correction topo GCM => GRISLI
+!!!!!!use climat_synthes_mod
+!!!!!!use climat_profil_mod
+!!!!!!use climat_regions_delta
 
-!version mensuelle :
-use ablation_month
-!use ablation_month_lapsecouche
-use climat_perturb_mois_mod
-!use climat_perturb_mois_lapsecouche_mod
-!use climat_forcage_mois_mod ! pas encore vraiment operationnel
-!------------------
-
-! version annuelle :
-!use ablation_ann          ! le module pdd base sur Tann et Tjuly
-!use climat_perturb_mod
-!---------------------
-
+!use ablation_mod ! calcul de l'ablation (PDD ou autre methode)
+use no_ablation  ! pas de calcul de l'ablation => lecture fichier SMB (necessaire avec climat_Grice2sea_years_mod)
 
 ! pas de lacs proglaciaires
@@ -46 +44 @@
 
 ! suivi des traceurs ou pas ?
-use tracer_mod
-!use notracer_mod
-
+!use tracer_mod  ! probablement pas compatible avec Hemin-40 actuellement
+use notracer_mod
 
 !--------------Choix isostasie----------------------
- use isostasie_mod  ! module permettant de calculer la deflexion isostasique
+use isostasie_mod  ! module permettant de calculer la deflexion isostasique
 ! use noisostasie_mod ! module pour ne pas avoir d'isostasie
-
 
 !--------------Module Physique---------------------
@@ -60 +56 @@
 !--------------Module propriete thermique de la glace
 use  prop_thermiques_ice
-! use prop_therm_ice_heino
 
 ! eau basale
@@ -74 +69 @@
 ! use dragging_hwatstream
 !use dragging_hwat_cont
-!use dragging_hwat_contmaj          !version neem sans streams
-use dragging_neem               ! neem avec streamsn,masque offline
+use dragging_hwat_contmaj          !version neem sans streams
+!use dragging_neem               ! neem avec streamsn,masque offline
 
 !------------ spinup -----------------------------------
@@ -81 +76 @@
 !use spinup_vitbil         ! plusieurs variantes de spinup : inclue le dragging
                           ! enlever le use dragging dans ce cas là
-
-
-! module concernant l'eq. elliptique (pour les streams et shelves)
 
 ! use eq_elliptique_mod ! ancienne version (remplimat-5)
@@ -97 +89 @@
 
 !--------------Fusion basale------------------------
-use  bmelt_seuil_prof
+use bmelt_seuil_prof
 ! use bmelt_ant_regions ! pour l'Antarctique avec régions
 ! USE BMELT_NOR_REGIONS ! pour le nord avec régions
@@ -116 +108 @@
 
 !-----Suivi temporel
-! use output_heminord_mod
  use output_greeneem_mod
-! use output_heino
+
 !-----debugage...
 use printtable

trunk/SOURCES/Hemin40_files/module_choix-hemin40-0.4.f90

@@ -45 +45 @@
 ! use  climat_heino
 
-!--------------Lecture climat forcage---------------
+!--------------Module climat ---------------
+!use climat_forcage_mois_mod ! forcage mensuel GCM 1 Snapshot Fev 2015
+use climat_Grice2sea_years_mod ! forcage avec SMB type MAR Fev2015
 
-!use climat_perturb_mod ! pour simule climat equilibre type Loveclim
-!use climat_forcage_stat_mois_mod  ! climat constant mensuel GCMs
-!use climat_forcage_mod ! pour cycle force GCM avec index
-!!!use climat_forcage_mois_mod ! forcage mensuel GCM 1 Snapshot Fev 2015
-! use climat_forcage_insolation_mod ! methode JB multi-snapshots mensuelle mais pour un etat stationnaire avec correction topo GCM => GRISLI
-!use climat_synthes_mod
-!use climat_profil_mod
-!use climat_regions_delta
-use climat_Grice2sea_years_mod 
+! Anciens modules pas encore valides
+!!!!!!use climat_perturb_mod ! pour simule climat equilibre type Loveclim
+!!!!!!use climat_forcage_stat_mois_mod  ! climat constant mensuel GCMs
+!!!!!!use climat_forcage_mod ! pour cycle force GCM avec index
+!!!!!!use climat_forcage_insolation_mod ! methode JB multi-snapshots mensuelle mais pour un etat stationnaire avec correction topo GCM => GRISLI
+!!!!!!use climat_synthes_mod
+!!!!!!use climat_profil_mod
+!!!!!!use climat_regions_delta
 
 !use ablation_mod ! calcul de l'ablation (PDD ou autre methode)

trunk/SOURCES/Makefile.grisli.inc

@@ -203 +203 @@
         track_hemin40_mod.o
 
+Liste_greeneem15 = output_greeneem_mod-0.4.o \
+        lect-greeneem_mod.o \
+        dragging_neem_mod.o \
+        fake-routines-greeneem_mod.o \
+        module_choix-greeneem.o \
+        track_greeneem_mod.o 
+
 Liste_eura40 = output_eurasie40_mod-0.1.o \
         lect-eurasie_mod.o lakes-prescribed_mod-0.1.o \
@@ -216 +223 @@
 
 Liste_greeneem45 = output_greeneem_mod-0.4.o lect-clim-act-greeneem_mod.o \
-        lect-clim-act-greeneem_mar_mod.o \
-        dragging_neem_mod.o \
-        lect-clim-act-greeneem_mois_lapsecouche_mod.o \
-        lect-clim-act-greeneem_mois_mod.o lect-greeneem_mod.o \
-        massb_perturb_Tparam_greeneem.o \
-        fake-routines-greeneem_mod.o massb-ant_forcage-0.4.o \
-        module_choix-greeneem.o track_greeneem_mod.o 
-
-Liste_greeneem15 = output_greeneem_mod-0.4.o lect-clim-act-greeneem_mod.o \
         lect-clim-act-greeneem_mar_mod.o \
         dragging_neem_mod.o \
@@ -1528 +1526 @@
         $(routine_elliptiques) $(NCDF_LIB)  $(MKL_LIB)
 
+Greeneem15 : $(Dim_greeneem15) $(mod_dim_communs) \
+        $(toy_recul)  \
+        $(mod_communs) \
+        $(mod_clim_tof) \
+        $(mod_no_tracers) \
+        $(mod_ell) $(Liste_greeneem15) \
+        $(mod_post_geo) \
+        $(diagnoshelf) \
+        $(Liste_Netcdf) \
+        $(routines_communes) steps_time_loop.o \
+        $(routine_elliptiques) 
+
+        $(LK) -o ../bin/Greeneem15 \
+        $(Dim_greeneem15) $(mod_dim_communs) \
+        $(toy_recul)  \
+        $(mod_communs) \
+        $(mod_clim_tof) \
+        $(mod_no_tracers) \
+        $(mod_ell) $(Liste_greeneem15) \
+        $(mod_post_geo) \
+        $(diagnoshelf) \
+        $(Liste_Netcdf) \
+        $(routines_communes) steps_time_loop.o \
+        $(routine_elliptiques) $(NCDF_LIB)  $(MKL_LIB)
+
+
 
 # attention : dans les geometries suivantes la liste module climat n'est pas donnee
@@ -1578 +1602 @@
         $(NCDF_LIB)  $(MKL_LIB)
 
-
-Greeneem15 : $(Dim_greeneem15) $(mod_dim_communs) $(mod_communs) $(mod_ell) $(Liste_greeneem15) \
-        $(diagnoshelf) $(Liste_Netcdf) $(routines_communes) $(routine_elliptiques) 
-
-        $(LK) -o ../bin/Greeneem15 $(Dim_greeneem15) $(mod_dim_communs) $(mod_communs) \
-        $(mod_ell) $(Liste_greeneem15) \
-        $(diagnoshelf) $(Liste_Netcdf) $(routines_communes) $(routine_elliptiques) \
-        $(NCDF_LIB)  $(MKL_LIB)
-
-
 Greeneem05 : $(Dim_greeneem05) $(mod_dim_communs) $(mod_communs) \
         $(mod_ell) $(Liste_greeneem05) \

trunk/SOURCES/Netcdf-routines/sortie_netcdf_GRISLI_mod.0.2-hassine.f90

@@ -557 +557 @@
 
     else 
-
        nrecs(posis)=1
        idef(posis,:)=0
@@ -568 +567 @@
        write (class,'(i2.2)') class_var_out(posis)
 
-       basename(posis)=trim(dirnameout)//'Netcdf-Resu/'//runname//'_class'//class//'_'//numero
+       !basename(posis)=trim(dirnameout)//'Netcdf-Resu/'//runname//'_class'//class//'_'//numero
+       basename(posis)=trim(dirnameout)//runname//'_class'//class//'_'//numero
        fil_sortie(posis)=trim(basename(posis))//'.nc'
        ! 4 go a  revoir