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 12260 – NEMO

Changeset 12260


Ignore:
Timestamp:
2019-12-17T11:33:49+01:00 (4 years ago)
Author:
acc
Message:

dev_r11943_MERGE_2019 : Fix compilation issue in TOP/PISCES/P4Z/p5zmeso.F90 introduced in previous (supposedly SETTE tested) commit

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r11943_MERGE_2019/src/TOP/PISCES/P4Z/p5zmeso.F90

    r12258 r12260  
    349349        CALL iom_put( "PCAL"  , prodcal(:,:,:) * 1.e+3  * rfact2r * tmask(:,:,:) )  !  Calcite production  
    350350        IF( iom_use("GRAZ2") ) THEN  !   Total grazing of phyto by zooplankton 
    351            zgrazing2(:,:,jpk) = 0._wp ;  CALL iom_put( "GRAZ2" , zgrazing2(:,:,:) * 1.e+3  * rfact2r * tmask(:,:,:) )  
     351           zgrazing(:,:,jpk) = 0._wp ;  CALL iom_put( "GRAZ2" , zgrazing(:,:,:) * 1.e+3  * rfact2r * tmask(:,:,:) )  
    352352         ENDIF 
    353353         IF( iom_use("FEZOO2") ) THEN   
Note: See TracChangeset for help on using the changeset viewer.