Changeset 1195
- Timestamp:
- 2008-09-18T20:12:38+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/TRP/trdmld_trc_rst.F90
r1189 r1195 146 146 147 147 DO jn = 1, jptra 148 CALL iom_get( inum, jpdom_ local, 'tmlbb_trc_' //ctrcnm(jn), tmlbb_trc (:,:,jn) )149 CALL iom_get( inum, jpdom_ local, 'tmlbn_trc_' //ctrcnm(jn), tmlbn_trc (:,:,jn) )150 CALL iom_get( inum, jpdom_ local, 'tmlatfb_trc_'//ctrcnm(jn), tmlatfb_trc(:,:,jn) )151 CALL iom_get( inum, jpdom_ local, 'tmlradb_trc_'//ctrcnm(jn), tmlradb_trc(:,:,jn) )148 CALL iom_get( inum, jpdom_autoglo, 'tmlbb_trc_' //ctrcnm(jn), tmlbb_trc (:,:,jn) ) 149 CALL iom_get( inum, jpdom_autoglo, 'tmlbn_trc_' //ctrcnm(jn), tmlbn_trc (:,:,jn) ) 150 CALL iom_get( inum, jpdom_autoglo, 'tmlatfb_trc_'//ctrcnm(jn), tmlatfb_trc(:,:,jn) ) 151 CALL iom_get( inum, jpdom_autoglo, 'tmlradb_trc_'//ctrcnm(jn), tmlradb_trc(:,:,jn) ) 152 152 END DO 153 153 154 154 ELSE 155 CALL iom_get( inum, jpdom_ local, 'rmldbn_trc', rmldbn_trc ) ! needed for rmld_sum155 CALL iom_get( inum, jpdom_autoglo, 'rmldbn_trc', rmldbn_trc ) ! needed for rmld_sum 156 156 157 157 ! ! =========== 158 158 DO jn = 1, jptra ! tracer loop 159 159 ! ! =========== 160 CALL iom_get( inum, jpdom_ local, 'tmlatfb_trc_' //ctrcnm(jn), tmlatfb_trc(:,:,jn) )161 CALL iom_get( inum, jpdom_ local, 'tmlbb_trc_' //ctrcnm(jn), tmlbb_trc (:,:,jn) )162 CALL iom_get( inum, jpdom_ local, 'tmlradb_trc_' //ctrcnm(jn), tmlradb_trc(:,:,jn) )163 164 CALL iom_get( inum, jpdom_ local, 'tmlbn_trc_' //ctrcnm(jn), tmlbn_trc (:,:,jn) ) ! needed for tml_sum165 CALL iom_get( inum, jpdom_ local, 'tml_sumb_trc_'//ctrcnm(jn), tml_sumb_trc(:,:,jn) )160 CALL iom_get( inum, jpdom_autoglo, 'tmlatfb_trc_' //ctrcnm(jn), tmlatfb_trc(:,:,jn) ) 161 CALL iom_get( inum, jpdom_autoglo, 'tmlbb_trc_' //ctrcnm(jn), tmlbb_trc (:,:,jn) ) 162 CALL iom_get( inum, jpdom_autoglo, 'tmlradb_trc_' //ctrcnm(jn), tmlradb_trc(:,:,jn) ) 163 164 CALL iom_get( inum, jpdom_autoglo, 'tmlbn_trc_' //ctrcnm(jn), tmlbn_trc (:,:,jn) ) ! needed for tml_sum 165 CALL iom_get( inum, jpdom_autoglo, 'tml_sumb_trc_'//ctrcnm(jn), tml_sumb_trc(:,:,jn) ) 166 166 167 167 DO jk = 1, jpltrd_trc … … 171 171 WRITE(charout,FMT="('tmltrd_csum_ub_trc_', A3, '_', I2)") ctrcnm(jn), jk 172 172 ENDIF 173 CALL iom_get( inum, jpdom_ local, charout, tmltrd_csum_ub_trc(:,:,jk,jn) )173 CALL iom_get( inum, jpdom_autoglo, charout, tmltrd_csum_ub_trc(:,:,jk,jn) ) 174 174 END DO 175 175 176 CALL iom_get( inum, jpdom_ local, 'tmltrd_atf_sumb_trc_'//ctrcnm(jn) , &176 CALL iom_get( inum, jpdom_autoglo, 'tmltrd_atf_sumb_trc_'//ctrcnm(jn) , & 177 177 & tmltrd_atf_sumb_trc(:,:,jn) ) 178 178 179 CALL iom_get( inum, jpdom_ local, 'tmltrd_rad_sumb_trc_'//ctrcnm(jn) , &179 CALL iom_get( inum, jpdom_autoglo, 'tmltrd_rad_sumb_trc_'//ctrcnm(jn) , & 180 180 & tmltrd_rad_sumb_trc(:,:,jn) ) 181 181 ! ! =========== … … 185 185 #if defined key_lobster 186 186 DO jl = 1, jp_lobster_trd 187 CALL iom_get( inum, jpdom_ local, 'tmltrd_csum_ub_bio'//ctrd_bio(jl,2), tmltrd_csum_ub_bio(:,:,jl) )187 CALL iom_get( inum, jpdom_autoglo, 'tmltrd_csum_ub_bio'//ctrd_bio(jl,2), tmltrd_csum_ub_bio(:,:,jl) ) 188 188 ENDDO 189 189 #endif
Note: See TracChangeset
for help on using the changeset viewer.