Changeset 7711 for branches/UKMO
- Timestamp:
- 2017-02-21T17:05:51+01:00 (7 years ago)
- 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 445 445 !!---------------------------------------------------------------------- 446 446 USE lib_mpp , ONLY: ctl_warn 447 INTEGER :: ierr( 7) ! Local variables447 INTEGER :: ierr(8) ! Local variables 448 448 !!---------------------------------------------------------------------- 449 449 ierr(:) = 0 -
branches/UKMO/dev_r5518_MEDUSA_optim_RH/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcnam_medusa.F90
r7331 r7711 86 86 & friver_dep, & 87 87 & xsdiss, & 88 & vsed,xhr, &89 88 & sedlam,sedlostpoc,jpkb,jdms,jdms_input,jdms_model 90 89 #if defined key_roam … … 343 342 jdms = 0 344 343 jdms_input = 0 345 jdms_input = 3 344 jdms_model = 3 345 jq10 = 1.5 346 346 347 347 !REWIND(numnatm)
Note: See TracChangeset
for help on using the changeset viewer.