Changeset 4389 for LMDZ6/trunk/libf/phydev
- Timestamp:
- Jan 23, 2023, 11:28:51 AM (20 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phydev/infotrac_phy.F90
r4244 r4389 7 7 INTEGER, SAVE :: nqtot !--- Tracers nb in dynamics (incl. higher moments + H2O) 8 8 CHARACTER(LEN=maxlen), SAVE :: type_trac !--- Keyword for tracers type 9 CHARACTER(LEN=maxlen), SAVE, ALLOCATABLE :: types_trac(:) !--- Parsed version (one or several components name(s)) 10 !$OMP THREADPRIVATE(nqtot, type_trac, types_trac) 9 !$OMP THREADPRIVATE(nqtot, type_trac) 11 10 12 11 CONTAINS 13 12 14 13 SUBROUTINE init_infotrac_phy(nqtot_, type_trac_) 15 USE strings_mod, ONLY: strParse16 14 IMPLICIT NONE 17 15 INTEGER, INTENT(IN) :: nqtot_ … … 20 18 21 19 nqtot = nqtot_ 22 IF(strParse(type_trac, '|', types_trac)) CALL abort_physic(modname,'can''t parse "type_trac = '//TRIM(type_trac)//'"',1)23 20 type_trac = type_trac_ 24 21
Note: See TracChangeset
for help on using the changeset viewer.