Changeset 7728


Ignore:
Timestamp:
2017-02-23T12:51:54+01:00 (4 years ago)
Author:
frrh
Message:

Stop OOB crashes by giving ierr the right size and removing
unallocated arrays from natbio and natroam namelists.

Also remove duplicate field declarations in natbio.

Location:
branches/UKMO/dev_r5518_MEDUSA_stable_fixes_part2/NEMOGCM/NEMO/TOP_SRC/MEDUSA
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_MEDUSA_stable_fixes_part2/NEMOGCM/NEMO/TOP_SRC/MEDUSA/sms_medusa.F90

    r6810 r7728  
    445445      !!---------------------------------------------------------------------- 
    446446      USE lib_mpp , ONLY: ctl_warn 
    447       INTEGER ::   ierr(7)        ! Local variables 
     447      INTEGER ::   ierr(8)        ! Local variables 
    448448      !!---------------------------------------------------------------------- 
    449449      ierr(:) = 0 
  • branches/UKMO/dev_r5518_MEDUSA_stable_fixes_part2/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcnam_medusa.F90

    r7709 r7728  
    8484      &    xburial,                                           & 
    8585      &  jriver_n,jriver_si,jriver_c,jriver_alk,jriver_dep,   & 
    86       &    friver_dep,                                        & 
    8786      &  xsdiss,                                              & 
    88       &  vsed,xhr,                                            & 
    8987      &  sedlam,sedlostpoc,jpkb,jdms,jdms_input,jdms_model 
    9088#if defined key_roam 
    9189      NAMELIST/natroam/ xthetaphy,xthetazoo,xthetanit,        & 
    92       &    xthetarem,xo2min,                                  & 
    93       &    f3_pH,f3_h2co3,f3_hco3,f3_co3,f3_omcal,f3_omarg,   & 
    94       &    f2_ccd_cal,f2_ccd_arg 
     90      &    xthetarem,xo2min 
    9591#endif 
    9692      NAMELIST/natopt/xkg0,xkr0,xkgp,xkrp,xlg,xlr,rpig 
Note: See TracChangeset for help on using the changeset viewer.