- Timestamp:
- Mar 9, 2016, 1:23:07 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/dyn3dmem/integrd_loc.F
r2286 r2461 155 155 write(lunout,*) " at node ij =", stop_it 156 156 ! since ij=j+(i-1)*jjp1 , we have 157 !j=modulo(stop_it,jjp1)158 !i=1+(stop_it-j)/jjp1159 !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" 161 161 call abort_gcm("integrd_loc", "negative surface pressure", 1) 162 162 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.