Changes between Version 2 and Version 3 of 2019WP/ENHANCE-04_AndrewC-reporting/Internal_Namelists

Timestamp:

2019-10-01T15:40:29+02:00 (5 years ago)

Author:

acc

Comment:

--

2019WP/ENHANCE-04_AndrewC-reporting/Internal_Namelists

@@ -18 +18 @@
 become:
 {{{
-   CHARACTER(:), ALLOCATABLE :: numnam_ref    !: character buffer for reference namelist
-   CHARACTER(:), ALLOCATABLE :: numnam_cfg    !: character buffer for configuration namelist
+   CHARACTER(LEN=:), ALLOCATABLE :: numnam_ref    !: character buffer for reference namelist
+   CHARACTER(LEN=:), ALLOCATABLE :: numnam_cfg    !: character buffer for configuration namelist
 }}}
 
@@ -52 +52 @@
 {{{
    SUBROUTINE load_nml( cdnambuff , cdnamfile, kout, ldwp)
-      CHARACTER(:)    , ALLOCATABLE, INTENT(INOUT) :: cdnambuff
+      CHARACTER(LEN=:), ALLOCATABLE, INTENT(INOUT) :: cdnambuff
       CHARACTER(LEN=*), INTENT(IN )                :: cdnamfile
       CHARACTER(LEN=256)                           :: chline
@@ -85 +85 @@
       ! Allocate text cdnambuff for condensed namelist
       !
-      ALLOCATE( CHARACTER(itot) :: cdnambuff )
+      ALLOCATE( CHARACTER(LEN=itot) :: cdnambuff )
       WRITE(*,*) 'ALLOCATED ', itot
       !