New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 3780 for branches/2012 – NEMO

Changeset 3780 for branches/2012


Ignore:
Timestamp:
2013-02-08T12:13:47+01:00 (11 years ago)
Author:
cetlod
Message:

nemo_v3_5_alpha : bug correction to avoid compilation errors when using key_kriest, see ticket #1050

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  
    252252               ! --------------------------------------------------------- 
    253253               zdenom1 = xlam1 * trn(ji,jj,jk,jppoc) / zlam1b 
    254 #if defined key_kriest 
     254#if ! defined key_kriest 
    255255               zdenom2 = xlam1 * trn(ji,jj,jk,jpgoc) / zlam1b 
    256256#endif 

  • branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsms.F90

    r3557 r3780  
    373373 
    374374      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)                     & 
    378379#if ! defined key_kriest 
    379             &                     + trn(:,:,:,jppoc) + trn(:,:,:,jpgoc)  & 
    380 #else 
    381             &                     + trn(:,:,:,jppoc)                     & 
     380            &                    + trn(:,:,:,jpgoc)                     & 
    382381#endif 
    383             &                     + trn(:,:,:,jpdoc)                     ) * cvol(:,:,:)  )  
     382            &                    + trn(:,:,:,jpdoc)                     ) * cvol(:,:,:)  )  
    384383         !  
    385384         silbudget = glob_sum( (   trn(:,:,:,jpsil) + trn(:,:,:,jpgsi)  & 
    386             &                     + trn(:,:,:,jpdsi)                     ) * cvol(:,:,:)  ) 
     385            &                    + trn(:,:,:,jpdsi)                     ) * cvol(:,:,:)  ) 
    387386         !  
    388387         alkbudget = glob_sum( (   trn(:,:,:,jpno3) * rno3              & 
    389             &                     + trn(:,:,:,jptal)                     & 
    390             &                     + trn(:,:,:,jpcal) * 2.                ) * cvol(:,:,:)  ) 
     388            &                    + trn(:,:,:,jptal)                     & 
     389            &                    + trn(:,:,:,jpcal) * 2.                ) * cvol(:,:,:)  ) 
    391390         !  
    392391         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(:,:,:)  ) 
    397399 
    398400         ! 

  • branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/TOP_SRC/PISCES/sms_pisces.F90

    r3680 r3780  
    104104#if defined key_kriest 
    105105   !!*  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  
    110111#endif 
    111112 
Note: See TracChangeset for help on using the changeset viewer.