Changeset 1645
- Timestamp:
- 2009-10-07T15:47:16+02:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/trcdta.F90
r1152 r1645 95 95 ! open file 96 96 # if defined key_pisces 97 clname(jn) = ' LEVITUS_'//ctrcnm(jn)97 clname(jn) = 'data_1m_'//TRIM(ctrcnm(jn))//'_nomask' 98 98 # else 99 clname(jn) = ctrcnm(jn)99 clname(jn) = TRIM(ctrcnm(jn)) 100 100 # endif 101 101 CALL iom_open ( clname(jn), numtr(jn) ) … … 142 142 ik = mbathy(ji,jj) - 1 143 143 IF( ik > 2 ) THEN 144 zl = ( gdept_0(ik) - fsdept (ji,jj,ik) ) / ( gdept_0(ik) - gdept_0(ik-1) )145 tracdta(ji,jj,ik,jn,jl) = (1.-zl) * tracdta(ji,jj,ik ,jn,jl) &144 zl = ( gdept_0(ik) - fsdept_0(ji,jj,ik) ) / ( gdept_0(ik) - gdept_0(ik-1) ) 145 tracdta(ji,jj,ik,jn,jl) = (1.-zl) * tracdta(ji,jj,ik ,jn,jl) & 146 146 & + zl * tracdta(ji,jj,ik-1,jn,jl) 147 147 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.