Changeset 10816


Ignore:
Timestamp:
2019-03-29T18:19:08+01:00 (18 months ago)
Author:
smasson
Message:

v4: minor fix for profsed that can be allocated but not initialized when calling iom_set_axis_attr

Location:
NEMO/releases/release-4.0/src
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • NEMO/releases/release-4.0/src/OCE/IOM/iom.F90

    r10523 r10816  
    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/releases/release-4.0/src/TOP/PISCES/trcini_pisces.F90

    r10425 r10816  
    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/releases/release-4.0/src/TOP/trcini.F90

    r10570 r10816  
    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.