Changeset 8557 for branches/ORCHIDEE_2_2/ORCHIDEE

Timestamp:

2024-05-15T11:56:34+02:00 (8 months ago)

Author:

josefine.ghattas

Message:

Added print for pixel and lat/lon as done in the trunk. This is usefull information printed only once.

File:

• branches/ORCHIDEE_2_2/ORCHIDEE/src_sechiba/sechiba.f90 (modified) (1 diff)

branches/ORCHIDEE_2_2/ORCHIDEE/src_sechiba/sechiba.f90

@@ -1501 +1501 @@
     !! Initialize local printlev
     printlev_loc=get_printlev('sechiba')
-    
+   
+    ! Print usefull information necessary for identifying a problem pixel.
+    ! It is good to leave this in here.  It is only written out once,
+    IF (printlev>=1) THEN
+       DO ji=1,kjpindex
+          WRITE(numout,'(A,I6,10F20.10)') 'pixel number to lat/lon: ', ji, lalo(ji,1:2)
+       END DO
+    END IF
+
 
     !! 1.1 Initialize 3D vegetation indexation table