Changeset 600
- Timestamp:
- 2007-02-20T15:32:37+01:00 (17 years ago)
- Location:
- trunk/NEMO/OPA_SRC/DTA
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DTA/dtasal.F90
r473 r600 133 133 134 134 #if defined key_orca_lev10 135 if (l k_zps) stop135 if (ln_zps) stop 136 136 zsal(:,:,:,:) = 0. 137 137 CALL iom_get (numsdt,jpdom_data,'vosaline',zsal(:,:,:,1),nsal1) … … 247 247 ikt = ikw + 5 248 248 DO jjk = ikt , ikt + 9 249 zfac = ( gdept (jjk) - gdepw(ikt) ) / ( gdepw(ikt+10) - gdepw(ikt) )249 zfac = ( gdept_0(jjk) - gdepw_0(ikt) ) / ( gdepw_0(ikt+10) - gdepw_0(ikt) ) 250 250 saldta(:,:,jjk,jl) = zsal(:,:,ikr,jl) + ( zsal(:,:,ikr+1,jl) - zsal(:,:,ikr,jl) ) * zfac 251 251 END DO -
trunk/NEMO/OPA_SRC/DTA/dtatem.F90
r473 r600 138 138 139 139 #if defined key_orca_lev10 140 if (l k_zps) stop140 if (ln_zps) stop 141 141 ztem(:,:,:,:) = 0. 142 142 CALL iom_get (numtdt,jpdom_data,'votemper',ztem(:,:,:,1),ntem1) … … 243 243 ikt = ikw + 5 244 244 DO jjk=ikt,ikt+9 245 zfac = ( gdept (jjk ) - gdepw(ikt) ) / ( gdepw(ikt+10) - gdepw(ikt) )245 zfac = ( gdept_0(jjk ) - gdepw_0(ikt) ) / ( gdepw_0(ikt+10) - gdepw_0(ikt) ) 246 246 temdta(:,:,jjk,jl) = ztem(:,:,ikr,jl) + ( ztem(:,:,ikr+1,jl) - ztem(:,:,ikr,jl) ) * zfac 247 247 END DO
Note: See TracChangeset
for help on using the changeset viewer.