Changeset 153 for trunk/SOURCES

Timestamp:

11/08/17 11:40:10 (7 years ago)

Author:

aquiquet

Message:

Addition of a marais (floating points surrounded by grounded points) diagnostic

Location:

trunk/SOURCES

Files:

• Fichiers-parametres/anteis1_LISTE-VAR-NETCDF.dat (modified) (2 diffs)
• Netcdf-routines/Description_Variables.dat (modified) (1 diff)
• Netcdf-routines/sortie_netcdf_GRISLI_mod.0.2-hassine.f90 (modified) (1 diff)

trunk/SOURCES/Fichiers-parametres/anteis1_LISTE-VAR-NETCDF.dat

@@ -130 +130 @@
 dHdt            
 14
-0       1       1                       
+1       1       1                       
 -----------------------------------------------------------
 Tann            
@@ -319 +319 @@
 66
 0       1       1                                       
+-----------------------------------------------------------
+marais          
+67
+1       1       1                                       
 -----------------------------------------------------------
 Nefmx           

trunk/SOURCES/Netcdf-routines/Description_Variables.dat

@@ -550 +550 @@
 "xxx"           
 "flux eau selon y ^"
+------------------------------------------------------
+"flot_marais"
+67      "marais"                2
+"o"     
+"xxx"   
+"xxx"   
+"xxx"           
+"points flottants cernes par des points poses"
 ------------------------------------------------------
 "xxx"

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

@@ -931 +931 @@
                 if (itab.eq.66) then 
                    tab(:,:) = phiwy(:,:)
+                end if
+                if (itab.eq.67) then
+                   where (flot_marais(:,:))
+                      tab(:,:)=1
+                   elsewhere
+                      tab(:,:)=0
+                   end where
                 end if
                 if (itab.eq.68) then