Changeset 2777 for trunk/NEMOGCM/NEMO/LIM_SRC_3/limthd_ent.F90
- Timestamp:
- 2011-06-07T11:55:02+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/LIM_SRC_3/limthd_ent.F90
r2715 r2777 122 122 123 123 IF( wrk_in_use(1, 1,2,3,4,5,6,7,8) ) THEN 124 CALL ctl_stop('lim_thd_ dh: requestead workspace arrays unavailable') ; RETURN124 CALL ctl_stop('lim_thd_ent : requestead workspace arrays unavailable') ; RETURN 125 125 END IF 126 126 … … 477 477 ! Cotes of old ice layers 478 478 !------------------------- 479 zm0(:,0) = 0. -wp479 zm0(:,0) = 0._wp 480 480 481 481 DO jk = 1, maxnbot0
Note: See TracChangeset
for help on using the changeset viewer.