- 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/P4Z/p4zsed.F90
r8541 r9124 68 68 REAL(wp), POINTER, DIMENSION(:,:,:) :: ztrpo4, ztrdop, zirondep, zsoufer, zpdep, zlight 69 69 REAL(wp), POINTER, DIMENSION(:,: ) :: zwsfep 70 71 70 !!--------------------------------------------------------------------- 72 71 ! 73 IF( nn_timing == 1) CALL timing_start('p4z_sed')72 IF( ln_timing ) CALL timing_start('p4z_sed') 74 73 ! 75 74 IF( kt == nittrc000 .AND. knt == 1 ) r1_rday = 1. / rday … … 522 521 IF( ln_ligand ) CALL wrk_dealloc( jpi, jpj, zwsfep ) 523 522 ! 524 IF( nn_timing == 1) CALL timing_stop('p4z_sed')523 IF( ln_timing ) CALL timing_stop('p4z_sed') 525 524 ! 526 525 END SUBROUTINE p4z_sed … … 537 536 END FUNCTION p4z_sed_alloc 538 537 539 540 538 !!====================================================================== 541 539 END MODULE p4zsed
Note: See TracChangeset
for help on using the changeset viewer.