Changeset 7711


Ignore:
Timestamp:
2017-02-21T17:05:51+01:00 (4 years ago)
Author:
frrh
Message:

Various minor corrections resulting from array bounds checking.

Note: with array bounds check enables, the printing of namelists
natbio and natroam fail because they contain unallocated arrays.
(This does not cause a problem when not using array bounds checking).

E.g. arrays such as FRIVER_DEP cause this. It's not immediately
clear how we can correct this without wholesale changes to the
way these namelists are printed and since it only seems to be
an issue with array bounds checking switched on it may not
be worth pursuing (since we can get round it simply by commenting out
the offending lines.)

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

Legend:

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

    r6810 r7711  
    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_optim_RH/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcnam_medusa.F90

    r7331 r7711  
    8686      &    friver_dep,                                        & 
    8787      &  xsdiss,                                              & 
    88       &  vsed,xhr,                                            & 
    8988      &  sedlam,sedlostpoc,jpkb,jdms,jdms_input,jdms_model 
    9089#if defined key_roam 
     
    343342      jdms        = 0 
    344343      jdms_input  = 0 
    345       jdms_input  = 3 
     344      jdms_model  = 3 
     345      jq10        = 1.5 
    346346             
    347347      !REWIND(numnatm) 
Note: See TracChangeset for help on using the changeset viewer.