Changeset 257 for branches/ORCHIDEE_EXT/ORCHIDEE/src_global/grid.f90

Timestamp:

2011-06-17T14:02:17+02:00 (13 years ago)

Author:

didier.solyga

Message:

Externalized version merged with the trunk

File:

• branches/ORCHIDEE_EXT/ORCHIDEE/src_global/grid.f90 (modified) (4 diffs)

branches/ORCHIDEE_EXT/ORCHIDEE/src_global/grid.f90

@@ -4 +4 @@
 !! @call sechiba_main
 !! @Version : $Revision: 1.8 $, $Date: 2009/01/28 08:32:45 $
+!! @Version : $Revision: 42 $, $Date: 2011-01-01 21:15:03 +0100 (Sat, 01 Jan 2011) $
 !! 
 !! $Header: /home/ssipsl/CVSREP/ORCHIDEE/src_global/grid.f90,v 1.8 2009/01/28 08:32:45 ssipsl Exp $
+!< $HeadURL: http://forge.ipsl.jussieu.fr/orchidee/svn/trunk/ORCHIDEE/src_global/grid.f90 $
+!< $Date: 2011-01-01 21:15:03 +0100 (Sat, 01 Jan 2011) $
+!< $Author: mmaipsl $
+!< $Revision: 42 $
 !!
 !! @author Marie-Alice Foujols, Jan Polcher and Martial Mancip
@@ -23 +28 @@
   ! default resolution (m)
   REAL(r_std), PARAMETER :: default_resolution = 250000.
-  !
   !
   ! VARIABLES
@@ -189 +193 @@
     ! =========================================================================
     
-
-
     IF ( bavard .GE. 4 ) WRITE(numout,*) 'Entering grid_stuff'
 
@@ -239 +241 @@
        ! initialize output
        neighbours_g(:,:) = -1
-       resolution_g(:,:) = 0.
+       resolution_g(:,:) = zero
        min_resol(:) = 1.e6
-       max_resol(:) = -1.
+       max_resol(:) = moins_un
        
        correspondance(:,:) = -1