Changeset 7310 for branches/2016
- Timestamp:
- 2016-11-22T19:22:29+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_CNRS_AGRIF_2016/NEMOGCM/NEMO/LIM_SRC_3/limdyn.F90
r7309 r7310 77 77 IF( ln_landfast ) THEN 78 78 DO jl = 1, jpl 79 WHERE( ht_i(:,:,jl) > ht (:,:) * rn_gamma ) tau_icebfr(:,:) = tau_icebfr(:,:) + a_i(:,:,jl) * rn_icebfr79 WHERE( ht_i(:,:,jl) > ht_n(:,:) * rn_gamma ) tau_icebfr(:,:) = tau_icebfr(:,:) + a_i(:,:,jl) * rn_icebfr 80 80 END DO 81 81 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.