- Timestamp:
- 2017-12-19T09:26:25+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zligand.F90
r7646 r9124 50 50 !!--------------------------------------------------------------------- 51 51 ! 52 IF( nn_timing == 1 )CALL timing_start('p4z_ligand')52 IF( ln_timing ) CALL timing_start('p4z_ligand') 53 53 ! 54 54 ! ------------------------------------------------------------------ … … 75 75 ! Dissolution of nanoparticle Fe 76 76 ! ---------------------------------------------------------- 77 78 77 DO jk = 1, jpkm1 79 78 DO jj = 1, jpj … … 97 96 ENDIF 98 97 ! 99 IF( nn_timing == 1 )CALL timing_stop('p4z_ligand')98 IF( ln_timing ) CALL timing_stop('p4z_ligand') 100 99 ! 101 100 END SUBROUTINE p4z_ligand … … 114 113 !! 115 114 !!---------------------------------------------------------------------- 115 INTEGER :: ios ! Local integer 116 ! 116 117 NAMELIST/nampislig/ rlgw, prlgw, rlgs, rfep, rlig 117 INTEGER :: ios ! Local integer output status for namelist read118 !!---------------------------------------------------------------------- 118 119 119 120 REWIND( numnatp_ref ) ! Namelist nampislig in reference namelist : Pisces remineralization
Note: See TracChangeset
for help on using the changeset viewer.