Changeset 2083 for branches/DEV_r2006_merge_TRA_TRC/NEMO/OPA_SRC/istate.F90
- Timestamp:
- 2010-09-10T14:49:11+02:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/DEV_r2006_merge_TRA_TRC/NEMO/OPA_SRC/istate.F90
r2082 r2083 128 128 129 129 IF( ln_zps .AND. .NOT. lk_c1d ) & 130 CALL zps_hde( nit000, 'TRA', tsb, gtsu, gtsv, & ! Partial steps: before horizontal gradient131 & rhd, gru , grv , jpts) ! of t, s, rd at the last ocean level130 CALL zps_hde( nit000, jpts, tsb, gtsu, gtsv, & ! Partial steps: before horizontal gradient 131 & rhd, gru , grv ) ! of t, s, rd at the last ocean level 132 132 133 133 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.