Changeset 4244

Timestamp:

Sep 9, 2022, 6:57:14 PM (20 months ago)

Author:

dcugnet

Message:

Some more fixes for phydev.

File:

• LMDZ6/trunk/libf/phydev/infotrac_phy.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phydev/infotrac_phy.F90

@@ -4 +4 @@
 MODULE infotrac_phy
 
+   USE strings_mod, ONLY: maxlen
    INTEGER,                 SAVE :: nqtot                       !--- Tracers nb in dynamics (incl. higher moments + H2O)
    CHARACTER(LEN=maxlen),   SAVE :: type_trac                   !--- Keyword for tracers type
@@ -12 +13 @@
 
 SUBROUTINE init_infotrac_phy(nqtot_, type_trac_)
-   USE strings_mod, ONLY: maxlen, strParse
+   USE strings_mod, ONLY: strParse
    IMPLICIT NONE
    INTEGER,          INTENT(IN) :: nqtot_
    CHARACTER(LEN=*), INTENT(IN) :: type_trac_
+   CHARACTER(LEN=maxlen) :: modname='init_infotrac_phy'
 
    nqtot = nqtot_