Changeset 2461 for LMDZ5


Ignore:
Timestamp:
Mar 9, 2016, 1:23:07 PM (9 years ago)
Author:
fhourdin
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/dyn3dmem/integrd_loc.F

    r2286 r2461  
    155155         write(lunout,*) " at node ij =", stop_it
    156156         ! since ij=j+(i-1)*jjp1 , we have
    157 !         j=modulo(stop_it,jjp1)
    158 !         i=1+(stop_it-j)/jjp1
    159 !         write(lunout,*) " lon = ",rlonv(i)*180./pi, " deg",
    160 !     &                   " lat = ",rlatu(j)*180./pi, " deg"
     157          j=modulo(stop_it,jjp1)
     158          i=1+(stop_it-j)/jjp1
     159          write(lunout,*) " lon = ",rlonv(i)*180./pi, " deg",
     160     &                    " lat = ",rlatu(j)*180./pi, " deg"
    161161         call abort_gcm("integrd_loc", "negative surface pressure", 1)
    162162      ENDIF
Note: See TracChangeset for help on using the changeset viewer.