Changeset 7497
 Timestamp:
 20161214T16:46:28+01:00 (8 years ago)
 Location:
 branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC
 Files:

 2 edited
Legend:
 Unmodified
 Added
 Removed

branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.F90
r7347 r7497 2532 2532 !! 2533 2533 !! AXY (22/07/09): accelerate detrital remineralisation in the bottom box 2534 if ( jk.eq.jmbathy) .and. jsfd.eq.1) then2534 if ((jk.eq.jmbathy) .and. jsfd.eq.1) then 2535 2535 fdd = 1.0 * zdet 2536 2536 # if defined key_roam … … 2566 2566 !! 2567 2567 !! 2568 if ( jk.eq.jmbathy) .and. jorgben.eq.1) then2568 if ((jk.eq.jmbathy) .and. jorgben.eq.1) then 2569 2569 !! this is the BOTTOM OCEAN BOX > into the benthic pool! 2570 2570 !! … … 2881 2881 !! AXY (10/07/12): amended to only apply sedimentary flux up to ~500 m down 2882 2882 !! if (jk.eq.(mbathy(ji,jj)1).AND.jk.lt.i1100) then 2883 if ( jk.eq.jmbathy).AND.jk.le.i0500) then2883 if ((jk.eq.jmbathy).AND.jk.le.i0500) then 2884 2884 !! Moore et al. (2004) cite a coastal California value of 5 umol/m2/d, but adopt a 2885 2885 !! global value of 2 umol/m2/d for all areas < 1100 m; here we use this latter value 
branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/TRP/trcadv.F90
r6261 r7497 27 27 USE ldftra_oce ! lateral diffusion coefficient on tracers 28 28 USE prtctl_trc ! Print control 29 USE lbclnk ! ocean lateral boundary conditions (or mpp link)29 !! USE lbclnk ! ocean lateral boundary conditions (or mpp link) 30 30 31 31 IMPLICIT NONE … … 108 108 ! 109 109 !! Jpalm  14012016  restart and proc pb  try this... 110 DO jn = 1, jptra111 CALL lbc_lnk( trn(:,:,:,jn), 'T', 1. )112 CALL lbc_lnk( trb(:,:,:,jn), 'T', 1. )113 END DO110 !! DO jn = 1, jptra 111 !! CALL lbc_lnk( trn(:,:,:,jn), 'T', 1. ) 112 !! CALL lbc_lnk( trb(:,:,:,jn), 'T', 1. ) 113 !! END DO 114 114 ! 115 115
Note: See TracChangeset
for help on using the changeset viewer.