Changeset 4194 for LMDZ6


Ignore:
Timestamp:
Jul 6, 2022, 4:17:55 PM (2 years ago)
Author:
dcugnet
Message:

Remove useless "TARGET" attributes in getKeyByName_?m functions, because pointers are no longer used.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/misc/readTracFiles_mod.f90

    r4193 r4194  
    12261226  CHARACTER(LEN=*),                   INTENT(IN)  :: keyn
    12271227  CHARACTER(LEN=maxlen), ALLOCATABLE, INTENT(OUT) ::   val(:)
    1228   CHARACTER(LEN=*), TARGET, OPTIONAL, INTENT(IN)  :: tname(:)
    1229   TYPE(keys_type),  TARGET, OPTIONAL, INTENT(IN)  ::    ky(:)
     1228  CHARACTER(LEN=*),         OPTIONAL, INTENT(IN)  :: tname(:)
     1229  TYPE(keys_type),          OPTIONAL, INTENT(IN)  ::    ky(:)
    12301230  TYPE(keys_type),           POINTER :: k(:)
    12311231  CHARACTER(LEN=maxlen), ALLOCATABLE :: n(:)
    … …  
    12571257!==============================================================================================================================
    12581258LOGICAL FUNCTION getKeyByName_im(keyn, val, tname, ky) RESULT(lerr)
    1259   CHARACTER(LEN=*),                   INTENT(IN)  :: keyn
    1260   INTEGER,               ALLOCATABLE, INTENT(OUT) ::   val(:)
    1261   CHARACTER(LEN=*), TARGET, OPTIONAL, INTENT(IN)  :: tname(:)
    1262   TYPE(keys_type),  TARGET, OPTIONAL, INTENT(IN)  ::    ky(:)
     1259  CHARACTER(LEN=*),           INTENT(IN)  :: keyn
     1260  INTEGER,       ALLOCATABLE, INTENT(OUT) ::   val(:)
     1261  CHARACTER(LEN=*), OPTIONAL, INTENT(IN)  :: tname(:)
     1262  TYPE(keys_type),  OPTIONAL, INTENT(IN)  ::    ky(:)
    12631263  TYPE(keys_type),           POINTER :: k(:)
    12641264  CHARACTER(LEN=maxlen), ALLOCATABLE :: n(:)
    … …  
    12901290!==============================================================================================================================
    12911291LOGICAL FUNCTION getKeyByName_rm(keyn, val, tname, ky) RESULT(lerr)
    1292   CHARACTER(LEN=*),                   INTENT(IN)  :: keyn
    1293   REAL,                  ALLOCATABLE, INTENT(OUT) ::   val(:)
    1294   CHARACTER(LEN=*), TARGET, OPTIONAL, INTENT(IN)  :: tname(:)
    1295   TYPE(keys_type),  TARGET, OPTIONAL, INTENT(IN)  ::    ky(:)
     1292  CHARACTER(LEN=*),           INTENT(IN)  :: keyn
     1293  REAL,          ALLOCATABLE, INTENT(OUT) ::   val(:)
     1294  CHARACTER(LEN=*), OPTIONAL, INTENT(IN)  :: tname(:)
     1295  TYPE(keys_type),  OPTIONAL, INTENT(IN)  ::    ky(:)
    12961296  TYPE(keys_type),           POINTER :: k(:)
    12971297  CHARACTER(LEN=maxlen), ALLOCATABLE :: n(:)
Note: See TracChangeset for help on using the changeset viewer.