Changeset 2160 for LMDZ5/branches/testing/libf/dyn3dpar/integrd_p.F
- Timestamp:
- Nov 28, 2014, 4:36:29 PM (10 years ago)
- Location:
- LMDZ5/branches/testing
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/branches/testing
- Property svn:mergeinfo changed
/LMDZ5/trunk merged: 2072,2075-2115,2117-2126,2128-2158
- Property svn:mergeinfo changed
-
LMDZ5/branches/testing/libf/dyn3dpar/integrd_p.F
r1910 r2160 137 137 138 138 IF( .NOT. checksum ) THEN 139 write(lunout,*) "integrd: negative surface pressure ", 140 & ps(stop_it) 139 write(lunout,*) "integrd: ps = ", ps(stop_it) 141 140 write(lunout,*) " at node ij =", stop_it 142 141 ! since ij=j+(i-1)*jjp1 , we have … … 145 144 write(lunout,*) " lon = ",rlonv(i)*180./pi, " deg", 146 145 & " lat = ",rlatu(j)*180./pi, " deg" 146 call abort_gcm("integrd_p", "negative surface pressure", 1) 147 147 ENDIF 148 148
Note: See TracChangeset
for help on using the changeset viewer.