Changeset 2311 for LMDZ5/trunk/libf/phylmd/surf_land_orchidee_mod.F90
- 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_mod.F90
r2240 r2311 45 45 USE carbon_cycle_mod, ONLY : carbon_cycle_cpl 46 46 USE indice_sol_mod 47 47 USE print_control_mod, ONLY: lunout 48 48 ! 49 49 ! Cette routine sert d'interface entre le modele atmospherique et le … … 100 100 INCLUDE "temps.h" 101 101 INCLUDE "YOMCST.h" 102 INCLUDE "iniprint.h"103 102 INCLUDE "dimensions.h" 104 103 … … 210 209 #ifndef CPP_VEGET 211 210 abort_message='Pb de coherence: ok_veget = .true. mais CPP_VEGET = .false.' 212 CALL abort_ gcm(modname,abort_message,1)211 CALL abort_physic(modname,abort_message,1) 213 212 #endif 214 213 … … 244 243 IF (error /= 0) THEN 245 244 abort_message='Pb allocation lalo' 246 CALL abort_ gcm(modname,abort_message,1)245 CALL abort_physic(modname,abort_message,1) 247 246 ENDIF 248 247 ENDIF … … 251 250 IF (error /= 0) THEN 252 251 abort_message='Pb allocation lon_scat' 253 CALL abort_ gcm(modname,abort_message,1)252 CALL abort_physic(modname,abort_message,1) 254 253 ENDIF 255 254 ENDIF … … 258 257 IF (error /= 0) THEN 259 258 abort_message='Pb allocation lat_scat' 260 CALL abort_ gcm(modname,abort_message,1)259 CALL abort_physic(modname,abort_message,1) 261 260 ENDIF 262 261 ENDIF … … 298 297 IF (error /= 0) THEN 299 298 abort_message='Pb allocation neighbours' 300 CALL abort_ gcm(modname,abort_message,1)299 CALL abort_physic(modname,abort_message,1) 301 300 ENDIF 302 301 ENDIF … … 306 305 IF (error /= 0) THEN 307 306 abort_message='Pb allocation contfrac' 308 CALL abort_ gcm(modname,abort_message,1)307 CALL abort_physic(modname,abort_message,1) 309 308 ENDIF 310 309 ENDIF … … 324 323 IF (error /= 0) THEN 325 324 abort_message='Pb allocation resolution' 326 CALL abort_ gcm(modname,abort_message,1)325 CALL abort_physic(modname,abort_message,1) 327 326 ENDIF 328 327 ENDIF … … 336 335 IF (error /= 0) THEN 337 336 abort_message='Pb allocation coastalflow' 338 CALL abort_ gcm(modname,abort_message,1)337 CALL abort_physic(modname,abort_message,1) 339 338 ENDIF 340 339 … … 342 341 IF (error /= 0) THEN 343 342 abort_message='Pb allocation riverflow' 344 CALL abort_ gcm(modname,abort_message,1)343 CALL abort_physic(modname,abort_message,1) 345 344 ENDIF 346 345 ! … … 349 348 IF (carbon_cycle_cpl) THEN 350 349 abort_message='carbon_cycle_cpl not yet possible with this interface of ORCHIDEE' 351 CALL abort_ gcm(modname,abort_message,1)350 CALL abort_physic(modname,abort_message,1) 352 351 END IF 353 352
Note: See TracChangeset
for help on using the changeset viewer.