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

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

Location:
NEMO/trunk/src/OCE/IOM
Files:
2 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      ! 
Note: See TracChangeset for help on using the changeset viewer.