- Timestamp:
- 2014-11-27T17:13:38+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_CNRS_2014/NEMOGCM/NEMO/LIM_SRC_3/limistate.F90
r4901 r4902 128 128 DO jj = 1, jpj ! ice if sst <= t-freez + ttest 129 129 DO ji = 1, jpi 130 IF( ( tsn(ji,jj,1,jp_tem) - ( t_bo(ji,jj) - rt0 ) ) * tms(ji,jj) >= thres_sst ) THEN ; zswitch(ji,jj) = 0._wp * tms(ji,jj) ! no ice 131 ELSE ; zswitch(ji,jj) = 1._wp * tms(ji,jj) ! ice 130 IF( ( tsn(ji,jj,1,jp_tem) - ( t_bo(ji,jj) - rt0 ) ) * tms(ji,jj) >= thres_sst ) THEN 131 zswitch(ji,jj) = 0._wp * tms(ji,jj) ! no ice 132 ELSE 133 zswitch(ji,jj) = 1._wp * tms(ji,jj) ! ice 132 134 ENDIF 133 135 END DO
Note: See TracChangeset
for help on using the changeset viewer.