Changeset 6999


Ignore:
Timestamp:
2016-10-05T18:08:24+02:00 (4 years ago)
Author:
kingr
Message:

Fix to typo in previous commmit.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/CO6_KD490_amm7oper/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90

    r6991 r6999  
    189189               zztmpy = (  bfrva(ji,  jj) * vn(ji,jj  ,mbkv(ji,jj  ))  & 
    190190                      &  + bfrva(ji,jj-1) * vn(ji,jj-1,mbkv(ji,jj-1))  )  
    191                z2d(ji,jj) = 0.5_wp * SQRT( zztmpx * zztmpx + zztmpy * zztmpy ) * tmask(ji,jj,1)  
     191               z2d(ji,jj) = 0.5_wp * rau0 * SQRT( zztmpx * zztmpx + zztmpy * zztmpy ) * tmask(ji,jj,1)  
    192192               ! 
    193193            ENDDO 
Note: See TracChangeset for help on using the changeset viewer.