Changeset 4638 for LMDZ6/trunk/libf
- Timestamp:
- Jul 21, 2023, 10:42:49 AM (15 months ago)
- Location:
- LMDZ6/trunk/libf
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/dyn3d_common/infotrac.F90
r4523 r4638 162 162 TYPE(trac_type), POINTER :: t1, t(:) 163 163 INTEGER :: ierr 164 CHARACTER(LEN=maxlen), ALLOCATABLE :: types_trac(:) !--- Keyword for tracers type(s), parsed version 164 165 165 166 CHARACTER(LEN=*), PARAMETER :: modname="init_infotrac" … … 175 176 CALL msg('type_trac = "'//TRIM(type_trac)//'"', modname) 176 177 178 lerr=strParse(type_trac, '|', types_trac, n=nt) 179 IF (nt .GT. 1) THEN 180 IF (nt .GT. 2) CALL abort_gcm(modname, 'you need to modify type_trac, this version is not supported by lmdz', 1) 181 if (nt .EQ. 2) type_trac=types_trac(2) 182 ENDIF 183 184 185 177 186 !--- MESSAGE ABOUT THE CHOSEN CONFIGURATION 178 187 msg1 = 'For type_trac = "'//TRIM(type_trac)//'":' -
LMDZ6/trunk/libf/phylmd/infotrac_phy.F90
r4636 r4638 188 188 TYPE(trac_type), POINTER :: t1, t(:) 189 189 INTEGER :: ierr 190 190 CHARACTER(LEN=maxlen), ALLOCATABLE :: types_trac(:) !--- Keyword for tracers type(s), parsed version 191 191 192 CHARACTER(LEN=*), PARAMETER :: modname="init_infotrac_phy" 192 193 !------------------------------------------------------------------------------------------------------------------------------ … … 200 201 201 202 CALL getin_p('type_trac',type_trac) 203 204 lerr=strParse(type_trac, '|', types_trac, n=nt) 205 IF (nt .GT. 1) THEN 206 IF (nt .GT. 2) CALL abort_physic(modname, 'you need to modify type_trac, this version is not supported by lmdz', 1) 207 IF (nt .EQ. 2) type_trac=types_trac(2) 208 ENDIF 209 210 202 211 CALL msg('type_trac = "'//TRIM(type_trac)//'"', modname) 203 212 lInit = .NOT.ALLOCATED(tracers)
Note: See TracChangeset
for help on using the changeset viewer.