- Timestamp:
- 2017-12-19T09:26:25+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/trcice_pisces.F90
r7646 r9124 20 20 PUBLIC trc_ice_ini_pisces ! called by trcini.F90 module 21 21 22 !!---------------------------------------------------------------------- 23 !! NEMO/TOP 4.0 , NEMO Consortium (2017) 24 !! $Id: trcsub.F90 9019 2017-12-13 14:58:53Z timgraham $ 25 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 26 !!---------------------------------------------------------------------- 22 27 CONTAINS 23 28 24 25 29 SUBROUTINE trc_ice_ini_pisces 26 30 !!---------------------------------------------------------------------- … … 29 33 !! ** Purpose : Initialisation of the PISCES biochemical model 30 34 !!---------------------------------------------------------------------- 31 35 ! 32 36 IF( ln_p4z .OR. ln_p5z ) THEN ; CALL p4z_ice_ini ! PISCES 33 37 ELSE ; CALL p2z_ice_ini ! LOBSTER 34 38 ENDIF 35 39 ! 36 40 END SUBROUTINE trc_ice_ini_pisces 37 41
Note: See TracChangeset
for help on using the changeset viewer.