- Timestamp:
- 2016-07-19T10:38:35+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5549_BDY_ZEROGRAD/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zbio.F90
r5385 r6808 34 34 PUBLIC p4z_bio 35 35 36 !!* Substitution37 # include "top_substitute.h90"38 36 !!---------------------------------------------------------------------- 39 37 !! NEMO/TOP 3.3 , NEMO Consortium (2010) … … 41 39 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 42 40 !!---------------------------------------------------------------------- 43 44 41 CONTAINS 45 42 … … 70 67 DO jj = 1, jpj 71 68 DO ji = 1, jpi 72 IF( fsdepw(ji,jj,jk+1) > hmld(ji,jj) ) xdiss(ji,jj,jk) = 0.01 69 !!gm : use nmln and test on jk ... less memory acces 70 IF( gdepw_n(ji,jj,jk+1) > hmld(ji,jj) ) xdiss(ji,jj,jk) = 0.01 73 71 END DO 74 72 END DO 75 73 END DO 76 74 77 78 75 CALL p4z_opt ( kt, knt ) ! Optic: PAR in the water column 79 76 CALL p4z_sink ( kt, knt ) ! vertical flux of particulate organic matter … … 109 106 110 107 !!====================================================================== 111 END MODULE p4zbio 112 108 END MODULE p4zbio
Note: See TracChangeset
for help on using the changeset viewer.