Changeset 2461

Timestamp:

Mar 9, 2016, 1:23:07 PM (8 years ago)

Author:

fhourdin

Message:

Impression de la latitude et de la longitude en cas de plantage dans
dyn3dmeme/intergrd_loc

File:

• LMDZ5/trunk/libf/dyn3dmem/integrd_loc.F (modified) (1 diff)

LMDZ5/trunk/libf/dyn3dmem/integrd_loc.F

@@ -155 +155 @@
          write(lunout,*) " at node ij =", stop_it
          ! since ij=j+(i-1)*jjp1 , we have
-!         j=modulo(stop_it,jjp1)
-!         i=1+(stop_it-j)/jjp1
-!         write(lunout,*) " lon = ",rlonv(i)*180./pi, " deg",
-!     &                   " lat = ",rlatu(j)*180./pi, " deg"
+          j=modulo(stop_it,jjp1)
+          i=1+(stop_it-j)/jjp1
+          write(lunout,*) " lon = ",rlonv(i)*180./pi, " deg",
+     &                    " lat = ",rlatu(j)*180./pi, " deg"
          call abort_gcm("integrd_loc", "negative surface pressure", 1)
       ENDIF