- Timestamp:
- 2016-10-21T17:38:13+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zche.F90
r6945 r7068 11 11 !! 2.0 ! 2007-12 (C. Ethe, G. Madec) F90 12 12 !! ! 2011-02 (J. Simeon, J.Orr ) update O2 solubility constants 13 !!----------------------------------------------------------------------14 #if defined key_pisces15 !!----------------------------------------------------------------------16 !! 'key_pisces' PISCES bio-model17 13 !!---------------------------------------------------------------------- 18 14 !! p4z_che : Sea water chemistry computed following OCMIP protocol … … 333 329 END FUNCTION p4z_che_alloc 334 330 335 #else336 !!======================================================================337 !! Dummy module : No PISCES bio-model338 !!======================================================================339 CONTAINS340 SUBROUTINE p4z_che( kt ) ! Empty routine341 INTEGER, INTENT(in) :: kt342 WRITE(*,*) 'p4z_che: You should not have seen this print! error?', kt343 END SUBROUTINE p4z_che344 #endif345 346 331 !!====================================================================== 347 332 END MODULE p4zche
Note: See TracChangeset
for help on using the changeset viewer.