Changeset 5217 for LMDZ6/trunk/libf/phylmd/pbl_surface_mod.F90
- Timestamp:
- Sep 23, 2024, 2:14:55 PM (5 weeks ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/pbl_surface_mod.F90
r5171 r5217 226 226 227 227 ALLOCATE(xtsnow(niso,klon,nbsrf), stat=ierr) 228 IF (ierr /= 0) CALL abort_ gcm('pbl_surface_init', 'pb in allocation',1)228 IF (ierr /= 0) CALL abort_physic('pbl_surface_init', 'pb in allocation',1) 229 229 230 230 ALLOCATE(Rland_ice(niso,klon), stat=ierr) 231 IF (ierr /= 0) CALL abort_ gcm('pbl_surface_init', 'pb in allocation',1)231 IF (ierr /= 0) CALL abort_physic('pbl_surface_init', 'pb in allocation',1) 232 232 233 233 ALLOCATE(Roce(niso,klon), stat=ierr) 234 IF (ierr /= 0) CALL abort_ gcm('pbl_surface_init', 'pb in allocation',1)234 IF (ierr /= 0) CALL abort_physic('pbl_surface_init', 'pb in allocation',1) 235 235 236 236 xtsnow(:,:,:) = xtsnow_rst(:,:,:) … … 2265 2265 ELSE IF (iflag_split .ge. 1) THEN 2266 2266 #ifdef ISO 2267 call abort_ gcm('pbl_surface_mod 2149','isos pas encore dans iflag_split=1',1)2267 call abort_physic('pbl_surface_mod 2149','isos pas encore dans iflag_split=1',1) 2268 2268 #endif 2269 2269 … … 2749 2749 IF (iflag_split .GE. 1) THEN 2750 2750 #ifdef ISO 2751 call abort_ gcm('pbl_surface_mod 2607','isos pas encore dans iflag_split=1',1)2751 call abort_physic('pbl_surface_mod 2607','isos pas encore dans iflag_split=1',1) 2752 2752 #endif 2753 2753 !
Note: See TracChangeset
for help on using the changeset viewer.