Changeset 713 for trunk/MESOSCALE/LMD_MM_MARS/SRC

Timestamp:

Jul 1, 2012, 1:39:27 PM (12 years ago)

Author:

aslmd

Message:

MESOSCALE: left an example in geogrid sources on how to tweek topography (Gale central mound)

File:

• trunk/MESOSCALE/LMD_MM_MARS/SRC/WPS/geogrid/src/process_tile_module.F90 (modified) (1 diff)

trunk/MESOSCALE/LMD_MM_MARS/SRC/WPS/geogrid/src/process_tile_module.F90

@@ -1346 +1346 @@
 
                 field(:,:,:)=field(:,:,:)-9000.         
+
+!            !field(86:92,86:92,1)=field(86,86,1)
+!            
+!            !field(82:96,83:90,1)=field(82,90,1)
+!            field(81:96,83:90,1)=field(82,90,1)
+!            field(82:96,83:87,1)=field(82,90,1)+500.
+!            field(86:92,93:94,1)=field(82,90,1)-200.
+!            field(84:94,91:92,1)=field(82,90,1)-100.
+!
+!            !!field(89,87,1)=field(86,86,1) + 3290.
+!            !field(88:89,86:87,1)=field(86,86,1) + 4000.
+!            
+!            !field(88:89,85:86,1)=field(85,85,1) + 3500.
+!            field(88,84,1)=field(84,84,1) + 18000.
+!
+!            !!field(88:89,87:88,1)=field(86,86,1) + 5000.
+!
+!            !!field(87,86:87,1)=field(86,86:87,1)
+!            !!field(89,86:87,1)=field(90,86:87,1)
+!            !!field(88:89,85,1)=field(88:89,84,1)
+!            !!field(88:89,88,1)=field(88:89,89,1)
+!
+!            !!field(86:92,92,1)=field(86:92,93,1)
+
         
         !print *,'OK'