Changeset 11670


Ignore:
Timestamp:
2019-10-09T14:52:03+02:00 (12 months ago)
Author:
acc
Message:

Branch 2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles. Final substantive change to enable this branch to work with AGRIF. Most changes have occurred on an AGRIF development branch: /vendors/AGRIF/dev_r11615_ENHANCE-04_namelists_as_internalfiles_agrif which is needed to make this work. Previous commit to this branch has set the svn:externals reference accordingly

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/OCE/LBC/lib_mpp.F90

    r11648 r11670  
    519519      call MPI_BCAST(kleng, 1, MPI_INT, 0, mpi_comm_oce, iflag) 
    520520      call MPI_BARRIER(mpi_comm_oce, iflag) 
     521!$AGRIF_DO_NOT_TREAT 
    521522      IF ( .NOT. ALLOCATED(cdnambuff) ) ALLOCATE( CHARACTER(LEN=kleng) :: cdnambuff ) 
     523!$AGRIF_END_DO_NOT_TREAT 
    522524      call MPI_BCAST(cdnambuff, kleng, MPI_CHARACTER, 0, mpi_comm_oce, iflag) 
    523525      call MPI_BARRIER(mpi_comm_oce, iflag) 
     
    13111313      INTEGER, INTENT(IN)                          :: kout 
    13121314      LOGICAL, INTENT(IN)                          :: ldwp  !: .true. only for the root broadcaster 
    1313       INTEGER                                      :: itot, iun, iltc, inl, ios 
     1315      INTEGER                                      :: itot, iun, iltc, inl, ios, itotsav 
    13141316      ! 
    13151317      ! Check if the namelist buffer has already been allocated. Return if it has. 
     
    13401342         ! Allocate text cdnambuff for condensed namelist 
    13411343         ! 
     1344!$AGRIF_DO_NOT_TREAT 
    13421345         ALLOCATE( CHARACTER(LEN=itot) :: cdnambuff ) 
    1343          WRITE(*,*) 'ALLOCATED ', itot 
     1346!$AGRIF_END_DO_NOT_TREAT 
     1347         itotsav = itot 
    13441348         ! 
    13451349         ! Second pass: read and transfer pruned characters into cdnambuff 
     
    13651369     40  CONTINUE 
    13661370         itot = itot - 1 
    1367          WRITE(*,*) 'ASSIGNED ',itot 
     1371         IF( itotsav .NE. itot ) WRITE(*,*) 'WARNING in load_nml. Allocated ',itotsav,' for read buffer; but used ',itot 
    13681372         ! 
    13691373         ! Close namelist file 
Note: See TracChangeset for help on using the changeset viewer.