Changeset 4241 for LMDZ6/trunk/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90
- Timestamp:
- Sep 9, 2022, 4:33:13 PM (22 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90
r4140 r4241 140 140 141 141 ! Initializations for Reprobus 142 IF ( type_trac == 'repr') THEN142 IF (ANY(types_trac == 'repr')) THEN 143 143 #ifdef REPROBUS 144 144 call Init_chem_rep_phys(klon_omp,nlayer) … … 151 151 152 152 153 IF ( type_trac == 'repr') THEN153 IF (ANY(types_trac == 'repr')) THEN 154 154 #ifdef REPROBUS 155 155 call init_reprobus_para( & … … 166 166 END IF 167 167 168 IF ( type_trac == 'inca' .OR. type_trac == 'inco') THEN168 IF (ANY(types_trac == 'inca') .OR. ANY(types_trac == 'inco')) THEN 169 169 #ifdef INCA 170 170 CALL init_inca_dim_reg(nbp_lon, nbp_lat - 1, &
Note: See TracChangeset
for help on using the changeset viewer.