Changeset 7813 for trunk/NEMOGCM/NEMO/LIM_SRC_3/limvar.F90
- Timestamp:
- 2017-03-20T17:17:45+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/LIM_SRC_3/limvar.F90
r7753 r7813 677 677 zht_i(ji,1:jpl) = 0._wp 678 678 za_i (ji,1:jpl) = 0._wp 679 itest(:) = 0 679 itest(:) = 0 680 680 681 681 ! *** case very thin ice: fill only category 1 … … 722 722 723 723 ENDIF ! case ice is thick or thin 724 724 725 725 !--------------------- 726 726 ! Compatibility tests … … 747 747 ENDIF ! if zhti > 0 748 748 END DO ! i loop 749 749 750 750 ! ------------------------------------------------ 751 751 ! Adding Snow in each category where za_i is not 0
Note: See TracChangeset
for help on using the changeset viewer.