Changeset 3780 for branches/2012/dev_MERGE_2012/NEMOGCM
- Timestamp:
- 2013-02-08T12:13:47+01:00 (12 years ago)
- Location:
- branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/TOP_SRC/PISCES
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zfechem.F90
r3531 r3780 252 252 ! --------------------------------------------------------- 253 253 zdenom1 = xlam1 * trn(ji,jj,jk,jppoc) / zlam1b 254 #if defined key_kriest254 #if ! defined key_kriest 255 255 zdenom2 = xlam1 * trn(ji,jj,jk,jpgoc) / zlam1b 256 256 #endif -
branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsms.F90
r3557 r3780 373 373 374 374 IF( ln_check_mass .AND. kt == nitend ) THEN ! Compute the budget of NO3, ALK, Si, Fer 375 no3budget = glob_sum( ( trn(:,:,:,jpno3) + trn(:,:,:,jpnh4) & 376 & + trn(:,:,:,jpphy) + trn(:,:,:,jpdia) & 377 & + trn(:,:,:,jpzoo) + trn(:,:,:,jpmes) & 375 no3budget = glob_sum( ( trn(:,:,:,jpno3) + trn(:,:,:,jpnh4) & 376 & + trn(:,:,:,jpphy) + trn(:,:,:,jpdia) & 377 & + trn(:,:,:,jpzoo) + trn(:,:,:,jpmes) & 378 & + trn(:,:,:,jppoc) & 378 379 #if ! defined key_kriest 379 & + trn(:,:,:,jppoc) + trn(:,:,:,jpgoc) & 380 #else 381 & + trn(:,:,:,jppoc) & 380 & + trn(:,:,:,jpgoc) & 382 381 #endif 383 & 382 & + trn(:,:,:,jpdoc) ) * cvol(:,:,:) ) 384 383 ! 385 384 silbudget = glob_sum( ( trn(:,:,:,jpsil) + trn(:,:,:,jpgsi) & 386 & 385 & + trn(:,:,:,jpdsi) ) * cvol(:,:,:) ) 387 386 ! 388 387 alkbudget = glob_sum( ( trn(:,:,:,jpno3) * rno3 & 389 & 390 & 388 & + trn(:,:,:,jptal) & 389 & + trn(:,:,:,jpcal) * 2. ) * cvol(:,:,:) ) 391 390 ! 392 391 ferbudget = glob_sum( ( trn(:,:,:,jpfer) + trn(:,:,:,jpnfe) & 393 & + trn(:,:,:,jpdfe) + trn(:,:,:,jpbfe) & 394 & + trn(:,:,:,jpsfe) & 395 & + trn(:,:,:,jpzoo) & 396 & + trn(:,:,:,jpmes) * ferat3 ) * cvol(:,:,:) ) 392 & + trn(:,:,:,jpdfe) & 393 #if ! defined key_kriest 394 & + trn(:,:,:,jpbfe) & 395 #endif 396 & + trn(:,:,:,jpsfe) & 397 & + trn(:,:,:,jpzoo) & 398 & + trn(:,:,:,jpmes) * ferat3 ) * cvol(:,:,:) ) 397 399 398 400 ! -
branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/TOP_SRC/PISCES/sms_pisces.F90
r3680 r3780 104 104 #if defined key_kriest 105 105 !!* Kriest parameter for aggregation 106 REAL(wp) :: xkr_eta !: ??? 107 REAL(wp) :: xkr_zeta !: ??? 108 REAL(wp) :: xkr_massp !: ??? 109 REAL(wp) :: xkr_mass_min, xkr_mass_max !: ??? 106 REAL(wp) :: xkr_eta !: Sinking exponent 107 REAL(wp) :: xkr_zeta !: N content exponent 108 REAL(wp) :: xkr_ncontent !: N content factor 109 REAL(wp) :: xkr_massp !: 110 REAL(wp) :: xkr_mass_min, xkr_mass_max !: Minimum, Maximum mass for Aggregates 110 111 #endif 111 112
Note: See TracChangeset
for help on using the changeset viewer.