- 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/P2Z/p2zexp.F90
r7646 r9124 68 68 !!--------------------------------------------------------------------- 69 69 ! 70 IF( nn_timing == 1 )CALL timing_start('p2z_exp')70 IF( ln_timing ) CALL timing_start('p2z_exp') 71 71 ! 72 72 IF( kt == nittrc000 ) CALL p2z_exp_init … … 155 155 ENDIF 156 156 ! 157 IF( nn_timing == 1) CALL timing_stop('p2z_exp')157 IF( ln_timing ) CALL timing_stop('p2z_exp') 158 158 ! 159 159 END SUBROUTINE p2z_exp 160 160 161 161 162 SUBROUTINE p2z_exp_init … … 166 167 INTEGER :: ji, jj, jk 167 168 REAL(wp) :: zmaskt, zfluo, zfluu 168 REAL(wp), POINTER, DIMENSION(:,: ) :: zrro169 REAL(wp), POINTER, DIMENSION(:,:,:) :: zdm0170 !!--------------------------------------------------------------------- 171 169 REAL(wp), POINTER, DIMENSION(:,: ) :: zrro 170 REAL(wp), POINTER, DIMENSION(:,:,:) :: zdm0 171 !!--------------------------------------------------------------------- 172 ! 172 173 IF(lwp) THEN 173 174 WRITE(numout,*)
Note: See TracChangeset
for help on using the changeset viewer.