Changeset 4584 for LMDZ6/branches/Portage_acc/libf/dynphy_lonlat
- Timestamp:
- Jun 23, 2023, 4:10:41 PM (13 months ago)
- Location:
- LMDZ6/branches/Portage_acc/libf/dynphy_lonlat
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Portage_acc/libf/dynphy_lonlat/calfis.F
r4056 r4584 186 186 write(lunout,*) ' ngridmx jjm iim ' 187 187 write(lunout,*) ngridmx,jjm,iim 188 STOP188 call abort_gcm("calfis", "", 1) 189 189 ENDIF 190 190 ELSE -
LMDZ6/branches/Portage_acc/libf/dynphy_lonlat/calfis_loc.F
r4056 r4584 262 262 write(lunout,*) ' ngridmx jjm iim ' 263 263 write(lunout,*) ngridmx,jjm,iim 264 STOP264 call abort_gcm("calfis_loc", "", 1) 265 265 ENDIF 266 266 c$OMP MASTER … … 1218 1218 1219 1219 #else 1220 write(lunout,*) 1221 & "calfis_p: for now can only work with parallel physics" 1222 stop 1220 call abort_gcm("calfis_loc", 1221 & "calfis_p: for now can only work with parallel physics", 1) 1223 1222 #endif 1224 1223 ! of #ifdef CPP_PHYS -
LMDZ6/branches/Portage_acc/libf/dynphy_lonlat/gr_dyn_fi.F
r2239 r4584 22 22 c ------- 23 23 24 IF(ngrid.NE.2+(jm-2)*(im-1)) STOP 'probleme de dim' 24 IF (ngrid.NE.2+(jm-2)*(im-1)) then 25 call abort_gcm("gr_dyn_fi", 'probleme de dim', 1) 26 end if 25 27 c traitement des poles 26 28 CALL SCOPY(nfield,pdyn,im*jm,pfi,ngrid) -
LMDZ6/branches/Portage_acc/libf/dynphy_lonlat/phylmd/limit_netcdf.F90
r4446 r4584 599 599 CALL pchfe_95(timeyear, champtime(i, j, :), yder, skip, & 600 600 arth(0.5, real(ndays_in) / ndays, ndays), champan(i, j, :), ierr) 601 if (ierr < 0) stop 1601 if (ierr < 0) call abort_physic("get_2Dfield", "", 1) 602 602 n_extrap = n_extrap + ierr 603 603 END DO
Note: See TracChangeset
for help on using the changeset viewer.