Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/dynetat0_loc.F90
- Timestamp:
- Jul 24, 2024, 2:54:37 PM (4 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Amaury_dev/libf/dyn3dmem/dynetat0_loc.F90
r5114 r5116 182 182 iqParent = tracers(iq)%iqParent 183 183 IF(tracers(iq)%iso_iZone == 0) THEN 184 if (tnat1) then184 if (tnat1) THEN 185 185 tnat=1.0 186 186 alpha_ideal=1.0 187 write(*,*) 'attention dans dynetat0: les alpha_ideal sont a 1'187 WRITE(*,*) 'attention dans dynetat0: les alpha_ideal sont a 1' 188 188 else 189 189 IF(getKey('tnat', tnat, isoName(iName)) .OR. getKey('alpha', alpha_ideal, isoName(iName))) &
Note: See TracChangeset
for help on using the changeset viewer.