- 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/p2zsed.F90
r4147 r4617 41 41 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 42 42 !!---------------------------------------------------------------------- 43 44 43 CONTAINS 45 44 … … 62 61 !! trend of passive tracers is saved for futher diagnostics. 63 62 !!--------------------------------------------------------------------- 64 !!65 63 INTEGER, INTENT( in ) :: kt ! ocean time-step index 66 64 !! … … 78 76 IF(lwp) WRITE(numout,*) ' ~~~~~~~' 79 77 ENDIF 80 81 ! Allocate temporary workspace 82 CALL wrk_alloc( jpi, jpj, jpk, zwork, ztra ) 83 IF( ln_diatrc ) CALL wrk_alloc( jpi, jpj, zw2d ) 78 ! 79 CALL wrk_alloc( jpi, jpj, jpk, zwork, ztra ) 80 ! 84 81 IF( l_trdtrc ) THEN 85 82 CALL wrk_alloc( jpi, jpj, jpk, ztrbio ) … … 110 107 111 108 IF( ln_diatrc ) THEN 112 DO jk = 1, jpkm1 109 CALL wrk_alloc( jpi, jpj, zw2d ) 110 zw2d(:,:) = ztra(:,:,1) * fse3t(:,:,1) * 86400. 111 DO jk = 2, jpkm1 113 112 zw2d(:,:) = zw2d(:,:) + ztra(:,:,jk) * fse3t(:,:,jk) * 86400. 114 113 END DO … … 121 120 ENDIF 122 121 ! 123 IF( ln_diabio ) trbio(:,:,:,jp_pcs0_trd + 7) = ztra(:,:,:)122 IF( ln_diabio .AND. .NOT.lk_iomput ) trbio(:,:,:,jp_pcs0_trd + 7) = ztra(:,:,:) 124 123 CALL wrk_dealloc( jpi, jpj, jpk, zwork, ztra ) 125 124 ! … … 130 129 CALL wrk_dealloc( jpi, jpj, jpk, ztrbio ) 131 130 ENDIF 132 131 ! 133 132 IF(ln_ctl) THEN ! print mean trends (used for debugging) 134 133 WRITE(charout, FMT="('sed')") … … 141 140 END SUBROUTINE p2z_sed 142 141 142 143 143 SUBROUTINE p2z_sed_init 144 144 !!---------------------------------------------------------------------- … … 150 150 !! 151 151 !!---------------------------------------------------------------------- 152 INTEGER :: ios ! Local integer 153 ! 152 154 NAMELIST/namlobsed/ sedlam, sedlostpoc, vsed, xhr 153 INTEGER :: ios ! Local integer output status for namelist read154 155 !!---------------------------------------------------------------------- 156 ! 155 157 REWIND( numnatp_ref ) ! Namelist namlobsed in reference namelist : Lobster sediments 156 158 READ ( numnatp_ref, namlobsed, IOSTAT = ios, ERR = 901) 157 159 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlosed in reference namelist', lwp ) 158 160 ! 159 161 REWIND( numnatp_cfg ) ! Namelist namlobsed in configuration namelist : Lobster sediments 160 162 READ ( numnatp_cfg, namlobsed, IOSTAT = ios, ERR = 902 ) 161 163 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobsed in configuration namelist', lwp ) 162 164 WRITE ( numonp, namlobsed ) 163 165 ! 164 166 IF(lwp) THEN 165 167 WRITE(numout,*) ' Namelist namlobsed'
Note: See TracChangeset
for help on using the changeset viewer.