New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
2019WP/ENHANCE-04_AndrewC-reporting/Internal_Namelists (diff) – NEMO

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


Ignore:
Timestamp:
2019-10-01T15:40:29+02:00 (4 years ago)
Author:
acc
Comment:

--

Legend:

Unmodified
Added
Removed
Modified
  • 2019WP/ENHANCE-04_AndrewC-reporting/Internal_Namelists

    v2 v3  
    1818become: 
    1919{{{ 
    20    CHARACTER(:), ALLOCATABLE :: numnam_ref    !: character buffer for reference namelist 
    21    CHARACTER(:), ALLOCATABLE :: numnam_cfg    !: character buffer for configuration namelist 
     20   CHARACTER(LEN=:), ALLOCATABLE :: numnam_ref    !: character buffer for reference namelist 
     21   CHARACTER(LEN=:), ALLOCATABLE :: numnam_cfg    !: character buffer for configuration namelist 
    2222}}} 
    2323 
     
    5252{{{ 
    5353   SUBROUTINE load_nml( cdnambuff , cdnamfile, kout, ldwp) 
    54       CHARACTER(:)    , ALLOCATABLE, INTENT(INOUT) :: cdnambuff 
     54      CHARACTER(LEN=:), ALLOCATABLE, INTENT(INOUT) :: cdnambuff 
    5555      CHARACTER(LEN=*), INTENT(IN )                :: cdnamfile 
    5656      CHARACTER(LEN=256)                           :: chline 
     
    8585      ! Allocate text cdnambuff for condensed namelist 
    8686      ! 
    87       ALLOCATE( CHARACTER(itot) :: cdnambuff ) 
     87      ALLOCATE( CHARACTER(LEN=itot) :: cdnambuff ) 
    8888      WRITE(*,*) 'ALLOCATED ', itot 
    8989      !