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/p4zopt.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/p4zopt.F90

    r7041 r7068  
    88   !!             3.2  !  2009-04  (C. Ethe, G. Madec)  optimisation 
    99   !!             3.4  !  2011-06  (O. Aumont, C. Ethe) Improve light availability of nano & diat 
    10    !!---------------------------------------------------------------------- 
    11 #if defined  key_pisces 
    12    !!---------------------------------------------------------------------- 
    13    !!   'key_pisces'                                       PISCES bio-model 
    1410   !!---------------------------------------------------------------------- 
    1511   !!   p4z_opt       : light availability in the water column 
    … …  
    421417   END FUNCTION p4z_opt_alloc 
    422418 
    423 #else 
    424    !!---------------------------------------------------------------------- 
    425    !!  Dummy module :                                   No PISCES bio-model 
    426    !!---------------------------------------------------------------------- 
    427 CONTAINS 
    428    SUBROUTINE p4z_opt                   ! Empty routine 
    429    END SUBROUTINE p4z_opt 
    430 #endif  
    431  
    432419   !!====================================================================== 
    433420END MODULE p4zopt 
Note: See TracChangeset for help on using the changeset viewer.