improve trcsbc #21

Open

Assignees

opened

on Nov 28, 2025

ogstm/src/PHYS/trcsbc.f90

Lines 25 to 28 in dc5b9ac

    
           zse3t = 1. / e3t(1,jj,ji) 
        
              ztra = 1./ rhopn(1,jj,ji) * zse3t * tmask(1,jj,ji) * emp(jj,ji) * trn(1,jj,ji,jn) ! original emps(jj,ji) 
        
              tra(1,jj,ji,jn) = tra(1,jj,ji,jn) + ztra

Metadata

Assignees

Labels

No labels

No labels

Type

No type

Fields

No fields configured for issues without a type.

Projects

No projects

Milestone

No milestone

Relationships

None yet

Development

No branches or pull requests