Changeset 2311 for LMDZ5/trunk/libf/phylmd/phytrac_mod.F90
- Timestamp:
- Jun 25, 2015, 9:45:24 AM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/phytrac_mod.F90
r2284 r2311 101 101 102 102 USE mod_phys_lmdz_mpi_data, ONLY : is_mpi_root 103 USE print_control_mod, ONLY: lunout 103 104 104 105 IMPLICIT NONE … … 110 111 INCLUDE "paramet.h" 111 112 INCLUDE "thermcell.h" 112 INCLUDE "iniprint.h"113 113 !========================================================================== 114 114 ! -- ARGUMENT DESCRIPTION -- … … 445 445 WRITE(*,*) 'FIRST TIME IN PHYTRAC : pdtphys(sec) = ',pdtphys,'ecrit_tra (sec) = ',ecrit_tra 446 446 ALLOCATE( source(klon,nbtr), stat=ierr) 447 IF (ierr /= 0) CALL abort_ gcm('phytrac', 'pb in allocation 1',1)447 IF (ierr /= 0) CALL abort_physic('phytrac', 'pb in allocation 1',1) 448 448 449 449 ALLOCATE( aerosol(nbtr), stat=ierr) 450 IF (ierr /= 0) CALL abort_ gcm('phytrac', 'pb in allocation 2',1)450 IF (ierr /= 0) CALL abort_physic('phytrac', 'pb in allocation 2',1) 451 451 452 452 … … 503 503 ! ELSE 504 504 ! WRITE(lunout,*) 'pb it=', it 505 ! CALL abort_ gcm('phytrac','pb it scavenging',1)505 ! CALL abort_physic('phytrac','pb it scavenging',1) 506 506 ! ENDIF 507 507 !--test OB … … 539 539 540 540 IF (lessivage.AND.config_inca.EQ.'inca') THEN 541 CALL abort_ gcm('phytrac', 'lessivage=T config_inca=inca impossible',1)541 CALL abort_physic('phytrac', 'lessivage=T config_inca=inca impossible',1) 542 542 STOP 543 543 ENDIF … … 740 740 ELSE 741 741 ! 742 CALL abort_ gcm('iflag_vdf_trac', 'cas non prevu',1)742 CALL abort_physic('iflag_vdf_trac', 'cas non prevu',1) 743 743 ! 744 744 END IF ! couche limite
Note: See TracChangeset
for help on using the changeset viewer.