- Timestamp:
- Jun 25, 2015, 9:45:24 AM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/surf_land_orchidee_noopenmp_mod.F90
r1958 r2311 102 102 INCLUDE "temps.h" 103 103 INCLUDE "YOMCST.h" 104 INCLUDE "iniprint.h"105 104 INCLUDE "dimensions.h" 106 105 … … 215 214 IF (carbon_cycle_cpl) THEN 216 215 abort_message='You must define preprossing key ORCH_NEW when running carbon_cycle_cpl=y' 217 CALL abort_ gcm(modname,abort_message,1)216 CALL abort_physic(modname,abort_message,1) 218 217 END IF 219 218 #endif … … 246 245 IF (error /= 0) THEN 247 246 abort_message='Pb allocation lalo' 248 CALL abort_ gcm(modname,abort_message,1)247 CALL abort_physic(modname,abort_message,1) 249 248 ENDIF 250 249 ENDIF … … 253 252 IF (error /= 0) THEN 254 253 abort_message='Pb allocation lon_scat' 255 CALL abort_ gcm(modname,abort_message,1)254 CALL abort_physic(modname,abort_message,1) 256 255 ENDIF 257 256 ENDIF … … 260 259 IF (error /= 0) THEN 261 260 abort_message='Pb allocation lat_scat' 262 CALL abort_ gcm(modname,abort_message,1)261 CALL abort_physic(modname,abort_message,1) 263 262 ENDIF 264 263 ENDIF … … 301 300 IF (error /= 0) THEN 302 301 abort_message='Pb allocation neighbours' 303 CALL abort_ gcm(modname,abort_message,1)302 CALL abort_physic(modname,abort_message,1) 304 303 ENDIF 305 304 ENDIF … … 309 308 IF (error /= 0) THEN 310 309 abort_message='Pb allocation contfrac' 311 CALL abort_ gcm(modname,abort_message,1)310 CALL abort_physic(modname,abort_message,1) 312 311 ENDIF 313 312 ENDIF … … 327 326 IF (error /= 0) THEN 328 327 abort_message='Pb allocation resolution' 329 CALL abort_ gcm(modname,abort_message,1)328 CALL abort_physic(modname,abort_message,1) 330 329 ENDIF 331 330 ENDIF … … 339 338 IF (error /= 0) THEN 340 339 abort_message='Pb allocation coastalflow' 341 CALL abort_ gcm(modname,abort_message,1)340 CALL abort_physic(modname,abort_message,1) 342 341 ENDIF 343 342 … … 345 344 IF (error /= 0) THEN 346 345 abort_message='Pb allocation riverflow' 347 CALL abort_ gcm(modname,abort_message,1)346 CALL abort_physic(modname,abort_message,1) 348 347 ENDIF 349 348 … … 359 358 IF (carbon_cycle_cpl) THEN 360 359 ALLOCATE(fco2_land_inst(klon),stat=error) 361 IF (error /= 0) CALL abort_ gcm(modname,'Pb in allocation fco2_land_inst',1)360 IF (error /= 0) CALL abort_physic(modname,'Pb in allocation fco2_land_inst',1) 362 361 363 362 ALLOCATE(fco2_lu_inst(klon),stat=error) 364 IF(error /=0) CALL abort_ gcm(modname,'Pb in allocation fco2_lu_inst',1)363 IF(error /=0) CALL abort_physic(modname,'Pb in allocation fco2_lu_inst',1) 365 364 END IF 366 365 367 366 ALLOCATE(fields_cpl(klon,nb_fields_cpl), stat = error) 368 IF (error /= 0) CALL abort_ gcm(modname,'Pb in allocation fields_cpl',1)367 IF (error /= 0) CALL abort_physic(modname,'Pb in allocation fields_cpl',1) 369 368 370 369 ENDIF ! (fin debut)
Note: See TracChangeset
for help on using the changeset viewer.