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.
Changeset 3861 – NEMO

Changeset 3861


Ignore:
Timestamp:
2013-04-06T13:37:10+02:00 (11 years ago)
Author:
cetlod
Message:

2013/dev_r3411_CNRS4_IOCRS : minor modification in XMLF90/src/strings/m_strings.f90 routine ; needed if running with bounds checking

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_r3411_CNRS4_IOCRS/NEMOGCM/EXTERNAL/XMLF90/src/strings/m_strings.f90

    r2281 r3861  
    538538      allocate(var%chars(1:lc)) 
    539539!!AG: NAG compiler uses temporaries here: 
    540       var%chars(:) = (/ (expr(i:i), i=1,lc) /) 
    541  
    542       endsubroutine assign_c_to_s 
     540!      var%chars(:) = (/ (expr(i:i), i=1,lc) /) 
     541       do i=1,lc 
     542          var%chars(i) = expr(i:i) 
     543       enddo 
     544 
     545      end subroutine assign_c_to_s 
    543546 
    544547!******************************************************************************* 
Note: See TracChangeset for help on using the changeset viewer.