Changeset 7728 for branches/UKMO

Timestamp:

2017-02-23T12:51:54+01:00 (7 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:

• sms_medusa.F90 (modified) (1 diff)
• trcnam_medusa.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_MEDUSA_stable_fixes_part2/NEMOGCM/NEMO/TOP_SRC/MEDUSA/sms_medusa.F90

@@ -445 +445 @@
       !!----------------------------------------------------------------------
       USE lib_mpp , ONLY: ctl_warn
-      INTEGER ::   ierr(7)        ! Local variables
+      INTEGER ::   ierr(8)        ! Local variables
       !!----------------------------------------------------------------------
       ierr(:) = 0

branches/UKMO/dev_r5518_MEDUSA_stable_fixes_part2/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcnam_medusa.F90

@@ -84 +84 @@
       &    xburial,                                           &
       &  jriver_n,jriver_si,jriver_c,jriver_alk,jriver_dep,   &
-      &    friver_dep,                                        &
       &  xsdiss,                                              &
-      &  vsed,xhr,                                            &
       &  sedlam,sedlostpoc,jpkb,jdms,jdms_input,jdms_model
 #if defined key_roam
       NAMELIST/natroam/ xthetaphy,xthetazoo,xthetanit,        &
-      &    xthetarem,xo2min,                                  &
-      &    f3_pH,f3_h2co3,f3_hco3,f3_co3,f3_omcal,f3_omarg,   &
-      &    f2_ccd_cal,f2_ccd_arg
+      &    xthetarem,xo2min
 #endif
       NAMELIST/natopt/xkg0,xkr0,xkgp,xkrp,xlg,xlr,rpig