Changes between Initial Version and Version 3 of Ticket #1297
- Timestamp:
- 2017-11-20T15:39:45+01:00 (6 years ago)
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 7 7 1) replace the following three lines in dom_oce.F90: 8 8 9 {{{#!f 9 10 INTEGER, PUBLIC, DIMENSION(jpidta) :: mi0, mi1 10 11 INTEGER, PUBLIC, DIMENSION(jpjdta) :: mj0, mj1 11 12 REAL(wp), PUBLIC, DIMENSION(jpiglo) :: tpol, fpol 13 }}} 12 14 13 15 by the alternative lines: 14 16 17 {{{#!f 15 18 INTEGER, PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: mi0, mi1 16 19 INTEGER, PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: mj0, mj1 17 20 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: tpol, fpol 21 }}} 18 22 19 23 and … … 21 25 2) add the following two lines in function dom_oce_alloc 22 26 27 {{{#!f 23 28 ALLOCATE( mi0(jpidta), mi1(jpidta), mj0(jpjdta), mj1(jpjdta), STAT=ierr(11) ) 24 29 ALLOCATE( tpol(jpiglo), fpol(jpiglo), STAT=ierr(12) ) 30 }}} 25 31 26 32 Maybe 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.