- Timestamp:
- 2016-11-22T14:57:00+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_r6859_LIM3_meltponds/NEMOGCM/NEMO/LIM_SRC_3/limistate.F90
r7293 r7306 474 474 ! MV MP 2016 475 475 IF ( ln_limMP ) THEN 476 sxap (:,: ) = 0._wp ; sxvp (:,:) = 0._wp477 syap (:,: ) = 0._wp ; syvp (:,:) = 0._wp478 sxxap (:,: ) = 0._wp ; sxxvp (:,:) = 0._wp479 syyap (:,: ) = 0._wp ; syyvp (:,:) = 0._wp480 sxyap (:,: ) = 0._wp ; sxyvp (:,:) = 0._wp476 sxap (:,:,:) = 0._wp ; sxvp (:,:,:) = 0._wp 477 syap (:,:,:) = 0._wp ; syvp (:,:,:) = 0._wp 478 sxxap (:,:,:) = 0._wp ; sxxvp (:,:,:) = 0._wp 479 syyap (:,:,:) = 0._wp ; syyvp (:,:,:) = 0._wp 480 sxyap (:,:,:) = 0._wp ; sxyvp (:,:,:) = 0._wp 481 481 ENDIF 482 482 ! END MV MP 2016
Note: See TracChangeset
for help on using the changeset viewer.