Changeset 6574 for CONFIG/UNIFORM/v6/IPSLCM6.3/SOURCES/LMDZ/conf_phys_m.F90
- Timestamp:
- 07/26/23 11:18:58 (10 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
CONFIG/UNIFORM/v6/IPSLCM6.3/SOURCES/LMDZ/conf_phys_m.F90
r6571 r6574 34 34 use config_ocean_skin_m, only: config_ocean_skin 35 35 USE phys_state_var_mod, ONLY: phys_tstep 36 USE infotrac_phy, ONLY: type_trac 36 37 37 38 INCLUDE "conema3.h" … … 2820 2821 2821 2822 ! Test on chemistry cycle 2822 IF ( type_trac .ne. inca.AND. dms_cycle_cpl ) THEN2823 IF ((type_trac .ne. "inca" .AND. type_trac .ne. "inco") .AND. dms_cycle_cpl ) THEN 2823 2824 CALL abort_physic('conf_phys', 'dms_cycle_cpl has to be TRUE only with INCA coupling model',1) 2824 2825 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.