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 7068 for branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsink.F90 – NEMO

Ignore:
Timestamp:
2016-10-21T17:38:13+02:00 (8 years ago)
Author:
cetlod
Message:

ROBUST5_CNRS : implementation of part I of new TOP interface - 1st step -, see ticket #1782

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsink.F90

    r7041 r7068  
    88   !!             3.4  !  2011-06  (O. Aumont, C. Ethe) Change aggregation formula 
    99   !!             3.5  !  2012-07  (O. Aumont) Introduce potential time-splitting 
    10    !!---------------------------------------------------------------------- 
    11 #if defined key_pisces 
    1210   !!---------------------------------------------------------------------- 
    1311   !!   p4z_sink       :  Compute vertical flux of particulate matter due to gravitational sinking 
    … …  
    409407   END FUNCTION p4z_sink_alloc 
    410408    
    411 #else 
    412    !!====================================================================== 
    413    !!  Dummy module :                                   No PISCES bio-model 
    414    !!====================================================================== 
    415 CONTAINS 
    416    SUBROUTINE p4z_sink                    ! Empty routine 
    417    END SUBROUTINE p4z_sink 
    418 #endif  
    419  
    420409   !!====================================================================== 
    421410END MODULE p4zsink 
Note: See TracChangeset for help on using the changeset viewer.