Changeset 4191 for LMDZ6/trunk/libf/misc/readTracFiles_mod.f90
- Timestamp:
- Jun 30, 2022, 10:21:32 AM (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/misc/readTracFiles_mod.f90
r4169 r4191 1019 1019 !=== READ PHYSICAL PARAMETERS FROM "isotopes_params.def" FILE 1020 1020 ! DONE HERE, AND NOT ONLY IN "infotrac_phy", BECAUSE SOME PHYSICAL PARAMS ARE NEEDED FOR RESTARTS (tnat AND alpha_ideal) 1021 IF(readIsotopesFile('isotopes_params.def',isot)) CALL abort_gcm(modname,'Problem when reading isotopes parameters',1) 1021 IF(readIsotopesFile('isotopes_params.def',isot)) THEN 1022 STOP 'Problem when reading isotopes parameters in initIsotopes' 1023 ENDIF 1022 1024 1023 1025 END SUBROUTINE initIsotopes
Note: See TracChangeset
for help on using the changeset viewer.