Changeset 6574 for CONFIG/UNIFORM/v6/IPSLCM6.3/SOURCES/LMDZ
- Timestamp:
- 07/26/23 11:18:58 (11 months ago)
- Location:
- CONFIG/UNIFORM/v6/IPSLCM6.3/SOURCES/LMDZ
- Files:
-
- 2 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 -
CONFIG/UNIFORM/v6/IPSLCM6.3/SOURCES/LMDZ/oasis.F90
r6571 r6574 360 360 361 361 #ifdef INCA 362 if(dms_cycle_cpl) THEN362 IF (dms_cycle_cpl) THEN 363 363 CALL init_inca_oasis(inforecv(idr_ocedms)) 364 ENDIF 364 365 #endif 365 366
Note: See TracChangeset
for help on using the changeset viewer.