- Timestamp:
- 2017-12-19T09:26:25+01:00 (6 years ago)
- Location:
- branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/P2Z
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/P2Z/p2zbio.F90
r9085 r9124 101 101 !!--------------------------------------------------------------------- 102 102 ! 103 IF( nn_timing == 1 )CALL timing_start('p2z_bio')103 IF( ln_timing ) CALL timing_start('p2z_bio') 104 104 ! 105 105 IF( lk_iomput ) THEN … … 382 382 ENDIF 383 383 ! 384 IF( nn_timing == 1) CALL timing_stop('p2z_bio')384 IF( ln_timing ) CALL timing_stop('p2z_bio') 385 385 ! 386 386 END SUBROUTINE p2z_bio 387 387 388 388 389 SUBROUTINE p2z_bio_init -
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,*) -
branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/P2Z/p2zopt.F90
r9019 r9124 11 11 !! 3.2 ! 2009-04 (C. Ethe, G. Madec) minor optimisation + style 12 12 !!---------------------------------------------------------------------- 13 14 !!---------------------------------------------------------------------- 13 15 !! p2z_opt : Compute the light availability in the water column 14 16 !!---------------------------------------------------------------------- … … 69 71 !!--------------------------------------------------------------------- 70 72 ! 71 IF( nn_timing == 1 )CALL timing_start('p2z_opt')73 IF( ln_timing ) CALL timing_start('p2z_opt') 72 74 ! 73 75 ! Allocate temporary workspace … … 143 145 CALL wrk_dealloc( jpi, jpj, jpk, zparr, zparg ) 144 146 ! 145 IF( nn_timing == 1 )CALL timing_stop('p2z_opt')147 IF( ln_timing ) CALL timing_stop('p2z_opt') 146 148 ! 147 149 END SUBROUTINE p2z_opt … … 157 159 !! 158 160 !!---------------------------------------------------------------------- 161 INTEGER :: ios ! Local integer 162 !! 159 163 NAMELIST/namlobopt/ xkg0, xkr0, xkgp, xkrp, xlg, xlr, rpig 160 164 NAMELIST/namlobrat/ rcchl, redf, reddom 161 INTEGER :: ios ! Local integer output status for namelist read162 165 !!---------------------------------------------------------------------- 163 166 … … 168 171 REWIND( numnatp_cfg ) ! Namelist namlobopt in configuration namelist : Lobster options 169 172 READ ( numnatp_cfg, namlobopt, IOSTAT = ios, ERR = 902 ) 170 902 IF( ios /=0 ) CALL ctl_nam ( ios , 'namlobopt in configuration namelist', lwp )173 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobopt in configuration namelist', lwp ) 171 174 IF(lwm) WRITE ( numonp, namlobopt ) 172 175 … … 190 193 REWIND( numnatp_cfg ) ! Namelist namlobrat in configuration namelist : Lobster ratios 191 194 READ ( numnatp_cfg, namlobrat, IOSTAT = ios, ERR = 904 ) 192 904 IF( ios /=0 ) CALL ctl_nam ( ios , 'namlobrat in configuration namelist', lwp )195 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobrat in configuration namelist', lwp ) 193 196 IF(lwm) WRITE ( numonp, namlobrat ) 194 197 -
branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/P2Z/p2zsed.F90
r7646 r9124 35 35 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 36 36 !!---------------------------------------------------------------------- 37 38 37 CONTAINS 39 38 … … 56 55 !! trend of passive tracers is saved for futher diagnostics. 57 56 !!--------------------------------------------------------------------- 58 !!59 57 INTEGER, INTENT( in ) :: kt ! ocean time-step index 60 ! !58 ! 61 59 INTEGER :: ji, jj, jk, jl, ierr 62 60 CHARACTER (len=25) :: charout … … 65 63 !!--------------------------------------------------------------------- 66 64 ! 67 IF( nn_timing == 1 )CALL timing_start('p2z_sed')65 IF( ln_timing ) CALL timing_start('p2z_sed') 68 66 ! 69 67 IF( kt == nittrc000 ) THEN … … 119 117 ENDIF 120 118 ! 121 IF( nn_timing == 1 )CALL timing_stop('p2z_sed')119 IF( ln_timing ) CALL timing_stop('p2z_sed') 122 120 ! 123 121 END SUBROUTINE p2z_sed 122 124 123 125 124 SUBROUTINE p2z_sed_init -
branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/P2Z/p2zsms.F90
r7681 r9124 6 6 !! History : 1.0 ! M. Levy 7 7 !! 2.0 ! 2007-12 (C. Ethe, G. Madec) revised architecture 8 !!---------------------------------------------------------------------- 9 8 10 !!---------------------------------------------------------------------- 9 11 !! p2zsms : Time loop of passive tracers sms … … 42 44 !! ** Method : - ??? 43 45 !! -------------------------------------------------------------------- 44 !!45 46 INTEGER, INTENT( in ) :: kt ! ocean time-step index 46 47 ! 47 INTEGER :: jn48 INTEGER :: jn ! dummy loop index 48 49 !! -------------------------------------------------------------------- 49 50 ! 50 IF( nn_timing == 1 )CALL timing_start('p2z_sms')51 IF( ln_timing ) CALL timing_start('p2z_sms') 51 52 ! 52 53 CALL p2z_opt( kt ) ! optical model … … 54 55 CALL p2z_sed( kt ) ! sedimentation model 55 56 CALL p2z_exp( kt ) ! export 56 57 ! 57 58 IF( l_trdtrc ) THEN 58 59 DO jn = jp_pcs0, jp_pcs1 … … 60 61 END DO 61 62 END IF 62 63 63 ! 64 64 IF ( lwm .AND. kt == nittrc000 ) CALL FLUSH ( numonp ) ! flush output namelist PISCES 65 IF( nn_timing == 1 )CALL timing_stop('p2z_sms')65 IF( ln_timing ) CALL timing_stop('p2z_sms') 66 66 ! 67 67 END SUBROUTINE p2z_sms
Note: See TracChangeset
for help on using the changeset viewer.