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 12420 for vendors/AGRIF/dev/AGRIF_FILES – NEMO

Ignore:
Timestamp:
2020-02-20T13:42:35+01:00 (4 years ago)
Author:
smueller
Message:

Reintegration of the AGRIF development branch associated with NEMO development branch 2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles (/vendors/AGRIF/dev_r11615_ENHANCE-04_namelists_as_internalfiles_agrif) into /vendors/AGRIF/dev

Location:
vendors/AGRIF/dev/AGRIF_FILES
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • vendors/AGRIF/dev/AGRIF_FILES/modsauv.F90

    r5656 r12420  
    7979    if (allocated(var_c%carray1)) deallocate(var_c%carray1) 
    8080    if (allocated(var_C%carray2)) deallocate(var_c%carray2) 
     81    if (allocated(var_C%carrayu)) deallocate(var_c%carrayu) 
    8182! 
    8283!--------------------------------------------------------------------------------------------------- 

  • vendors/AGRIF/dev/AGRIF_FILES/modtypes.F90

    r5656 r12420  
    154154!> @{ 
    155155    character(2400)                             :: carray0 
     156    character(:)  ,                 allocatable :: carrayu 
    156157    character(200), dimension(:)  , allocatable :: carray1 
    157158    character(200), dimension(:,:), allocatable :: carray2 

  • vendors/AGRIF/dev/AGRIF_FILES/modutil.F90

    r10586 r12420  
    919919        if ( allocated(var_c % carray1) ) deallocate(var_c % carray1) 
    920920        if ( allocated(var_c % carray2) ) deallocate(var_c % carray2) 
     921        if ( allocated(var_c % carrayu) ) deallocate(var_c % carrayu) 
    921922! 
    922923    enddo 
Note: See TracChangeset for help on using the changeset viewer.