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 10817 – NEMO

Changeset 10817


Ignore:
Timestamp:
2019-03-29T18:23:45+01:00 (5 years ago)
Author:
smasson
Message:

trunk: report [10815] and [10816] from v4

Location:
NEMO/trunk/src
Files:
5 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/IOM/in_out_manager.F90

    r10601 r10817  
    119119      INTEGER :: ptimincr  = 1        !: timestep increment to output (time.step and run.stat) 
    120120   END TYPE 
    121    TYPE(sn_ctl) :: sn_cfctl     !: run control structure for selective output 
     121   TYPE(sn_ctl), SAVE :: sn_cfctl     !: run control structure for selective output, must have SAVE for default init. of sn_ctl 
    122122   LOGICAL ::   ln_timing        !: run control for timing 
    123123   LOGICAL ::   ln_diacfl        !: flag whether to create CFL diagnostics 
  • NEMO/trunk/src/OCE/IOM/iom.F90

    r10523 r10817  
    222222# endif 
    223223#if defined key_top 
    224           CALL iom_set_axis_attr( "profsed", paxis = profsed ) 
     224          IF( ALLOCATED(profsed) ) CALL iom_set_axis_attr( "profsed", paxis = profsed ) 
    225225#endif 
    226226          CALL iom_set_axis_attr( "icbcla", class_num ) 
    227           CALL iom_set_axis_attr( "iax_20C", (/ REAL(20,wp) /) ) 
    228           CALL iom_set_axis_attr( "iax_28C", (/ REAL(28,wp) /) ) 
     227          CALL iom_set_axis_attr( "iax_20C", (/ REAL(20,wp) /) )   ! strange syntaxe and idea... 
     228          CALL iom_set_axis_attr( "iax_28C", (/ REAL(28,wp) /) )   ! strange syntaxe and idea... 
    229229      ENDIF 
    230230      ! 
  • NEMO/trunk/src/OCE/LBC/lib_mpp.F90

    r10781 r10817  
    176176      COMPLEX(wp), POINTER, DIMENSION(:) ::  y1d => NULL() 
    177177   END TYPE DELAYARR 
    178    TYPE( DELAYARR ), DIMENSION(nbdelay), PUBLIC  ::   todelay               
    179    INTEGER,          DIMENSION(nbdelay), PUBLIC  ::   ndelayid = -1     !: mpi request id of the delayed operations 
     178   TYPE( DELAYARR ), DIMENSION(nbdelay), PUBLIC, SAVE  ::   todelay         !: must have SAVE for default initialization of DELAYARR 
     179   INTEGER,          DIMENSION(nbdelay), PUBLIC        ::   ndelayid = -1   !: mpi request id of the delayed operations 
    180180 
    181181   ! timing summary report 
     
    918918         CALL mpi_finalize( info ) 
    919919      ENDIF 
    920       IF( .NOT. llfinal ) STOP 123456 
     920      IF( .NOT. llfinal ) STOP 123 
    921921      ! 
    922922   END SUBROUTINE mppstop 
  • NEMO/trunk/src/TOP/PISCES/trcini_pisces.F90

    r10425 r10817  
    275275 
    276276      ! Initialization of the sediment model 
    277       IF( ln_sediment) THEN 
    278          CALL sed_init 
    279       ELSE 
    280          ALLOCATE( profsed(2) ) 
    281       ENDIF 
     277      IF( ln_sediment)   CALL sed_init 
    282278 
    283279      IF(lwp) WRITE(numout,*)  
  • NEMO/trunk/src/TOP/trcini.F90

    r10570 r10817  
    181181      IF( ln_c14         )   CALL trc_ini_c14        !  C14 model 
    182182      IF( ln_age         )   CALL trc_ini_age        !  AGE 
    183       IF( .NOT.ln_pisces ) ALLOCATE( profsed(2) ) 
    184183      ! 
    185184      IF(lwp) THEN                   ! control print 
Note: See TracChangeset for help on using the changeset viewer.