Changeset 4389 for LMDZ6/trunk/libf/dyn3dmem
- Timestamp:
- Jan 23, 2023, 11:28:51 AM (20 months ago)
- Location:
- LMDZ6/trunk/libf/dyn3dmem
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/dyn3dmem/dynredem_loc.F90
r4172 r4389 176 176 USE mod_hallo 177 177 USE strings_mod, ONLY: maxlen 178 USE infotrac, ONLY: nqtot, tracers, type s_trac178 USE infotrac, ONLY: nqtot, tracers, type_trac 179 179 USE control_mod 180 180 USE netcdf, ONLY: NF90_OPEN, NF90_NOWRITE, NF90_GET_VAR, NF90_INQ_VARID, & … … 243 243 !$OMP MASTER 244 244 fil="start_trac.nc" 245 IF(ANY(type s_trac=='inca') .OR. ANY(types_trac=='inco')) INQUIRE(FILE=fil,EXIST=lread_inca)245 IF(ANY(type_trac == ['inca','inco'])) INQUIRE(FILE=fil,EXIST=lread_inca) 246 246 IF(lread_inca) CALL err(NF90_OPEN(fil,NF90_NOWRITE,nid_trac),"open") 247 247 !$OMP END MASTER -
LMDZ6/trunk/libf/dyn3dmem/leapfrog_loc.F
r4187 r4389 1519 1519 1520 1520 #ifdef INCA 1521 if (ANY(types_trac == 'inca') .OR. 1522 & ANY(types_trac == 'inco')) CALL finalize_inca 1521 if (ANY(type_trac == ['inca','inco'])) CALL finalize_inca 1523 1522 #endif 1524 1523 #ifdef REPROBUS 1525 if ( ANY(types_trac == 'repr')) CALL finalize_reprobus1524 if (type_trac == 'repr') CALL finalize_reprobus 1526 1525 #endif 1527 1526 … … 1569 1568 1570 1569 #ifdef INCA 1571 if (ANY(types_trac == 'inca') .OR. 1572 & ANY(types_trac == 'inco')) CALL finalize_inca 1570 if (ANY(type_trac == ['inca','inco'])) CALL finalize_inca 1573 1571 #endif 1574 1572 #ifdef REPROBUS 1575 if ( ANY(types_trac == 'repr')) CALL finalize_reprobus1573 if (type_trac == 'repr') CALL finalize_reprobus 1576 1574 #endif 1577 1575 … … 1737 1735 1738 1736 #ifdef INCA 1739 if (ANY(types_trac == 'inca') .OR. 1740 & ANY(types_trac == 'inco')) CALL finalize_inca 1737 if (ANY(type_trac == ['inca','inco'])) CALL finalize_inca 1741 1738 #endif 1742 1739 #ifdef REPROBUS 1743 if ( ANY(types_trac == 'repr')) CALL finalize_reprobus1740 if (type_trac == 'repr') CALL finalize_reprobus 1744 1741 #endif 1745 1742 … … 1845 1842 1846 1843 #ifdef INCA 1847 if (ANY(types_trac == 'inca') .OR. 1848 & ANY(types_trac == 'inco')) CALL finalize_inca 1844 if (ANY(type_trac == ['inca','inco'])) CALL finalize_inca 1849 1845 #endif 1850 1846 #ifdef REPROBUS 1851 if ( ANY(types_trac == 'repr')) CALL finalize_reprobus1847 if (type_trac == 'repr') CALL finalize_reprobus 1852 1848 #endif 1853 1849
Note: See TracChangeset
for help on using the changeset viewer.