Changeset 6131 for branches/2015/dev_merge_2015
- Timestamp:
- 2015-12-18T14:52:13+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_merge_2015/NEMOGCM/NEMO/OPA_SRC/DYN/dynzdf.F90
r6108 r6131 78 78 79 79 IF( l_trddyn ) THEN ! save the vertical diffusive trends for further diagnostics 80 ztrdu(:,:,:) = ua(:,:,:)- ztrdu(:,:,:)81 ztrdv(:,:,:) = va(:,:,:)- ztrdv(:,:,:)80 ztrdu(:,:,:) = ( ua(:,:,:) - ub(:,:,:) ) / r2dt - ztrdu(:,:,:) 81 ztrdv(:,:,:) = ( va(:,:,:) - vb(:,:,:) ) / r2dt - ztrdv(:,:,:) 82 82 CALL trd_dyn( ztrdu, ztrdv, jpdyn_zdf, kt ) 83 83 CALL wrk_dealloc( jpi, jpj, jpk, ztrdu, ztrdv )
Note: See TracChangeset
for help on using the changeset viewer.