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.
Ticket Diff – NEMO

Changes between Initial Version and Version 3 of Ticket #1297


Ignore:
Timestamp:
2017-11-20T15:39:45+01:00 (6 years ago)
Author:
nemo
Comment:

Legend:

Unmodified
Added
Removed
Modified
  • Ticket #1297

    • Property Owner changed from nemo to jchanut
    • Property Status changed from new to closed
    • Property Resolution changed from to wontfix
  • Ticket #1297 – Description

    initial v3  
    771) replace the following three lines in dom_oce.F90: 
    88 
     9{{{#!f 
    910INTEGER, PUBLIC,               DIMENSION(jpidta) ::   mi0, mi1   
    1011INTEGER, PUBLIC,               DIMENSION(jpjdta) ::   mj0, mj1   
    1112REAL(wp), PUBLIC, DIMENSION(jpiglo) ::   tpol, fpol 
     13}}} 
    1214 
    1315by the alternative lines: 
    1416 
     17{{{#!f 
    1518INTEGER, PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) ::   mi0, mi1  
    1619INTEGER, PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) ::   mj0, mj1 
    1720REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) ::   tpol, fpol 
     21}}} 
    1822 
    1923and  
     
    21252) add the following two lines in function dom_oce_alloc 
    2226 
     27{{{#!f 
    2328ALLOCATE( mi0(jpidta), mi1(jpidta), mj0(jpjdta), mj1(jpjdta), STAT=ierr(11) ) 
    2429ALLOCATE( tpol(jpiglo), fpol(jpiglo), STAT=ierr(12) ) 
     30}}} 
    2531 
    2632Maybe someone who knows better than I how NEMO+AGRIF work together would like to check that these changes make sense and that the original formulation in nemo_v3_4 is, as I believe, not entirely correct. My architecture is pgf90_linux.