Changeset 5939 for branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM
- Timestamp:
- 2015-11-27T15:57:28+01:00 (9 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
r5937 r5939 3866 3866 trc2d(ji,jj,68) = trc2d(ji,jj,68) + (freminca * fthk) !! sum of fast-sinking Ca fluxes 3867 3867 if (jk.eq.(mbathy(ji,jj)-1)) then 3868 trc2d(ji,jj,69) = fsedn !! N sedimentation flux3869 trc2d(ji,jj,70) = fsedsi !! Si sedimentation flux3870 trc2d(ji,jj,71) = fsedfe !! Fe sedimentation flux3871 trc2d(ji,jj,72) = fsedc !! C sedimentation flux3872 trc2d(ji,jj,73) = fsedca !! Ca sedimentation flux3868 trc2d(ji,jj,69) = fsedn(ji,jj) !! N sedimentation flux 3869 trc2d(ji,jj,70) = fsedsi(ji,jj) !! Si sedimentation flux 3870 trc2d(ji,jj,71) = fsedfe(ji,jj) !! Fe sedimentation flux 3871 trc2d(ji,jj,72) = fsedc(ji,jj) !! C sedimentation flux 3872 trc2d(ji,jj,73) = fsedca(ji,jj) !! Ca sedimentation flux 3873 3873 endif 3874 3874 if (jk.eq.1) trc2d(ji,jj,74) = qsr(ji,jj) -
branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/trcnam.F90
r5937 r5939 482 482 !! to : 483 483 !! 484 IF ( ln_diatrc )THEN484 IF( ( ln_diatrc .AND. .NOT. lk_iomput ) .OR. ( ln_diatrc .AND. lk_medusa ) ) THEN 485 485 ALLOCATE( trc2d(jpi,jpj,jpdia2d), trc3d(jpi,jpj,jpk,jpdia3d), & 486 486 & ctrc2d(jpdia2d), ctrc2l(jpdia2d), ctrc2u(jpdia2d) , & … … 491 491 trc3d(:,:,:,:) = 0._wp ; ctrc3d(:) = ' ' ; ctrc3l(:) = ' ' ; ctrc3u(:) = ' ' 492 492 ! 493 ELSE IF ( lk_iomput .AND. lk_medusa ) THEN493 ELSE IF ( lk_iomput .AND. lk_medusa .AND. .NOT. ln_diatrc) THEN 494 494 CALL trc_nam_iom_medusa 495 495 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.