Changeset 3435 for LMDZ6/trunk/libf/phylmd/carbon_cycle_mod.F90
- Timestamp:
- Jan 22, 2019, 4:21:59 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/carbon_cycle_mod.F90
r3421 r3435 582 582 SUBROUTINE infocfields_init 583 583 584 USE control_mod, ONLY: planet_type584 ! USE control_mod, ONLY: planet_type 585 585 USE phys_cal_mod, ONLY : mth_cur 586 586 USE mod_synchro_omp … … 656 656 657 657 CHARACTER(len=*),parameter :: modname="infocfields" 658 659 CHARACTER(len=10),SAVE :: planet_type="earth" 658 660 659 661 !----------------------------------------------------------------------- … … 718 720 WRITE(lunout,*) 'abort_gcm --- nbcf_in : ',nbcf_in 719 721 WRITE(lunout,*) 'abort_gcm --- nbcf_out: ',nbcf_out 720 CALL abort_ gcm('infocfields_init','Problem in the definition of the coupling fields',1)722 CALL abort_physic('infocfields_init','Problem in the definition of the coupling fields',1) 721 723 ENDIF 722 724 ENDDO !DO iq=1,nbcf … … 836 838 837 839 ALLOCATE(fields_in(klon,nbcf_in),stat=error) 838 IF (error /= 0) CALL abort_ gcm(modname,'Pb in allocation fields_in',1)840 IF (error /= 0) CALL abort_physic(modname,'Pb in allocation fields_in',1) 839 841 ALLOCATE(yfields_in(klon,nbcf_in),stat=error) 840 IF (error /= 0) CALL abort_ gcm(modname,'Pb in allocation yfields_in',1)842 IF (error /= 0) CALL abort_physic(modname,'Pb in allocation yfields_in',1) 841 843 ALLOCATE(fields_out(klon,nbcf_out),stat=error) 842 IF (error /= 0) CALL abort_ gcm(modname,'Pb in allocation fields_out',1)844 IF (error /= 0) CALL abort_physic(modname,'Pb in allocation fields_out',1) 843 845 ALLOCATE(yfields_out(klon,nbcf_out),stat=error) 844 IF (error /= 0) CALL abort_ gcm(modname,'Pb in allocation yfields_out',1)846 IF (error /= 0) CALL abort_physic(modname,'Pb in allocation yfields_out',1) 845 847 846 848 END SUBROUTINE infocfields_init
Note: See TracChangeset
for help on using the changeset viewer.