- Timestamp:
- 2014-04-06T17:47:31+02:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_CNRS0_NOC1_LDF/NEMOGCM/NEMO/TOP_SRC/PISCES/P2Z/p2zexp.F90
r3446 r4617 48 48 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 49 49 !!---------------------------------------------------------------------- 50 51 50 CONTAINS 52 51 … … 64 63 !! COLUMN BELOW THE SURFACE LAYER. 65 64 !!--------------------------------------------------------------------- 66 !!67 65 INTEGER, INTENT( in ) :: kt ! ocean time-step index 68 ! !66 ! 69 67 INTEGER :: ji, jj, jk, jl, ikt 70 68 REAL(wp) :: zgeolpoc, zfact, zwork, ze3t, zsedpocd, zmaskt … … 77 75 ! 78 76 IF( kt == nittrc000 ) CALL p2z_exp_init 79 77 ! 80 78 CALL wrk_alloc( jpi, jpj, zsedpoca ) 81 zsedpoca(:,:) = 0. 79 zsedpoca(:,:) = 0._wp 82 80 83 81 IF( l_trdtrc ) THEN … … 102 100 ! Find the last level of the water column 103 101 ! Compute fluxes due to sinking particles (slow) 104 105 102 106 103 zgeolpoc = 0.e0 ! Initialization … … 180 177 END SUBROUTINE p2z_exp 181 178 179 182 180 SUBROUTINE p2z_exp_init 183 181 !!---------------------------------------------------------------------- … … 272 270 END SUBROUTINE p2z_exp_init 273 271 272 274 273 INTEGER FUNCTION p2z_exp_alloc() 275 274 !!----------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.