Changeset 3446 for branches/2012/dev_r3438_LOCEAN15_PISLOB/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zint.F90
- Timestamp:
- 2012-08-10T13:13:55+02:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_r3438_LOCEAN15_PISLOB/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zint.F90
r3443 r3446 52 52 tgfunc2(:,:,:) = EXP( 0.07608 * tsn(:,:,:,jp_tem) ) 53 53 54 ! Computation of the silicon dependant half saturation 55 ! constant for silica uptake 54 ! Computation of the silicon dependant half saturation constant for silica uptake 56 55 ! --------------------------------------------------- 57 56 DO ji = 1, jpi … … 63 62 ! 64 63 IF( nday_year == nyear_len(1) ) THEN 65 xksi = xksimax66 xksimax = 0._wp64 xksi (:,:) = xksimax(:,:) 65 xksimax(:,:) = 0._wp 67 66 ENDIF 68 67 !
Note: See TracChangeset
for help on using the changeset viewer.