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/dev_MERGE_2012/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsms.F90 – NEMO

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

File:
1 edited

Legend:

Unmodified
Added
Removed

  • 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         ! 
Note: See TracChangeset for help on using the changeset viewer.