Changeset 5754 for LMDZ6/trunk/libf/misc
- Timestamp:
- Jul 2, 2025, 4:26:06 PM (7 days ago)
- Location:
- LMDZ6/trunk/libf/misc
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/misc/readTracFiles_mod.f90
r5748 r5754 1 1 MODULE readTracFiles_mod 2 2 3 USE strings_mod, ONLY: msg, find, get_in, dispTable, strHead, strReduce, strFind, strStack, strIdx, & 3 USE ioipsl_getin_p_mod, ONLY : getin_p 4 USE strings_mod, ONLY: msg, find, dispTable, strHead, strReduce, strFind, strStack, strIdx, & 4 5 removeComment, cat, maxlen, checkList, strParse, strReplace, strTail, strCount, reduceExpr, & 5 6 num2str, str2int, str2real, str2bool … … 1163 1164 1164 1165 !--- GET THE isoCheck ENTRY FROM THE *.DEF FILES (MIGHT BE CHANGED TO A CLASS-DEPENDANT KEYWORD) 1165 CALL get _in('ok_iso_verif', isot(strIdx(isot%parent, 'H2O'))%check, .FALSE.)1166 CALL getin_p('ok_iso_verif', isot(strIdx(isot%parent, 'H2O'))%check, .FALSE.) 1166 1167 1167 1168 lerr = dispIsotopes() … … 1307 1308 1308 1309 !--- GET THE isoCheck ENTRY FROM THE *.DEF FILES (MIGHT BE CHANGED TO A CLASS-DEPENDANT KEYWORD) 1309 CALL get _in('ok_iso_verif', isoCheck, .TRUE.)1310 CALL getin_p('ok_iso_verif', isoCheck, .TRUE.) 1310 1311 1311 1312 !=== CHECK CONSISTENCY -
LMDZ6/trunk/libf/misc/strings_mod.f90
r5753 r5754 6 6 7 7 PRIVATE 8 PUBLIC :: maxlen, init_printout, msg, get_in,lunout, prt_level, maxTableWidth8 PUBLIC :: maxlen, init_printout, msg, lunout, prt_level, maxTableWidth 9 9 PUBLIC :: strLower, strHead, strStack, strCount, strReduce, strClean, strIdx 10 10 PUBLIC :: strUpper, strTail, strStackm, strParse, strReplace, strFind, find, duplicate, cat … … 13 13 PUBLIC :: reduceExpr, addQuotes, checkList, removeComment 14 14 15 INTERFACE get_in; MODULE PROCEDURE getin_s, getin_i, getin_r, getin_l; END INTERFACE get_in16 15 INTERFACE num2str; MODULE PROCEDURE bool2str, int2str, real2str, dble2str; END INTERFACE num2str 17 16 INTERFACE msg; MODULE PROCEDURE msg_1, msg_m; END INTERFACE msg … … 50 49 prt_level = prt_level_ 51 50 END SUBROUTINE init_printout 52 !==============================================================================================================================53 54 55 !==============================================================================================================================56 !=== Same as getin ; additional last argument: the default value.57 !==============================================================================================================================58 SUBROUTINE getin_s(nam, val, def)59 USE ioipsl, ONLY: getin60 IMPLICIT NONE61 CHARACTER(LEN=*), INTENT(IN) :: nam62 CHARACTER(LEN=*), INTENT(INOUT) :: val63 CHARACTER(LEN=*), INTENT(IN) :: def64 val = def; CALL getin(nam, val)65 IF(val/=def) WRITE(lunout,*)TRIM(nam)//' = '//TRIM(val)66 END SUBROUTINE getin_s67 !==============================================================================================================================68 SUBROUTINE getin_i(nam, val, def)69 USE ioipsl, ONLY: getin70 IMPLICIT NONE71 CHARACTER(LEN=*), INTENT(IN) :: nam72 INTEGER, INTENT(INOUT) :: val73 INTEGER, INTENT(IN) :: def74 val = def; CALL getin(nam, val)75 IF(val/=def) WRITE(lunout,*)TRIM(nam)//' = '//TRIM(num2str(val))76 END SUBROUTINE getin_i77 !==============================================================================================================================78 SUBROUTINE getin_r(nam, val, def)79 USE ioipsl, ONLY: getin80 IMPLICIT NONE81 CHARACTER(LEN=*), INTENT(IN) :: nam82 REAL, INTENT(INOUT) :: val83 REAL, INTENT(IN) :: def84 val = def; CALL getin(nam, val)85 IF(val/=def) WRITE(lunout,*)TRIM(nam)//' = '//TRIM(num2str(val))86 END SUBROUTINE getin_r87 !==============================================================================================================================88 SUBROUTINE getin_l(nam, val, def)89 USE ioipsl, ONLY: getin90 IMPLICIT NONE91 CHARACTER(LEN=*), INTENT(IN) :: nam92 LOGICAL, INTENT(INOUT) :: val93 LOGICAL, INTENT(IN) :: def94 val = def; CALL getin(nam, val)95 IF(val.NEQV.def) WRITE(lunout,*)TRIM(nam)//' = '//TRIM(num2str(val))96 END SUBROUTINE getin_l97 51 !============================================================================================================================== 98 52
Note: See TracChangeset
for help on using the changeset viewer.